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1eM. MAINTENANCE DIAGNOSTIC PROGRAM 4247621 
4 PAGE 1 PAGE 1A 
C1F3 3340 SYSTEM TEST MODULE —~ MOD 12 C1F3 3340 SYSTEM TEST MODULE —~ MOD 12 
ERR LUC OBJECT CODE ADDR STMT SOURCE STATEHENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
2 * LAST CHG: 07/16/76 18E5 26 USING DRYWK »XR2 INDEX REG 2 POINTS TO ORV WORK AREA 
3 DECK 1 : 27 cecuanssenssrcnencnarengcsanaesesasseersesesseesenesseeess eee ees ee eee 
4 seQ. 0 ‘ 28 * , * 
5 , TREP 29 * ROLTINE OL — READ STATUS COMMANDS TEST * 
6 * 30 2 s 
- 0000 7 ClF START O : 3) * eescvecrerenccassesecosessnecssagssesessssessseseessesese esos Serene es 
8 CLE ee aS aEaERERESEAEAEEEESEAES EASE ESET EESR EROS ASSO SEES SOT 32 * 
9+ * OAQD O01 OAOD 33 RTNPFC OC XLL*01° ROUTINE NUMBER 
ic * SECTION PREFACE . : QAOE 00 OAUE 34 oC KL1°00* ROUTINE FLAGS 
11 * * OAOF FFFF CAlc 80. 35 DC XL2°FFFF® OPERATES AS ONE ROUTINE 
12 © cenedaetate C4EAEEAEESESEASEASEESERSEESEETERSR ATES SESH SESS SSIES 36 * @ 
13 * OAL 38 80 18AF 37 SBF IND» BGNSW RESET PROGRAM RESTART INDICATOR 
OACO 14 ORG xX*OA00* 38 * 
15 * a OAL5 3C OA 18B2 39 ROL KV I LPCNT, 10 LOOP THIS ROUTINE 10 TIMES 
OA0O C1F3 OAO1L -16 PID oc XL2"*C1F3* SECTION ID AND REVISION LEVEL 40 * 
OAO2 40 oAO2. = 17 DC XL1°40° SECTION FLAGS OA19 CC 87 OF6A 41 8 BEGIN PERFORM ROUTINE INITIALIZATION 
OA03 01 0A03 18 RTN oc xL1°O1° CURRENT ROUTINE NUMBER OALD OA25 OALE 42 DC AL2¢(ROLA) *LOGP® SUBROUTINE RETURN ADORESS 
OA04 0000 oAo5 19 Dc AL2(0} OALF OA3D OA20 43 oc AL2(RO1B) ONXDRV® SUBROUTINE RETURN ADDRESS 
OA0G OAOD OAOT 20 PFC oc AL2(RTNPEFC) ADDRESS OF ROUTINE PREFACE a4 
OAGS 17E0 OAO9D 21 oC AL2( ERRLOG) ERROR LOG ADORESS 0A21 CO 87 1072 45 8 RECAL RECALIBRATE 
22 * ; £6 
OAOA C15000 OAcc 23 UDTO oc XL3*C15000* 3340 UOT 0A25 CO 87 1272 4&7 ROLA 3 RDSNS READ DIAGNOSTIC SENSE DATA 
24 * 0a29 CO 87 1260 48 RDLOG READ AND RESET BUFFERED LOG 
49 * 
OA2D 2A 01 18C6& 50 SBN  IDDOR,1 START DUDF ON ODD STORAGE ADORESS 
51 * 
OA31 CO 87 1272 52 B ROSNS READ DIAGNOSTIC SENSE DATA 
0A35 CO 87 1260 53 B RDLOG READ AND RESET BUFFERED LOG 
54 ¢ ; 
OA39 CO 87 1013 55 8 NXDRV REPEAT FOR EACH DRiVE BEING TESTED 
56 * 
OA30 OF OO 1882 187E 57 ROLB SLC LPCNT(1),P2 DECREMENT LOOP COUNTER 
0A43 CO O01 1058 58 BNZ LOOP REPEAT TEST 210 TIMES — 
59 * 
DATE | OSAUGT i . 
ac. aoraas. Oe essere. akg PROG ID C1F-3.  -pATE. +—«OSAUG75.«—s«OSNOV7S)=—««OOLMAR76 = OLOCTT6 PROG ID c1F-3 
. mS 2 ee - PAGE 1 EC NO. 827779 827827 827872 571931 PAGE LA 








gS eee is Tia tMee ates eee a EE RS pies Ha 


Arent STE EET OUR EET TATE aE TTT BE crengren oat, 





| 


IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 4247621 TEM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247621 
. PAGE 2 PAGE 2A 
C1F3 3340 SYSTEM TEST MOOULE -- MOD 12 C1lF3 3340 SYSTEM TEST MODULE -- “OD 12 
ERR LOC OBJECT CODE ALUDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
61 GN NASSSS4RN SS EE SEES ORES FOES SOE RETEEEHEETEAENSEOREECEROREERSEEGERES 91 g eeessnassesuscenaesesseesseoenssoensenessestenensosseesesraneene 
62 # * 92 & * 
1 63 * ROUTINE O02 - CYLINDER ZERO ACCESS TEST ® 93 RCUTIN: 03 = CE CYLINDER ACCESS TEST e 
64 * . 94 & . 
65 g MASSE ORSRSEASS SEAR SDSS SATE ERES EEE ETENEEANEA ERE OROLEREEREREOAEOR, 95 g TJ SeSsesenezeeesossessesenscesecavasasonsasesseeceseseneonngesonees 
66 * 96 * 
OA47 3C 00 0863 &7 R02 AVI RO2ZAL 20 INITIALIZE HEAD ADDR To 0 OATC 3C 00 0A94 97 RO3 HY] ROSAL »O INITIALIZE HEAD aGoR To 0 
63 # 98 
OAGB CO 87 GF6A 69 8 5EGIN PERFORM ROUTINE INITIALIZATION OAGO CO 87. OFbA 99 8 SEGIN PERFOR ROUTINE INITIALIZATION 
OA4SF 0A53 O&50 70 oC AL2(RO24) *LOOP* SUBROUTINE RETURN ADDRESS OA8S OABB OAB5 100 Dc AL2Z(RO3A) *LOOP® SUBROUTINE RETURN ADDRESS 
OA51 OA6E OAS52 = =i re AL2(RO28} "NXORV* SUBROUTINE RETURN ADDRESS OA8S OAOF OA87? 101 DC AL2(RO3B) "NXORV® SUBROUTINE RETURN ADDRESS 
72 * i02 # 
OA53 €O 87 1072 73 ROZA 8 RECAL RECALIBRATE OA88 CO 87 1072 103 ROSA 8 RECAL RECAL IBRATE 
OA57 CO 87 1272 74 B ROSNS DETERMINE DATA MOOULE SIZE OABC CO 87 1272 104 B ROSNS DETERMINE DATA MouULE SIZE 
OA5B CO 87 LIOF 5 8 ROHAE READ HOME ADDR AND Ro CGUNT EVEN 195 & 
16 # OASO CO 87 1086 lué 8 SEEK SEEK (3340 PHYSICAL ADORESS)} 
OASF CO 87 1084 V7? 8 SEEK SEEK OAS4S OA9% 107 ROZAL OS Fil HEAD O = it 
OAG3 OAG3 78 RO2ZA) DS Iti PHYSICAL HEAD ADDRESS CASS 0150 0A96 106 DC 1L2° 3498 CYLINDER 349 
OAGS 0000 O0A55 TS DC Ti 2?G? PHYSICAL CYLENDER ADDRESS 169 @ 
80 + CAS? CO 87 LIOF 110 & ROHAE READ HOME ADDR AND RO COUNT EVEN 
OA66& CO BT LIOF 81 B RDHAE READ HOME ADDR AND RO COUNT EVEN Ril & 
82 + OA9B CO 87 10123 El2 8 NXORY REPEAT FOR EACH ORIVE BEING TESTED 
OAGA CO 87 1013 83 B NXDRV REPEAT FOR EACH ORIVE BEING TESTED 113 2 
84 * OASF OF 00 0A94% 187E 114 RO3B ALC RO3ZAL(1),P1 INCREBENT HEAD AODRESS 
OAGE OF 00 OA63 187E 85 RG238 ALC ROZAL(L} PL INCREMENT HEAD AUDORESS 115 ¢ 
86 * CAAS 3D OC 0ag4 116 Cug RO341,12 LOOP UNTIi ALL HEADS 
OA74 3D OC 0A63 87 CLI RO2A1,12 LOOP UNTIL ALL HEADS OAAD CU 82 1058 117 Bi Loop HAVE BEEN TESTED 
OA78 CO 82 1058 88 BL Loop HAVE BEEN TESTED 118 * 
, B89 & 
DATE OSAUGTS . O5WOV75 - O1MAR 76 O1NCTTS PROG ID C1lF-3 DATE OSAUGT7S OSNOV75 OLMAR 76 O10CT76 PROG iD ClF=-3 
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, PAGE 3 PAGE 3A 
C1F3 3340 SYSTEM TEST MODULE -- MOD 12 C1F3 3340 SYSTEM TEST MODULE -- MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
120 FHEESEEERERESEREESERERE TEESE EE SERSS TERERESERESES ES ES SELERSE EERE SES ETELE 158 €#EERECERSSRERE CEESEESESESOESSESESESEEEESTESES SEES SEEEESSESESESASEEESES 
l2i * 5 159 * * 
122 * ROUTINE 04 - CYLINDER ZERO READ DATA TRANSFER TEST * 160 * ROUTINE O05 — CE CYLINDER READ DATA TRANSFER TEST : 
123 * , * 161 * 
124 €REREERESEERERESHEAHESESSSHERE SES EERE SE REEEERER ETERS EERE RESTS REEESRERE TEES 162 S8OO8SEEESE ESET EERERSEESEE TESTS ESOS ESSEREESSEOEESSEEESEEES SESE SERESESERE 
125 * 163 * 
OAAD 3C 00 OAC5 126 RO4 MVI RO4B1 -O INITIALIZE HEAD ADDR TO O OAF3 3C 600 OBOB 164 ROS MVI RO581,0 IMITIALIZE HEAD ADDR TO 0 
127 * 165 * 
OAB1 CO 87 OF6A 128 B BEGIN PERFORM ROUTINE INITIALIZATION OAFT CO 87 OF6A 166 8 BEGIN PERFORM ROUTINE INITIALIZATION 
QOABS OAC1 OAB6 129 oc AL2(R04B) *LUOP* SUBROUTINE RETURN ADDRESS OAFB OB07 OAFC 167 Oc AL2(RO58) *LOOP*® SUBROUTINE RETURN ADDRESS 
OAB7T GAES OAB& 130 Dt AL2Z(RO4C) *NXDRV® SUBROUTINE RETURN ADDRESS OAFD OB4SF OAFE 168 OC ALZ(ROSC) *NXORV* SUBRUUTINE RETURN ADDRESS 
131 * 169 * 
OABY CO 87 1072 132 RO4A B RECAL RECALISRATE OAFF CO 87 1072 170 ROSA B RECAL RECAL IBRATE 
OABD CO 87 1l272 133 8B RDSNS DETERMINE DATA MODULE SIZE 0803 CO 87 1272 i7L 8 RDOSNS DETERMINE ONATA MODULE SIZE 
134 * 172 * 
OAC? CO B7 1084 135 R048 5 SEEK SEEK (3340 PHYSICAL ADDRESS) OBO? CO 87 1084 173 RO5B 8 SEEK SEEK (3340 PHYSICAL AODRESS} 
OACS OACS 136 RO4B1 DS TL HEAD 0 - ll 0608 OBO0B 174 RO5B1 OS {tl HEAD O - 11 
GACo 0000 OAC? 137 oc 1L2*o* CYLINDER ©6 OBOC 0150 OB0D 175 DC IL2°3498 CYLINDER 349 
138 * 176 * 
OACB CO 87 110F 139 8B ROHAE READ HOME ADDR AND RO COUNT EVEN OBOE CO 87 LILOF 177 ROSB2 B RDOHAE READ HOME ADOR AND RO COUNT EVEN 
140 * i78 * 
OACC Co 87 1191 141 B ROCKD READ COUNT-KEY-DATA OBl2 CO 87 1191 179 B ROCKO READ COUNT-KEY-DATA 
OADO 00 OADO 142 DC IL1*O* RECORD O (EVEN) 0816 O06 0816 180 oc IL1°0O* RECORD O (EVEN) 
143 *® 181 * 
OADL 3A O1 18C4 144 SBN IODCRs1 CHECK AGAIN USIhG CB17 CO 87 1191 182 5 RDCKD READ COUNT~KEY-DATA 
OADS 3A 01 18C6 145 SBN IDDOR el ODD STORAGE ADORESSES CB1iB Ol OB1B 183 DC ILitie RECORD 1 
146 * 184 * 
OAD9S CO 87 111C€ 147 8 ROHAD READ HOME ADDR AND RO COUNT ODD O61C 8D O02 13 1890 185 cic OL(3+XR25 .P25E GO TO ERROR END IF 
OadO CO 8&7 1155 148 B ROROO READ KEY-DATA RECORD O OvD 0B21 CO 01 161E 186 BNE ERR18 RESIOUAL KL/OL INCCRRECT 
149 * 187 * 
OAE1 CO 87 1013 150. 8 NXDRV REPEAT FOR EACH DRIVE BEING TESTED OB2S 35 01 18C6 188 L IDODOR,XR1 POINT TO RESIOUAL ODDF 
151 * 189 * 
GAES OF 00 OAC5 187E 152 RO4C ALC RO4BI(1),PL INCREMENT HEAD ADDRESS OB2y 40 03 03 189C 190 RO5B3 cic 314¢eXR1b eWOPIN GO TO ERROR END IF 
153 OB2E CO 01 1626 191 BNE ERR19 RESIDUAL DDDOF IS INCORRECT 
OAEB 3D CC OACS5 154 cil R04B1,12 LOOP UNTIL ALL HEADS 192 # 
GAEF CO 82 1058 155 BL Lo0P HAVE BEEN TESTED 0832 D2 01 04 193 LA 4(9XRL)_XR1 LOOP UNTIL 03 
156 * OB35 OF O01 38CD 1882 194 sic RDOCF¢8( 2) -P4 ALL NF RESTOUAL DODF 03 
0838 CO 01 0629 195 BNZ RO583 HAS BEEN CHECKED 03 
196 * 
OR3F 38 O01 18C6 197 TBN 1DDOR el READ AND CHECK 
0B43 3A 01 18C6 198 SBN IODOR.1 RECORD 1 AGAIN 
OB47 CO 90 OBOE 199 BF RC5B2 USING ODD STORAGE ADDRESS 
200 
0848 CO 87 1013 201 8 NXORV REPEAT FOR EACH ORIVE BEING TESTED 
202 * 
OBSF OF OO OB8OB 187E 293 ROSC ALC RO581(1).P1 INCREMENT HEAD ADDRESS 
204 * 
0855 30 OC 0808 205 cul RO5B1-.12 LOOP UNTIL ALL HEADS 
0859 CO 82 1058 206 BL Loop HAVE BEEN TESTED 
207 * 
DATE OSAUG7S OSNOV75S OLMART6 010CTT6 PROG 10 C1F-3 DATE O5AUG75 OSNOVTS5 OLMART6 O10CT7 
‘ 6 PROG ID CLF-3 
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ClF3 3340 SYSTEM TEST MODULE -—- MOD 12 


C1lF3 3340 SYSTEM TEST MODULE -- HOO 12 


ADDR STMT SOURCE STATEMENT 


ERR LOC O8SECT CODE SOURCE STATEMENT 


ERR LOC OBJECT CODE ADDR STMT 


209 BN NEMAESSSSSERES SERS SHES ERSES EER ERESESEES SHE OREREEREERERERRREEEOESE 265 oT ReRMSSSSO DR ERS SS See EEEESHEEREREREcEeRDEESENtoEREsEHAOSEHERORSECES 
210 * * 266 2 
211 ROUTINE 06 - WRITE DATA TRANSFER TEST * 267 * ROUTINE O7 - WRITE HOME ADDRESS TEST 
212 * * 268 *# * 
213 gL NASRSSSSASSERAESAES ES SERENE TRENDS ARERR SERRE REEROESHEREEEOEEES 269 a NeSSSSReeeeeessseeoeensseseoasenssenseseesessaaneseroseeensegeaene 
214 *& : 270 * 
OB5D 3C OA 1882 215 RO6 NVI LPCNT,10 LOOP THIS TEST 10 TIMES OBDO CO B87 OF6A 271 RO? B BEGIN PERFORM ROUTINE INITIALIZATION 
216 & OBD4 OBEO OBDS 272 DC AL2(RO7A) *LOOP* SUGROUTINE RETURN ADDRESS 
OB61 CO 87 OF6A 217 B BEGIN PERFORM ROUTINE INITIALIZATION OBD6 OBFE OBD7 273 oc AL2(RO08) *“NXORV* SUBROUTINE RETURN ADDRESS 
OB65 0878 0B66 218 DC AL2(RO6B) *LOGP* SUBROUTINE RETURN ADDRESS 274% + 02 
OB67 O8C6 0B68 219 DC AL2(RO6C) *NXDORV* SUBROUTINE RETURN ADDRESS OBD8 C9 87 1072 275 8 RECAL RECALIBRATE 02 
220 * OBDC CO 87 1272 276 B ROSNS DETERMINE DATA MOOULE SIZE 02 
0869 CO 87 1072 221 RO6GA B RECAL RECALIBRATE 277 «& 02 
OB6D CO 87 1272 222 B ROSNS DETERMINE DATA MODULE SIZE OBEO B88 08 00 278 ROTA TON DIND(.XR2) ,NOWR BYBASS ORIVS IF 02 
223 * OBE3 CO 10 1013 279 BT NX DRV WRETE INHIBITED 02 
OB71 CO 87 1084 224 B SEEK SEEK (3340 PHYSICAL ADORESS} 280 # 
0875 00 OB75 225 oC IL1*°08 HEAD 0 OBE? CO 87 1084 281 B SEEK SEEK (3340 PHYSICAL ADDRESS) 
OB76 015D OB77 226 DC IL2*349¢ CYLINDER 349 OBEB 00 OBEB 282 oC TL1l?oe HEAD 0 
227 * OBEC 0150 OBED 283 oC IL2*349¢ CYLINDER 349 
OB78 BB O08 00 228 RO6B TBN DIND(,XR2),NOWR BYBASS ORIVE IF 02 284 *& 
0878 CO 10 1013 229 BT NXDRV WRITE INHIBITED 02 OBEE CO 87 110F 285 B RDRAE READ HOME ADDR AND RO COUNT EVEN 
230 = 02 286 * 
O87F CO 87 110F 231 B RDHAE READ HOME ADDR AND RO COUNT EVEN 02 OBF2 CO 87 1289 287 8 WRHAO WRITE HA AND RO ODO 
232 * OBF6 CO @7 111C 288 B RBHAO READ HA AND RO COUNT ODD 
0883 CO 87 1191 233 RO6B) B RDCKD READ COUNT-KEY-DATA 289 
0887 Ol OBB7 234 DC ILi*2? RECORD 1 GBFA CO 87 1013 290 B NXORV REPEAT FOR EACH DRIVE BEING TESTED 
235. * 291 
OB88 CO 87 12£F9 236 8 WRCKD WRITE COUNT-KEY-DATA 
CBSC 02 OB8C 237 CC TL1°2¢ RECORD 2 
C88D 00 OB8D 238 OC ILleo8 NN = 00 
239 * 3 : 
OBBE CO 87 1191 240 B ROCKO READ COUNT-KEY-DATA 
0892 02 0892 241 DC IL1*2¢ RECORD 2 
242 & 
08S3 80 02 13 1890 243 CtC 6L(3,XR2),P256 GO TO ERROR END IF 
0B98 CO 01 161E 244 BNE ERR1S RESIDUAL KL/DL INCORRECT 
245 * 
OB9C 35 01 18C6 246 L IODDR ,XR1 ‘POINT TO RESIGUAL DODDF 
247 
OBAD 4D 03 03 189C 248 RO6B2 CLC = 3(49XR1) »HCPTN GO TO ERROR END IF 
OBAS CO 01 1626 249 BNE ERR19. RESIDUAL DDDF IS INCORRECT 
250 * 
OBA D2 01 04 251 LA 4(9XR1),XR1 LOOP UNTIL 03 
OBAC OF 01 18DD 1882 252 SLC = RDDCF +812), P4 ALL GF RESIOUAL DODF 03 
OBB2 CO 01 OS8A0 253 BMZ RO06B2 HAS "EEN CHECKED 03 
254 & 
0886 38 O1 18C6 255 TBN =IDDDR,1 WRITE AND CHECK 
OBBA 3A 01 18C6 256 SBN. IDDOR»1 RECORD 2 AGAIN : 
OBBE CO 90 0B78 257 BF R06B USING ODD STORAGE ADORESS 
258 * 
OBC2 CO 87 1013 259 8 NXDRV REPEAT FOR EACH DRIVE BEING TESTED 
260 * 
OBCS OF 00 1882 187E 261 RO6C SLC LPCNT(1),P1 LOOP THIS TEST 10 TIMES 
OBCC CO 01 1058 262 BNZ LOOP ; 
263 
DATE OSAUG7TS = = O5.NOV75 O1LMART6 Q10CT76 — PROG ID C1F-3 DATE OSAUG7S OSNOVT7S O1MARTE 010CT76 PROG ID ClF-3 | 
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PAGE 5 | | PAGE 5A 
C1F3 3340 SYSTEM TEST MODULE -- MOD 12 CiF3 3340 SYSTEM TEST MODULE -- MCD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
. 293 EERARERERERERAERERER RET EREARERER ER EEE EREREREREREERRER EES AEEES EOS EERRETEE 353 SHSSSELESHRHSHSSESKSSSSES SHS SHAK SEK KRIST SRSKSKSSKSESKAAHRKS SK KSSLHERSESKETSESSKSKER 
294 * * 354 * : * 
295 * ROUTINE OC — HEAD WRITE/READ TEST | * 355 & ROUTINE 09 - WRITE KEY-OATA TEST * 
296 * * 356 * * 
297 MERAH SHEKHAR HEKKE HK AREKKAKAKAERHKSESARKKKKSSRKESSSESESAAEKESPSSERRERSEKEK HRS 257 SEK SSSAESSASSASSSHGLERSHAISSSSTRKSERSKSERKSESKKESFEKSASEKKRALSLAEKSKSREK SVK SF KEKSS 
298 * . 358 3 03 
OBFE 3C 00 OCID 299 ROB MVE = - ROBB1,0 INITIALIZE HEAD ADDR TO ZERO OC7S 3C 90 COOL 359 RGD RVI = RO9B1 20 INITIALIZE HEAD ADOR TO ZERO 03 
300 * 360 * 03 
OCO2 CO 87 OF6A 301 B BEGIN PERFORM ROUTINE INITIALIZATION OC7D CO 87 OFA 361 B BEGIN PERFORM ROUTINE INITIALIZATION 03 
OCO6 0C12 OCOT 302 DC AL2(R08B} *LOOP* SUBROUTINE RETURN ADDRESS oC&1 OCceD OC82 362 pc AL2(ROOB) "LOOP* SUBROUTINE RETURN ADDRESS 03 
OCOB OCéB 0CO9 303 DC AL 2(ROBC)} 'NXDRV* SUBROUTINE RETURN ADDRESS 0C83 OCB GC84 363 DC AL2(RO9C) *NXORV® SUBROUTINE RETURN ADORESS 03 
304 * 364 & 03 
OCOA CO 87 1072 305 ROBA B RECAL RECALIBRATE Ocas CO 87 1072 365 ROSA B RECAL RECALIBRATE 03 
OCOE CO 87 1272 306 B RDSNS DETERMINE DATA MODULE SIZE OC89 CO 87 1272 366 8 ROSNS DETERMINE DATA MODULE SIZE 03 
307 * 02 367 * 63 
OC12 Bg 08 00 308 ROSB TBN = DIND(4XR2),NOWR BYBASS ORIVE IF 02 OCBD CO 87 108% 368 RO9B 6 SEEK SEEK (3340 PHYSICAL ADDRESS) 03 
OC15 CC 10 1013 309 BT NXDRV | WRITE INHIBITED 02 oc9l OC9L 369 ROOBI OS ILL HEAG O - 11 03 
310 # 0C92 0150 0C93 370 oc 1L2* 3498 CYLINDER 349 03 
0C19 CO 87 1084 31 B SEEK SEEK (3340 PHYSICAL ADDRESS) 02 371 * 03 
OC1D OCID 312 RO8B1 DS 11 HEAD 0 - 11 0C94 CO &7 1191 372 8 RDCKD READ COUNT-KEV-DATA 63 
OC1LE 015D OC1lF 313 Dc iL2*349° CYLINDER 349 ocss O1 oc98 373 oc TLitye RECORD 1 03 
314 * 374 @ 03 
0C20 CO 87 110F 315 8 RDHAE READ HOME ADDR AND RO COUNT EVEN 0C99 CO 87 12F9 375 B WRCKD WRITE COUNT-KEY-DATA 03 
316 * OC9D 02 OC9D 376 DC 1Lit2® RECORD 2 03 
0C24 CO 87 12D4 317 B WRROO WRITE RECORD ZERO CNT-KEY-DATA GDD OCSE 26 OC9E 377 oC 1L1°38" NN = 36 03 
318 * 376 03 
0C28 CO 87 1191 319 ROSB2 B ROCKD READ COUNT-KEY-DATA GCOF OE Oi LBC& 1890 379 ALC 1DDDR(2),P256 POINT INIT DDOR TO RECORD 2 03 
OC2C 01 oc2c 320 | oc ILitie RECORD 1 380 ¢ 93 
321 * OCA5 CO 87 137C 381 8 WRKD WRITE KEY DATA 03 
0C2D CO 87 12F9 322 8 WRCKD WRITE COUNT-KEY-DATA OCA9 02 OCA9 382 DC TLi'2* RECORD 2 03 
0C31 02 GC31 323 Dc ILit2e RECORD 2 OCAA 26 OCAA 383 pc ILi*3ee NN = 38 03 
0C32 14 0C32 324 DC IL1*20¢ NN = 20 384 © 03 
325 * OCAB OF 01 18C6 1890 385 SLC —- LDDDR(. 29.9256 POINT INIT ODDDR TO RECORD 1 03 
0C33 CO 87 1191 326 B RDCKD READ COUNT-KEY-DATA 386 * 03 
C37 15 OC37 327 DC ILif2.¢ RECORD 21 OCB’ CO 87 1218 587 B ROVKD READ VERIFY KEY DATA 03 
328 * OCBS 01 OCBS 388 DC 1L1"1¢ RECORD 2 03 
0C38 @D 02 13 1890 329 CLC DL43,XR2),P256 GG TO ERROR ENO IF OCB6 27 OCB6 389 oC ILL*39° NN = 39 03 
O0C3D CO 01 16iE 330 BNE  ERR1B RESIDUAL KL/DL INCORRECT 390 * 03 
331 * OCB7 CO 87 1013 391 B NXDRV REPEAT FOR EACH DRIVE TESTED 03 
0C41 35 O1 18C6 332 L IDDOR,XR1 POINT TO RESIDUAL DDOF 392 * 03 
333 * : OCBB OE CO 0C91i 187E 393 RCO ALC ROSB1L(1) ¢PL INCREMENT HEAD ADDRESS 03 
0C45 4D 03 03 189C 334 RO8B3 CLC 34)XR1),WCPTN GO TO ERROR END IF 394 * 03 
OL4A CO 01 1626 335 BNE  ERR19 RESIDUAL DODF IS INCORRECT OCCL 3D 0B 0691 395 CLI R09B1,21 LOOP UNTIL. ALL 03 
336 * OCC5 CO 04 1058 396 BNH LOOP HEADS HAVE BEEN TESTED 03 
OC4E 02 01 04 337 LA 4(oXR1) oXR1 LOOP UNTIL 03 397 * 03 
OC51 OF O1 180D 1882 338 SLC = RODCF4+812),P4 ALL OF RESTOUAL DODF 03 
0C57 CO 01 0045 339 BNZ RO8B3 HAS BEEN CHECKED 03 
340 * 
OC5B 38 01 18C6 341 TBN = LODDR» 1 WRITE AND CHECK 
OCSF 3A 01 18C6 342 SBN IODDR»1 RECORD 21 AGAIN 
0C63 CO 90 0628 343 BF ROSB2 USING ODD STORAGE ADDRESS 
344 * 
OC67 CO 87 1013 345 B NXORV REPEAT FOR EACH DRIVE BEING TESTED 
346 * 
OC6B OE GO OCD 187E 347 ROBC ALC RO8B1(1).P1 INCREMENT HEAD ADDRESS 
. 348 * 
OC71 3D OB OC1D - 349 CLl ROBB1,21 LOOP UNTIL ALL 
OC75 CO 04 1058 350 BNH LOOP HEADS HAVE BEER TESTED 
351 * 
cae oo OSNOV75 = =§-OLMAR76=—« OLGC 176 ‘PROG ID C1F-3 DATE OSAUG75 OSNOV75 O1MAR76 O10CTT6 PROG IO C1F-3 
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C1lF3 3340 SYSTEM TEST MODULE -- MOD 12 C1F3 3340 SYSTEM TEST MODULE -- BOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC SBSECT CODE ADOR STRT SOURCE STATEMENT 
39D FEREREEES ESET EER ER ERS ESS ERASE SARE SASESERRE LESS RERRASRR EES RE RERRRAR ERE ODGA CO 87 1600 467 B ERRI4 HO SCAN HIT 
400 * * 468 % 
401 # ROUTINE OA - SCAN FF DETECT TEST * ODSE 328 40 18EO 469 ROABZ TBN SNS 8s Ti ERROR TF NO 
£02 * 7 0D52 CO 90 1600 470 BF ERR14 SCAN EQUAL CONDITION 
403 SO EEHEEERESERRERS ERG ERLE GERHER AES S EEKEE ERE SERRERRRANGAS ERRERRRERAE 4&7] & 
404 * 0056 CO 87 1013 472 B NXORV REPEAT FOR EACH DRIVE BEING TESTED 
OCC9 OC 03 18A0 189C 405 ROA MYC PATRN+3(4},WCPTN INITIALIZE £73 * ; 
OCCF 3C FE 189€ 406 VI PATRN41,X°FE® TEST PATTERN OD5A OF 00 I8SE 1B9E 474 ROAC ALC PATRNGIOLD»PATRNSL SHIFY TEST PATTERN 
407 * OD60 3A 01 189E “75 SBN PATRN41,B1T7 BYTE LEFY ONE BIT POSITION 
0CO03 CO 87 CFéA 408 @ BEGIN PERFORM ROUTINE INITIALIZATION &7% * 
OCOD? OCEA 0CD& 409 DC AL2(ROAB} *LOOP® SUBROUTINE RETURN ADDRESS 005% 30 FF i89E 477 cCLi PATRNGL,X° FES LOOP UNTIL ALL 
OCD9 OD5A OCDA 410 DC AL2(ROAC} *NXDRV® SUBROUTINE RETURN ADDRESS ODS8 CO Ol 1058 478 BNE {00P BET POSITIONS HAVE BEEN TESTED 
411 * 479 *% 
OCO0B CO 87 1072 412 ROAA B RECAL RECALIBRATE 
OCDF CO 87? 1272 413 B ROSNS DETERMINE DATA MODULE SIZE 
414 * 
OCE3 CO 87 1084 415 8 SEEK SEEK (3340 PHYSICAL ADDRESS) 
OCE7 00 OCE? 416 DC IL1#0°8 HEAD 0 
OCE8 015D OCE9 417 OC IL2°3498 CE CYLINDER 
418 * 
CCEA CO 87 1L1OF 419 ROAB B RDHAE READ HOME ADDR AND RO COUNT EVER 
420 * 
OCEE 3C FF LAID $21 avi DODF+255,Xt FFE SETUP SCAN 
OCF2 OC FE LAIC 1410 422 BYC DDODF+254(255) ,DDDF+4255 ARGUMENT IN 
OCF8 OC 02 1920 189F $23 AVC DDDF+2( 3) »PATRNG2 DDDF AREA 
424 +% 
OCFE CO 87 138A 425 8 SCANE SCAN READ OR EQUAL 
0002 01 OD02 426 DC TL? RECORD 1 
0D03 060 0D03 427 DC IL1*o¢ NN = 00 
428 = 
0D04 C1 C3 1607 429 T10 ERR156X*C3e ERROR IF SCAN HIT 
430 * 
OD08 CO 87 1398 £31 B SC ANH SCAN READ OR HIGH OR EQUAL 
ODOC O01 ODOC 432 oc IL1?1° RECORD 1 
ODOD 00 OD0D 433 DC IL1*o08 NN=00 
434 % 
ODOF Cl C3 1607 435 Tio ERR1S,X*C3? ERROR IF SCAN HIT 
436 * 
vuD12 CO 87 13C6 437 8 SCNRE SCAN READ OR EQUAL 
OD1s O01 OD16 438 DO. IL2?18 RECORD 1 
ODL? 00 OD17 439 OC IL1°08 NN=00 
440 * 
0D18 Cl C3 1607 441 Tio ERR15,X*C38 ERROR IF SCAN HIT 
442 * 
443 % 
OD1C CO B87 13D4 444 B SCNRH SCAN READ OR HIGH OR EQUAL 
0D20 Ol OD26 445 DC TLieit RECORD 1 
OD21i 00 OD21 446 oc ILi*o? NN = 00 
447 # 
0D22 Cl C3 1607 448 Tio ERR15,X°®C3? ERROR IF SCAN HIT 
449 + 
OD26 3C 77 191F 450 MMVI DODF+1 .X* 778 CHANGE DODF TG CAUSE SCAN HIT 
45i * 
002A CO 87 1398 452 8. SCANH SCAN READ OR HIGH OR EQUAL 
OD2E G1 OD2E 453 oc TLifys RECORD 1 
GD2F 00 OO2F 454 DC IL1*6? NN’ = 00 
| 455 *% . : 
6030 C1 C3 op38 456 TIO ROAB1L,X*C3? ERROR IF 
0034 CO 87 1600 457 B ERR14 NG SCAN HIT 
£58 * 
0038 38 46 18EO 459 ROABI TBN SNS »BITL ERROR IF NO 
O03C CO 90 15F9 460 BF ERR13 SCAN EQUAL CONDITION 
461 * 
0040 CO 87 13D4 462 B SCNRH SCAN READ OR HIGH OR ZQUAL 
0044 0] 0D44 463 oC FLieqe RECORD 1 
OD45 00 OD45 464 BC ILi*O? NN=06 
465 * . 
OD46 C1 £3 OD4E £66 Fo ROAB2,X*C 3° ERROR IF 
DATE O5AUG75  OS5NOV75  Ol1MART6  OLOCTT76 PROG ID C1F-3 DATE  OSAUG7TS  OSNOV75  O1MART6 _—OOLOCT 76 PROG ID wns 
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C1F3 3340 SYSTEM TEST MODULE -- MOD 12 C1F3 3340 SYSTEM TEST MODULE <-- MOD 12 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE 


ADDR STMT SOURCE STATEMENT 


4B SXEEEREEESESRESEAEEEREKRERESSEEEKEREEEAKERESERESESEEESERES EEE EKESEKERESBREEEGE OC£11 CO 90 0087 649 BE ROBB MAIN STORAGE. BOUNDARY 
482 * * 550 * ’ 
483 * ROUTINE 08 - SCAN EQUAL TEST * OE15 CO 87 1013 551 B NXDRV REPEAT FOR EACH ORIVE BEING TESTED 
484 * - 552 * 
GBS KSEKHSSESOKERKESEEKKEHKEEKEKERSESESESSESAKEHKSEKKEKSEKEKRSESSSESEKSKETKE SSSA SKEKSVKEASE OE19 OF OO 1882 ILB7E 553 ROBC SLC LPCNT(1),PL Looe THIS 
486 * OELF CO 01 1058 554 BNZ tocP TEST 10 TIMES 
OD6C 3C OA 18B2 487 ROB AVI LPCNT,10 LOOP THIS TEST 10 TIMES 555 * 
488 * 
O0D70 CO 87 OF6A 489 8 BEGIN PERFORM ROUTINE INITIALIZATION 
OD74 0987 0075 490 oc AL2 (ROBB) *LOOP* SUBROUTINE RETURN ADDRESS 
OD76 OEF19 OO7T7 491 oc ALZ2(ROBC) *NXORV* SUBROUTINE RETURN ADDRESS 
492 * 
op78 CO 87 1072 493 ROBA 8 RECAL RECALIBRATE 
oo7c Co 87 1272 494 8 RDSNS OETERMINE DATA MODULE SIZE 
495 * 
0080 CO 87 1084 496 B SEEK SEEK (3340 PHYSICAL ADDRESS) 
0084 00 OD&& 497 oC IL1*0O* HEAD O 
0085 0150 OD86 498 oc IL2*349¢ CE CYLINDER 
499 * 
0087 CO 87 110F 500 ROBB B RDHAE READ. HOME ADDR AND RO COUNT EVEN 
501 x 
OO08B 3C FF 1ALE 502 MVI DDDF+256eX*FF¢ SETUP SCAN 
ODS8F OC FF 1A1D LAILE 503 MVC DDDF+255( 256) ».DDDF +256 ARGUMENT IN 
0095 OC 03 1924 189C 504 MVC DDDF+6(4) ,WCPIN DODF AREA 
OD9B OC 01 1921 189C 505 MVC «.DDDF4+3(2) ,WCPIN 
ODAl OC O1 191F 187C 506 MVC ‘DODF+1(2) NULLS 
507 * 
ODAT 38 01 18C6 ‘508 TBN {[O0DR,BIT7 SKIP IF DDDF IS 
ODAB F2 90 06 509 JF ROBB1 ON EVEN ADDRESS BOUNDARY 
510 * 
ODAE OC 05 1925 1924 511 MVC DODF+7 (6),DD0F+6 SHIFT SCAN ARGUMENT FOR OOD BOUNDARY 
512 *& 
ODB4 CO 87 136A §13 ROBB] 8 SCANE SCAN READ OR EQUAL ‘ 
ODBS 01 ODBS 514 oc ILi*1¢e RECORD 1 
oDBg 00 ODB9 515 DC IL1*o* NN = 00 
516 * 
ODBA Cl C3 ODC2 517 Tro ROBB2,X*C3!# ERROR IF 
ODBE CO 87 1600 518 B ERRi4 NO SCAN HIT 
519 * 
ODC2 38 40 18E0 520 ROBB2 TBN SNS,BITL ERROR IF NO 
O0C6 CO 90 15F9 §21 BF ERR13 SCAN EQUAL CONDITION 
522 * 
ODCA 38 O01 18C5 523 TBN I1000R ,BITT SKIP IF DOOF IS 
ODCE F2 10 OE 524 JT ROBB3 ON ODD ADDRESS BOUNDARY 
525 * 
ODD1 OD O63 1928 1898 526 CLC. ODDF+10(4),FEPTN ERROR IF RESIDUAL 
OOD7 CO 01 1626 527 BNE ERR19 ODDF IS INCORRECT 
528 * 
ODDB CO 87 ODES 529 B ROBB4 REPEAT TEST FOR SCAN OR EQUAL 
530 * 
OGODF OD 03 1929 1898 531 ROBB3 CLC DDDF+11(4),FFPITN ERROR IF RESIOUAL 
ODES CO 01 1626 532 BNE ERR1O DDDF IS INCORRECT 
533 * 
ODEO CO 87 13C6 534 ROBBS B SCNRE SCAN READ OR EQUAL 
ODED O01 ODED 535 Oc ILL*is RECORD 1 
ODEE 00 ODEE 536 oc 1i1*0* NN=00 
537 * 
ODEF Cl C3 ODF7 538 T1G RCBB5,X*C3*# ERROR IF 
QDF3 CO 87 1600 539 B ERR14 NO SCAN HIT 
540 + 
ODF7 38 40 18€E0 541 ROBBS TBN SNS,.BIT] ERROR iF NO 
OOFB CO 90 15F9 542 BF ERR13 SCAN EQUAL CONOITION 
543 * 
OOFF OD 03 1928 189C 544 CLC DDDF+410(4) »WCPIN ERROR IF RESIDUAL 
OEF05 CO O01 1626 545 BNE ERR19 DDOF IS INCORRECT 
546 * 
O£09 38 01 18C6 547 TBN 1ODOR,B3T7 REPEAT 
OEOD 3A 02 186 548 SBN IDOOR -BiT? TEST USING ODD 
DATE O5AUG75 OSNOV7S OLMART6 O1OCT76 PROG ID C1F-3 DATE OSAUGTS 
OSNOV7S OLMARTE O1OCTT6 PROG ID CiF=3 
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CiF3 3340 SYSTEM TEST MODULE —- MOD 12 


C1lF3 3340 SYSTEM TEST MODULE -- MOD 12 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 


557 g REEESSASSAERAAESESSE REESE ESE ASE RSREE REE REEOEEEERERKESERCEEREADSEEES 


6:9 oP eRReRSS SORES SORES EERE EES ORRSESoEAEEESRESREOOREEEOEEORORESHEEOEES 
554 * * 620 * * 
ci * ROUTINE OC - SCAN HIGH OR EQUAL TEST e 621 *® _ ROUTINE OD — WRITE REPEAT / READ VERIFY TEST * 
60 * * 622 * * 
561 4g NASSESERESERERARER SSS EREES SHS SAS EES HERERERE REARS CRREEEEEEREREEREE EERE 623 BR eASSSSSS ORGS SSSR SSR AS SOD ESOS FEES ADSECRETEOSEEERESEESEREEEESSoes 
562 * 24 & 
OE23 OC 03 18A0 189C 563 ROC MVC —- FATRN#3(4),NCPTN INITIALIZE OEBZ2 CO 87 OF6A 625 ROD 8 BEGIN PERFORM ROUTINE INITIALIZATION 
OE29 3C FE 189F 564 AVI PATRN42,X*FES TEST PATTERN OEB& OEC9 OEB? 626 oc AL2(RODB) *LOOP* SUBROUTINE RETURN ADDRESS 
565 * OEBS OEF3 O£EB9 627 OC AL2(ROE} *NXORV* SUBROUTINE RETURN ADDRESS. 
OE2D CO 87 OF6A 566 B SEGIN PERFORM ROUTINE INITIALIZATION 6289 * 
OE31 OF44 OE32 567 oc AL2(R0CB) *LOOP® SUBROUTINE RETURN ADDRESS OEBL CO 87 1072 629 RODA B RECAL RECAL IBRATE 
OE33 OE£AO OE34 568 oc AL2(ROCT) *NXDRV® SUBROUTINE RETURN ADDRESS OEBE CO 87 1272 630 8 RDSNS CETERMINE DATA MODULE SIZE 
569 * 631 * 
0€35 CO 87 1072 570 ROCA 8 RECAL RECALIBRATE OEC2 CO 87 1084 632 B SEEK SEEK (3340 PHYSICAL ADDRESS) 
OE39 CO 87 1272 571 B ROSNS DETERMINE DATA MODULE SIZE OEC6 00 OEC6 63. oc IL1'Ge HEAD 0 
572 * OEC7 0150 OEC& 634 DC I1L2*3493 CYLINDER 349 
OE30 CO 87 1084 573 B SEEK SEEK (3340 PHYSICAL ADDRESS) 635 * 02 
0&41 00 OE41l 574 DC IL1¢o* | HEAD 0 : . OEC9 B& 08 00 636 RODS TBN = DIND( »XR2),NOWR BYBASS ORIVE IF 02 
OE£42 015D 0E43 575 OC IL2*3498 CE CYLINDER OECC CO 1O 1013 637 BT NXORV WRITE INHIBITED 02 
576 * 638 = 
CE44 CO 87 110F 577 ROCB 8 RDHAE READ HOME ADDR AND RO COUNT EVEN OEDO CO 87 110F 639 8 RDHAE READ HOME ADDR AND RO COUNT EVEN 02 
578 + 640 
OE48 3C FF 1A1D 579 MVI -DODF+¢255,X'FFs SETUP SCAN CED4 CO 87 12D4 641 B WRROO WRITE RECORD ZERG CNT-KEY-DATA ODD 
OE4C OC FE LAIC 1AID 580 MVC) —- DDDF #2541255), DDDF +255 ARGUMENT IN 642 # 
OE52 OC O3 1921 18A0 581 MVC DDDF+ 3(4) ,PATRNZ3 DDDF AREA OED8 CO 87 1191 643 B RDCKOD READ COUNT-KEY-DATA 
OE58 3C FF 1922 582 MVI DODF+4,X*FFe OEOC 01 OEDC 644 OC ILit ze RECORO 1 
583 * 645 
OESC CO 87 1398° 584 8 SCANH SCAN READ OR HIGH OR EQUAL OEDD CO 87 12F9 666 8 WRCKD WRITE COUNT-KEY-CATA 
OE60 01 QOE60 5685 Oc ILifis RECORD 1 OEE1 02 OEE 647 oc IL1e2e RECORD 2 
OES: 00 OE61 586 oC IL1*o# NN = 00 OEE2 13 OEE2 648 DC ILIt1os NN = 19 
587 + 649 * 
GOE62 Cl £3 GEGA 588 TIO = ROCB1-X*C 32 ERROR IF OEE3 CO 87 1338 650 8 WRREP WRITE REPEAT KEY-DATA 
OE66 CO 87 1600 589 B ERR14 NO SCAN HIT OEE7 02 OEE? 6521 oC IL1eze RECORD 2 
590 * OEEB 13 OEE8 652 DC IL1*19¢ NN = 19 
OE6A 38 40 18E0 591 ROCBL TBN  =SNS,BITt ERROR {IF 653 = . 
OE6E CO 10 162 592 BT ERRIA SCAN EQUAL CONDITION OEE9 CO 87 1218 654 B ROVKD READ VERIFY KEY-DATA 
593 * OEED 02 OEED 655 oc TLie2e RECORD 2 
O£72 OD 03 1927 1898 594 CLC) DDDF+9(4),FEPTN ERROR IF RESIDUAL _OEEE 13 CEEE 656 oc IL1°19¢ NN = 19 
OE78 CO 01 1626 595 BNE ERR19 DODF IS INCORRECT 657 * 
596 # . OEEF CO 87 1013 658 8 NXDRY REPEAT FOR EACH ORIVE BEING TESTED 
OE7C CO 87 13D4 597 8B SCNRH SCAN READ OR HIGH OR EQUAL 659 & 
O£80 O1 OE80 598 DC IL1L*1°¢ RECORD 1 
0E81 00 OE£81 599 oc IL1°0* NN=00 
600 * 
OE&82 Cl C3 OFBA 601 TIG = ROCB2,x*C3* ERROR 'F 
OE86 CO 87 1600 602 8 ERR14 NO SCAN HIT 
603 * 
OE8A 38 40 18E0 604 ROCB2 TEN so SNS -BITi ERROR iF | 
OE8E CO 10 162€ 605 BT ERRIA NO SCAN HIT 
606 * 
O£92 OD 03 1927 189C¢ 607 CLC = DDDF+914) ,WCPTN CRROR IF RESTOUAL 
OE98 CO OL 1626 608 BNE ERRIO DODF IS INCORRECT 
609 © 
OESC CO f7 1013 610 B NXDRV REPEAT FOR EACH DRIVE BEING TESTED 
611 * 
OEAO OF 00 189F 189F 612 ROCC ALC = PATRN+2(1),PATRNG2 SHIFT TEST PATTERN 
GEAG 3A 01 189F 613. 38N PATRN¢2,BIT7 BYTE LEFT ONE BIT POSITION 
614 * 
OEAA 3D FF 189F 615 CLI =PATRNG2,X* FFE LOOP UNTIL ALi 
OEAE CO 01 1058 616 BNE Loop BIT POSITIONS HAVE BEEN TESTED 
, 617 * 
DATE OSAUG75 OSNOVTS O1MART6 010CT76 PROG ID CIF=3 DATE OSAUG75 O5NOV75 O1LMAR 76 O10CT76 PROG 1D C1F-3 
Eo NO. 827779 827827 . 827872 (571931 PAGE 827827 827872 571931 


8 EC NO. 827779 PAGE $A 
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cc 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C1F3 


ERR LOC OBJECT CODE 


OEF3 


OEF9 
OEFD 


OFOL 
CFOS 
OFOT 


OFOS 
GF OD 


OF1I1 
OFIS 
OFLE 


OFIS 


OFLC 
8F20 
OF 26 
OF 2B 
OF2F 
OF35 


OF39 
OF3D 
OF 3E 
OF4O 
OF 44 
OF 4u 
OF4E 
OF52 
OF56 
OF SC 
OF62 


OF 66 


DATE 
EC Wo. 





3340 


oc 


C2 
34 


co 


SYSTEM TEST MODULE 


OL 


on 
ol 


87 


OF IC 
OF48 


co 
co 


co 
oo 
co 


35 
6c 
36 
oo 
co 


co 


co 
co 
Oc 
c2 
34 
OE 
00 
co 


co 


8&7 
87 


87 


87 
ol 
Ol 
FE 
Oi 
84 


87 


87 
87 
ol 
oi 
ol 
01 
O1 


87 


OF 17 


OAOL 
1862 


OF6A 


1072 
1272 


1084 


OSAUG7T5S 


8277793 


187C 


OF17 
00 


1892 


OFSF 


187E 
16E4 


OSNOV? 
827827 


ADDR 


OF O6 
OF 08 


OFILS 
OF 17 


OF30 
OF3F 


5 


4 PART NOe 


4247621 
PAGE 9 


KEES CERESERELEEEERESERA RHE RES ERE REESE SEGARA ESE EEEH TERE TAKS ESSE E SELES SHEE S 


= 


ROUTINE OF ~— CYLINDER SEEK TEST = 


x 


KEERSERSERSRAES SESSA RERARES SEE SERES EEEREHERSEESARES LEAK THA E SKE ERSE RESETS 


~~ MOD 12 
STMT SOURCE STATEMENT 
661 
662 * 
663 * 
664 * 
665 
666 * 
667 ROE MVC ROEAL(2),NULLS 
668 * 
66S LA PID, XR1 
670 ST LPCNT yXR1 
671 * 
672 B BEGIN 
673 DC AL2(ROEB) 
614 DC AL2(ROEC) 
675 ® 
676 ROEA B RECAL 
677 B RDSNS 
678 * 
679 B SEEK 
680 oC IL1°Ot 
681 ROEAL DS IL2 
682 * 
683 8 RDHAE 
684 * 
685 ROEB L LPCNT »XR1 
685 MVC = ROEB2(23-ROEA: 
687 ROEBL ALC ROEBZ212),0(.XR1) 
688 SBF RCEB2-1,X"FE® 
689 CLC ROEB2(2),°349 
69C BH ROEBL 
691 * 
692 B SEEK 
693 DC TL1°0°® 
694 ROEB2 DS 1t2 
695 * 
696 B RDHAE 
697 * 
698 B NXDRV 
699 * 
7OO ROEC MYC = ROEA1(2),ROEB2 
7Ol * 
702 LA P1D4+256 XR 
703 Ry WORKN »XR1 
704 ALC  LPCNT(2)-P2 
705 | CLC  LPCNT(2)+WORKN 
706 BNE LOOP 
707 * 
708 B ROL 
709 * 
OLMART6 O10CT76 
827872 571931 


CYL ADDR = 000 FOR FIRST SEEK 


INITIALIZE PSUEDS 
RANOGM NUMBER GENERATOR 


PERFORM ROUTINE INITIALIZATION 


*LOOP® SUBROUTINE RETURN ADDRESS 
*NXDRV® SUBROUTINE RETURN ADDRESS 
REC ALIBRATE 


DETERMINE OATA MODULE SIZE 


SEEK. (3340 PHYSICAL ADDRESS) 
HEAD 0 
CYLINDER G@ ~ 349 


READ HOME ADDR AND RO COUNT EVEN 
GENERATE 
SEMULATED 
RANDOM 


CYLINDER 
ADDRESS 


SEEK (3340 PHYSICAL ADDRESS} 

HEAD 0 

CYLINDER 0 - 349 
REAG HGME ADDR AND RO COUNT EVEN 
REPEAT FOR EACH ORIVE BEING TESTCD 


SAVE CYLINDER ADDR FOR ERR RECOVERY 


LOOP UNTIL 
256 CYLINDER | 
SEEKS HAVE BEEN PERFORMED 


OTHERWISE LOOP INDEFINITELY 


PROG ID C1F-3 
PAGE g 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


CiF3 


ERR LOC OBJECT CODE 


OF 6A 
OFSE 


OF 72 
OFTT 


OFTC 
OF TF 


OF83 


OF S86 
OFEA 


GFSE 
CF92 
OFS6 


OFOA 
OFSE 


OFAS 
OFAS 


OFAC 
OFB2 


OFBS 
OFBC 


GFCO 
OFCS 


OFCC 
OFDO 
OFD6 
OFDC 
OFEO 
OFES 
OFES 
OFEB 
OFEE 
OFF 
OFFS 
OFFB 
OFFB 
OFFE 
1001 
1005 
1009 
100C 


DATE 
EC NG. 


3340 SYSTEM TEST MODULE 


34 
35 


ic 
1c 


D2 
34 


F3 


31 
31 


c2 
36 


c 
7 


31 
31 


oD 
co 


oc 
oc 


38 
co 


Oc 
oc 


3¢ 
Or 
oc 
3c 
C2 
C2 
74 
O02 
Bc 
c2 
74 
D2 
BC 
1 
C2 
34 
75 


BA 


08 
ol 


o1 
01 


01 
ol 


C4 


cs 
c5 


Ol 
o1 
91 


5 
c5 


C1 
01 


ol 
Ol 


80 
10 


09 
09 


00 
16 
17 
80 
o1 
02 
02 
Ol 
00 
02 
02 
01 
00 
FF 
01 
01 
02 


40 


18E4 
18E4 


i071 
1057 


04% 
10:2 


TE 


18A8 
IBAA 


FD65 
187E 
Or92 


18AC 
18AA 


OAO1 
OAOA 


18C4 
18Cé 


18 AF 
OF OC 


17FF 
182F 


1819 
1818 
1534S 
18AF 
18BA 
18E5 
Ol 
02 
co 
18FC 
01 
02 
00 


00 


18BA . 


1889 
ol 


00 


OSAUG7TS5 


827779 


40D 12 


RERSEKRAESEARSEAKERESSERSSAIGEPSSHELE HELSHE HELE STH SHSSKSESRKSRTERSEAKSRSSES 


AEKLESTAHSERESHE RAYS SSESHAKECKSE TIL SE TAKRASSESSSESHIHEHRG RS TEESE SERGE SHE GRECRES 


INT TIALEZATION AND LOOP CONTROL SUBROUTINES = 


ROUTINE INITIALIZATION 


WORKN; ARR 
WORKN »sXRi 


LOOPX4+3(2)-R 4 eXR1LI 


NXORVX4+3(2 2 o 30 eXKI) 


i eXR1L), XR] 
BGNX43 XR} 


X* TES, X9CS? 


SYSRSTeX*CS® 
SYPREQeX*C5& 


At FDS5*, XRL 
PiexRi 
S~4 


CEMOBGE.X*CS* 
SVPREQeX*C5® 


PID(2),iDADR 
ENTRY 


IDOCR{2),DDCR 
IDDOR(Z) DOOR 


IND, BGNSW 
BGNO2 


MSG41LO}eNOERRS 
HSG2(10),NOERRS 


DGSNS 0 
DGSNS~-1i(233.D0GSNS 
O0GSNS2(241,CGSNS 
IND. BGNSW 
AORTBL-XR1 
ORVRK1»XAR2 
14¢XR1}eXR2 

21 ,XRD} XRI 
DINOD( »XR2),0 
DRVUK2 oXR2 

1 eXR1) oXR2 
2CeXRLIXRI 
DIND( »XR2},0 
O(,XRL)I,X*FFE 
ADRTBL -XR1 
ADRPTR,XR1] 

LU eXRD) oXR2 


DIND{ eXR2),LP SW 


ADDR STMT SOURCE STATEMENT 
72 
Tl2 * 
713% 
714 & 
W5 
716 * 
Tl? * 
718 * 
719 BEGIN $7 
720 L 
f2i * 

oO} 722 HVC 
03 723 MYC 
7124 * 

725 ta 
726 $ 
727 * 
728 BGNOL $t0 
729 © 
730 L10 
731 Lid 
732 7 
733 LA 
734 A 
735 BNZ 
736 * 
737 L10 
738 Lid 
739 ® 
GADL 740 cic 
741 BNE 
742 * 
18A4% 743 KYC 
18A6 T44 YC 
745 * 
746 TBN 
747 BT 
748 32 
1854 749 MYC 
1854 750 MYC 
751 * 
752 MMVI 
1819 753 MVC 
1819 754 MVC 
755 # 
756 BGNOZ2 MV1 
757 * 
758 LA 
759 *% 
760 LA 
76) ST 
762 LA 
763 * 
T&4 MVI 
165 * 
786 LA 
767 ST 
768 LA 
769 * 
770 MVi 
771 ~«* 
772 BGNOG VI 
773 * 
774 LA 
775 ST 
776 L 
777 * 
778 SBN 
O5NOV75 OLMART6 O1OCT76 
827827 827872 572931 


PART NO. 
PAGE 


4247621 
oA 


x 


* 


POINT TO SUBRGUT INE 
CALL PARAMETERS 


SETUP "LOGP* SUBROUTINE RETURN 
SETUP "NXORV® SUBROUTINE RETURN 
SETUP *BEGIN' 


SUBRUUTINE RETURN 
RESET AND DISABLE 3340 INTRPS 


FORCE ATTACHMENT 
SYSTEM RESET 


DELAY 
10 MSEC 
SET CE MODE 
INDICATGRS 


GO TO SUPERVISOR 
IF RUNNING SYSTEM TEST 





INITIALIZE DODCR 
AND DDDR VALUES 


BRANCH EF NOT 
PROGRAM RESTART 


INITIALIZE 
LOG MESSASE AREAS 


INITIALIZE 
SENSE DATA 
RESET PROGRAM INDICATORS 
POINT TO DRV WORK AREA ADDR TBL 
STORE DRIVE Ll 
WORK AKEA ADDRESS IN TABLE 
AND ADVANCE TABLE POINTER 
RESET DRIVE DEPENDENT IND 
STORE DRIVE 2 
WORK AREA ALORESS IN TABLE 
AND ADVANCE TABLE POINTER 
RESET DRIVE DEPENDENT IND 
MOVE TERMINATOR TG ADDR TABLE 
POINT TO START QF ADORESS TABLE 
INITIALIZE ADDRESS TABLE PTR 
FIRST DRIVE RK AREA ADDR TC XR2 
SET ORIVE LOOP INDICATOR 


PROG ID 
PAGE 


CiF-3 


a 





I3M MAINTENANCE DIAGNOSTIC PROGRAM 


CiF3 


ERR LOC 


1OOF 


1013 


1026 
101C 


1020 


1024 
1027 


102A 


1020 
1030 


1034 
1038 
103C 
1040 


1043 
1047 


104A 


104E 
1052 


1054 


1058 
LOSE 


1064 
1067 
106A 


106E 


DATE 
EC ND. 


ri . 7 fs ai 


3340 SYSTEM TEST MODULE -—-- 


OBJECT CODE ADDR STMT 
779 * 
CO 87 0000 780 BGNX 
781 
782 
783 * 
784 * 
F3 C4 7E 785 NXORV 
786 * 
OD 01 OAOL OAD] 787 
cO 01 OAOA 788 
789 * 
35 01 1889 790 NXxDOL 
791 * 
70 FF 02 792 
F2 81 OE 793 
7194 % 
75 02 03 795 
796 * 
D2 01 02 797 
34 01 18B9 798 
7199 © 
CO 87 1058 800 
801 * 
C2 01 186A 802 NXxXDO2 
34 01 18B9 803 
75 02 01 804 
805 * 
38 40 18AF 806 
F2 90 OA 807 
808 * 
38 40 1BAF 809 
810 * 
CO 87 0222 811 
C100 1053 812 ERRHLT 
813 # 
CoO 87 0000 814 NXDRVX 
815 * 
816 
817 * 
818 * 
OC O1 18C4 18A4% 819 LOOP 
OC O1 18C6 18A6 820 
82] * 
BB 40 00 822 
BA 40 00 823 
CO 90 100F 824 
825 * 
CoO 87 0000 826 LOOPX 
827 * 
05 AUG75 O5N0V75 OLMAR76 
827779 827827 8278672 


MOD 12 


$10 


cLC 
BNE 


ctl 
JE 


LA 
$T 


LA 
ST 


TBN 
JF 


SBF 


B 
~ oc 


HVC 
AVC 


TBN 
SBN 
BF 


010CT76 


271931 


SOURCE STATERENT 


REPEAT TEST ON NEXT ORIVE 


X*°7E*,X°C4? 


PID(2),1DAOR 
ENTRY 


ADRPTR,XRIL 


20 eXR1),X"FFE 
NXDO2 


30 9XR1I) eXR2 


2(9XR1) XR1 
ADRPTR,XR1 


LOOP 

ADRTBL >» XR1 
ADRPTR,XR1 
1(eXR1) oXR2 


IND, HLTSW 
NXDORVX 


IND,sHLTSH 


HALT 
AL 2CHLTXX) 


eo 


Remeron eee eee 


SETUP TEST LOOP ADDRESS 


TDDCR(2),DDCR 
IDDOR(2),D00R 


DIND( ¢XR2) oLPSH 
OIND( »XR2),LP SH 
BGNX 


e~ 


PART NO. 4267621 
PAGE 10 


RETURN TO CALLING ROUTINE 


RESET AND DISABLE 3340 INTRPS 


GO TO SUPERVISOR 
IF RUNNING SYSTEM TEST 


GET ADDRESS TABLE POINTER 


BRANCH IF ALL DRIVES 
HAVE BEEN TESTED 


POINT TO NEXT ORV WORK AREA 


ADVANCE ADDRESS 
TABLE POINTER 


GO TO TEST NEXT ORIVE 
RE-INITIALIZE 
ADDRESS TABLE POINTER AND 
POINT TO FIRST ORIVE AREA 


CONTINUE TESTING IF 
NO ERRORS OCCURPED 


RESET ERROR HALT INDICATOR 


ERROR HALT 


RETURN TO CALLING ROUTINE 


ene 


RE-INITIALIZE 
DDCR AND DDOR VALUES 
TEST DRIVE LOOP INDICATOR 

RFSET INDICATOR 
BRANCH IF IND WAS OFF 


RETURN TO CALLING RGUTINE 


PROG ID C1lF-3 
PAGE 10 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C1lF3 


ERR LOC OBJECT CODE 


1072 


1076 
1079 


207C 


1081 


1084 
1688 


108C 
10°21 


i095 
1098 


1098 


109F 
10A2 


1046 
10A9 


1OQAC 


1681 
1066 
108C 


-10C0 


10C6 
10c9 


1000 
1001 
1007 
1Q0DA 
10D0 
LOE3 


1OE7 
1OEA 


1OEF 


10F3 
1OF9 


1OFD 
1103 


1107 


DATE 
EC NO. 


3340 SYSTEM TEST MODULE 


34 


6c 
BC 


8C 
F2 


34 
35 


ic 
3C 


58 
F2 


3C 


7D 
co 


BC 
BC 


8c 


1E 
OF 
co 


OcE 


D2 
34 


C2 
oD 
Fe 
D2 
oF 
co 


B4 
sc 


co 


oD 
co 


0D 
co 


AC 


OSAUGT5 
827779 


08 


00 
ol 


09 


87 


08 
Q1 


02 
08 


80 
96 


Ol 


o1 
84 


00 
00 


99 
ol 
00 
01 


01 


Ol 


01 


Ol 
01 
82 
01 
o1 
87 


01 
OL 


87 


01 
Cl 


09 
01 


03 


110€ 


05 
06 


14 187C 


68 


1BE4 
1BE4 


18E4 02 
18&1 


00 
OB 


18Et 


00 
1013 


05 
06 


14 187C 


18E4 02 
18El 1&7E 
10B1 


18E4 16E2 


03 
110€ 


0000 
18E4 
oD 
01 
18E4 
1001 


188C 


18eC 


oo 


OF 18E4 


13€2 


18C6 18CA 
160E 


1804 180€ 
161E 


OA OF 


OSNOV75 
827827 


ADOR STMT 


829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
&56 
857 
858 
859 
860 
861 
862 
863 
B64 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
862 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 


MOD 12 


SOURCE STATEMENT 


PART NQ. 
PAGE 


4247621 
LOA 


SHSEHKSROS SKS SER SSSSARISSS ASHE SSE SS IHS FRSSSSSSSSOLACAKSHHASROKETERSOSEDES 


* 
s 
2 


& 


3340 COMMAND EXECUTION SUBROUTINES % 


a 


SFRKSSTAAIETES AS SEASHSSISSS SE SRETS ASS IISSSRSSSHHSSSSOASCKLHSHHAHSHOHESSARERS 


SKO3 


SKO04 


SEEKA 
® 


895 . 


896 


O1MAR 76 
827872 


2 oe ae OD 


AVC 
Mv 1 


TBN 
JF 


MYI 


CLl 
BH 


MY I 
avi 


MVC 


ALC 
Stic 
BNZ 


ALC 


LA 
$T 


ta 
CLC 
Ji 
LA 
SLC 
8 


ST 
MVC 


cic 
BNE 


CLC 
BNE 


MVC 


O1OCTTé 
571931 


RECALIBRATE COMMAND 
SEEKX*3 ARR 


Q0-XR2),X°008 
ROeXR209X*OL* 


NNC 210 ,XR2) eNULLS 
SEEKA 


OP ED AD TE I GD ED ED CD CED CD KEP ERD Ee HERD CD YS Ged ED CHD Eom Cie ED ND ED 


SEEK COMMAND. 


HWORKN ARR 
WORKIN, XR} 


WORK93~2(3,XR1) 
WORK,» 11 


DIND( .XR2)-COOR 
SKO1l 


BORK ol 


O(sXR13 52 
NXORV 


Q&9XR2),X*O00* 
RO gXR29,X°00° 


NM(10¢XR2) eNULLS 


WORKS3 e202,XR1) 
WORKI1) .P1 
$K02 


WORK?3(2) ,WORK+2 


30 eXR1), XR 
SEEKX43 oXR1 


0, XR1 
WORK+3(2),P20 
SKO04 
14,XR1),XR1 
WORK#3(23,P20 
SKO3 


CC(yXR2),<R2 
HH (5XR2) pHORK+3(2) 


XEQ 


IDDOR(2) ,ROODR 
ERR16 


IODCFN(10),RDOCFN 
ERK13 


PA14sXR2) sHH(,»XR2) 


SAVE RETURN ADORESS 


SETUP Q AND R 
BYTES FOR SIO COMMAND 


CLEAR OOCF AREA 
GG TO EXECUTE COMMAND 


LA SO EE, ey OF ER Gap EE SE LD Aw ee OD RD AA Ale le E> A PLD CE Oe 


SETUP POINTER TO 
SUBRTN CALL PARAHETERS 


MOVE PARAMETERS TO WORK AREA 
SETUP MULTIPLIER FOR 12 HEADS 


BRANCH IF NOT 
CE DATA MODULE 


SETUP MULTIPLIER FOR 2 HEADS 


BYPASS TEST IF HEAD 
ADDRESS IS GREATER THAN 1 


SETUP G AND R 
BYTES FOR SIG COMMAND 


CLEAR DDCF AREA 


MULTIPLY PHYSICAL 


CYLINDER ADDRESS 
3Y NUMBER OF HEADS 


ADD HEAD ADDRESS 


SETUP 
RETURN AOORESS 


OIVIDE BY 20 
JO GET CYLINDER 
STEK ARGUMENT IN 
INDEX REGISTER 1 AND 
HEAD SEEK ARGUMENT 
IN WORK AREA 


STORE SEEK 
ARGUMENT IN DDCF 


GO TO EXECUTE COMMAND 


GO TO ERROR ENO IF 
RESTOUAL DDDR IS INCORREC 


CO TO ERROR END IF 
RESIDUAL DOCF IS INCORRECT 


SAVE CURRENT PHYSICAL ADDRESS 


Cif-3 
10A 


PROG ID 
PAGE 


PART NO. 4247621 
PAGE 1 


1BM MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 


PAGE 


4247621 


IBM MAINTENANCE DIAGNOSTIC PROGRAK 
LLA 


C1F3 3340 SYSTEM TEST MODULE -- MOD 12 ClF3 3340 SYSTEM TEST MODULE <-- HOD 12 


ERR LOC 


1108 


L1OF 


1113 
1116 


1i19 


Lbic 


1120 
1123 


1126 
1128 


L12F 
1134 


1138 
L13c 


1140 
1143 


1247 
114D 


1351 


1155 


1159 
145C 


LIS 
1162 


1165 


1169 
LL6OE 


LT] 


1175 
1179 
LL7e 
Liv7F 


1183 | 


1189 


1180 


OTE 
EC NO. 


Bo a ne ee 


RETURN TG CALLING ROUTINE 


READ HOME ADDRESS AND RECORD ZERO COUNT. EVEN 


RDHAOXS3 » ARR 


QO, KR2) XP OL* 
ROyXR22X*01* 


RDHAOA 


SAVE RETURN ADDRESS 


SETUP Q AND R 
BYTES FOR S10 COMMAND 


GO TG EXECUTE COMMAND 


een eee ee ee ee a ee Ee Se Se 0 Re IE SY RY eS a SRT ED ED OER 


READ HOME ADDRESS AND RECORD ZERO COUNT SDD 


RDHAOX43, ARR 


Q(-XR2}-.xX°01* 
RU eXR29,K709* 


NN(10,XR2), NULLS 
XEQ 


RDOCF+ 4041 -FA(,XR2? 
ERR1E 


IDDDR.XR1 
DL(9,XR29,84 ¢XRi} 


9¢—eXR1L aXR}I 
WORKN, AR 


WORKN(2} » RODDR 
ERR16 


ek 


eee or ee oe cae ae a ae we Oe ee ES eR a 


SAVE RETURN ADDRESS 


SETUP @ AND R 
BYTES FOR SIG COMMAND 


CLEAR DDCF AREA 
GO TO EXECUTS COMMAND 


GO TO ERROR EXIT IF 
HA READ IS INCORRECT 


SAVE RESTDUAL ODDF 
FOR USE IN NEXT DOCF 


CALCULATE EXPECTED 
RESIDUAL OSDR 


60 TO ERROR END iF 
RESTOUAL DOOR IS INCORRECT 


RETURN TO CALLING ROUTINE 


aoe aa on a te AO a a A OD SI ene a MD Mm OE Om On a nln re ae EDS N= ON 


READ RECORD ZERO KEY-DATA ODD 


RDROOX4+3 yARR 


Qe XR2Z},-X*ulé 
REgXRZ} X08! 


RR{.2XR2220 
NN ( ¢XR2320 


XEQ 


DL(9,XRZ2},RODCE +S 
ERR1I8 


RRisXRZ1,0 


IDDDR,XR1L 
KL45XRZ),xXRE 
DLI,XRZ) »XRL 
WORKN,XR1i 


WORKNI2),RDDGR 
ERR1LE 


OBYECT COOc ADDR STMT SQURCE STATEMENT 
897 * 

Co 87 0000 898 SEEKX B 
899 * 
900 Bere 
901 * 
902 * 

34 08 1154 903 RDUAE ST 
304 > 

Be O01 05 905 AVI 

BC O01 O06 906 MY] 
907 * 

F2 87 O&4 908 J 
909 # 
910 
Sill * 
912 * 

34 08 1154 913 ROKAD ST 
914 * 

BC O1 05 915 MYI 

Bc 09 06 Gis MV I 
9L7 * 

sc 09 14 187C 918 RDHAGA vc 
919 

CO 87 13EZ 920 8 
921 * 

2D 03 18D9 OA S22 CLC 

cO 01 161¢é 923 BNE 
924 # 

35 G1 18C6 925 i 

gc C8 13 98 926 aC 
S27 * 

D2 01 09 928 LA 

34 O01 16E4 $29 $7 
930 * 

OD O61 1864 18CA - 931 CLE 

cO 61 160E 932 BNE 
933 * 

CO 87 CQ00 934 RDOHADX 8 
935 * 
936 Fern 
937 * 
938 * 

34 68 1199 $39 RDROO ST 
940 * 

Bc 01 05 941 MV I 

ee 08 06 942 avi 
943 * 

gC 900 10 944 MMVI 

BC 60 14 945 4VI 

946 * 

CO 87 I3E2Z 947 8 
948 + 

BD 68 13 180D 949 ROROGOA CLC 

£9 O1 ISLE 256 BNE 
951 * 

BC 00 10 952 MVE 

: 953 * 

35 O1 18C6 954 L 

Bé O01 il 955 A 

B6 Ci 13 956 he 

34 O01 18E4 957 ST 
958 * 

OD O1 18E4 LSCA 959 Cie 

€0 O01 160£ 960 BNE 
961 * 

co 87 0000 962 RDROOX B 
963 * 
964 

OSAUGTS OSNOVTS O1LMARTS OLOCT7é 

a27779 827827 B27872 571931 


SAVE RETURN ADDRESS 


SETUP @ AND R 
BYTES FOR S10 COMMAND 


CLEAR DOCF RR FIELD 
CLEAR ODCF NN FIELD 


GG TG EXECUTE COMMAND 


GO TO ERROR END IF 
RESIDUAL DDCF IS INCORRECT 


CLEAR RR FIELG 
CALCULATE 


EXPECTED 
RESIDUAL DDOR 


GO TO ERROR END IF 


RESIDUAL DDDR IS INCORRECT 


RETURN TO CALLING ROUTINE 


PROG ID 
PAGE li 


ERR LOC OBJECT CODE 


ADDR STMT 


SGURCE STATEMENT 


List 


1i¢5 
1198 


1198 


13A0 
LIAS 


11A8 
11aAc 
L1Bl 


1187 


965 *% READ COUNT-KEY~OATA 
966 * 
34 08 1190 $67 RDOCKD St RORCOX4 Ze ARR SAVE RETURN ADDRESS 
968 * 
Bc 01 05 949 AVI Qi eXRZ),X*G1* SETUP Q@ AND R 
BC 02 06 970 MY R(yXR2)K* 02" BYTES FOR S10 COMMAND 
971 * 
ac 03 14 187C 972 MYC NN(4—XR23 >NULLS CLEAR KLy Di», AND NN FIELDS 03 
$73 * 
35 O01 1190 974 L RDROOX+ 3,XRi MOVE RECORD 
9c 00 10 00 975 MVC RRILeXRZF 9 OE XRF NUMBER TO DOCF 
976 * 
CO 87 13E2 977 8 XEQ GO TO EXECUT. COMMAND 
978 * 
ec 02 13 1800 979 MVC DL13,XR21-RDDCF+8 SAVE KEY AND DATA LENGTHS READ 
9e0 * 
O£ O1 1199 1L&TE 981 ALC RDROOKX+ 362) eP a SETUP RETURN ADDRESS 
982 ¥ 
co 87 1169 983 B RDROGA GO TO CHECK RESIDUAL VALUES 
984 + 
Oa Rh se ee a ne ae eT on etn MEN a aS ER SOD IN 
936 * READ KEY-DATA 
987 * 
34 08 1217 988 RDKD ST ROKDX43 ARR SAVE RETURN ADDRESS 
989 * 
BC 01 05 9993 MVE QteXR2Z),X*Oi! SETUP G AND & 
BC 00 O06 951 MVE Rt eXR2}.X%°00" BYTES FOR SIG COMMAND 
92 * 
§ Gi 1217 993 RDKDA t ROKOX43-XR1 MOVE RECORD 
9C 06 16 00 934 RVC RRCLgXRZ23 GE XRLI NUMBER AND RN 
9c 00 14 O1 sss RVC NNCLT®XRZ3 61 CeXRD} VALUE TO DDCF 
996 * 
CG 87 i3E2 997 B XEQ GO TO EXECUTE COMMAND 
$98 = 
AE OC 30 14 999 ALC RRCL go XKRZ? sHNG yXR2Z) CALCULATE EXPECTED RESIDUAL RR 
1600 + 
3D FF 185E i001 CLi RODCF+9;X* FF® GO TS 
cO O1 161E kGO02 BRE ERRIB ERRGR ENC 
8D 08 13 1860 1003 CLC DL(GeXR2! -RDOGCF+S8 TF RESIDUAL 
co Cl 16le 1004 SNE ERRiS ; DOCF IS INCORRECT 
1005 # 
Bc 600 106 1096 Mv RREeXRZ5 20 CLEAR RR FIELD 
1007 * 
35 Of 18C6 1002 i LODDR-XR1 CALCULATE 
B6 01 il 1009 ROKCB A KLCeXRZ5 2XR1 EXPECTED 
BS O1 13 1610 A DLicXRZ) okKRI RESIDUAL 
BE OO 14 1894 1Oli ALC NNCL,XR25 NE DDOR VALUE 
Co 02 LIF1l 1012 8NM ROKOB 
iGi3 * 
34 01 18E4 1014 ST WORKN, XR1 GO TG ERROR 
OD O1 18&¢ i8CA 1015 cic WORKN{ 21 .RO00R END IF RESTDUAL 
CO 03 169E 10146 BNE ERRI6 DDDR IS INCORRECT 
1017 * 
O& OF 1217 1860 1018 ALC RDOKOX4+3421,P2 SETUP RETURN ADDRESS 
1019 * 
CO 87 O300 1020 ROKOX B t~% RETURN TG CALLING ROUTINE 
1021 * 
1022 Bl a ee re ee ee eee ea mr tO nn em- creer a caream eimai 
1023 # READ VERIFY KEY-DATA 
1024 
34 08 125F 1025 ROVKD $7 RDVKOX43,4RR SAVE RETURN AODRESS 
1026 + 
BC 61 05 1927 MV) Q(,XR2) XP OLS SETUP QO AND & 
gpC 03 06 1026 KVI R&sXRZ5eX°O3® BYTES FOR SIG COMMAND 
1029 * 
8C 02 13 187C 1030 MVC DLI3,XRZ),NULLS CLEAR KL AND DL FIELDS 
1031 # 
35 01 125F 1032 L RDVKDX4+ 34 XR1 MOVE RECORD 
OSAUG75 OSNOV75 OLMAR76 O1OCT7& PROG 10 CiF-3 
827779 427827 827872 571931 PAGE . BLA 
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CiF3 
“ERR LOC 


1228 
122F 


1233 
1237 
123B 
123F 
1243 
1248 


124C 
1252 


1256 
125C 


1260 


1264 
1267 


126A 


126E 


1272 


1276 
1279 


L26C 


12806 
1284 
1287 
128A 


12860 
4290 
1293 


1296 
129A 
129D 


L2Al 
L2A7 


12AB 


1261 


12B5 


 - 1289 
1280 


. BATE 
eC WO. 


c © @ e & @ S S | ( : 


3340 SYSTEM TEST MODULE 


MOD 12 


PART NOo 
PAGE 


4247621 
12 


SOURCE STATEMENT 


MVC 
MvC 


B 

ALC 
CLI 
BNE 
cLe 
BNE 


crc 
BNE 


ALC 


B 


RR(1—9XR2),00,XR1L} 
NNO1eXR2) oO e XRLI 


NUMBER AND NN 
VALUE TO DDCF 
XEQ GO TO EXECUTE COMMANL 


R&CL»XR2Z) gNN( XR2) CALCULATE EXPECTED RESIDUAL RR 


RDODCF+9,X* FFF GO TO 

ERR1L8 ERROR END 

RRi&eXR2) eRODCF+5S IF RESTDUAL 

ERR18 DDCF IS INCORRECT 


IDDDR(2)-RDDOR GO TO ERRGR END IF 


ERR16 RESTOUAL DDDR IS INCORRECT | 
RDVKOX4#3 (2) 2P2 SETUP RETURN ADDRESS 
e—& RETURN TO CALLING ROUTINE 


Stee cen ee ce ce rc ae ee a ee ae me a me oe ae ne came os em eH ORO SOE or 


OBJECT CODE ADDR STMT 
9c 00 10 00 1033 
9c 00 14 O01 1034 
1035 * 
CO 87 13€2 1036 
1037 * 
AE 00 10 14 1038 
1039 * 
3D FF 18DE 1040 
co O1 16iE 1041 
8D 05 10 18DA 1042 
CO O1 161E 1043 
1044 * 
OD O01 18C6 18CA 1045 
CO O01 160E 1046 
1047 * 
OE O1 125F 1880 1048 
1049 * 
co 87 0000 1050 RDOVKDX 
1051 * 
1052 
1053 * 
1054 * 
34 O8 12B8 1055 RDLOG 
1056 * 
BC 01 O05 1057 
BC 05 06 1058 
1059 * 
co 87 13E2 1060 
1061 * 
CO 87 129% 1062 
1063 * 
1064 
1065 * 
1066 * 
34 08 1288 1067 RDSNS 
1068 * 
BC 01 05 1069 
BC O7 06 1070 
1071 * 
CO 87 1L3E2 1072 
1073 * 
35 Cl 186C6 1074 
79 G2 02 1075 
F2 90 03 1076 
BA 80 00 1077 
1078 * 
78 02 O1 1079 ROSWSB 
F2 90 03 1060 
BA G68 00 1081 
1082 * 
35 01 18C6 1083 RDSNSA 
oz 01 18 1084 
34 O1 18E4 1085 
1686 * 
OD 01 1864 18CA 1087 
€OQ O1 160E 1088 
16089 * 
00 09 1804 18DE 1090 
CO 01 161E 1091 
1092 * 
co 87 6000 1093 RDSNSX 
1094 + 
1095 
1096 * 
1097 * 
34 08 12F8 1098 WRHAG 
1099 * 
eC 02 05 1100 
GS5AUGTS OSNOV7S OLMAR 76 
‘B27779 827827 


XEQ GO TO EXECUTE COMMAND 
IDDDR oXR1 SET INDICATOR 
2(,XR1),BIT6 IF SENSE DATA 
RDSNSB INDICATES THAT A CE 02 
DIND( »XR2} CEDM DATA MODULE IS MOUNTED 
1(pXR1), BITS SET INDICATOR IF SENSE 02 
RDSNSA DATA INDICATES THAT THE 02> 
DINO 9XR2) eNOWR ‘READ ONLY® SW IS ON 02 
02 
IDDOR »XR1 CALCULATE. 
24 oXR1) eXRL EXPECTED 
WORKN, XR1 RESIDUAL DDDR 
WORKN(2) »RDDOR GO TO ERROR END IF 
ERR 16 RESIDUAL DDDR IS INCORRECT 
IDDCEN(10) »RDDCEN GO TO ERROR END IF 
ERR18 RESIDUAL DDCF 1S INCORRECT 
eo RETURN TO CALLING ROUTINE 
Me nn a a Oa 
WRITE HOME ADDRESS AND RECORD ZERO COUNT ODD 
WRROOX+3, ARR SAVE RETURN ADDRESS 
Qt XR2),xX*02" SETUP Q AND R 
PROG ID C1F-3, 
12 . 


827872 


ST 


MVI 
AVI 


ST 


av 
MMVI 


TBF 
JF 
SEN 
TBN 


JF 
SBN 


LA 
ST 


CLC 
BNE 


CLC 
BNE 


MVI 


010CT76 
S71931 


RUeXRZ) 2X°O7! 


READ AND RESET BUFFERED LOG 
ROSNSX*3,ARR SAVE RETURN ADDRESS 


Q(yXR2)eX101" 
Rt eXRZ29-X805* 


SETUP Q AND 8 
BYTES FOR SIO COFPMAND 
XEQ GO TO EXECUTE COMMAND 


RDSNSA GO TO CHECK RESIDUAL VALUES 


READ DIAGNOSTIC SENSE DATA 
ROSNSX4#3 ARR SAVE RETURN ADDRESS 


Q(eXR2),X*01* SETUP Q AND R 


BYTES FOR SIO COMMAND 


PAGE 


, 


“4 


: 
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C1F3 

ERR LOC 
12c0 
12C3 
12c8 
12cc 


1201 


1204 


1208 
1206 


12DE 


12E2 
12E7 


12E8 
12F1 


12F5 


12F9 


L2FD 
1300 


1303 
1307 
1308 
130F 


1313 
1317 


1314 
131F 


1323 
1329 


1320 
1333 


1337 


1338 


133F 
1342 


1345 
1349 
134D 
1351 


DATE 
ec nO. 


3340 SYSTEM TEST MODULE 


_e 


40D 12 








oe ete OO a OED NED EONS ET EDS OD LAD SP A SE SM EAS SY ELT EY CY SAD SEY 





‘PART 
PAGE 


NOo 


6247621 
(12a 


“BYTES FOR SIG COMMAND 
CLEAR ODCF AREA 
HOVE PHYSICAL ADDRESS TO OOCF 
MOVE RO KE & OL TO ODCF 


GO TO EXECUTE COMMAND 


AD A OAD CPE AD Se EHD AP LA RE Ar A AY A OT aay a a Ee AOE SE ORY MELD AE ERS COP Ey EIR AND A> EAPO ND DSP 


SAVE RETURN ADORESS 


SETUP Q AND F 
BYTES FOR SIO COMMAND 


GO TO EXECUTE COMMAND 


GO TO ERROR END 
RESIDUAL DUCE 


lF 
1S INCORRECT 


GO TO ERROR END IF 
RESIOUAL DDDR IS INCORRECT 


RETURN TO CALLING ROUTINE 





SAVE RETURN ADDRESS 


SETUP @ AND R 
BYTES FOR S10 COMMAND 


MOVE RECORD 
NUMBER AND NN 
VALUE TO DOCF 
GO TO EXECUTE COMMAND 


CALCULATE EXPECTED 
RESIDUAL RR AND NN VALUES 


GO TO ERROR END IF 
RESIDUAL ODOCF IS INCORRECT 


GO TO ERROR END IF 
RESIDUAL DDDR IS ENCORRECT 


SETUP RETURN ADDRESS 
RETURN TO CALLING ROUTINE 


GO TO EXECUTE COMMAND 


ee LP te EEE AOS TW LD SAY CD DE OE OS DL OY SDS SYED I 


SAVE RETURN ADDRESS 


SETUP Q AND R 
BYTES FOR $10 COMMAND 


MOVE RECORD 
NUMBER AND NN 
VALUE TO ODCF 


GO TO EXECUTE COMMAND 


- PROG ID C1iF-3 


12a 


OBJECT COLE ADOR STMT SOURCE STATEMENT 
BC 06 06 1101 MVE —- REP XRZD 9X8 068 
1102 * 
BC 08 14 187C 1103 WRHAOA MVC NN(9,XRZ2),NULLS 
AC O03 OF OA 1104 : MYC HH(4—XR2) -PAlL eXR2) 
BC 02 13 188A 1105 MVC OL 0.39 XR209P8 
1106 * 
F2 87 OA 1107 J URROOA 
1108 ¢ 
1109 %------------------------- 
i110 * WRITE RECORD ZERO KEY-DATA OOD 
LLL * 
34 08 1268 1112 WRROO ST  —- WRROOX43, ARR 
1113 * 
BC 02 05 1114 MVE Q( XRZ)9X202° 
BC 06 06 t115 MVI Rl eXR2)eX*06! 
1116 * 
CO 87 13E2 1117 WRROOA 8B _ XEQ 
1118 # 
6D 08 13 180D 1119 CLC OL C9, XRZP PROOCF +B 
CO O1 161E 1120 BNE  ERR1B 
1121 * 
OD 01 18C6 18CA 1122 CLC 1O0DDR{2).RDODR 
CO 01 160E 1123 BNE  ERRI6 
1124 * 
CO 67 0000 1125 WRROOX 6B +2 
1126 * 
1127 %-~--=-----=-------- -—- 
1128 # WRITE COUNT-KEY-DATA 
1129 * 
34 08 1336 1130 WRCKD ST WRCKDX+3.ARR 
ars 413i * 
BC 02 05 1132 MVE — Q49 XRZI 9 X*O2* 
BC 02 06 1133 MVE - RUgXRZP2XPO2* 
1134 * 
35 O1 1336 1135 WRCKDA L URCKDX*3 pXR1 
9c 00 10 00 1136 MVC —- RRC 19 XR2) 00 eXR1? 
9C 00 14 O1 1137 MVC -NN(.1.XR2292¢—XR1) 
1138 * 
CO 87 13E2 1139 B XEQ 
1140 * 
AE 00 10 24 1142 ALC = RROLXRZDeNNGEXR2I 
BC FF 14 1142 MVI -NN( gp XR2) XP FES 
| 1143 * 
8D 08 13 1800 1144 CLC DLE9¢XR2},RDDCF +B 
CO 01 161E 1145 BNE  ERRIS 
1146 # | 
00 01 18C6 18CA 1147 CLC IDDDR(2)»RDDOR 
CO 01 160E 1148 ‘BNE  ERRLO 
1149 * 
O£ 01 1336 1880 1150 ALC - WRCKODX43(2) Fz 
1151 * 
CO 87 0000 1152 WRCKDX 8 o~% 
1153 # 
CO 87 1303 1154 8 WRCKDA 
1155 * 
1156 Bamana a a rn 
1157 * WRITE REPEAT KEY-DATA 
, 1158 * 
34 08 137B 1159 WRREP ST  WRREPX43, ARR 
11LEC * 
BC 02 05 116i MVI Qo XRZ2I.eX*028 
BC 03 06 1162 MVI - RUpXR2ZD4X°O3* 
1163 * 
35 01 137B 1164 L WRREPX4+3 eXR1 
9C 00 10 00 1165 MVC - RRO 1 XRZ3 900 eXR1) 
9C 00 14 O1 1166 MVC - NNCLS XR2De20eXR1) 
| 1167 *# 
CO 87 13E2 1168 B KEQ 
OSAUG75 OSNOV75  OLMART6 O1OCT76 
827779 827827 827872 571931 


PAGE 


tei a 
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PAGE 13 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247821 
PAGE _AZa 
CEES? (2240 (SYSTEM TEST -ROOULE o> MOO 22 C1+3 3340 SYSTEM TEST MODULE -- MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
ce. 2) 9NN(»XR2) CALCULATE EXPECTED Le Sees Te eS ae ee ee en 
1355 AE 00 10 14 1170 ALC  RRI1L_,XR2)_,NNC OX 
1359 BC FF 14 1171 MVI s-NNGyXR20-X* FEE RESIDUAL RR AND NN VALUES aes : SCAN READ OR HIGH OR EQUAL 
1172 * 
135C 8D 08 13 1800 1173 CLC dL(9,XR2),RDDCF+B GO TO ERROR END IF 13D4 34 08 13C5 ee SCNRH ST SCANHX4 3, ARR SAVE REIURN ADDRESS 
1361 CO 01 161E 117% BNE  ERRLB RESIDUAL DDCF ES INCORRECT 13D8 BC 03 05 1242 MVE QU eXR290X*03" SET UP Q AND R 
| 1175 * ? 
1365 BC 00 10 1176 MMVI - RR&,yXR2}0 CLEAR RR FIELD 1308 BC 0D 06 — 4 MVI «RO XRZ0,X*0D! BYTES FOR SIO COMMAND 
1177 * 
1368 GD 01 18C6 18CA 1178 CLC IDDDR(2),RDDOR GO TO ERROR END IF 13DE CO 87 13A2 1245 . 8 SCANHA 
136E CO O01 160€ 1179 BNE ERRI6 RESIDUAL DDDR IS INCORRECT 1246 
1180 * 
1372 O£ 01 137B 1880 1181 ALC = WRREPX4#3(2) »P2 SETUP RETURN ADDRESS 
1182 * 
1378 CO 87 0000 1183 WRREPX 8 *—* RETURN TO CALLING ROUTINE 
1184 * 
1185 t-------- -- - == = = = = + nn nn nnn nnn 
1186 * WRITE KEY-DATA ¢ 
1187 * 
137C 34 08 1217 1188 WRKD ST RDKDX+3 ARR SAVE RETURN ADDRESS : 
1189 * ; 
1380 BC 02 05 1190 MVI 09 XRIP2X#028 SETUP Q AND R : 
1383 BC 00 06 1191 MVI =s- RU ge XR2ZD 9X00! BYTES FOR SIO COMMAND 
1192 * ; 
1386 CO 87 1IC5 1193 B RDKDA GO TO EXECUTE COMMAND : 
1194 * 
1195 *#-------—~~~—-- ---~- + - -- - -- + — + +--+ nnn nn en nnn nnn nn nnn nnn 
1196 * SCAN EQUAL 
1197 * 
138A 34 06 13C5 1198 SCANE ST SCANHX43 , ARR SAVE RETURN ADDRESS 
1199 * 
138€ BC 03 05 1200 MVE = Qe XR2D9X#038 SETUP Q AND R 
1391 BC 00 06 1201 MVI——- RU XRZIEX*008 BYTES FOR SIO COMMAND. 
1202 * 
1394 CO 87 13A2 1203 | 8 SCANHA GO TO EXECUTE COMMAND 
1204 * 
1205 *----~--~-------~---+--—------.----- ---- + --- +--+ -- +--+ +--+ +--+ +} 
1206 * SCAN HIGH OR EQUAL 
1207 * 
13°8 34 08 13C5 1208. SCANH ST SCANHX43, ARR SAVE RETURN ADDRESS { 
1209 * . 
139C 8C 03 05 1210 MVI QU 9 XR2). 9 X*03" SETUP @ AND R ee i 
139F BC 02 06 1211 MVI =- RU XR2D9X#O2! BYTES FOR SIO COMMAND ; 
. 1212 * 
L3A2 35 O01 13C5 1Z13 SCANHA L SCANHX43,XR1 MOVE RECORD i 
1346 9C 00 10 00 1214 MVC —- RRO 1» XRZ2) OC XR1) N''4BER AND NN { 
13AA 9C 00 14 01 1215 MVC -NNG19XR20910eXRD) VALUE TO DOCF 
1216 * 
1BAE CO 87 13£2 1217 8 XEQ GO TO EXECUTE COMMAND 
1218 * 
1382 OD O01 18C6 18CA 1219 CLC IDDDR(2),RODDR GO TO ERROR END IF 
1388 CO 01 160£ 1220 BNE ERRL6 RESIDUAL DDDR' 1S INCORRECT 
1221 * 
13B8C OF 01 13C5 1880 1222 ALC  SCANHX43(2),P2 SETUP RETURN ADDRESS 
ai 1223 * 
1302 CO 87 0000 1224 SCANHX 8B +—% RETURN TO CALLING ROUTINE 
1225 * 
1226 * 
1227 #-----------~------~--~--~-~~~----~-~-----------~---- * 
1228 * SCAN READ OR EQUAL 
1229 * 
13C6 34 08 13C5 1230 SCNRE ST SCANHX+3, ARR SCAN RETURN ADDRESS 
1231 * 
13CA BC 03 05 1232 MVI «QL e XR2V 9 X*#038 SET UP Q AND R 
13CD BC OC 06 1233 MVI = - Rg XR2),X*0C* BYTES FOR SIG COMMAND 
1234 * 
13D0 CO 87 1342 1235 B SCANHA GO TO EXECUTE COMMAND 
1236 * 
DATE OSAUG7S O5SNGV7TS OIMART6:- 010CT76 PROG ID C1LF-3 
EC NO. 827779 827827 £27872 57192} PAGE 3 DaTE OSAUGTS O5SNOVT7S OMAR TE OLGCT IE PROG ID CiF-3 
EC NO. 827779 827827 827872 SFL93i PAGE 3A 
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PART NO. 247622 
PAGE 14 PAGE 14A 
C1F3 3340 SYSTEM TEST MODULE -- MOD 12 C1F3 3340 SYSTEM TEST MODULE -- MOD 12 
ERR LOC OBJECT CODE ADGR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT. SOURCE STATEMENT 
1248 FEELERS SEES ES ERRERERES EE ES SEALE EERE AGEREEERSESESEEREEREREEREREEEK AR 1489 Cl 30 1497 1316 TIOBSY TIO XEQOL , t—% BRANCH IF SEEK BUSY 
1249 * . * 1317 * 
1250 * COMMON 3340 COMMAND EXECUTION SUBROUTINE * 148D 38 02 18AF 1318 TBN =IND, SKEND ERROR END IF 
1251 * * 1491 F2 00 COD 1319 JMP JC ERROT,X*008 SEEK IN PROGRESS 
1252 HREERSREEE AAR STARE SES ERE REE SESE EETE A EERS ERASE TEE RREREE ESS SE RESEESEEEE 1320 + 
1253 *# 1494 F2 87 ll 1321 J XEQO2 
13E2 34 08 1520 1254 XEQ st XEQX4+3,ARR SAVE RETURN ADDRESS 1322 * 
1255 * 1497 38 02 18AF 1323 XEQO1 TBN  ~=IND, SKEND SKIP LF 
13E6 3C 80 1486 1256 “VI BRANCH4+1,X*80# NO-OP THE INSTRUCTIONS 1498 F2 10 OA 1324 JT KEQO2 SEEK IN PROGRESS 
13EA 3C 80 1492 1257 MVI =s- SMP4#1,.X*808 1325 * 
13EE OD 01 OA01 OAC] 1258 CLC = PID (2) s IDADR IS IT RUNNING STANDALONE 149E OC 00 14A5 148A 1326 MVC =: *# 71) ,TIOBSY 41 ERROR END IF 
13F4 F2 01 12 1259 JNE XEQOO 1444 C1 00 1568 1327 TIO = ERROB , #-* STELL SEEK BUSY 
13F7 3C 10 1492 1260 MVI =. JMP#1,X?108 IF RUNNING STANDALONE, CHECK 1328 * 
13FB 3C 87 1486 1261 MVI BRANCH41,X*87* ATTACHMENT AND SEEK BUSY 1448 OC 01 1885 187C 1329 XEQ02 MVC) =—s- TEMER( 2) eNULLS INITEALIZE Titca COUNT 
1262 * 1330 * 
L3FF CO 87 0212 1263 B TEST GO TO CHECK SNS SWS 14AE 3D 00 1885 1331 XEQO2A CLE  TIHER,O SKIP IF LOW GRODER 
1264 * 14B2 F2 01 OA 1332 JNE XEQO3 TIMER BYTE NOT ZERO 
1403 OC 01 18E0 187C 1265 MVC = SNS(2) »NULLS CLEAR SENSE AREA 1333 * 
1266 + 1485 OD O21 OAO] OAO]L 1334 CLC = PID(2),1DADR GO TO SUPERVISOR 
1409 F3 C4 80 1267 XEQ00 SIQ = X*BO%,xX*C4e ENABLE 3340 INTERRUPTS 14BB CO Ol OAOA 1335 BNE ENTRY IF RUNNENG SYSTEM TEST 
1268 * 1336 * 
140C 2€C O1 1476 06 1269 MVC = $19#2.R(29XR2) MOVE Q AND R BYTES TO SIO 14BF O€ 01 1885 1880 1337 XEQO3 ALC TIMER(2),P2 ERROK END IF ATTACHMENT 
1411 2€ 00 1475 01 1270 ALC = SIO# 1 sDRVADR(1,XR2} ADD DRIVE ADDRESS TO Q BYTE 14C5 CO AO 1586 1338 BOL ERROY BUSY FAILS TO GO OFF 
1271 * 14C9 C1 C2 14AE 1339 TIO = XEQO2A,X*C2¢ 
1416 2C 00 1471 01 1272 MVC =—s- TIORDY+1(1),ORVADR{.xXR2) SETUP @ BYTE IN TIO 1340 * 
141B 2C 00 148A O1 1273 MVC = - TIOBSY#1(1) ,DRVADR(,XR2) - *NOT RDY / UNIT CHECK® AND 14CD 30 C6 18C8 1341 SNS = =RDDCR.X*C6* SENSE DOCR 
1420 3A O01 148A 1274 SBN TIOBSY+1,X*O1? *SEEK BUSY® INSTRUCTIONS 14D1 30 C4& L8CA 1342 SNS RDDDR2X*C4* SENSE OODR 
1275 * 1343 * 
1424 20 09 18D4 14 1276 MYC IDDCFN.NN(10,XR2) SAVE INITIAL DOCF 14D5 OC OL 18B5 187C 1344 MVC TIEMER(29,NULLS INITIALIZE TIRER COURT 
1277 * 1345 * 
1429 35 O1 18C4 1278 L IDDCR,XR1 MOVE DOCF 1408 30 00 1885 1346 XEQO03A CLI TIMER,G SKIP IF LOW GROER 
142D 6C 09 09 14 1279 MVC) =—s- 9. (10 »XR1),NN(,XR2) TO EXECUTION AREA 14DF F2 01 OA 1347 JNE XEQ04 TIMER BYTE WOT ZERO 
1280 # 1348 * 
1431 Cl C2 152E 126% TIO TIO} ERRO1,X*C2* ERR IF ATTACHMENT BUSY 14E2 OD O1 OAO01 OAO1 1349 CLC PID(2),1IDADR GO TG SUPERVISOR 
1282 * 14E8 CO O1 OADA 1350 BNE ENTRY IF RUNNENG SYSTEM TEST 
1435 31 C6 18C4 1283 LIO LIQ  IDDCR,xX*Cé! LOAD DDCF ADDRESS IN DDCR 1351 * 
1439 31 C4 18C6 1284 LiO IDDDR,»X*C4? LOAD DDDF ADDRESS IN DDDR 14EC OF O01 1885 1880 1352 XEQ04 ALC TIMER(2),P2 ERROR END IF EXPECTED 
; 1285 * 14F2 CO AO 1509 1353 BOL ERR1O INTERRUPTS FAIL TO OCCUR 
1430 30 C6 18C8 1286 SNS  RDDCR,»X*Ce* SENSE DDCR 14F6 Cl C4 14FE 1354 TIO = XEQO4A2X*CG* INTERRUPT PENDING 
1441 30 C4 18CA 1287 SNS RDDDRsX*C4* SENSE ODDR 1355 * 
1288 « 14FA CO 87 1408 1356 B XEQO3A 
1445 OD 01 18CS 18CA 1289 CLC IDDOR(2),RDODR ERROR END IF 1357 #* 
144B F2 01 E7 1290 JNE  ERROZ OOCR INCORRECT 14FE CO 87 1778 1358 XEQO04A 8B DASO! 
1291 * 1359 * 
144E OD O1 18C6 18CA 1292 CLC = FDDOR (2), RDDOR ERROR END IF 1502 OD 01 OAOL OAOL 1360 XEQ05 CLC PID(2)-IDADR GO TO SUPERVISOR 
1454 CO 01 153C 1293 BNE ERRO3Z ODDR INCORRECT 1508 CO 02 OADA 1361 BNE ENTRY IF RUNNING SYSTEM TEST 
1294 * 1362 * 
1458 B8 04 05 1295 TEN =Q(.XR2), BITS BRANCH IF 150C 38 20 18AF 1363 TEN «IND, INTERR BRANCH IF ERROR 
145B F2 10 12 1296 JT TIORDY READ IPL COMMAND 1510 CO 10 1645 1364 BT ERR XX DETECTED IN INTERRUPT RTN 
1297 * 1365 + — 
145E 3A 04 18AF 1298 SBN IND, OPEND SET OP END EXPECTED INDICATOR 1514 35 O1 18C4 1366 L IODCR,XR1 SAVE 
. 1299 * 1518 1C 09 18DE 09 1367 MVC RDDCFN+9(10.xR2) RESIDUAL OOCF 
1462 BD 00 05 1300 CLI = =Q,4XR2),0 BRANCH IF NOT 1368 * 
1465 F2 01 08 1301 JNE  TEORDY RECAL OR SEEK COMMAND 1510 OD G1 18C4 18C8 1369 CLC IDDCR(2),RDDCR GO TO ERROR END IF 
. 1302 + ; 1523 CO O1 1616 1370 BNE ERRLT RESIDUAL DDCR IS INCORRECT 
1468 38 04 18AF 1363 SBF IND,OPEND RESET OP END EXPECTED INDICATOR 1371 * 
146C 3A 02 18AF 1304 SBN IND» SKEND SET SEEK COMPLETE EXP INDICATOR 1527 F3 C4 7E 1372 S10 =—- X*° TE ® 2 XPT HS RESET AND DISABLE INTERRUPTS 
1305 * 1373 © 
1470 Cl OC 1552 (1306 TIORDY TIO ERRO5,+-% ERROR END IF ORIVE NOT READY 152A CO 87 0000 1374 r»EQx B t—2 RETURN TO CALLING ROUTINE 
R307 * 1375 * 
1474 F3 00 00 1308 SIO SIO = #-# , eH ISSUE 3340 START 1/0 COMMAND 
1309 * 
1477 OD 01 OAOL OAO1L 1319 CLC =PID(2),1DADR NO TEST FOR ATTACHMENT BUSY 
1470 CO O1 1489. 1311 BNE TIOBSY IF RUNNING SYSTEM TEST 
1312 * 
1481 Cl C2 1489 1313 TIO} §=TLOBSY,X*C2° ERROR END IF 
1485 CO 00 155A 1314 BRANCH aC ERROG «X00! ATTACHMENT DID NOT SO BUSY 
1315 * 
CATE = OSAUG7S = OSNOV75. ——s«OLMART6©~—s OOLOCT 76 PROG ID C1F-3 DATE  O5AUG75 OSNOV75 O1MART6  O10CT76 PROG ID cirs3 
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PAGE 15 PAGE -- SA 
C1E3 3340 SYSTEM TEST MODULE -- MOD 12 C1F3 3340 SYSTEM TEST MODULE <-- MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
L777 ERKEEREGHREPRALHESHESKEAER SEL REREESS SHEETS EKA SRARRE TREKS STEALS SESSLER KE 158D 38 20 1BAF 14465 S6éF INO SINTERR IGNORE INTERRUPY ERRORS 
1378 * * 1446 © 
1379 * ERROR ENDING CONDITIGNS * 1591 #2 87 Bl 1447 J ERRXX 
1380 # * 1448 * 
1381 ERETKATKRERKETAK SRR SRECKEREREASSRESRASEL SEE SEKERS SH SETAEL SEALS IR SEKESLAKTRRE 1449 Benn nn en en oe a nn enn re en ee eee ee omen ee ae ae ce ce ae nae ee en 
1382 * ' * 1450 * ORIVE X UNIT CHECK GR NO-OP STATUS 
1383 * TTACHMENT BUSY PRIOR TO COMMAND EXECUTION 1451 *% 
i384 * 1594 3C OA 18B3 1452 ERRGA MVI ERRID»x* OAS SETUP ERROR RUAMBER 
152E 3C 01 1883 1385 ERROL MV I ERRID, X01 SETUP ERROR NUMBER 1598 CO 87 L6FD 1453 8 LOGERR GO Ta LOG ERROR 
1532 F2 87 55 1386 J ERROOB 1458 * 
1387 * 1455 Bn  r  e nne  nnn= mame eee ne meer ewe en eee e een cen 
13BB $a a  re e 1456 * ADAPTER CHECK 
1389 * = DOCR FAILED TO LOAD CORRECTLY 1457 * 
1390 * 159C 3C CC 18B3 1458 ERROC KVI ERRID,X*OC* SETUP ERROR NUIRER 
1535 3C 02 1883 1391 ERRO2 MVI ERRID»X#02* SETUP ERROR NUMBER : 1459 * 
1539 F2 87 04 1392 J ERRO3ZA 1540 OC O01 18E& 1BEO 1460 MVC WORKN(Z5.SNS _ SAVE SENSE BYTES AND 
1393 * 15A6 F2 87 OC 1461 J ERROFA GO TO BUILD FMT 3 SENSE DATA 
1394 %---—-- na nn nn re ene L462 ® 
1395 * DDODR FAILED TO LOAD CORRECTLY 1463 Ben ere ew en ee nn en nn rn rn nn nn en ne enn ene tee een enn 
1396 * 1464 * ADAPTER SENSE BYTES DO NOT INDICATE CAUSE OF INTERRUPT 
153C 3C 03 1883 1397 ERRO3 MYvI ERRID,X*038 SETUP FRROR NUMBER 1465 * 
1398 * 15A9 3C OF 18B3 1466 ERROE VI ERRID,X*9E* SETUP ERROR NUMBER 
1540 F3 C4 QZ. 1399 ERROBA sid X*O2* .KX*Cae DISABLE 3340 INTERRUPTS 15AD CO 87 16FD 1467 6 LOGERR 60 TO LOG ERROR 
1543 30 C5 18£0 1400 SNS SNS,X*C5* SENSE ATTACHMENT STATUS 1468 * 
; 1401 # 1469 Bema a a en nn en nnn rn ee re ern en ee arma 
1547 38 01 18€0 1402 TEN SNS,BIT? . BRANCH IF 1470 © ADAPTER CHECK OM READ DIAGNOSTIC SENSE COMMANDO 
1548 F2 10 4E 1403 JT ERROC ADAPTER CHECK 1471 & 
1404 * 158: 3C OF 1883 1472 ERROF avi ERRID,X*OF® SETUP ERROR NUMBER 
154£ CO 87 LSFD 1405 g LOGERR GO TO LOG ERROR 1473 * 
1406 * 1585 3C 00 1935 i474 ERROFA VI ODDF*23,0 CLEAR READ 
LOT Ram mm a 15B9 OC 16 1934 1935 1475 MVC DDDF+221233-D0DF +23 DIAG SENSE DATA AREA 
1408 * UNIT CHECK OR NOT READY PRIOR TO $10 1476 : 
1409 * : ISBF OC OL LGIF L8ES 1477 MYC OODF+1(2), HORKN BUILD 
i552 3C 05 1583 1410 ERROS5 MVE ERRID,X?O5* SETUP ERROR NUMBER 15C5 31 C7 1S8AE 1478 Lia SNS23—eX°CT? FORMAT 3 
1556 €G6 87 1645 1411 B ERRXX 15CS 30 C7 1921 1479 SNS ODDF+3,X°C?? OLAGNGOSTIC 
1412 * L15CD 3C 30 1925 1486 “v1 DDDF <7 9X! 30° SENSE DATA 
YE LD a fae mae ae a a ee tw ee 148i * 
eae * ATTACHMENT DIO NOT GO BUSY AFTER SIO iSDi 3A OL LBAF 1482 SBN IND: SNSAYL SET SENSE DATA AVAILABLE IND 
1415 * 1483 * 
1554 3C O06 1883 | 1416 ERROS AVE ERRIGexX*O06* SETUP ERROR NUMBER 1506 Co 87 16FD 1484 8 LOGERR GO Te LOG ERROR 
155E Fz 87 0B 1417 J ERRCSA 1485 * 
i4 1 8 = ‘i z 4 8 6 &. OS AD Ae A ee NP A OH AE A a CANE EE EE ES OT SN AE OL A SE SEND IO SED AN <P A eT AY EE A NP SE A IPRA GOED A 
RED Raa 1487 * EXPECTED GP END INTERRUPT DID NOT OCCUR 
1420 * SEEK COMMAND DID NOT SET SEEK SUSY 1488 * 
1421 * 1509 Cl C4& 15F2 1489 ERR1O TIG ERR1L2,xX*C4* BRANCH IF INTERRUPT PENDING 
1561 3C O07 i883 1422 ERROT VI ERRID,X*O7* SETUP ERROR NUMBER 1490 * 
1565 F2 87 04 1423 J ERROSA 15DD 38 04 1LBAF 1491 TBN IND»sOPEND BRANCH IF HO OP END 
1424 * : 15€i FZ 90 07 1492 JE ERRIL INTERRUPT OUTSTANDING 
1425 #~--------- A ec ne em we mt er ve em ma oe 1493 2% 
ee : SEEK BUSY WITH NO SEEK IN PROGRESS RSES 3C 10 1583 1494 YI ERRIO,X2108 SETUP ERROR NUMBER 
495 *# 
1568 3C 68 1883 1428 ERROS RVI ERRID, X*O08" SETUP ERROR NUMBER ASE8 F2 87 SA ee J ERRXX 
1429 * L497 * 
i56€ OC 01 18B5 187C 1430 ERROBA HVC TIMER(2),NULLS INITIALIZE TIMER COUNT 1698 Gama ne naw nn en ee en ee nn en ee ne ee enn ene ee ne eee aia 
1431 * 1499 « EXPECTED SEEK COMPLETE INTERRUPT DID NOT OCCUR 
LS72 39 06 18AF 1432 ERROBB TBF IND, OPEND+ SKEND LGOP UNTIL 1500 # 
1576 F2 10 OA 1433 JT ERROBC COUNTER OVERFLOWS iSES 3C 11 1863 1501 ERRL1 MVi ss ERRID;#t12t SETUP ERROR NUMBER 
1579 O£ O1 1885 187E 1434 ALC TIMER(2},P1 OR ALL: EXPECTED iSEF F2 87 53 3502 J ERRXX 
157F €O 20 1572 1435 BMOL ERROSB INTERRUPTS HAVE OCCURRED 1503 ¢ 
1436 & 1504 $_— nn en nn nn en a ee ce ee eee reer me meereain aaa ae cemn 
1583 F2 87 04 1437 ERROBC J ERROSB 1505 *% INTERRUPT PENDING, BUT INTERRUPT DID NOT OCCUR 
; 1438 * 15C6 * 
1439 ¥--------~-~-~-—~-------- - +--+ + nn nn ere nn een 15F2 3C 12 1853 1507 ERRLZ MVIo-« ERRID,X*12¢* SETUP ERROR NUMBER 
1440 * ATTACHMENT BUSY FAILED TO GON GFF LSE6 F2 87 4C 1508 J ERRXX 
1441 * 1509 # 
1586 3C 09 18B3 1442 ERRGS M¥VI =ERRID,xX*09° SETUP ERROR NUMBER 1610: #esSeds) Hee ees ee one rr ee eee meneame 
ag | 1443 * 1511 * EXPECTED SCAN EQUAL DID NOT OCCUR 
158A F3 C4 7E 1444 ERROSGB SIO X*7E%,X*C4! ; RESET AND DISABLE INTERRUPTS 1512 * 
ea oa OSNOVTS OLMART6 O10CT76 PROG ID C1IF-3 DATE  O5AUG7TS  O5NOV75  O1MART6  O1GCTT6 PROG ID CiF-3 
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ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 


1533 ERR13 MVI 


1S5F9 3C 13 18B3 ERRID,X*13¢ SETUP ERROR NUMBER 1658 30 C5 18EO 1581 SNS  SNS,xX*C5& SENSE ADAPTER STATUS 
15FD F2 87 45 1514 J ERRXX 1582 * 
1515 * 165C 38 01 18E0 1583 ERRXXA TBN SNSeBITT? BRANCH IF 
1516 *-----~-~---- ~~ -- ~~~ +- - --- +--+ ee 1660 CO 10 159C 1584 BT ERROC ADAPTER CHECK 
1517 # EXPECTED SCAN HIT DID NOT OCCUR 1585 * 
1518 * 1664 OC 00 1668 1471 1586 MVC 2+7(1),TICROY42 GO TO READ DIAGNOSTIC 
1600 3C 14 1883 1519 ERR14 MVI ERRID,X*148 SETUP ERROR NUMBER 166A Cl OO 167A 1587 TIO = ERR XXBy Be SENSE DATA IF DRY NOT READY 
1604 F2 87 3E£ 1520 J ERRXX 1586 * 
1521 * 166E 2C 00 1674 03 1589 MVC = #6 PUCKMSK (Lo XR2) BYPASS READ 
1522 Benn mn nn nn nnn nn en nn en nnn nnn nnn nnn ene ne +--+ 1673 39 00 180F 1596 TBF =66SNS-1,%-# DIAGNOSTIC SENSE 
1523 * UNEXPECTED SCAN HIT CONDITION 1677 F2 10 4F 1591 JT ERRXXO If SO UNIT CHECK 
1524 # 1592 * 
1607 3C 15 1883 1525 ERR1S MVI ERRID,X*°15° SSTUP ERROR NUMBER 167A ZC 00 1699 O1 1593 ERRXXB MVC SIOSNS4+1 s—DRVAOR(L»XR2) BUILD READ 
‘160B F2 87 37 1526 J ERR XX 167F 3A 01 1699 1594 SBN SIOSNS¢1,BIT7 DIAGNOSTIC S.WSE COMMAND 
1527 # 1595 * 
1526 fom nn nn nn nn a a ne 1683 Cl C2 16C€9 1596 TIO =ERRX¥D,X*C2* SKIP IF ATTACHMENT BUSY 
1529 * INCORRECT RESIDUAL DDOR 1597 * 
1530 * 1687 31 C4& 18A2 1598 LIO DGSNSax*C4s? LOAD DDOR TO SENSE AREA AODR 
160E 3C. 16 1883 1531 ERR16 MVI  ERRID,X*168 SETUP ERROR NUMBER 1599 * 
1612 CO 87 16FD 1532 B LOGERR GO TO LOG ERROR 1688 30 C4& 18E4 1600 SNS WORKN»X*C4* BYPASS READ 
1533 * 168F OD O1 18E4 18A2 1601 CLC WORKN(2) eDGSNS@ DIAGNOSTIC SENSE 
1536 Benn m nnn nnn nn nnn nnn nn en a en ee + 1695 F2 O1 31 1602 JNE ERRXXD aF INCORRECT DOOR LOAD 
1535 * INCORRECT RESIDUAL ODCR 1602 * 
- 1536 * 1698 F3 00 O7 1604 SIOSNS SIO xX*O7T*,#-% READ DIAGNOSTIC SENSE DATA 
1616 3C 17 1883 1537 ERR17 MVI ERRID,X*17* SETUP ERROR NUABER 1605 * 
L61A CO 87 LéFOD 1538 : B LOGERR GO TO LOG ERROR 1698 OC O1 1885 187C 1606 MVC) =TIMER(2),NULLS INITIALIZE TIBRER COUNT 
1539 * 1607 * 
1540 ¢------~-~~———-—=— cr mm 16Al ON O1 0AO01 OAOL 1608 CLC = PID(2)¢IDADR GO TO SUPERVISOR 
1541 * INCORRECT RESIDUAL DOCF 16A7 CO O01 OADA 1609 BNE ENTRY IF RUNNING SYSTE® TEST 
1542 * 1610 * 
161E 3C 18 1883 1543 ERRLS MVI ERRIDsX*18¢ SETUP ERROR NUMBER 16AB OF O1 1855 187E 1611 ERRXXC ALC TIMER(23,P1 WAIT FOR FALL OF 
1622 CO 87 16FD 1544 8 LOGERR GO TO LOG ERROR 16B1 CO AO 16C9 1612 BOL ERRXXD ATTACHMENT BUSY 
1545 * 1685 Cl C2 16A8 i613 T10 ERRXXC,X*C2* OR TIMEOUT 
1546 Seem nn rn nn nn nn eee 1614 2 
1547 * INCORRECT RESIDUAL ODOF 1689 3A O1 LBAF 1615 SBN IND» SNSAVL SET SENSE DATA AVAILABLE IND 
1548 # 1616 * 
1626 3C 19 1883 1549 ERR19 BVI ERRID,X*19° SETUP ERROR NUMBER 16BD 30 C5 18E4 1617 SNS WORKNeX*C5? BRANCH IF READ 
162A CO 87 16FD 1550 B LOGERR GO 10 LOG ERROR 16C1l 38 O1 18E4 1618 TEN WORKN,BIT7 DIAGNOSTIC SENSE 
155i 16C5 CO 10 1581 1619 BT ERROF ENDED IN ADAPTER CHECK 
1552 *#------------------~---- -- +--+ ee ee 1620 * 
1553 * UNEXPECTED SCAN EQUAL CONDITION 16C9 38 20 18AF 1621 ERRXXD TBN  IND,INTERR GO TO LOG ERROR 
1554 * | 16COD CO 90 1eFO 1622 BF LOGERR NOT INTERRUPT DETECTED ERROR 
162E 3C 1A 1883 1555 ERRIA MVI ERRID»sX*1A° SETUP ERROR NUMBER 1623 * 
1632. F2 87 10 1556 J ERRXX 1601 38 08 i8AF 1624 TBN INOD.TIGERR BRANCH IF 
1557 * 1605 CO 10 1635 1625 BT ERRIC INTERRUPT PENDING FAILURE 
1558 *------~~--—~~~~—~~--——— - — —- +--+ + 1626 * 
1559 # INTERRUPT DID NOT CAUSE INTERRUPT PENDING TIO CONDITION 1609 38 10 1SAF 1627 TBN END,DRYERR BRANCH IF 
1560 * 16DD CO 10 1594 1628 BT ERROA UNIT CHECK 
1635 3C 1C 1883 1561 ERRIC MvI ERRID,X°1C* SETUP ERROR NUMBER 1629 * 
2 1639 CO 87 16FOD 1562 B LOGERR GO TO LOG ERROR 16E1l 39 14 18E£0 1630 TBF SNS,B1IT3*3B3T5 BRANCH IF 
1563 * 16E5 39 OF 18DF 1631 TBF SNS—-1,X*OF® NO INTERRUPT 
1566§ Pawn nnn nnn nn nn nn a nn en ee ee 16£9 CO 10 15Aa9 1632 BT ERROE BITS IN ADAPTER STATUS 
1565 * UNEXPECTED INTERRUPT 1633 * 
1566 * ' 16EO0 39 10 18E0 1634 TBF SNS »BIT3 BRANCH IF 
1630 3C LE 1883 1567 ERRIE MVI ERRID,X* 1° SETUP ERROR NUMBER 16F1 39 OF 1SDF 1635 TBF SNS~2,X*OF®* NOT ATTENTION 
1641 CO 87 16FD 1568 B LOGERR GO TO LOG ERROR 16F5 CO 90 163D 1636 BF ERRI1E INTERRUPT 
569 * 1637 * 
1370 Bin wn nn nnn nm ne woe nn n+ ----- ---------- 16F9 CO 87 OF83 1638 B BGNOL GO TO RESET ATTENTION 
i571 * COMPLETE ERROR PROCESSING 1639 * 
1572 * 
1645 F3 C4 7E 1573 ERRXX SIG = X* TE® X*C48 RESET AND DISABLE INTERRUPTS 
: 1574 * 
16468 38 20 18AF 1575 TEN IND, INTERR BRANCH IF INTERRUPT 
164C F2 10 OD 1576 JT ERRXKA NETECTED ERROR CONDITION 
1577 
164F OD 01 °18E0 187C 1578 CLC >= SNS(.2) ,NULLS BRANCH IF SENSE BYTES 
1655 F2 01 04 1579 JNE  ERRXXA HAVE ALREADY BEEN RETRIEVED 
1580 * 
DATE OSAUG75 O5NOV75  O1MAR7T6 C10CTT76 PROG ID C1F-3 DATE  OSAUG75 OS5NOV75 O1MART76 O10CT76 PROG ID C1F-3 
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CLES 3340 SYSTEM TEST MODULE -- MOD 12 C1F3 3340 SYSTEM TEST MODULE -- MOD 12 . 
ERR LOC OBSECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SQURCE STATEMENT 
164] CER ERE EERE EEEESESEREEEREERE EEE REER ERLE EERE REA EEHESRERTERES EEEEES SE SES 170: SESRT ESTE SERESS ESSE PHOSSOESE SERS ERE TOONS SOeO Te ORES KESERTESSEEECHRREES 
1642 * * 1702 * * 
1643 * ERROR LOG SUBROUTINE * 1703 # 3349 REVICE END INTERRUPT SUBROUTINE = 
1644 * * 1704 *% x 
1645 EERE ERERERESSEEERESER ESSERE EES SEER RE RHE REARS SEREEREREER EERE RARE ERE RRE 1765 SRSFESESERERE SESE ESEASS SESE EOR SEES FES SETAE THEE RSENT STADE SREEEEDS BERETS 
1646 * L706 * 
L7FA 1647 USING LOGeXRL XR1 POINTS TO LOG AREA 1778 34 08 i7DF 1707 DASO! ST DASOIX43,ARR SETUP RETURN ADDRESS 
1648 * L77C 34 02 1887 1708 ST DAXR2 5XR2 SAVE INDEX REGISTER 2 
16FD B85 O1 16 1649 LOGERR L LOGAl eXR29_XR1 SETUP LOG AREA POINTER L709 * 
1650 * 1780 30 C5 18E£0 1710 DASDOO SNS SNS, X°C§8 SAVE SENSE BYTES 
1706 7C 00 2F 1651 MVI DGSNS(,XR1),0 CLEAR DIAGNOSTIC Wil # 
7 1703 5C 16 2E 2F 1652 MVC DGSNS-1(23,XR1) eDGSNS(.XR2) SENSE DATA AREA 1784 38 O1 18E0 1712 TEN = =SNS,BIT? BRANCH ITF 
1653 * 1788 F2 10 49 1713 JT DAsSpoe AUAPTER CHECK 
1707 38 01 18AF 1654 TSN IND» SNSAVL BRANCH IF NO 1714q @ 
L7CB F2 90 47 1655 JF LOGER DIAGNOSTIC SENSE DATA i78B 35 02 18—89 2215 L ADRPTR.XR2 SETUP POINTER TG 
1656 * 178F BS 02 O1 1716 i 14,XR2) XR? DRIVE DEPENDENT WORK AREA 
170E 4C 17 2F 1935 1657 MYC OGSNS (24,.XR1) -DODF+23 LOG SENSE DATA L7i? * 
1658 * 1792 38 16 1860 1718 THM SNS,»81T3 BRANCH IF 
1713 30 80 191E 1659 CLI DODF »x* 808 BRANCH IF NOT 1786 38 04 iL8AF 1719 TBN ENO. OPEND EXPECTEO GF END 
1717 F2 O1 1a 1660 JNE  CKRDY WRITE INHIBIT L79A F2 10 127 1720 JT DASOOL INTERRUPT OCCURRED 
L71iA 3D O02 191F 166} CLI DDGF+1,x%*02" COMMAND REJECT i721 # 
L7LE F2 01 13 1662 JNE CKRDY 1790 2C OO 1743 G2 1722 MVE #6. SKAMSK (CL EXR2 5 GE SK INTRE MASK FROM DRY AREA 
1663 * 1742 38 OO 1&8DF L723 TBN SNS-1 -t~# BRANCH IF 
1721 4€ 09 15 1868 1664 wYC MSG(10,XR1),NRRITE BOVE WR INHIBIT MSG TO LOG 1TA6G 38 C2 IBAE 1724 IBN INO. SKEND INTERRUPT IS 
1665 * 17TAA F2 GG 27 1725 JF BAS DO NOT EXPECTED 
1726 38 40 18BO 1666 TBR IND2 sRDGNLY BYPASS HALT If 1726 > 
l72A F2 10 40 1667 st LOG*X PREVIOUS RD ONLY DETECTED 17AG 32 02 18a 1727 SBF 1D, SKERND RESET SFEK INTRP EXPECTED IND 
1668 * 178: F2 87 04 i728 J DASDO2 GO TO TEST FGR UNITY CHECK 
172D 34 40 1880 3669 SBN IND2Z ,»ROGNLY SET READ ONLY INDICATGR AND 1729 * 
1731 F2 87 25 aeee 3 SETHLT GO TO SETUP FOR ERRGR HALT L7B% 35 04 18AF 1736 DASOOL SBF ENO,OPEND RESET OP END EXPECTEO INDICATOR 
1671 * 1731 
1734 3D 40 19LE 1672 CKRDY CLI DDDF ,xX*4Q# BRANCH IF L7B@ 2C OO ITBE 03 1732 DASDO2 HVC %<6 -UCKMSKO1,XR2} GET UNIT CK SASK FROM ORV AREA 
1738 F2 O1 ia 1673 JNE LOGER QTHER THAN L7ED 39 OO 1855 1733 THE SNS—1 ,¢- BRANCH IF 
173B 30 15 1925 1674 CLi DDDF+7,X*#i56 NORMAL INTERVENTION i7C1l 39 08 LBEO 1734 TSF SNS¢BIT4 UNIT CHECK oR 
173F FZ 61 13 L675 JNE LOGGER REQUIRED CONDITION 17C5 FZ 90 O8 1735 JF DASDOS NG-OP STATUS 
1676 * i736 # 
1742 4C 095 15 1as5E 1677 MYC MSGCLO.XR1LD eNROY MOVE NOT ROY MSG TO LOG 1708 Cl C4 i7ba 1737 TIG DASDOS.K*Cet BR IF INTERRUPT PENDING, 
1678 # 17CC 3A G8 BAF 1738 SBN IND: TIGERR ELSE SET ERROR INDICATOR 
1747 38 80 18B0 1679 TBN IND2 »NOTRDY BYPASS HALT IF PREVIOUS 1739 © 
1748 F2 10 1F 1680 JT LOG x NOT READY CONDITION DETECTED 1700 3A 10 ‘BAF 1740 DASD03 SBN IND,DRVERR SET ORIVE ERROR INPICATOR 
1681 = 1741 @ 
L74E 3A 80 1880 1682 SBN IND2 sNOTROBY SET NOT READY INDICATOR &#ND 1704 34 26 i8aF 1742 DASDGS SBR IND, INTERR SET ANY ERROR INDICATOR 
1752 F2 87 OF 1683 J SETHLT GO TO SETUP FOR ERROR HALT 1743 * 
_ 1684 * 1708 35 02 18B7 1744 DASDOS st DAXR2 sXR2 RESTORE INDEX REGISTER 2 
1755 COQ 87 O21= 1685 LOGER B UNPACK UNP ACK 1745 *# 
1759 O01 1759 1686 DC ILitze ERROR 1746 4 
175A 1683 1758 1687 oC AL2(ERRIDO) IDENTIFIER 170C £O 87 0000 1747 DASDIX 8B _#-4 HANDLE NEXT INTERRUPT 
175C i872 1750 1€88 Cc AL2( ERRNO) TG PRINT FIELD 1748 ® 
1689 x 
I75E 4C 09 15 1872 1690 MVC MSG(10.XR1) eERRNO L6G ERROR IDENTIFIER 
1691 * 
1763 3A 40 18AF 1692 SETHLT SBN INO»HLTSW SET ERROR HALT INDICATOR 
1767 OC 00 1053 1883 1693 MYC ERRHLT(1) ,ERRID SETUP ERROR HALT 
1694 * 
1760 3B 3F iBAF 1695 LOGX SBF IND, X°3F# RESET PROGRAM INDICATORS 
1771 BB CO OO 1696 SBF DIND(»XR2) ,CEOM+LPSW RESET DRIVE INDICATORS 
1697 + 
1774 CO 87 1013 1698 8 NXDRV GO TO TRY NEXT ORIVE 
1699 * 
ae eases ae OLMART6 OQLOCT76 PROG 10D C1F-3 DATE OSAUGTS OSNOV7S OIMART6 O1OCT76 PROG ID CiFf-3 
ae d 82 827872 571931 PAGE 17 EC NO. 827779 827827 827872 571932 PAGE 17A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247621 
4 . PAGE 18 PAGE 18A 
C1F3 3340 SYS?EM TEST MODULE -- MOD 12 Cl1F3 3340 SYSTEM TEST MODULE -- MOD 12 : 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBYSCT CUDE ADDR STMT SOURCE STATEMENT 
L750 FH&RRERAEREREEESREREEERESEAES ESSER SEE EE EREERARE GEESE R SEES ETERS RARRSERE ESE L7TBH FSESSSSHHSSSSAAS SH TSE SSS RSLSS TIARAS KSA SESSA SHASTA ISH SSIS SHA SAH ORHSRHRAEOR 
i751 * * 1787 * & 
1752 * ERROR LOG AREA AND MESSAGE CONSTANTS * 1788 + CONSTANTS AND RESERVED STORAGE AREAS * 
1753 * & 1789 * * 
L754 €FEREREEREAEREEERRESERESERAREREKEEL SRSA LES ERESKEETSERAERRERTESERSERSESEEREK 1790 FS SSSEAOSESSSESSSSTSE KEKE SSHES SERS ARE SSAOSSSSASASH SIE SSSSRLSGAAKSEHROS SSIS 
1755 * i791 * 
17E0 1756 ERRLOG EQU” * 1792 * CONSTANTS 
1757 * 1793 ® 
17EO 80 L7EO 1758 OC XL1°808 1873 0000000G00000000 187C 1794 NULLS oC 10XL1*008 
17El G8 17E1 1759 OC Lise 1876 0000 1794 
LT7E2 F3F3F4FO40D3D6C7 17E9 1760 oc CL8"°3340 LOG? 1795 * 
1761 * 1796 * 
L7EA 80 1T7EA 1762 LOG DC XL1°80° 187D 000! 187E 1797 Pl oc rL2e¢.e 
LTEB 14 17EB 1763 oC IL2°20* 187F 0002 1880 1798 P2 oc IL2°28 
LTEC C4D9C 9E5C540F140 17F5 1764 oc CLLO*ORIVE 1 - ® 1881 0004 1882 1799 P4 oc IL2°4? 
17F4 6046 1764 1883 00000005 1886 1800 P5 OC 1L4*58 
17F6 L7FF 1765 MSG DS Ct10 1887 00000008 188A 1801 P8 oC 1L4°ge 
1800 40 _ 1800 1766 DC XLL5408 1888 0014 188C 1802 P20 oc IL2°20° 
1801 18 1801 1767 oc IL1*24¢ 188D 00000100 1890 1803 P256 DC IL4*°256¢ 
1802 1819 1768 DGSNS os XL24 1891 0150 1892 1804 P349 DC IL2° 349° 
i769 * 1805 * 
L81A 80 181A 1770 LOG2 DC XLL*808 1893 FFFF 189% 1806 Nl oc IL2*-1¢ 
181B 14 181B 1771 DC IL1*°20° 1807 * 
181C C4D9C9E5C540F240 1825 1772 oc CL1O0*ORIVE 2 - * 1895 FREFFFFF 1898 1808 FFPTN DC &XL1°FF? SCAN TEST MASK 
1824 6040 1772 1899 T777FFAA 189C 1809 WCPTIN DC XL@*7777FFAAE WORST CASE TEST PATTERN 
1826 182F 1773 MSG2 DS CLIO 1810 * 
1830 40 1830 1774 oc XL1*408 189D 1811 PATRN equ) & 
1831 18 1831 1775 oc 1L1°24* 1890 18a0 1812 DS XL4 TEST PATTERN TEMPORARY STORAGE 
1832 1849 1775 DGSNS2. OS XL24 18E3 * 
1777 * 18Al 191€ 18A2 1814 OGSNS& 0 AL 2(0DDF) ADDR OF RD DIAG SENSE AREA 
184A FF 184A 1778 oc XLI°FEF®e . 1815 ¢ 
1779 * 18A3 1914 LBA% 1816 DOCR DC AL2(DOCF) INITIAL DOCR INITIALIZATIUN VALUE 
184B 050640C5D9D9D6D9 1854 1780 NOERRS DC CL10"°NO ERRORS * 1BAS I91E 18A6 1817 ODOR DC AL2(DD0F) INITIAL DOOR INITIALIZATION VALUE 
1853 £240 1780 1818 ¢ : 
1855 D506E34009C5C1C4% 185E 1781 NRDY oc CL1O®*NOT READY * ; 1B19 Camm a nn nn rn nn en nn nn en en ene eee emn 
185D £840 178i 1820 * SVP INTERFACE CONTRUL BYTES 
185F 09C5C1C440D605D3 1868 1782 NWRITE DC CLIO*READ ONLY * 1821 * 
1867 £840 1782 18AT 2009 18A8 1822 SYSRST  0C XL2?20098 SYS RESET FLAG --> X REG 
1869 €5D9D940C8D3E340 1872 1783 ERRNO OC CLIO®ERR HLT xx® 1823 * 
‘1871 ETET 1783 io 18A9 0063 LEAA 1824 SYPREQ  0C XL2*0003° SET SVP REQUEST 
1784 * 1825 « . 
. 18AB C809 18AC 1626 CCMODE OC XL2°C8092 CE MODE INDICATORS --> X REG 
1827 * 
18AD 0002 1BAE 1828 SNS23 oc XL2*0002° SENSE ERROR BYTES 
1829 * 
1830 #-----—-----~—-—-~. er nnn one nnn ae ee eee 
1831 * COMMON INDICATORS AND WORK AREAS 
1832 * 
18AF 00 18AF 1833 IND oc XL1°08 PROGRAM INDICATORS 
18B0 00 18B0 1834 IND2~ oc XLBV08 
1835 * 
1681 1882 1836 LPCNT oS XL2 ROUTINE LOOP COUNTER 
1837 * 
1883 1883 1838 ERRID DS Xil ERROR IDENTIFIER TEMP STORAGE 
1839 ¢ 
1884 1885 1840 TIMER DS XL2Z TIMER COUNT 
1841 * 
1886 18687 1842 DAXR2 os XL2 XR2 STORAGE 
1843 * 
1888 1889 184% ADRPTR DS XL2 DRIVE SELECTION POINTER 
1845 « 
18BA 1946 ADRTBL EQU) * 
18BA 18C2 1847 OS XL9 DRIVE SELECTION TABLE 
1648 * 
18C3 18C% 1849 IDDCR DS XL2 INITIAL DOCR VALUE 
18C5 18C6 1850 IDDDR DS XL2 . INITIAL DDDR VALUE 
1851 * 
18C7 18C8 1852 RDDCR DS XL2 RESIDUAL DDCR VALUE 
DATE OSAUG75 OSNOV75 OIMAR7T6 O1DCT76 PROG ID C1F-3 DATE OSAUG75 = OSNOV75 OLMAR76 O10CT76 . PROG ID CiF-3 
EC NO. 827779 = 827827 827872 $71931 PAGE 18 EC NO. 827779 827827 827872 571931 PAGE 18A 









IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C1LF3 


ERR LOC OBJECT CODE 


18C9 


18¢B8 


i8Dp5 
180F 


18El 


1i8E5 
18E6 


1BET7 
18E6& 
18E9 


L8EA 
18EB 


18EC 


L&FO 
18F1 
i8F3 
18F5 
18F6 
18F7 
L8F9 


18FA 


18FC 
i8FD 


L8FE 
18FF 
1900 


1901 
1902 


1903 


1907 
2908 
190A 
190C 
1900 
190E 
1910 


DATE 
EC NO. 





32340 SYSTEM TEST MODULE 


o6 
Co 
08 


80 
40 


I7EA 


09 


cs 


40 
20 


OSAUGTS 
827779 


ADOR 
18CA 


18CB 
18D4 


i805 
18DE 


18E9 


18E} 
i8E4 


L8E5 


18E5 
18E5 
LSE6 
18E7 
L8E8 
L8E9 


I8EA 
18E5 


18EF 


18FO 
18F2 
18F4 
18F5 
18F6 
13F8 
18F9 


18FB 


LBFC 
L8FC 
16FD 
18FE 


L8FF 
1906 


1901 


4902 


1906 


L907 


OSROV7T 
827827 


1909 
1908 
L30C 
196D 
19GF 
1$10 


5 


-——_ 


STMT. 


1853 
1854 
1855 
1856 
8857 
1858 
1859 
138690 
1861 
1862 
1863 
1864 
1665 
1866 
1867 
1868 
1869 
1870 
1872 
1872 
1873 
1874 
1875 
1878 
1877 
1878 
1879 
1880 
188i 
1882 
1883 
1884 
1885 
i886 
1887 
18386 
1889 
1830 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
2900 
190i 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
i910 
191i 
1912 
1913 
1914 
i915 
1916 
1917 
1918 
1919 
1920 


MOD 12 
SGURCE 
RODDR 
* 


IDDCF 
EDOCEN 
* 
RODCF 
RDDCFN 
F 3 


SNS 

* 
WORK 
WORKN 
* 


DRY WK 


DRVWKL 
* 

DIND 

+ 


DRVADR 
x 


SK MSK 
UCKMSK 
SKKST 
x 

Q 

R 

* 

PA 

= 

FF 

cc 

HH 

RR 

KL 


DRVWK2Z 
x 


DIND2 
* 


DRVAD2 
* 


SKMSK2 
UCKMS2 
SKRST2 
* 

Q2 

RZ 

* 

PA2 

* 

FF2 
CC2 
HH2 
RR2 
KL2 
DL2 


NN2 
* 


GCIMART6 
827872 


PART NG. 4247621 
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RESIDUAL DDDR VALUE 


INITIAL DDCF 
RESIDUAL DODCF 


3340 ADAPTER SENSE INFO 


GENERAL PURPOSE 
WORK AKEA 


START OF ORV DEPENDENT WGRK AREAS 


DRIVE 1 INDICATORS AND WORK AREAS 


START OF ORIVE 1 WORK AREA 
DRIVE DEPENDENT INDICATORS 
DRIVE ADDRESS 


SEEK COMPLETE INTERRUPT MASK 
UNIT CHECK MASK 
SEEK COMPLETE IATERRUPT RESET R BYTE 


$10 Q BYTE 
SIG R BYTE 


CURRENT PHYSICAL ACCESS POSITION 


FLAG VALUE 
CYLINDER ADDRESS 
HEAD ADDRESS 
RECORD NUMBER 

KEY LENGTH 

DATA LENGTH 
NUMBER OF RECORDS 


LOG AREA ADDRESS 


ORIVE 2 ENDICATGORS AND WORK AREAS 


STATEMENT 
vS XL2 
EQU * 
DS XLiO 
EQU * 
DS XL10 
DS Xi2 
EQU * 
DS XL4 
EQU * 
EQU * 
oc XL1*GO* 
DC XLL*CO® 
Oc XL1°08* 
OC XL1*8G? 
DC KiL1°4o% 
DS XLi 
DS XL1 
DS XL4 
DS XLi 
DS XL2 
DS XL2 
OS XL 
BS XL 
DS XiL2 
DS Xi2 
OC AL2{LO0G) 
EQU * 
DC XLi*oo# 
pe XLI*Csé 
OC XL1*04* 
DC XL1*40° 
oC XL1° 20° 
OS Ril 
DS ALi 
OSs XL4 
DS XL1 
DS XL2 
DS XL2 
DS Mil 
OS Xl 
BS XiL2 
DS Xul 

SLOCT 74 
S?7IS31 


START OF DRIVE 2 WORK AREA 
DRIVE DEPENDENT INDICATORS 
DRIVE ADDRESS 


SEEK COMPLETE INTERRUPT MASK 
UNIT CHECK MASK 
SEEK COMPLETE INTERRUPT RESET R RYTE 


$10 Q BYTE 
S1G R BYTE 


CURRENT PHYSICAL ACCESS POSITION 


FLAG VALUE 
CYLINDER ADDRESS 
HEAD ADDRESS 
RECGRE NUMBER 

KEY LENGTH 

DATA LENGTH 
NUMBER GF RECORDS 


PROG ID 
PAGE 


us 


~ on 
v4 
aN) 


JEM MAINTENANCE DIAGNOSTIC PROGRAM 


CiF3 


ERR LOC OBJECT CODE 


1911 1814 


2914 


DATE 
EC NO. 


O5AUG75 
827779 


ADDR 


i9l2 


1914 
2915 


RGIE 
1A2\ 


OSNOV7S 


827827 


3340 SYSTEM TEST MODULE — 


MOO 12 


Bn me nn me ene ee meen eee ee mee eee eee oweeeecnenn 


STMT SOURCE STATEMENT 

1921 LOG2a OC AL2(LOG2) 
1922 * 

1923 

1924 * , 

1925 ORG #2250 
1926 * 

i927 

1926 # 

1929 DOCEF EQU * 

1930 oS XLEG 
1931 * 

1932 DDDF EQU & 

1933 os Z2oOXLi 
1°34 & 

GLHARTS O1OCT7sS 

27872 571933 


PART NOw 4247621 
PAGE 19A 
LGG AREA ADDRESS 
**¢ PROGRAM MAINTENANCE NOTE *e2 03 
DDCF ANDO DODF MUST START ; 
ON EVEN ADDRESS BOUNDARY 
DOCE AREA : 
DDDF AREA 
PROG ID CLE-3 


PAGE teh 
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PAGE 20 PAGE 20a 
C1F3 3340 SYSTEM TEST MODULE -~ MOD 12 C1F3 3340 SYSTEM TEST MODULE ~~ MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1936 RREREKERERA CLARKE SCHERER ESARKE EAL EACKK SK SEERA SK KKEKKAKKAARRTRRKAHEKER RE FFFE 2004 END 
1937 * € 
1938 * SYMBOL DEFINITIONS & 
1939 * P 
1940 REKEKSKARSESEAKAKAS ARK KLEKSKEKSRECS SEK SEKSRKAKS EAE AK SKS RASA AKRKRKKEK GE 
1941 + 
1942 * LOCAL STORE REGISTERS 
1943 % 
0001 1944 xRl EQU = =xX*O1? INDEX REGISTER 1 
0002 1945 xR2 EQU  XxtQ28 INDEX REGISTER 2 
194% * 
OCO8 1947 ARR EQU = X*.-088 CURRENT LEVEL ADDRESS RECALL REG 
1948 * 
YD Rene me ae cate ce tre ac re an a eee on cae ttre ae SESTEAE we wm ae an em cere ne ee oe ate me oe ee a cae ae ee ere nce ee ae os ae 
1950 # MESSAGE / HALT LOENTIFIERS 
1951 # 
C100 1952 HLTXX EQU = X* C1008 COMMON 3340 ERROR HALT 
1953 * 
1956 fewer ee ee 
1955 # COMMON PROGRAM INDICATORS (IND) 03 
1956 * 
0080 1957 BGNSH EQU = «xx* 808 PROGRAM RESTART INDICATOR 
0040 1958 HLTSW EQU = K2408 ERROR HALT AFTER TESTING ALL ORIVES 
0020 1959 INTERR EQU  x*20° ERROR DETECTED IN 3340 INTERRUPT RTN 
0010 1960 DRVERR EQU x*10° UNIT CHECK DETECTED {N INTRP RIN 
0008 1961 TIGERR EQU x?OB8 TIO INTRP PENDING FAILED 
0004 1962 OPEND EQU = X*048 OP END INTERRUPT EXPECTED 
0002 1963 SKEND EQU = -X?028 SEEK COMPLETE INTERRUPT EXPECTED 
0001 1964 SNSAVL EQU  x?01? READ SENSE DATA AVAILABLE 
1965 + 
1966 B-~-+-~-~~— ~~ eee 03 
1967 * COMMON PROGRAM ENDICATORS (CIND2} 03 
1968 * 03 . 
0080 1969 NOTRDY EQU  xXx*805 NOT READY DRIVE DETECTED 
0040 1970 RDONLY EQU = X40! READ ONLY DATA MODULE DETECTED 
1971 * 
UQT2 Bmw nnn ee a en ee ee en eee 
1973 # DRIVE DEPENDENT INDICATORS (DIND} 
1974 * 
0080 1975 CEDM EQU = X* B08 CE DATA MODULE MOUNTED 
0040 1976 LPSW EQU xt 408 DRIVE LOOP INDICATOR 
0008 1977 NOwR EQU = X*08" DRIVE WRITE INHIBIT INDICATOR 02 
0003 1978 SW EQU _xFQle GENERAL PURPOSE PROGRAM INDICATOR 
1979 # 
1980 €—————— ~~~ + ne 
1981 * BIT POSITION SYMBOLS 
1982 + 
0040 1983 8iTi EQU =X 8408 
0010 1984 8173 EQU = X*108¢ 
0008 1985 BIT4 EQU = x* 085 
0004 1986 BITS EQU X04 
0002 1987 BIT6 EQU = xX# 02" 
0001 1988 BIT7 EQU xX" O18 
: 1989 * 
1990 tanner ee 
1991 # DCP SECTION REFERENCE. TABLE 
1992 x 
0212 1993 TEST Euwu xX*#02128 CHECK FOR USER INTERVENTION 
0216 1994 LINK EQU  X*0216° TERMINATE SECTION 
O21E 1995 UNPACK EQU x*O21E° UNPACK DATA - HEX TO EBCDIC 
0222 1996 HALT £QU =X #02223 HALT AND DISPLAY HALT IDENTIFIER 
1997 * 
1998 t-—— nn en ne ne ee ee nn enn eee 
1999 # OTHER REFERENCES EXTERNAL TO THIS SECTION 
2000 * : 
OAO1 2001 IDADR EQU = X*OA01* SECTION IDENTIFIER ADDRESS 
OAK 2002 ENTRY ECU xX*OAOAt SUPERVISOR ENTRY 
2003 * 
DATE OSAUGT75 OSNOV7S5 O1LMART6 O10CTT6 PROG ID CLF-3 DATE O5AUGTS OSNOVTS5 OLMART6 G10CT76 PROG 1D CIF<3 
EC 10. 827779 827827 827872 571631 PAGE 20 EC NO. 827779 827827 827872 571931 . PAGE 20h 
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C1F3 3340 SYSTEM TEST MODULE -- MOD 12 


SYMBOL 


ADRPTR 
ADRT BL 
ARR 


BEGIN 


BGNSW 
8GNX 
BGNO] 
BGNG2 
BGNO6 
BiTl 
BITS 
BETS 
BITS 
BITé 
BIT? 
BRANCH 
cc 

cl2 
CEDM 
CEMODE 
CKRDY 
CLF 
DASDI 
BASDIX 
NAS DOO 
BASDOL 
DASDO2 
DAS O03 
DASD004 
BPASDOS5 
DAXR2 
DOCF 
DDER 
DDDF 


DODR 
DGSNS 
OGSNS&3 
DGSNS2 
DIND 


DIND2 
DL 


DL2 

ORVADR 
ORVAD2 
DRVERR 
DRVWK 
ORVWK1 
DRVWK 2 
ENTRY 
ERRHLT 
ERRID 


ERRLOC 
ERRND 

ERRXX 

ERRXXA 
ERRXXB 
ERRXXC 
ERRXXD 


DATE 
EC NG. 





T 


Oy > 


> 


DPPPrPPPrypPPphrrrprpPrPrOrrp ke POAAAANO RP > PPO 


Pb 


PPOAYr PrPOArP br b 


>>rP PrP b> PrP 


LEN VALUE 
O02 1889 
O01 188A 
001 0008 
004 OFS6A 
001 0080 
004 l100F 
003 OFB83 
004 OFDC 
003 OFFE 
001 0040 
OOL 0010 
001 9008 
O01 G004 
OOr 0062 
ooe1 0001 
C04 1485 
O62 LBF2 
oc2 1909 
Ooi oC&O 
902 I18AC 
004 1734 
001 o00cd 
004 1778 
604 L7DC 
CGO4 1780 
G04 1784 
005 17B8 
004 1700 
004 17D4 
004 17D8 
O02 18B7 
GOL 1914 
002 18A4 
OOL ISIE 
002 Il18A6 
024 1819 
Q02 18A2 
024 1849 
GOL 18E5 
001 18FC 
O02 i18F8 
002 i190F 
OOl 18€6 
O0O1l i8FD 
001 0610 
QOL 1865 
OOL 18E5 
001 18FC 
001 O40A 
6092 1053 
OOk 18B3 
OO! ILTEO 
010 1872 
003 1645 
004 165C 
O05 674A 
006 IGAB 
004 i16Cs 
O5A8UGT5S 
827779 


DEFN 


1844 
1846 
1947 


9719 


1957 
0780 
9728 
0756 
O772 
1983 
1984 
1985 
1986 
1987 
1988 
1314 
1886 
1914 
1975 
1826 
1672 
0007 
1707 
L747 
1710 
1736 
1732 
1746 
1742 
1744 
1842 
1929 
1816 
1932 


1817 
1768 
1314 
1776 
1872 


1900 
1890 


1918 
1874 
1902 
1960 
1866 
1870 
1898 
2062 
0812 
1838 


1755 
1783 
1573 
1583 
1593 
1é61l 
1621 


OSNOV7TS 
327827 


REFERENCES 

O775* O790 

0758 O774 

C719 0837 

1l1i2 1129 

0041 0069 

C625 O672 

0037 0746 

O0726* 0824 

1638 

O747 

0459 0469 

163G 1634 

1734 

1295 1630 

1075 1679 

0475 6508 

1256 1261% 

O885# 

0856 1077 

0737 

1660 81662 

1358 

170 7% 

1720 

1728 

1735 

17il3 6i725 

1737 

L7O8* 1744 

1816 

C?43 081% 

0421 0422 

O5141% 0526 

1475 1475 

0744 06820 

0752* 0753 

1598 1601 

O754*% 

0228 06278 

L696% 

0135 0243 

1L44 1173 

1270) «1272 

1627 1740 

0C26 

OT46 

OF66 

C74i 0788 

16932 

1365* 1391* 

14948 1501% 

1567% 1687 

60z1 

1688 169C 

1364 1411 

iS7Té 1579 

L587 

1613 

159% 1596 
OLMARTE 
827872 


CROSS-REFERENCE 


0798* 0803* 1715 
0802 

0849 0903 0913 
1159 1188 1198 
0099 0128 0166 
0756 

0520 0541 0591 
1718 

C523 0547 0548 
1696 
0422* 0423% 0450 
0531 0544 05794 
1477# 1479% 14808 
0753* 0754 1651% 
0308 0636 O0764* 
0329 0926* 0549 
1273 1593 

1335 3350 1361 
1397* 1410* 1416# 
1507% 1513# 15194 
1693 

1447 1496 1502 
1602 3612 
GIGETTG 

STLOTI 


0939 0967 

1208 1230 

0217 O271 

0604 

0613 1402 

0502* 0503 

0580 6580*% 
1657 1659 

1652 652% 
O770% C778? 
0956 O979* 
1609 


1422* 1428% 1442* 1452% 1458 1466* 


0988 1025 
1240 1254 
0301 0361 
1583 1594 


05603* 0504% 
O581* 0582 


1661 L672 

1657% 

0822 823% 
1603 1010 


1055 
1707 
0408 


1618 


0505 


0594 


1674 


0856 


1030 


PART NO. 4247621 
PAGE 21 
1067 1098 

0489 0566 

i712 

0506* C51} 

C607 1474% 

1834 16817 


LC77* 108i 


1165* 4119 


1472% 


1525* 1531* 15374 1543 1549 1555* 156)% 


i508 1514 


2320 61526 


155€ 


PROG iD Cif-35 
PAGE 23 
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C1LF3 


SYMBOL 


ERROA 
ERROC 
ERROE 
ERROF 
ERROFA 
ERRO] 
ERRQ2 
ERRO3 
ERRO3ZA 
ERROS 
ERROG 
ERRO?T 
ERROS 
ERROBA 
ERRC&B 
ERROSC 
ERROG 
ERRO9B 
ERRIA 
ERRIC 
ERRLIE 
FERRIC 
ERRLI 
ERR12 
ERR13 
ERR14 
ERRIS 
ERRiG 
ERR17 
ERRIE 


ERR1O 
FF 
FFPTN 
FF2 
HALT 
HH 
HH2 
HLTS# 
HLTXX 
IDADR 
IDOCF 
1DDCFN 
IDDCR 
IDDDR 


iNO 


IND2 
INTERR 
JmMe 

KL 

KL2 
LINK 
LIO 
LOG 
LOGea 
LOGER 
LOGERR 
LOGX 
LOG2 
LOGZa 
Loop 


DATE 


3340 SYSTEM TEST MODULE 


PrP POON RP EPO WP bP » & rPPPpPpyYPrPpyrPYrprprprrrpprppph> Pp PhP Pb mp bb bP «t 


PPP Pre hb PPO he bP OP 


LEN VALUE 
004 1594 
004 159C 
004 I5A9 
004 15681 
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IBM MAINTENANCE DIAGNGSTIC PROGRAM PART NG. 4247621 
PAGE 22 PAGE 224 
C1F3 3340 SYSTEM TEST MODULE -- MOD 12: C1F3 3340 SYSTEM TEST MODULE -— MOD 12 
CROSS-REFERENCE CROSS~REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES SYMBOL Y LEN VALUE DEFN REFERENCES 
LOOPX A 004 106E 0826 0722* ROSNSB A 003 1280 1079 1076 
LPCNT A 002 1882 1836 0039* 0057* 0215* O0261* 9487* 0553* 0670* 0685 0704% 0705 RDSNSX & 004 1285 1093 1055® 1067# 
LPSW C001 0640 1976 0778 0822 0823 1696 ROVKD A 004 1218 1025 0387 0654 
MSG A 010 17FF 1765 0749%* 1664* 1677% 1690% RDVKDX A 004 125C 1050 1025* 1032 1048*% 
MSG2 A010 182F 1773 0750* RECAL A 004 1072 0837 0045 U073 0103 0132 0170 0221 ©6275 0305 0365 0412 0493 0570 
NN A001 18F9 1891 0842* 0857* 0918% 0945* 0972* 0995* 0999 1011* 1034* 1038 1103* 1137* 0629 0676 
1141) 1142* 1166 1170 LI7L* 1215% 1276 1279 RR A 001] 18F5 1888 0944* 0952*% 0975* 0994% 0999% 1006 106332 1038% 1042 11368 11412 1165 
NN2 . AOOl 1910 1919 11L70* 1176% 1214% 
NOERRS A 010 1854 1780 0749 0750 RR2 A001 190C 1916 
NOTRDY C 001 0080 1969 1679 1682 RTN A GOl 0CAO3 0018 
NOWR C OO1 C008 1977 0228 0278 0208 0636 1081 RTNPFC A 001 OAOD 0033 0020 
NRDY AO1lO0 185€ 1781 1677 ROA A 006 OCC9 0405 
NULLS A O01 187C 1794 0506 0667 0842 0867 0918 0972 1030 1103 1265 1329 1344 1430 ROAA A 004 OCDB 0412 
1578 1606 ROAB A 004 OCEA 0419 0409 
NWRITE A 010 1868 1782 1664 ROABL A 004 O0D38 0459 0456 
NXORV A 003 1013 0785 0055 0083 0112 0150 0201 0229 0259 0279 0290 0309 0345 0391 ROAB2 A 004 OD4E 0469 0466 
0472 0551 0610 0637 0658 0698 0862 1698 ROAC A 006. OOSA 0474 0410 
NXDRVX A 004 1054 0814 0723% 0807 ROB A 00% OD6C 0487 
NXDOL A 004 1020 0790 ROBA A 004 OD78 0493 
NXDO02 A004 1038 0802 0793 ROBB & 004 OD87 v500 0490 0549 
Nl A 002 1894 1806 1011 ROBB1l A 004 ODB4 0513 0509 
QOPEND C 001 0004 1962 1298 1303 1432 1491 1719 1730 ROBB2 A 004 ODC2 9520 0517 
PA A 004 18EF 1883 0896* 0922 1104 ROBB3 A 006 ODDF 0531 0524 
PATRN AOOl 189D 1811 0405% 0406* 0423 0474 0474%* 0475* 0477 0563* 0564* 0581 0612 0612* ROBES A 004 ODED 0534 0529 
0613* 0615 ROBBS A 004 ODFT 0541 0538 
PA2 A 004 1906 1911 ROBC A 006 O6€19 0553 0491 
PFC A 002 OA07 0020 ROC A 006 0€23 0563 
PID A 002 OAOL 0016 0669 0702 0740 O787 1258 1310 1334 1349 1360 1608 ROCA A 00& O&€35 0570 
PL A 002 187E 1797 0057 0085 0114 0152 0203 0261 0347 0393 0553 O70%4 0734 0870 ROCB A 0046 O&€44 0577 0567 
0981 1434 1611 ROCB1 A 004 O£6A 0591 0588 
P2 A 002 1880 1798 1018 1048 1150 1181 1222 1337 1352 ROCB2 A 004 GE8A 0604 0601 
P20 A 002 188C 1802 0879 0882 ROCC A 006 OEAO 0612 0568 
P256 A C04 1890 1803 0185 0243 0329 0379 0385 ROD A 00& O€B2 0625 
P349 A O02 1892 1804 0689 RODA A 004 OEBA 0629 
P4 A 002 1882 1799 0194 0252 0338 ROOCB A 003 OEC9 0636 0626 
PS A 004 1886 1800 . ROE A 006 OE€F3 0667 0627 
P8 A 004 188A 1801 1105 ROEA A 00% OFO9 0676 
Q A OOL I18EA 1880 0839% 0864* 0905* 0915* 0941* 0969# 0990* 1027* 1057 1069% 1100% 1114% ROEAL A&A 002 OF17 0681 0667* 0686 O700% 
1132% 1161% 1190* 1200* 1210# 1232* 1242* 1295 1300 ROEB A004 OFIC 0685 0673 
Q2 A 001 1901 1908 - ROEBL A 005 OF26 0687 0690 
R A OOl 18EB 1881 0840* 0865* 0906* 0916* 0942* 0970* 0991* 1028* 1058* 1070* 1101% 1115% ROEB2 A 002 OF3F 0694 0685* 0687% 0668* 0689 0700 
1133% 1162 1191* 1201® 1211* 1233% 1243* 1269 - ROEC A 006 OF48 0700 0674 
‘RDCKD A 004 1191 06967 0141 0179 0182 0233 0240 0319 0326 0372 0643 ROL A 004 OAL5S 0039 0708 . 
RDOCF A OC1l 18D5 1858 0194* 0252* 0338* 0922 0949 0279 1001 1003 1040 1042 1119 1144 RO1A A 004 OA25 0047 0042 
1173 RO1B) =A 006 OA3D 0057 0043 
RDDCFN A O10 ISDE 1859 0893 1090 1367* : ROZ A 004 OA47 0067 
RDDCR A 002 18CB 1852 1286* 1341%* 1369 ROZA fA 004 OA53 0073 0070 
RDDDR A O02 18CA 1853 0890 0931 0959 1015 1045 1087 1122 1147 1178 #41219 1287% 1289 RO2ZAl A 001 0A63 0078 0067* 0085* 0087 
1292 1342* RO2B A 006 OAG6GE 0085 0071 
ROHAE A 004 110F 0903 0075 0081 0110 0139 O177 0231 0285 0315 0419 0500 0577 0639 ROS A 004 OATC 0097 
7.8 0683 0696 ; : RO3A A 004 OA88S. 0103 0100 oa 
RDHAQ A004 111C 0913 0147 0288 RO3A1L. A GO1 OA94 0107 OO97T* O114% 0116 
RDHADA A 005 1126 0918 0908 RO3B A 006 OASF 0114 0101 
RDHADX A 004 1151 0934 0903* 0913 ROG A 004 OAAD 0126 
ROKD A 004 1188 0988 RO4A A 004 OABI 0132 
ROKOA A004 11€5 0993 1193 RO4¢B A 004% OAC1 0135 0129 
ROKDB A 003 LIF1 1099 1012 ROS4B1L A OOL OACS 0136 O126* 0152* 0154 
ROKOX A 004 1214 1020 0988* 0993 1018* 1188 RO4C. A O06 OAES 06152 0130 
ROLOG A 004 1260 1055 0048 0053. ROS A 004 OAF3 0164 
RDONLY C 001 0040 1970 1666 1669 ROSA A 004 OAFF 0170 
ROROG A 004 1155 0939 0148 RO5B A 004 O807 02173 0167 
RBROGA A 005 1169 0949 0983 ROSELL A COL. O8O0B 0174 0164* 0203% 0205 
ROROGX A004 118D 0962 0939* 0967% 0974 0981 RO5B2 A 004 OBOE 0177 0199 
RDSNS A 004 1272 1067 0047 0052 0074 0104 0133 O171 0222 0276 0306 0366 0413 0494 RO583 A 005 0829 0190 0195 
0571 0630 0677 ROSC A 006 OB4F 0203 0168 
RDSNSA A 004 1296 1083 1062 1080 ROG A 00% O85D 6215 
DATE 05 AUG75 OSNOV7S GIMAR7T6 = ONE T76 PROG ID C1F-3 ~~ DATE OSAUSTS OSNOV75 O1MART6 O1LOCT76 PROG ID  ——s_- CLF-3 
EC NO. 827779 827827 827872 571931 PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 4247621 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOe #247621 
PAGE 23 PAGE 23a 
C1F3 3340 SYSTEM TEST MODULE <-- MOD 12 C1F3 3340 SYSTEM TEST MODULE <~—- MOD 12 
CROSS-REFERENCE . * CROSS-REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES SYMBOL T LEN VALUE DESN REFERENCES 
RO6A A 004 OB69 0221 WRHAO A 004 1289 1098 0287 
RO6B & 003 OB78 0228 0218 0257 WRHAOA A 005 12C3 1103 
RO6B1 A 004 0683 0233 WRKD & 004 137C 1188 0381 
RO6B2 A 005 OBAO 0248 0253 WRREP & 004 1338 1159 0650 
RO6C A 006 OBC6 0261 0219 : WRREPX A 004 1378 1183 L159* 1164 1181% 
ROT A 004 OBDO 0271 WRROO A 004 1204 1112 0317 0641 
ROTA A 003 OBEO 0278 0272 WRROGA A 004 12DE 21117 1107 
ROB A 004 OBFE 0299 0273 WRROGX A 004 12F5 1125 10987 1112# 
ROBA & 004 OCOA 0305 XEQ & 004 13€2 1254 0888 6920 0947 0977 9997 1036 1060 1972 1117 #%43139 1168 L217 
RO8B A003 OC12 0308 0302 XEGX A 004 152A 1374 12548 
RO8BlL A COL OC1D 0312 0299% 0347* 0349 XEQOO A 003 i409 1267 1259 
RO8B2 A 004 O0C28 0319 0343 XEQOL A 004 1497 1323 1316 
RO8B3 A 005 0C45 0334 0339 XEQ02 4006 14A8 1329 1321 1324 
RO8C A 066 OC6B 6347 0303 XEQOZ2A A 004 14AE 1331 1339 
ROO A 004 0C79 0359 XEQO3 A 006 14BF 1337 1332 
ROSA A 004 O0C85 0365 XEQOZA A 00% 14DB 1346 1356 
RO9B A604 OCB8D 0368 0362 XEQ04 A G06 14EC 1352 1347 
ROOBL A O01 0C91 06369 0359* 0393 0395 XEQO4A A 004 I14FE 1358 1354 
ROSC A O06 OCBB 0393 0363 xE0CS5 A 006 1502 1366 
R2 A 001 1962 i909 XR} C OG1 O00L 1944 GIG8*® GELGO O193 9192* 0246* 0243 0251 02514 9332* 6234 0337 0337% 
SCANE A 004 138A 1198 0425 0513 G669* 0670 0585" 0687 O762* 0703 O720% 8722 C723 S725 G725% 0726 
SCANH A 004 1398 1208 0431 0452 0584 0733* O0734% O758* 0761 G762 O762* S767 0768 O768% OF7Z O774% OFT5 
SCANHA A 004 13A2 1213 1203 1235 1245 O776 O790* 6792 C795 90797 OT97* 0798 0802% 0803 085% 0850* 6852 
SCANHX A G04 13C2 1224 2198* 1208% 1213 1222*% 123G* 1240% 0861 C869 O875 O875* C876 O878* 088i O881% O8B5 GSZ25* 0926 0928 
SCNRE A 004 13C6 1230 0437 0534 0928* 0929 C6955* 0955% 0955* C957 O974% OF75 0993 099% 0995 1008+ 
SCHRH A O04 1304 1246 0444 0462 0597 iG09* 1O1LQ# 1614 1032® 1633 1034 074% 1075 1079 1083 1084 1084% 
SEEK A 004 1684 0849 0977 CLO& 0135 O173 0224 OZ281 O31) 0268 O415 0496 6573 9632 1085 1135% 1135 2237 11668 2165 2166 1233% 1214 1215 ic?a* 1279 
0679 0692 1366% 1367 1647 1649% 1651 1652 1652 1657 1664 1677 1690 
SEEKA A S04 lOEF 0888 0844 XR2 C 001 0902 1945 0026 GiBS5 C225 0243 6278 O308 0329 0636 769% 0762 O764 O766e 
SEEKX & 004 110B 0898 0637* 0&76% O76? O770 G776* OFT&S 795% 0804s 0822 0823 068329 8466 G&42 0856 
SETHLT & 004 1763 1692 1670 1683 CB64 O865 0867 0885 ©0886 6896 0896 0905 0906 0915 0916 9918 
SIO A 003 1474 1306 1269* 12708 0922 0925 1941 0942 0944 0766 9945 0952 6955 0956 0969 C9570 
SIOSNS A 093 1698 i604 1593* 15949 0972 6975 G979 G99G G89L 20994 0995 05999 0999 1003 1068 1009 
SKEND € 601 0002 1963 1304 1318 1323 1432 if24 142? 10190 10ii 1027 1028 $030 1033 1036 10938 i038 1042 1057 1058 
SKMSK A 001 18ET 1876 1722 16069 1070 1077 #1021 4212300 1502 21103 1104 104 2105 2214 LLiS 
SKMSKC A 001 I8FE 1904 LiE9 1132 211333 2136 U23F 114% 2342 2142 1144 1162 2162 1165 
SKRST A COOL 18€9 1878 1165 1170 i176 21171 #1173 #1176 1190 1192 12060 1201 1216 12121 
SKRST2 4 OO1L 1900 1906 1214 13215 21232 1233 1242 1242 1269 1270 1272 #1273 #1276 1279 
SKOl A O03 19A6 0864 0857 1295 13CO0 12589 1593 1649 1696 1708 A715* 1716 i716% 1722 1732 
SKO2 A OOS 1081 0869 087} 17448 
SKO3 A O06 1001 0879 0883 
SKO4 A 003 10E7 0885 0380 . JUTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 6 | 
SNS A 002 I8EO 1861 0459 0469 0520 0541 0591 0604 1265% 1400* *402 1460 1578 1581% 
1583 1590 1630 1631 1634 1625 i710* 1712 1718 41723 #1733 )«21734 | 
SNSAVL C 001 0001 1964 1482 1615 1654 ; ; 
SNS23. A 002 18AE 1828 1478 2 
SVPREQ A 002 18AA 1824 0731 0738 . | 
SW € 001 0001 1978 
SYSRST A 002 18A8 1822 0730 | 
TEST C 0021 0212 1993 1263 : 
TIMER A O02 1885 1840 1329% 1331 1337% 1344* 1346 1352* 14307 1434 1606* 1611*% 
te TIO A 004 1431 1281 . : 
TIOBSY A 004 1489 1316 1273* 1274* 1311 1313 1326 | 
TIGERR C COL 0008 1961 1624 1738 
TIOROY A 004 1470 1306 1272* 1296 1391 1586 
UCKMSK A OOL 1868 1877 1589 1732 
UCKMS2 A 001 L8FF 1905 
UDTO A O03 OAOC 0023 
UNPACK C O01 O2Z1E 1995 1685 
WOPTN A004 189C 1809 0190 0248 0334 0435 0504 0505 0544 0563 6607 
WORK A OOL 18£1 1863 0852* 0854* 0859*% 0869* O0870* 0873 0873* 0879 O0882* 0886 
WORKN A 00% 18€4 1864 0703* 0765 0719* C720 9849% 0850 0929* 0931 0957% 0959 1014* 1015 
1085* 1087 1460* 1477 1600* 1601 16817* 1618 
WRCKD A 004 12F9 1130 0236 0322 0375 0646 
WRCKDA A 004 1303 1135 1154 
WRCKDX A 004 1333 1152 1130 1135 1150% 
DATE OSAUG75 C5NOVTS OLMAR 76 C1LOCT76 PROG i0 CiR-2 DATE O5AUG75 OSNOVTS OLMART6 O1LOCT76 PROG FD CiF-3 
EC NO. 827779 827827 827872 571931 PAGE 23 C NG. 827779 827827 827672 571931 PAGE 238 
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PART NOW 12M MAINTENANCE DIAGNOSTIC PROGRAM PART NOo 424762) 
PAGE 24 Z PAGE 24h 
C1F3 3340 SYSTEM TEST MOOULE -- mod 12 C13 3340 SYSTEM TEST MODULE -- MOD 12 
OBJECT CARD LISTING OBJECT CARD LISTING 
: a Ct 1 THROUGH 16 CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 CL 65 THRGUSH 80 CL 81 THROUGH 96 
THE CHARACTER INDICATES A BLANK COLUMN ANO THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 
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90 
30 
90 
87 


10DA 
C1e4s 


co 


87 


ClE4 


co 


39 
F2 
3C 


3c 
3C 


F2 


39 
F2 


3C 
3c 
ac 


F2 
co 


46 
2E 


87 


10 
90 


Fl 
co 
80 
b7 


20 
90 


F2 
c& 
40 
87 


87 


1108 
ClE2 


co 87 
ClE2 


co 87 


oc 


oo 


3A O01 


Oc 80 


ocs8o 
ococ 


02 
ocso 


0233 
08 


OA19 
104D 


0208 
14 


O21A 


0222 


0855 


0208 
OF 


13F3 
L3F4 
13F5 
2a 


6208 
OF 


13F3 
13F4 
13F5 
14 


O21A 


0222 


0855 


O8C3 
Osc 3 


23JUL76 


§71931 


01 


13F4 


OB60 
OB61 
OB63 
OB65 


O086B 


OBAO 
OBAl 
OBA3 
OBA5 


OBAB 


3340 INITIALIZER - MOD 12 
ADOR STMT 


154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
i773 
i74 
175 
176 
i77 
178 


SOURCE STATEMENT 


PART NO. 5132786 
PAGE 3 


EREKKEESKSESKEKRKSKSAEKAKSERAKS SKS ESKHS ERAS SKS SAKES RHESESKEKAKESHE SE GRESEAEKER 


x 
* 
x 


INITIALIZATION AND TRACK ADVANCE SUBROUTINE * 


* 


* 


SHELHKERESEKAK EERE LSE SRELEAESESE SS RKE SEREREESSSEKAKESLKKKRESAKKES LEAKE ERHRE 


* 
BEGIN 
* 


BGNOL 


179 . 


180 
18} 
182 
183 
184 
185 
186 
187 
186 
189 
190 
i9l 
192 
193 
194 
igs 
196 
197 
198 
1399 
200 
201 
262 
263 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 


BGNO2 


BGNO3 


BGNO6 


ST 


L 
MVC 


LA 
ST 


Cil 
JE 


TBN 
BF 


TSF 
JF 


8 

DC 
OC 
BC 
oC 


B 
oC 


B 


TBF 
JF 


AVI 
MMVI 
MVI 


TEE 
JF 


AYE 
MV I 
YI 


BGNX+43 ARR 


BGNX+3,XR1 
NXTRCX+391(2,XR1) 


205XR1) ¢XR1 
BGNX43,XR1 


UTAB+1.X* 80° 
BGNOL 


COM, MPLFLG 
MPL . 


SBYTE3,SSWLA+SSWIB 
BGNO2 


PRINT 

XLL°465 
AL1(MSGO2N-MSG02) 
AL2(MSGO2N) 

AL2 CHLTES ) 


HALT 
ALZ(HLTES)} 


BGNOL 


SBYTE3,SSW1B 
BGNO3 


DRV»Ct1® 
DRVADR,X*COF 
UCKMSK.x* 808 


BGNO7 


SBYTE3,SSWIA 
BGNOG 


ORV .C*22 
ORVADR,X*CB* 
UCKMSK 9» X*40° | 


BENOT 


PRINT 

XL2°468 

AL 1(M§SGO3N-MSG03) 
AL2 (4SGO03N) 
ALZ(HLTE2) 


HALT 
AL2 (HLTE2) 


BGNO1 


SAVE RETURN ADDRESS 


SET UP *NXTRC® SUBROUTINE 
RETURN ADDRESS 


SET UP *BEGIN® SUBROUTINE 
RETURN ADDRESS 


JUMP ITF LOADING 
FROM DISK 


LGAOD MICROCODE 
IF REQUIRED 


BRANCH IF ANY 
DRIVE SELECTED 


PRINT MESSAGE 
*SELECT DRIVE® 


UNCONDITIONAL HALT £4 


GO TO CHECK SENSE SWS AGAIN 


JUMP EF DRIVE 1 
NOT SELECTED 


SETUP DRIVE NUMBER 
SETUP ORIVE ADDRESS 
SETUP UNIT CHECK MASK 
GO TO CHECK DRIVE READY 


JUMP IF DRIVE 2 
NOT SELECTED 


SETUP DRIVE NUMBER 
SETUP ORIVE ADDRESS 
SETUP UNIT CHECK MASK 
GO TO CHECK DRIVE READY 
PRINT MESSAGE 


INVALIO SETTING 
OF SENSE SWITCHES 1A-18 


UNCONGITIONAL HALT EF 


GO TO CHECK SENSE SWS AGAIN 


eS ae A I en ee we ey i ce ee err e-ca ne e enm> se nr eee ee re re ee ee ae ant ee oe ee ne 


4VC 
. SBN 


BGNO8+1(1),ORVADR 
BGNOS8+1,B1T? 


BUILD REAO DIAG 
SENSE COMMAND 


PROG ID 0C1C-0 
PAGE 3 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


cico 


ERR LOC OBJECT CODE 


OBBA 
OBBE 


OBC2 
oBC5 


oBC9 
oBCD 


9860 


OBD6 
OBDA 
OBDB 
OBDC 
OBDE 


OREO 
OBES 


OBE6 


OBEA 
OBFO 


OBFE 
OBFA 


OBFD 
0co3 


oco9 


OCOF 
0013 


OC16 
GCA 
Oc1B 
OCiC 
OCIE 


0c20 
0C24 


OC 26 


OC2A 
OC2E 
OCc2F 
0c31 


0C33 
0C39 
OC 3c 
0C42 


0C46 
oc4c 


oCc50 


ocs6 
OCSA 
ocs6 
ocsc 


DATE 
EC NO. 


3340 INITIALIZER - MOD 12 


31 
32 


F3 
cl 


38 
F2 


oc 
co 


C6 
li 


cé 
C4 


oo 
c2 


40 
$0 


00 
87 


1119 
C102 


co 


87 


C101 


co 


oc 
oc 


39 
F2 


oc 
oc 


oc 


38 
F2 


co 
45 
50 


87 


01 
01 


o7 
30 


01 
ol 


03 


80 
90 


87 


133F 
ClE1 


co 


87 


Ci€l 


30 


co 
02 


OG 


B7 


1423 
1427 


07 
F2 
OE 
co 


OD 
co 


oc 
co 


45 
29 


20 
82 
01 
87 


01 
84 


00 
87 


1142 


137E 
1380 


07 
OBCS5 


8000 
1A 


110F 
O2Z1A 


0222 


0555 


a3EA 
13EC 


8002 
oc 


13EA 
13EC 


13FO 


020D 
3A 


O214 


0222 


1423 
O21E 


1427 
OA 

13E€E 
0C33 


13EE 
oco9 


1142 


O21A 


235UL76 


571931 


13F3 


L37A 
1372 


1378 
i374 


1365 


1369 


1368 


L37A 


13F3 


ADDR STMT 


OBDA 
oB0B 
OBDD 
OBDF 


OBES 


OCIA 
OC 1B 
OC 1D 
OCLF 


OC 25 


OC 2E 
6C 30 
0C32 


OC 5A 
OC5B 
0C50 


222 


- 223 


224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
26} 
262 
263 
264% 
265 
£66 
267 
268 
269 
270 
Z71 
272 
273 
274 
275 
276 
27 
278 
279 
260 
281 
2 82 
283 
284 
285 
286 
2e7 
288 
289 


SOURCE STATEMENT 


BGNOS 


BGNOA 


BGNOF 
* 


BGNOC 


BGNOS 


BGNOC 
* 


LIO 
L10 


$10 
T1G 


TBN 
JF 


MVC 
6 
OC 
DC 
OC 
oc 


B 
oc 


8 


MVC 
MVC 


TBF 
JF 


MVC 
M¥C 


MVC 
TBN 
JF 


DC 
DC 
DC 
DC 
oc 
SNS 
Oc 
DC 
oc 
$2 
Acc 
CLC 
BH 
MYC 
OC 


oC 
oc 


DOCR, X*C6* 
DDDR»X*C4* 


X*07', s-8 
*eX*C2* 


OOOF, BIT 
BGNOS 


MSCO4A(1),DRV 


PRINT 

XL1°C6! 
AL1(MSGO4N-MSG604) 
AL2 (MSGO4N) 
AL2(HLTO13 


HALT 
AL2(HLTOL) 


BGNO1- - 


MAXC YL(2) »P209 
MAXHD(2)5P7 


DDDF+2 .X*O7* 
BGNOF 


MAXCYL(2} ,P34 
MAXHD( 25 .P17 


SKADR(I4) ¢RULLS 


SSYTES,SSW28 
BGNOD 


PRINT 

XL1L°45e 

AL1 (MSGLBN-MSG1B) 
AL2(MSGIBN) 
AL2{HLTEL) 


HALT 
AL 2¢HLTE1} 


DSWS »X*008 


UNPACK 
XL1*2° 
ALZ¢OSWS) 
AL 2¢HORKN) 


WORKN(3) 5,01 (1) 
BGNOB 
CYL(2),0NE 
BGNOC 


CYL(2),P209 
BGNOF 


MSGCSN(1} ,ORV 


PRINT 

XL1°45°¢ 

AL 1(MSGOS5N-MSGC5) 
AL2(MSGO5N) 


PART NO. 5132786. 
PAGE 3a 


DOCF ACORESS TO OOCR 
DDOF ADDRESS TO DDOR 


READ DIAGNOSTIC SENSE DATA 
LOOP ON ATTACHMENT BUSY 


BRANCH IF 
DRIVE IS READY 


DRIVE NUMBER TO PRINT MESSAGE 


PRINT MESSAGE 
*DRIVE X NCT READY® 


ERROR HALT 01 


GO TO SE-CHECK SENSE SWITCHES 


SETUP MAXIMUM CYLINDER ADDRESS 
SETUP MAXIMUM HEAD ADDRESS 


SKIP IF WOT 
CE CATA MODULE 


SETUP MAXIMUM CYLINDER ADORESS 
SETUP MAXIMUM HEAD ADORESS 
INITIALIZE SEEK ADDRESS 


JUMP IF SENSE SWITCH 28 ----- -- 
1S NOT ON 


PRINT #ESSAGE 
TO ENTER STARTING 
CYLINDER ADORESS 
INTO CeU 
SWITCHES 


HALT EL 


SENSE CPU SWITCHES 


UNP ACK 
CPU DATA 
SWITCH 
ENTRY 


CONVERT 

ENTRY 
¥O 

BINARY 


CYL 


PRINT MESSAGE AGAIN IF 
CYLINDER ENTRY INVALIO 


INITIALIZE PRINT MESSAGE 


PRINT MESSAGE 
© KXXXAAXRAXXNXXX 
TO BEGIN ON 
ORIVE x.* 


PROG ID 0CiC-0 
PAGE 3A 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


cico 3340 INITIALIZER - MOD 12 


ERR LOC OBJECT CODE ADOR STMT 
OCSE C1F1 OC5F 290 
291 
0C60 3D 01 0A03 292 
OC64 F2 01 10 293 
294 

OC67 CO 87 O21A 295 
OC6B 01 0C6B 296 
OC6C 50 OC6C 297 
OC6D 12A6 OC6E 298 
299 

OC6F CO 87 O21A 300 
0C73 05 0C73 301 
0C74 49 0C74 302 
OC7T5 12EF 0C76 303 
304 

OC77 CO 87 0222 305 
OC7B C1F1 OC7C 306 
307 

OC7D CO 87 0000 308 
309 

310 

311 

312 

OC81 38 O08 138 313 
OCS5 CO 10 OF97 314 
315 

0C89 OD 01 13FO 1365 316 
OC8F F2 01 18 317 
318 

OC92 OC O1 1427 13EE 319 
0C98 3D 00 1427 320 
-OC9C CO 81 OFBB 321 
OCAO OF CO 1427 1370 322 
OCA6 CO 02 OC98 323 
324 

OCAA 38 80 13E8 325 
OCAE 38 20 8601 326 
OCB2 F2 10 28 327 
328 

O0C25 OD O3 13FO 13EC 329 
OCBB F2 81 1F 330 
331 

OCBE OE O1 13FO 1368 332 
333 

OCC4 OD O1 13FO 1376 334 
OCCA F2 04 OC 335 
336 

OCCD OC O1 13F0 1365 337 
338 

OCD3 OF O1 13EE 136B 339 
340 

0CD9 CO 87 0000 341 
342 

343 

344 

345 

OCDD OC 00 1162 13F3 346 
B47 

OCE3 CO B7 O21A 348 
OCE7 12 OCE? 349 
: 350 

OCE8 CO 87 O21A 351 
OCEC 06 OCEC 352 
OCED 20 OCED 353 
OCEE 1162 OCEF 354 
355 

OCFO 36 30 0208 - 356 


OCF4 3B CO 0200 357 


DATE  §235UL76 
—€£ NO. 571931 


PARY NO. 5132786 
PAGE 4 
SOURCE STATEMENT ERR LOC OBJECT CUDE 
oc AL2(HLTF1) 
* a OCF8 CO 87 022A 
CLI RTNel JUMP IF NOT OCFC 00 
JNE  BGNOE ROUTINE 1 
* 
B PRINT PRINT FIRST 
DC XLL°OL® LINE OF 
DC AL 1(MSG19N-MSG19)_ CAUTION 
DC AL2(MSGI19N) MESSAGE 
* 
B PRINT PRINT SECOND 
oc XL1°05° LINE OF 
DC ALL(MSGLAN-MSGLA) CAUTION 
DC AL2(MSGLAN) MESSAGE 
x 
BGNOE B HALT ; CAUTION HALT Fl 
oc AL2(HLTFL) 
a 
BGNX B *-* RETURN TO CALLING ROUTINE 
* 
he coe are ec cc ear ee ec ne ce ce ee cee SO ew ee ee a ee a ee ee coe oe ee ns ee ae cee ee Aten eens ees ee ene Sip en en mn eee ep ee een he em ces eee 
* ADVANCE TRACK ADDRESS 
* 
NXT RC TBN IND, STRT. GO TO PRINT STARTING 
BT START MESSAGE IF STRT IND ON 
* ie 
CLC HO(2),NULLS JUMP IF HEAD 
JNE  NXTRCL ADDRESS IS NOT 00 
& 
MVC WORKN(2)yCYL GO PRINT. 
NXTOl CLI WORKN,O TOTAL ERROR 
BZ NORM _ MESSAGE 
SLC  WORKN(1),TEN EVERY 
BNM NXTOL TEN CYLINDERS 
* 5 . ¢ 
NXTRC1L © TBN IND, ,UNITCK END SCAN IF 
TBN = DDDF+1,BIT2_ END OF CYLINDER 
JT NSCAN CONDITION DETECTED 
x. : 
CLC HD(4),MAXHD BRANCH IF NO MORE 
JE NSCAN CYLINDERS TO BE TESTED 
ALC HD(2),ONE ADVANCE HEAD ADDRESS 
* . ‘ 
CLC HD(2),NINTEN BRANCH IF MORE 
JNH = NXTRCX HEADS TO BE TESTED 
* : 
MVC HD(2),NULLS RESET TO HEAD ZERO 
> 
ALC CYL(2)¢-OQNE ADVANCE CYLINDER ADDRESS 
* 
NXTRCX 8B +—% RETURN TO CALLING ROUTINE 
oo 
mR. te OO cy A EN SY OA Me SO NE SIS le SD GA SO ND ES SD SE ON CY SND ED RD a A SGP <a te, se sat, a, ee ‘ele Si, en een in SN ‘tes i ie: de mn wean, Ro een we, gs eo, 
* END DATA MODULE SCAN 
* 
NSCAN MVC MSGO6N(1),DRV MOVE DRV NUMBER TO END MSG 
. . 
B PRINT SPACE PRINTER 2 LINES | 
DC XL1°12¢ 
* 
B PRINT PRINT MESSAGE 
DC XL1*CE® SEND XXXMXXXXXXXX ON DRY Xt 
DC AL1 ( MSCO6N—MSGO6) - 
OC AL2(MSGO6N) 
* 
SBF =s- SBYTE3»SSW1A+SSW1B RESET SENSE 
SEF SBYTE5S~sSSW28+SSW29 SWITCHES 
PROG ID = OC1C-0 = DATE =— 23 SUL 76 
PAGE 4 EC NO. 571931 
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~ ADDR STMT 


, OCFC 


358 
359 
360 
361 


SOURCE STATEMENT 


* 


* 


8 
oc 


LOAD 
xL1*o° 


PART NO. 5132786 
PAGE @A 
TERMINATE SECTION 
PROG 10. 0C1C-0 


PAGE | 4A 
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PAGE 5 PAGE 5A 
C1CO 3340 INITIALIZER ~ MOD 12 C1CO 3340 INITEALIZER -— MOD i2 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT FRR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
363 ebAEEEEAREREEAEAEEEEASESERSEREE EDEN SAEEESESENEE SEER TERE SEES SER ES OCR EEE O07D 3C O09 13F7 43) “VI Ry, X*09° - BYTES FOR SIO COMMAND 
364 * * 432 * 
365 * COMMAND EXECUTION SUBROUTINES * 0081 OC O9 1421 1365 433 MVC = NN( 10) ,NULLS CLEAR DOCF AREA 
366 * * 434 * 
367 HERRAKAER AKER E EAR ERERRSSHRERAE RH SHRRHERKH SRE SESE AER SLES SHKSSEKSKSS SSL AST S OD87 CO 87 OE62 435 3 XEQ GO TO EXECUTE CORHAND 
368 * 436 * 
369 * RECALIBRATE COMMAND OD8B 38 80 13E8 437 TBN INDeUNITCK GO TO ERROR 
370 * OD8F CO 10 OFOB 438 BT UCK PRINT LF UNIT CHECK 
OCFD 34 O& OD1E 371 RECAL ST RECALX4+3 ARR SAVE RETURN ADDRESS 439 * 
372 * 0D93 CO 87 0000 440 RDHAOX 8B *—2 RETURN TO CALLING ROUTINE 
0D01 3C 00 13F6 373 MVI  Q,X*008 SETUP @ AND R 44) 2 . 
oo05 3c 01 13F7 374 MVE ReX*Ol? BYTES FOR sie COMMAND / 442 Te ce ce a oe a cc om ee a a ae ee ee a ee OD AP AEN a a CAS I DAN A AA I ED OD A EAA TE 
375 * 443 * KEAD DIAGNOSTIC SENSE DATA 
0DO09 OC O9 1421 1365 376 MVC =NNC10) sNULLS CLEAR DOCF AREA 444 % ; 
377 * 0997 34 08 ODBB 445 ROSNS ST RDSNSX43 ¢ARR SAVE RETURN ADDRESS 
ODOF CO 87 OF62 378 B XEQ GO TQ EXECUTE COMMAND 446 % 
379 * O09B OC 00 ODAE 13F4 4&7 MVC SIOSNS#1¢1)-¢DRVADR BUILO READ DIAG 
6013 38 BO 138 380 TBN IND, UNI TCK GO TO ERROR ODA1 3A O1 ODAF 448 SBN SIOSNS41-81T7 SENSE COMMAND 
0D17 CO 10 OFOB 381 BT UCK PRINT IF UNET CHECK 649 * 
382 * ODAS 31 C6 137E 450 Li0 ODCR,X*Co* COCF ADDRESS TO DOCR 
0D18 CO 87 0000 ae, arco B sae RETURN TO CALLING ROUTINE ODAS 31 C4 1386 &51 LIG ODDR»xX*C4? DODF ADDRESS TO ODDR 
3 452 * 
BBS Raman a I OE EO ODAD F3 00 OF 453 SEQOSNS SIO xX*OTt,#-# READ DIAGNOSTIC SENSE DATA 
386 * SEEK 454 % 
387 * ODBO C1 C2 ODBO £55 TIG = ¥,X*C2t LOOP ON ATTACHMENT BUSY 
CDIF 34 08 0052 388 SEEK ST SEEK X43, ARR SAVE RETURN ADDRESS 456 ¢ , 
389 * ODB4 3A 80 13E8 457 BN SI TOK SET UNIT CHECK INDICATOR 
0D23 38 80 13£8 390 TBN IND, UNITCK GO 76 458 % - eveumee Eee ee 
aoe ea a ere ao | hy eee Ree econ cacee 0088 CO 8&7 0000 459 RDOSNSK  B —% RETURN TO CALLING ROUTINE 
: ~~ Mt 460 & 
393 * 
QQ Be mr a sO I —— 
OD2F 3C 00 13F6 394% MVI = Qe X° OCF SETUP Q AND R 662 # z ME RECOR 
0033 3C 00 13F7 365 MVI «Re X* 008 BYTES FOR SIG COMMAND 463 & BS EYE gne ADUEESS oe BOR EER OSE CUBE ENED 
396 *# ODBC 34 08 ODEF 664 WRHAE WRHAEX#3,AR SAVE RETURM ADDRESS —- = - 
OD37 OC 09 1421 1365 397 MVC —-NN(LO} »NULLS CLEAR DDCF AREA eee ~ BAER eye SAVE RETURN SPORES? 
398 + i . ‘ , 
ODCO 3C 02 13F6 466 Myvi X?025 TUP Q AND R 
0030 OC 03 141C 13F0 399 MVC HH{ 4). SKADR HOVE SEEK ARGUMENT TO DDCF ODC4 3C OL 13F7 467 MV Rigen ar ayTes FOR SIQ COMMAND 
400 * 
468 * 
0943 CO 87 OCEG2 oe . B XEQ GO TO EXECUTE COMMAND ODCB OC 09 1421 1365 469 MVC NNCLO},NULLS CLEAR ODCF AREA 
ODCE OC 03 141C 13F0 470 MVC HH(4) ¢SKADR SET UP CURRENT SEEK ADDRESS 
0047 38 80 13E8 403 TBN ENO,UNITCK GO TG ERROR OLDS OC 02 1420 13 
6F 471 
0D4B CO 10 OFOB 404 BT UCK PRINT IF UNET CHECK G72 ¢ OMe: | OR EU UP Ree Pees 
405 * 
ODDA OC 07 8007 1365 47 
Obs CO B7 0006 406 SEEKX 8 wey Cesk TOUCAL LING ROUTANE ye ‘ MVC ODDF47(8} »NULLS SET FIRST 8 BYTES CF DODF TO 0 
4 * 
ODEO CO 87 GE62 675 8 XEQ . GO TO EXECUTE COMMAND 
408 ¢-—~-~------- -- nn a ne nn nnn 
x : 
a : READ HOME ADDRESS AND RECORD ZERO COUNT EVEN ODES 38 80 13E8 aq TBN = INDsUNETCK GO TO ERROR 
0D53 34 08 O74 GIL RDHAE ST  —- RDHAEX#3, ARR SAVE RETURN ADDRESS Seen ue tenes oan i PRUNT CRECUNTT CHECK 
412 * 
ODEC CO 87 OCOGC 480 WRHAEX 8B h— RETURN TO CALLING ROUTINE 
OD57 3C 01 13F6 
eee ee | 413 MVI = Qy X*O18 SETUP Q@ AND R 481 * 
tye : MVI Re X*018 BYTES FOR SIO COMMAND GB? Sennen ne enn nn nn nn een enn enn nn nnn rer rene 
CDSF OC 09 1421 1365 416 MVC = NN( 10) »NULLS CLEAR DOCF AREA tee * HRET ESHONE: ADDRESS AND REC RDO ERRS COMME Ove a 
“17 * 
ODFO 34 08 OEF23 485 WRHAO T HRRAOX+ 3, AR SAVE R 
0065 CO 87 OE62 ne B XEQ GO TO EXECUTE COMMAND < ek s OX+3,ARR VE RETURN ADORESS 
ODES 3C 02 13F6 487 MVE QO, x*028 SETUP Q@ AND R 
0069 38 8C 1368 420 T3N IND. UNI TCK GO TO ERROR : : 
| | COFS 3c 09 13F7 488 MVi Ry X*O9e BYTES FOR SIO COMMAND 
OD6D CO 10 OFOS a3) ; BT UCK PRINT IF UNIT CHECK 489 © : — ; 
| ODFC OC 09 1422 1365 450 M 
OD71 CO 87 0000 - ROHAEX B *—* RETURN TG CALLING ROUTINE OEO2 OC 03 141C 13F0 691 ive ey SRaDR Set UP CURRENT SEEK ADDRESS 
os Mees ede Be ee ee fe ne, OEO8 OC O02 1420 136F 432 MVC OL(3),EEGHT SET UP KL AND DL BYTES 
Se er eee ee ere eee ee ee ee 493 % : 
426 * RE : 
| pear EAD HOME ADDRESS AND RECORD ZERO COUNT ODD OEOE OC 07 8007 1365 494 MYC DDDF+4+7(8) ,NULLS SET FIRST 8 BYTES OF ODDF FO O 
2 4935 & 
OD75 34 08 0096 pee ROHAG ST ROHAOX+3,ARR SAVE RETURN ADDRESS OE14 CO 87 OF62 ook B XEQ GO TG EXECUTE COMMAND 
% 
CRIS aaa e 430 MVI-QyX?O2® SETUP Q AND R O€18 38 80 13E8 pe TBN IND» UNITCK GO TO ERROR 


DAT JUL: 3 
eens ee | PROG ID 0c1c-0 DATE  23JUL76 PROG ID OC1C-0. 
PAGE 5 EC NO. 571931 PAGE 5A. 
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5132786 18M MAINTENANCE DLAGNOSTIC PROGRAM PART NO. 51327866 
PACE 6 PAGE 6A" 
C1CO 3340 INITIALIZER - “GD 12 C1CO =—3340 INITIALIZER - MOD 12 
! 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJELT CODE ADDK STMT SOURCE STATEMENT 
OEIC CO 10 OFOB 499 BT: uUCcK PRINT IF UNIT CHECK ; 528 SHOES SKAEKSERSEARHKSASESKERSRERERHESSSE SHES SKAKERSLASSRSEKRAAESRAREEARERESESE 
500 * 529 © * 
OE20 CO 87 0000 501 WRHAOX' B +-% RETURN TO CALLING ROUTINE 530 * COMMON COMMAND EXECUTION SUBROUTINE * 
502 * | 531 3 * 
503 Benn nn nnn nn a an nn nn 532 SKHKSKKKKSKKEKERKREKKE SEAS SKKAKKEKKE KTSRESE RSE SKASCHESKKCSSFSESEARAKAREKSSSCKKSSVREB 
504 * WRITE COUNT COMPRESSED DATA 533 * . 
505 # }  —- OE62 34 08 OED3 534 XEQ ST XEQX#3,ARR SAVE RETURN ADDRESS 
O£24 34 08 O£61 506 WRCCD ST WRCCDX4#3,ARR SAVE RETURN ADDRESS . 535 * 
507 * OE66 CO 87 0232 536 - 5) TEST CHECK FOR USER INTERVENTION 
O£28 3C 02 13F6 508 MVI Q,xX*02* SETUP Q AND R . 537 ¢ 
OE2C 3C 08 13F7 509 MVE =s- Re X*088 BYTES FOR SIG COMMAND OE6A OC 00 CEAD 13F6 538 MVC STO#101) 99 MOVE Q AND R 
510 * OE70 OC 00 OEAA 13F7 539 MVC = S104#2(23,R BYTES TO SIO 
O£30 OC 09 1421 1365 511 MVC =- NNCLO} pNULLS CLEAR DDCF AREA : 540 * 
O£36 OC 03 141C 13F9 512 MVC HH(4)—4SKADR SET UP CURRENT SEEK ADDRESS OE76 OF 00 OEAS 13F4 541 ALC SIG+1(1).ORVADR ADD DRIVE AVDRESS TO Q BYTE 
OE3C 3C 2F 1421 513 MVE  WNN,X*2F8 SET UP NN BYTE FOR 47 RECORDS 542 ¢ 
O£40 3C 01 141F 514 MVI DiL-1,X*01* SET UP DL BYTE FOR 256 BYTES : OE7C OC 00 OEAS 13F4 543 MVC TIORDY41(1),DRVADR SETUP Q BYTE IN TIO 
CE44 3C 01 1410 515 - MVE RRyX* OL? SET UP RR BYTE FOR RECORD 1 OE82 OC 00 OFBO 13F4 546 MVC TIOBSY*#1¢2} »DRVAOR *NOT ROY / UNIT CHECK® AND 
516 * OES8 3A 01 VEBO 545 SBN TIOBSY#1,B1T7 *SEEK BUSY® INSTRUCTIONS 
OF48 3C 00 8SOFF 517 MVI «ODDEN, X*08 SET DDDF AREA i 546 * 
OE4C OC FE BOFE BOFF 518 MVC DDDFN-1(255),0DDEN TO ALL O'S OE8C 30 C5 13F2 547 SNS  SNS,X*C5* SENSE ADAPTER STATUS 
: 519 & 548 * 
OES2 CO 87 OF62 520 B XEQ GQ TO EXECUTE COMMAND } O£90 38 O1 13F2 549 TBN SNS eB1T7 BRANCH IF 
521 * “ : O0£94 CO 10 OED4 550 BT ACK ADAPTER CHECK 
CE56 38 BO 13E8 522 TEN IND,UNITCK GO TO ERRGR PRINT 55) *& 
GESA CO 10 OFOB 523 BT UCK : IF UNIT CHECK O£98 31 C6 137E 552 LiQ DDCR»X*Cee LOAD DOCF ADDRESS IN DDCR 
324 * OE9C 31 C4 13560 . 553 LIG DDDR,x*C4? LOAD DODF ADDRESS IN DDDR 
OESE CO 87 0000 525 WRCCDX 8 *-% RETURN TG CALLING ROUTINE 554 & 
526 * OEAO 3B 80 13E8 555 S3F OND »UNETCK RESET UNIT CHECK INDICATOR 
556 * 
OEA4 C1 00 OECC 557 TIORDY TIO XEQ01,*-* BRANCH IF DRIVE NOT READY 
558 * 
OEAB F3 00 00 559 SIO SIO . *-+*,%-# ISSUE START I/O COMMAND 
560 * 
OEAB Cl C2 OEAB 561 TIO *,xX*C2* LOOP ON ATTACHMENT BUSY 
562 * ; 
OEAF Cl 00 OEAF 563 TIGBSY TIC *,#-# LOOP ON: SEEK BUSY 
t 564 * 
OEB3 30 C5 13F2 565 SNS  SNS,X*C5* SENSE ACAPTER STATUS 
566 * 
! OEB7 38 O1 13F2 567 TBN SNS,»BIT7 BRANCH IF 
OEBB CO 10 OED4 568 BT. ack ADAPTER CHECK 
569 * : 
OEBF CC 00 OEC6 13F5 570 MVC = + 70.1) UC KMSK RETURN TO 
OEC5 39 00 13F1 571 TBF SNS-1,%—# CALLING ROUTINE 
OEC9 F2 10 04 572 AT XEQX If NO UNIT CHECK 
573 * 
OECC CO 87 OD97 574 XEQO1 B RDSNS READ DIAGNOSTIC SENSE 
575 * 
OEDO CO 87 0000 576 XEQX B *—* RETURN TO CALLING ROUTINE 
577 * — 
} 
i 
: 
} 
5 
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OEE6 


OEEC 
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OEFC 
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OF 38 
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OF4S 
OF49 
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GF54 
CF56 
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DATE 
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OC SF 


3A 
3A 


80 
40 


3c 
oc 


5C 


3c 
oc 


00 
17 


oc 
31 
30 
3c 


ol 
C7 
C7 
30 


F2 87 


5F 


3A 
3B 


80 
40 


38 
F2 


o1 
10 


38 
F2 


0& 
10 


3A 


3C 
oc 


5C 
oD 


F2 87 


3c 
OC 


5C 
OD 


F2 87 


3C 
oc 


5C 
00 


co 
18 
8017 
13€6 


87 


F2 87 


40. 


13E6@ 1357 


1012 
13E8 


1387 
13A5 1170 
8018 
8017 8018 
8001 
1384 
8003 
8007 


13F2 


44 


L3E4 1357 


1012 
13€8 


8006 
18 


8000 
1E 


13E8 


1387 


13A5 LLTE 


1387 


13A5 118C 


OA 


1387 


13A5 119A 


O21E 


75 
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PART NO. 
PAGE 


cico 


ERR LOC OBJECT CODE 


579 PELROSSEEHERERESEESESEEREEKS KHSSEERESESRESSARETT SORES RSERSESEEESREREE HERE 

580 * & 

581 * TRACK ENDING CONDITIONS x 

582 * * OF5B 
983 STSRESSESEE SARE CE RREREREERES SHEESH ESHEETS REESE GRERESCHERGERSRSESEEERE 

584 * OF61 
585 * ADAPTER CHECK OF65 
586 * 

587 ACK MVC MSGN( 96) ¢ MSGN+1 CLEAR MESSAGE BUFFER OF69 
588 * OF6D 
'§89 SBN PRTFLG,BITO SET ERROR PRINT FLAG 

590° SBN IND,ERRHLT SET ERROR HALT INDICATOR OFT73 
591 * OFT7 
592 AVI HSGeC ose ERROR MESSAGE 

593 MVC MSG4+30,MSGO7N(14) ¥Q PRINT BUFFER OFTA 
594 * OFTE 
595 MVI DDDF+24,0 CLEAR DDDF AREA 

596 MVC DDOF +23 (24), 00D0F +24 OF81 
597 * OF87 
598 MYC DDDF+1(2).SNS BUILD 

599 L10 SNS23,xX°C7* FORHAT 3 OFBA 
600 SNS DDDF+3,x*C7¢* DEAGNOSTIC 

601 MVI DDDOF+7,x* 308 SENSE DATA OF90 
602 # we 

603 J PRTSNS GO TO PRINT SENSE DATA OF94 
604 % 

005 | Sern ee eae i a see e he ee eee 

606 * UNIT CHECK 

607 * 

608 UCK VC MSGN(96),MSGN41 CLEAR MESSAGE BUFFER OFST 
609 * 

610 S8N PRTFLG,BITO SET ERROR PRINT INDICATOR OFOD 
611 SBF IND, ERRHLT RESET ERROR HALT INOECATOR OFAL 
6i2 % OFAS 
613 TBN DDOF ,B1T7 BRANCH IF 

614 JT SCK SEEK CHECK OFAB 
615 * 

616 TBN DODF »B1T4 BRANCH EF OFAF 
617 JT DOCK DATA CHECK 

618 & OFB5 
619 SBN IND, ERRHLT SET ERROR HALT INDICATOR 

620 * 

621 UCKO]1 MVE HSG,C ese ERROR KESSAGE 

622 MVC MSG+30,HMSGOSN(14) T3 PRENT BUFFER 

623 * OFBS 
624 J PRTSNS GO YO PRINT SENSE DATA 

625 * OFBE 
O02 6 Bn nnn nn ce ee ee OFC2 
627 « SEEK CHECK 

628 * OFC6 
629 SCK AVI MSG,Ct ee ERROR MESSAGE 

e) MVC MSG+30.MSGOON(14) YO PRINT BUFFER OFCA 
631 * 

632 J PRTSNS GO TC PRENT SENSE DATA 

633 * 

Gen Brn een erent Sent ee eden retina teu ace edic Sa 

635 * DATA CHECK OFDO 
$326 % OFDE6 
637 DOCK AVI MSG Chee ERRGR MESSAGE 

638 MYC MSGt305HSG1LON(14) TO PRINT SUFFER OFDC 
639 *% 

$640 PRTSNS B UNPACK UNP ACK OFE2 
641 DC IL1*248 SENSE DATA OFES 
642 Oc AL 21 D0DF +23) TO MESSAGE OFEB 
643 DC AL2(MSGN) BUFFER AREA OFF. 
644 & 

645 J PRTMSG GO 7G PRINT MESSAGE OFFS 
646 @ OFFB 
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oc 


38 
3B 


3C 
oc 


38 
F2 


38 
F2 
F2 
oc 
3B 


F2 


oc 
38 
35 
oc 
3C 
oc 


F2 


oc 


38 
38 


3c 


oc 


oc 
OC 


0c 


OF 
F2 
06 
co 


OF 
F2 


5F 


80 
40 


cs 
2D 


30 
10 


10 
10 


06 
87 


OB 
30 


87 


SF 
80 
48 
62 
cg 
il 


87 


SF 


80 
40 


c9 


2A 


02 
01 


03 


00 
82 
20 
&7 


01 
82 


13E6 


1012 
13E8 


1337 
13C5 


13E8 
16 


13E8 
Cs 


13C5 
06 


13C5 
13£8 


33 


1SE&6 


1012 
13E8 


1387 


1302 


LLOF 
LLE6 


1427 


1425 
OA 

1LLOF 
OFE2 


1427 
OA 


235UL76 
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647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
676 
675 
676 
677 
678 
67¢ 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
090 
o9} 
692 
693 
694 
695 
696 
697 
698 
63g 
7600 
701 
102 
703 
704 
70s 
706 
TO7 
708 
709 
710 
711 
Tiz 
713 
714 


SOURCE ST 


ATEMENT 


5132786 
7A 


PART NO. 
PAGE 


occ ee coe cee a cae ee ee eae oe eee ee ee eae ee en ewes PP AE AR A LE OS RS A A ED ET AE ES OO ER Ma OY HO OD SD SE: OD MO Mtl OD OD OD ED Ee 


Ed 
* 
RSTMSG 
e 


% 
RSTO1 
* 


RSTO2 
* 


* 

$a 
e 

& 

START 

& 


PRTMSG 
> 


& 
PRICYL 


% 
PRTBN 


FLAG BYTE RESTORED 


MVC = MSGN(.96) » MSGNel CLEAR MESSAGE BUFFER 
SBF PRTFLGeBITO RESET ERRGR PRINT INOICATOR 
SBF END, ERRHLT RESET ERROR HALT INDICATOR 
MVI = MSGC*T® INFORMATION MESSAGE 
MVC = MSG #62(46) »MSG1BA TO PRINT BUFFER 
TEN —s INDeRSTEVN¢RSTODD JUMP IF BOTH EVEN AND 
JT RSTO2 ODD WERE RESTORED 
TBR  IND,RSTODD JUMP IF ONL. OOD 
JT RSTOl WAS RESTORED 
MVC MSG*62(7),MSS518N MODIFY MESSAGE FOR 
J RSTO2 EVEN ORLY 
MYC SG#62112).MSGi8N MODIFY MESSAGE FOR ODD ONLY 
SBF —s IND »RSTEYN+RSTOODD TURN OFF BOTH INDICATORS 
J PRIMSG GO TO PRINT MESSAGE 

BEGINNING OF ROUTINE 
H¥C  MSGNL96),MSGN4L CLEAR MESSAGE BUFFER 
SBE —s- PRT FILS. BITO RESET ERROR PRINT INDICATOR 
SBF so IND, ERRHLT*STRT RESET ERROR HALT 6 STRT IDS 
MVC =>MSGI5SNO33,ZEROS INITIALIZE TOTAL ERROR #S6 
MVI = MSGeC PTs INFORMATION MESSAGE 
MYC MSG434018)¢MSGIEN COMPLETE PRINT MESSAGE 
J PRINSG GO TO PRINT MESSAGE 
Shem arm me a aes 8 a ee ee ee nn eee es ee ce ee a eee eee ee Coe eRe ae ee AO 
TOTAL ERROR MESSAGE EVERY 10 CYLINDERS 
MVC MSGN(96},MSGNe CLEAR MESSAGE BUFFER 
SBF —s- PRTFLG; BITO RESET ERROR PRINT INDICATOR 
SBF  INDsERRHLT RESET ERROR HALT INDICATOR 
MVE = MSG,CtEe INFORMATION MESSAGE 
MVC =>MSG+59443)4MSGI5K COMPLETE PRINT MESSAGE 
PRINT MESSAGE 
MYC  MSG16B{3} ZEROS INITIALEZE CYLINDER AND 
MVC  =MSGI6NC2),ZEROS HEAD VALUES I PRINT MESSAGE 
MVC —- WORK? 3445, SKAOR SEEK ADDR TC@ WORK AREA 
SLC WORKSLE15, ONE CONVERT 
JM PRTHD CYLINDER TG 
AZ MSG166(3! ,D1(1) DECINAL FOR 
B PRICYL PRINTOUT 
SLC WORK.4342),0NE CONVERT 
JH PRT HEAD TO 
PROG ID 0C1C-0 
PAGE TA 








IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOj 5132786 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOW 5132786 
: PAGE 8 PAGE 8A 
C1CO =©3340 INITIALIZER - MOD 12 C1co 3340 INITIALIZER = MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
OFFE 06 10 LIE6 1369 © 715 AZ MSC16N(2} ,DL OL) CECIMAL FOR 752 FOCKSSKSESSASSSSSSSSHYSSESKSSSSSSSSSKSSSSSMSOSHSSLSSRLS SESE SSHESSESRLISTSR 
1004 CO 87 OFFS — 716 8 PRTHO PRINTOUT 753 * * 
717 * 754 * INTERFACE TO MICROCODE LOADER PROGRAM (SECTION C17) e 
1008 OC OF 1396 1LiE6 718 PRT MVC MSGt15(15},MSGLEN COMPLETE PRINT MESSAGE 755 * 
719 * 756 SKRAAKHKESESRSLSEAKASESSRCSKKKSSSSS SASS SS VSL SSSESKESESESSHSSKSCKSSEVSSSSKSESKSSH 
1O00€ CO 87 021A 720 6 PRINT PRINT MESSAGE ’ 757 *% 
1012 02 1012 721 PRYFLG OC XLit02° CYL XXX_ HD XX = ETC. 104D 34 08 1081 758 MPL ST MPL X¢ 3,ARR SAVE RETURN ADDRESS 
1013 60 1013 722 DC IL2¢96° 759 % 
1014 13&6 1015 723 oc AL2CMSGN} 1051 0D OL SAIC 1079 760 CLC LDRID(2) C1? GO TO LOAD LOADER 
724 *# L057 F2 OL 09 Tél JNE  LORLOD IF NOT ALREADY IN STG 
1016 38 80 1012 725 TBN PRTFLG,BITO JUMP IF ERRGR PRINT 762 # 
LOLA F2 90 06 726 Sf PRTGL INDICATOR NOT ON 105A CD 01 3CO1 1079 763 CLO LOR|2623,C17 BRANCH EF SECTION CLT 
727 * 1060 F2 81 if 764 JE LORGO IS ALREADY IN MAIN STORAGE 
101D O06 20 LIDT 1369 728 AZ MSGLSNC3}-¢DL (1) INCREMENT TOTAL ERROR MSG 765 % 
729 * 1062 CO 87 O21A 756 LORLD 3 PRINT PRINT MESSAGE 
1023 38 40 1368 730 PRTO] TSN IND sERRHLT GO TO TEST NEXT TRACK 1067 46 1067 767 OC XLL°Gsbé LOADING SECTIGN C17 
1027 CO 90 OCAA 731 BF NXTRCL if NO ERROR HALT REQUIRED 1068 13 1068 768 DC ALL(MSGOIN-NSGOL) 
432 * 1069 1094 106A 769 oc ALZ2€MSGOIN} 
102B CO 87 021A 733 B PRINT SPACE PRINTER 2 LINES 106B C100 206C 776 oC AL2 (HLTOO} 
102F 92 102F 734 DC XL1°92° 777i 
735 106D OC 18 CA39 CAI 72 MVC SYPFC (253 eCOM-1 SAVE SECTIOM PREFACE 
1030 CO 87 O21A 736 8 PRINT PRINT MESSAGE 773 # 
1034 C6 1634 737 Oc XLLECSE ®XXXXMAMKXXKX TERMINATEDS 1073 CO 87 622A 774 8 LOAD LOAD SECTION C17? 
1035 36 1035 738 ec AL LOMSGLTN-MSG17} LO77? 64 1077 775 oc XL1° 04? 
1036 121C 1037 739 DC AL2(MSGLT7N) 107a OCL7? 1079 776 Cl? pC XL2°OCLT® 
1038 C101 1039 740 c AL2Z(HLTOL} 777 * 
741 % 1CO7A CG 87 3092 778 LDRGG B LDR+2 GO TS SECTION Ci? 
103A 38 30 0268 742 SBE SBYTE3.SSHLA+SSW1B RESET SENSE 779 
103€ 38 CO 0200 743 SBF SBYTES « SSW28+4+S5SH29 SWITCHES LO7TE CO 87 sG00 780 MPLX 8 ts RETURN TO C&LLENG ROUTINE 
74a % 7¥Si & 
1042 CO 87 0222 745 8 HALT ERROR HALT O1 
1046 C101 1047 746 oc AL2(HLTOL) 
747 * 
1048 CO 87 022A 748 8 LOAD TERMINATE SECTION } 
104C oOo 104C 749 oc XL1L*0# 
750 * } 
} 
} 
’ 
ri 
DATE 23.3UL7 6° PROG ID ocic-0 DATE 23JULT6 PROG ID i 
€C NO. 571931 PAGE 8 EC NO. 571931 PAGE 








4d ; 
. PART NOw 5132786 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOs 5132786 
IBM MAINTENANCE DIAGNOSTIC PROGRAM See 5 1 I ‘ PAGE 9A 
C1CO 3340 INITEALIZER - MOD 12 C1CO 3340 INITIALIZER - MOD 12 
ERR LOC OBJECT COCE ADDR STMT SOUKCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
783 SRPRERSGRERSRESEE ERS CRORES REE LEEEEKTS ESSE GEE RECESS HT ES SESS ERASE SSS SS 1198 6040E2Z2E3C1DSE3C9 liaC 824 MSGI14N OC. CL18%~ STARTING ADORESS® 
784 * * L1A3 D5C740C1C4C4D9C5 , 824 
785 * PRINT MESSAGES * LIAB E2E2 824 
7186 & * 825 * 
737 RRHRESTESERERKS EEE AE ETRE ERE SERRE TRE PARES RESTS RELAS ANTES SHAG SSH LSS SESS LILAC 826 M5G15 EQU kj] 
788 * LIAD 6040E306E3C10340 1101 827 DC CL37*- TOTAL ERRORS FROM STARTING ADORESS ° 
1081 789 MSGOL equ) *-1 11B5 C509D9D6D9E240C6 827 
1082 D3D6CiC4C9D5C 740 1094 790 MSGOIN DC CLI9*LOADING SECTION C17* 11BD DID60S40EZE3C1 09 827 
108A E2C5C3E3C9D6D540 790 1105 E3C9D5C740C1C4C4 827 
1092 C3FI1F7 790 L1CD 09C5E2E240 827 
791 * 11D2 404040E7E7TE7 1107 . 28 MSG15N DC CLO6® XXX® 
1094 792 KSGO2 EQU) #1 829 * 
1095 E2C5D3C5C3E340C4 LOAE 793 DC CL26*SELECT DRIVE TO BE USED. * 1107 830 MSG16 FQUS- 
109D D9C9E5C 540E 30640 793 1108 40C3ESD340E7TETET LIDF 831 MSG16B OC CLES CYL XXX® 
10A5 C2C540E4E2C5C44B 793 , LIEO 6B40C8C440E7TE? i1LE6 832 MSGLEN DC CLT®, HD XX® 
10AD 4040 793 833 * 
LOAF E2D5E240E2E6EZ40 LODA 794 MSGOZN DC CL46°SNS SWS LA-1B SELECT DRIVES 1-2 RESPECTIVELY’ L1E6 834 MSG17 £QU #1 
LOE7 FICLOOFIC24CE2CS 194 LLET ETETETETETETETET 13F4 835 MSGLTA OC CLUS ©XXAXAARAXAAAAAARF 
LOBF 03C5C3E340C409C9 794 LLEF ETETETETETE? B25 
1OCT E5C5E240F L60F240 794 LLFES 40E3C5OSD4CSD5CE 121C 836 MSGITN DC CL4G* TERMINATED BECAUSE OF PRECEEDING ERROR. * 
LOCF D9CSE2ZD7C5C3E3CS9 794 1 PFO £3C5C440C2C5C3C21 836 
10D7 E5C5D3E8 794 1205 E4E2C540D6U 64007 836 
795 * $20D D9CSC3C5C5C4C6905 826 
10DA& 796 MSGO3 EQU 2 1215 C740C5D9D9D60948 836 
LODB E2D5E240E2E6E240 1108 797 MSGOZN DC CLa6°SNS SWS LA-1B INVALSD. ONLY ONE SHOULD BE ON. * 83% 
1OE3 FIC160F1C240C9ED5 797 121C 838 *SGi8 EQU #1 
1CEB ES5C1D3C9C4S4B84046 797 LZ21L 60460C RC 140CED3C1 124A 639 HSGIBA OC CLaet~- MA FLAG BYTE RESTORED TO 00 EVEN AND OOD* 
1LOF3 D605D3E 3840D6D5C5 797 1225 CTS0CZEBE3CS40L9 839 
LOFB 40E2ZCB8DLESD3C44E 797 1220 C5E7F3DED9CSC4E40 829 
1103 C2C540D6D54B 797 1235 £3D660F OF 0404046 825 
798 * 123D 4040C5E5C 5D540CE 83S 
1108 799 MSGO4 EQU ¥-1 1245 05C460D6C4C4 839 
1109 C4D9C9ESC54CE7 LiO0F 806 MSGO4A~ DC CLOT® DRIVE X° 1248 D6C4C44040D60803 1256 84C KSGIBN = 2C CLi2*oDD ONLY §* 
L110 40D506E34009C5Ci 1219 801 HSGO4N DC CLiC* NOT READY® 1253 £8404040 840 
1118 C4E8 601 B41 * 
802 * 1256 842 HSG19 EQU =f] 
1129 803 4SGO5 FEQU #1 1257 606040C3C1LESE3SCS LZTE 843 DC CL40°—~ CAUTION —~ THIS ROUTINE WILL PERFORM ° 
LLIA ETETETETETETETET 1127 804 HSGO5SA OC CLL4 © XXAXXAKAXKANAKAX © 125F D6D54060S040E 3C 8 B42 
1122 ETETETETETET 804 . 1267 CIE2Z4009D6E4E3CS 843 
1128 40€3D640C2C540D7 1142 605 MSGOSN DC CL27* TO BE PERFORMED OR DRIVE xK° 1Z6F 05C540E6C9030346 B43 
1130 C5D9CEDEDEDSC5C4 805 1277 D?IC5D9CSD6D9D446 843 
1138 40D60540C4D9C 9E5 805 127F CL40C4C9E2ZD240C9 LZA6 844 MSGISH BC CLEO°A DISK ERITEALIZATION. AND WEILL DESTROY § 
1140 C540E7 805 1287 OSCIESCICID3CSES 844 
806 * 328F C1E3CSD6D56B4001 B44 
1142 807 MSGC6 EQU #1 1297 D05C440E6C9D3D346C 844 
1143 C505C4&40D6C640E7 1157 808 MSGO6A oc CLZ2L*END GF XXXXXXXXXKAAKKS 129F C4CSEZESDSCEEBSO Boe 
LIGB ETETETETETETETET 808 845 % 
1153 EVETETETE? &08 1286 846 MSGLA EQU RZ 
1158 4O0D6D540C4D9C9E5 1162 809 MSGO6N OC CL11* ON DRIVE X® 1Z2A7 CIDIDSSOCSE7TCYEZ L2CE 847 OC CL4O°ALL EXISTING CUSTOMER CATA ON THE SELECTS 
1260 C5460E7 809 L2AF ESCODSCT4SCC3ESEZ 847 
610 * 12B7 E3D6D4C50960C4C1 847 
1162 811 SGOT EQU #1 1ZEF £3C140D50540E3C8 847 
1163 6040C1C4SCLOVE3CS L17G 812 MSGOTN OC CLI4*= ADAPTER CK -* 12C7? C540E2CS5D3C5C3E2 847 
116B 094003024060 812 12CF C5C44004D9CSES5C5 LZEF 848 KMSGIAN OC CL33¢ED DRIVE. RESET HALT TO CONTINUE. ° 
613 * 1207 “B40D9C SE 2C 5E 346 848 
1170 614 MSGO8 £QU) 1 120F C8CID3E340E2 0640 848 
1171 6040E4D5C9E340C3 1L7€ S15 HECSBN OC CLi4t*~ UNIT CHECK ~* L2t7 C3D60SE 4°905E4C5 848 
1179 C8C5C 32024060 815 L2EF 46 848 
B16 *% G49 % 
LITE 817 MSGO9 EQU #1 A2EF 850 MSG18 EQU t=} 
LI7F 6040E2C5C50240C3 118C 818 MSGOON DC CLIiSt- SSEK CHECK -° 12FO0 C5O05E3C50940C4C5 1217 852 DC CLGO° ENTER DESIRED SYARTING CYLINDER ADDRESS ° 
1187 C8C5C3024060 : 818 L2E8 EZCIDSC SL 440EZES £9 
81g * 1300 CLOJESCSUSC T4003 85) 
k18C 820 MSG1O EQU  #-1 1308 EBD3SCSLSC4CSD96G oS 
L18D 6040C4C1E3SC1I4CC3 219A 822 HSGION DC CLI4*- DATA CHECK -° L310 C1C4C409C SE ZE 240 B51 
1195 C8C5C3024060 821 1318 CIDSESDG4SOC3DTES LS2F B52 ESGIBR oC CLSO°ENTO CPU DATA SWITCHES EN CECTMAL (XCCCH® 
B22 * 1320 40C4&CLESCLSOEZES BE2 
119A 823 MSG14 EQU 4-t 1328 C9E 3C3CBCSEZ4008 862 
DATE 23JULT6 PROG ID OC1C-O DATE 23NUL76 PROG ID 0C1C-@ 
EC NO. 571931 PAGE 9 EC NO. 571931 
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CiCO 3340 INITIALIZER = MOD 12 CicCO 3340 INITIALIZER -— MOD 12 








Ene EEE EE SECT CORE ADDR STMT SQURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1330 0540C4T5C3C9D Bn & ; 
1338 BeLpeBETeoes eh aes be Serre erty wee erate rere tre nena Cet ermacereserestnoescamnns 
853 * 
1340 C9DSC9E3C9C1D3C9 134D 854 MINT DC ss CLG* INITIALIZATION? MESSAGE FOR INITIALIZE RTN pe . _FEOSTONTS OND RES ERED: STORAGE AREAS : 
1348 ESC1LE3C9D6D5 ed : 83 SREKSEKKEAESSSESHERSSSSSSRSCHSSASS SSS HSERASVARSEKIASKHRESRSEKSESEKSESSERSSEKRES 
. 864 * 
134E 40C6D3C1C740D9C5 1358 856 MREST OC CL14* FLAG RESTORE °* MSG FOR HA FLAG RESTORE R 
1356 E2E3D6D9C540 856 Sede ener aca EOMSTANTS 
857 © 135C 0000000000000000 1365 867 NULLS OC 10xt1*008 
1364 0000 867 
8B # 
1366 FOFGFO 1368 869 ZEROS oc CiL3*000° 
870 * 
1369 FL 1369 871 Dl oc Cuiisy 
: 872 * 
136A 0001 136B 873 ONE BC IL2e1¢ 
136C 00000008 136F 8746 EIGHT DC Ir4*e* 
1370 OA 1370 875 TEN OC 141°10* 
1371 0007 1372 876 P? oC IL2*7¢ 
1373 OO11 1374 877 P17? Oc IL2°17¢ 
1375 0013 1376 878 NINTEN Oc IL2¢198 
1377 0022 1378 879 P34 oc I1L2*34°* 
43379 OODbl 137A 880 P2069 oc IL2¢209° 
13786 O11E 137C 881 P286 oc IL2*286¢ 
882 * 
137D 1418 137E 883 DDCR oc AL2¢(0DCF} INITIAL OOCR ENITIALIZATION VALUE 
137F e700 1380 884 DDODR Oc AL 2CDDDF 3 INITIAL ODDR INITIALIZATION VALUE 
885 * 
886 ine ce ce ae ete ew ee ae cee ae eee eee emer cee Oe cee Ce HO KOC NEN <I SE ER OS SnD A RA ED OD Ow OEE A ER OOD CD CR tate ME Me > WOH ee {20 <> On I > OD SH Cee OD cen 
887 * SVP INTERFACE CONTROL BYTES 
ar 888 * 
1381 0003 1382 889 SVPREQ oc XL2*0003° SET SVP REQUEST 
is 1383 CcoOo9 .. 1384 890 SNS23 oc XL2°*CoOo0g* SENSE ADAPTER ERROR BYTES 
1385 0809 1386 891 CEWR oc XL2°0809° CE MODE IND --> X REG 
892 * 
894 * COMMON INDICATORS AND WORK AREAS 
895 * 
1387 896 MSG EQU - * 
1387 / 13E& 897 MSGN DS CL96 MESSAGE PRINT BUFFER 
; 13€7 OO 13E7 898 oc XL1°GO*. 
é 899 * 
: 13£8 00 13E8 900 IND Dc XL2*O# PROGRAM INDICATORS 
SOl # . 
13E9 IZEA 902 MAXCYL oS XL2 MAXIMUM VALID CYLINDER ADDRESS 
13E8 13EC 9303 MAXHD DS XL2 MAXIMUM VALID HEAD ADORESS 
SQ4 # 
13FO 905 SKAOR EQU #43 ; CURRENT SEEK ADDRESS 
13ED 13EE 906 CYL DS XL2 CURRENY CYLINDER ADDRESS 
LZEF 13FO 907 HD OS XL2 CURRENT HEAD ADDRESS 
908 * ; 
13F1 13F2 909 SNS DS XL2 ADAPTER SENSE INFG 
910 * eS 
13F3 13F3 $11 ORV os Ctl : ORIVE NUMBER 
13F4 : 13F4 912 DRVADR DS XL1 DRIVE ADDRESS 
913 # 
L3F5 13F5 914 UCKMSK DS XLi UNIT CHECK MASK 
915 * : 
i3F6é 13F& 916 Q OS Xil $i0 Q BYTE 
13F7 13F7 91TR BS XLE $10 R BYTE 
918 *% 
13FC 919 HAE - E€QU teh HOME ADDRESS EVEN 
13F8 13F8 920 FFTAE DS XLi 
L3F9 13FA 921 CCHAE OS XL2 
a3F6 13FC 922 HHHAE BS Xi 2 
923 * 3 . 
1401 924 HAN EQU t4+4 : HOME ADDRESS ODD 
23F0 i3FD 925 FFRAG DS Xi2 
DATE 235UL76 PROG I1D- 0CiC-0 DATE 23SUL76 ~ -- PROG ID 0ciCc-0 
‘EC NO. 371931 ; + AGE t 
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PAGE il | ; | . PAGE L1A 
CiCO ©3340 INITIALIZER -— MOD 12 CiCO =. 3340 INITIALIZER - MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT COD. ADOR STMT SOURCE STATEMENT 
L3FE 13FF 926 CCHAO DS XL2 Gb? SHLHEEEORET TEED SEEES ES ES TEOESSESES OSE SEERSSEESE SES ERS EES FEESSSSES ESSENSE 
° 5 964 *® * 
aie fe ee ee ef 965 * SYMBCL DEFINITIONS * 
140A 9329 ROE EQU *+8 RECORD ZERO COUNT EVEN 966 * * 
1402 1402 930 FFROE DS xLl 967 SOSRASERESSSEL ESHEETS STESKSSHSST SS SHRASSHSLATHSEHESSHKSSKES KSSH SSH SSHSS 
1403 1404 931 CCROE DS XL2 968 * 
1465 1406 932 HHROE oS XL2 969 * LOCAL STORE REGISTERS 
1407 1407 933 RRROE DS XL1 ; 970 # ‘ 
1408 1408 934 KLROE DS xil 0901 971 XRI EQU x*01° INDEX REGISTER 1 
1409 140A 935 DLROE DS XL2 972 * 
936 * 000s $73 ARR EQU x*os¢ . CURRENT LEVEL ADDRESS RECALL REG 
1413 937 ROO EQU #+& RECORD ZERO COURT ODD 974 *@ 
1408 1408 938 FFROO cS Xt1l Q75 #------ +--+ nn nn en en nn ern nn eer w nn eee 
140C 140D 939 CCRCO DS XL2 976 * SECTION SENSE SWITCHES 
140E 140F 940 HHROO DS XL2 977 * | 
1410 1410 941 RRROO DS XL1 6020 978 SSW1A EQU X*20°5 USE ORIVE 2 ONLY 
1411 1411 942 KLROG OS XL1 : 001G 979 SSW1B EQU K*10° USE DRIVE 2 ONLY 
1412 1413 943 DLROO OS XL2 980 * 
944 & 0080 981 SSwW28 EQU x*80° ALLOw STARTING CYLINDER ADDRESS 
1414 1415 945 SKDEVN DS XL2 EVEN SKIP DISPLACEMENT 6040 982 SSHZ9 EQU X°4o0f ALLOW FORCED WRHA 
1416 1417 946 SkDODD DS XL2 ODG SKIP DISPLACEMENT $83 * 
947 * QB4 Fenner nnn nn nr nnn ne renee enn enn enna me mmmnn 
1418 9%48 DDCF EQU * DDCF AREA 985 © MESSAGE £ HALT IDENTIFIERS 
1418 1418 949 FF DS Xii 986 * 
1419 141A 950 CC DS XL2 Ci0G $87 HLTOO EGU X%*C1005 NO WALT 
1416 141C 49351 HH DS KL2 Ci01 988 HLTO1 EQU X°C101° COMHON ERROR HALT 
141D 141D 952 RR DS Xil C1lEL $89 HLTE! £OQU X*Clel® ENTER STARTING CYLINDER ADDRESS 
141E L41E 953 KL DS Xt1 ClEZ 990 HLTE2 EQU X*CLE2°* SSW 1A-18 INVALID 
-141F 1420 954 DL DS XL2 CLES 991 HLTES EQU X°CIiES® SELECT ORIVE TO BE INITIALIZED 
1421 1421 955 NN OS XLI CiLFL 992 riLTFL EQu X°CLF SS CAUTIGN HALT 
956 * 993 * 
1422 1423 957 DSHS DS XL2 CPU DATA SWITCH AREA 994 %-------~-- +--+ + ee ee enn nn en eee enn ne nne wen eeececee 
958 * $95 & PROGRAM INDICATORS (IND) 
1424 959 WORK EQU % GENERAL PURPOSE 996 * 
1424 1427 960 HORKN OS XL4 WORK AREA. 0080 997 UNITCK EQU x*80° UNIT CHECK DETECTED 
961 * ; 0040 $98 ERRHLT EQU X*40* HALT ON ERROR CONDITION DETECTED 
0620 9399 RSTEVN EQ! X°205 FLAG RESTOREO EVEN 
0010 i000 RSTODD EQU xe1g9e FLAG RESTORED OOD 
0008 1001 STRT EQU x*O8* PRINT START MESSAGE 
1002 +* 
L OOS Camm a rn en tn int ernment anna aman ate ae ene ea aac an omen 
1004 * PROGRAM COMMUNICATION AREA (COM) INDICATORS 
1005 * 
0020 1006 MPLFLG EQU X*20° MICRO-~PROGRAM LOADED 
1007 #* 
LOO08 Ben a a a a nn rn wn or em ree oon em leant teeta tee a an an ce oe 
1009 * BIT POSITION SYMBOLS 
1010 * 
0080 1011 BITO EQU X°B0* 
0040 1012 BITl EQu X*40°¢ 
0020 1013 BIT2 EQU X*205 
0010 2014 BIT3 EQU x*10° 
0008 1055 BITS EQU x°08* 
0004 1016 BITS EQU X*O4e 
0002 1017 BITé EQU X*02° 
0002 1018 BIT? EQU x°OL® 
1019 # 
1020 #----~----~- ~----— + 2 ne ne enn ee er nne 
1021 * OCP SECTION REFERENCE TABLE 
1022 * 
G2Z0B 1023 SBYTE3 EQU X*O20B* SECTION SENSE SWITCHES 16~1F 
GO20C 1024 SBYTES EQU X*O20C® SECTION SENSE SWITCHES 20-27 
6200 1025 SBYTES EQU KX*020D* SECTION SENSE SWITCHES 28-2F 
1626 * 
0212 1027 TEST EQU X*O212° CHECK CE CONSOLE SWITCHES 
O21LA LC28 PRINE ,EQU X? 0218" PRINT A MESSAGE 
OZ1E 21929 UN? ACK EQU  xX*O21E* UNPACK DATA ~- HEX TO EBCDIC 
OZ22 1030 HALT EQU X*O0222? HALT AND DISPLAY HALT IDENTIFIER 
DATE 235UL76 PROG ID ocic-o DATE 23 SUL 76 PROG 10 oc ic-0 
EC NO. 571931 PAGE 11 EC NOew 5713931 PAGE LIA 
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C1co 3340 INITIALIZER - MOD 
ERR LOC OBJECT CODE ADOR 
O2Z2A 
0232 


3C 00 
8000 
80FF 


DATE 23J5ULT6 
Ec NO. $71931 


12 
STMT 
1031 


1032 
1033 


-1034 


1035 
1036 
1037 
1038 
1039 
1040 
1041 


SOURCE STATEMENT 


LOAD 


EQU 
EQU 


X*O22A° 


X*02328 
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C1co 3340 INITIALIZER = moo 12 


ERR LOC OBJECT CODE AOOR STMT 


LOAD NEXT SECTION OR RECORD ; 1043 


1044 


DCP UDT TABLE 1045 


‘ 1046 
SRR eee name eee eo 


EQU 
EQU 
EQU 


OTHER REFERENCES EXTERNAL TO THIS SECTION 


X*3C008 
X* 80008 
DOOF+255 


Fe peo ee eee 1047 
1048 


1049 
MICROCODE LOADER PROGRAM 1050 


READ / WRITE BUFFER 1051 
END OF READ / wRITE BUFFER 1052 


1053 
1054 
1055 
1056 
1057 
: 1058 
1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

“ 1075 

a 1076 

1077 

1078 

; FFFF 1079 


foe 


; 
PROG ID OC1C-0 pate 23JUL 76 
PAGE 12 EC NO. 571931 


ony 


SOURCE STATEMENT 


TREP 
TREP 
TREP 
TREP 
TREP 
TREP 
TREP 
TREP 
TREP 
TREP 
TREP 
TREP 
TREP 
TREP 
TREP 
TREP 
TREP 
TREP 
TREP 
TREP 
TREP 
TREP 
TREP 
TREP 
TREP 
TREP 
TREP 
TREO 
TREP 
TREP 
TREP- 
TREP 
TREP 
TREP 
TREP 
TREP 
END 
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| PART NO. 5132786 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOW 5132786 
IBM MAINTENANCE DIAGNOSTIC PROGRAM Pace oe PAGE rey 
C1CO 3340 INITIALIZER - MOD 12 . C1co 3340 INITIALIZER - MOD 12 
CROSS-REFERENCE CROSS-REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES SYMBOL T LEN VALUE DEFN REFERENCES 
ED@ 0587 0550 0568 HHRCO A 002 140F 09460 
wer : ae Orte 0031 HLTEL C 001 C1El. 0989 0264 0267 
ARR C 001 0008 0973 0160 0371 0388 0411 0428 0445 0464 0485 0506 0534 0758 HLTE2 C 001 C1E2 0990 0210 0213 
BEGIN A 004 0832 0160 0051 0085 HLTES C 001 C1lE4 0991 0181 0184 
BGNX A 004 OCTD 0308 0160* 0162 0166* HLTF1 C 001 C1Fl 0992 0290 0306 
BGNOA A 004 OBF6 0249 HLTOO ¢€ 001 C100 0987 0770 
BGNOB A 006 OC46 0281 0277 HLTOl C 001 C161 0988 0239 0242 O740 0746 
BGNOC A 006 0C33 0276 0279 IND A001 13£8 09300 0054* 0088* 6119% 0146* 0148 0313 0325 0380 0390 0403 0420 0437 
BGNOD A 006 0C50 0284 0258 —C; 045 7* 0477 0498 0522 0555% 0590 0611* 0619% 0653* 0658 0661 0669*% : 
BGNOE A 004 OCT7 0305 0293 0679* 0694* 0730 
BGNOF A 006 0C09 0255 0250 0282 KL A001 141E 0953 
BGNOL A 004 0855 0174 0169 0186 0215 0244 KLROE A 001 1408 0934 
BGNO2 A 004 OB7O 0188 0175 KLROO A 001 1411 0942 
BGNO3 A 004 OB846 O197 0189 LDR C 001 3C00 1038 0763 0778 
BGNO6 A 004 OB9C 0206 0198 LORGO A 004 107A 0778 0764 
BGNO? A 006 OBBO 0220 0195 0204 LORID A 002 OA1C 0030 0760 
BGNOB A 003 OBC2 0226 0220* 0221 LORLD A 004 10863 0766 0761 
BGNOO9 A 006 OBEA 0246 0231 LOAD C OOL 022A 1031 0359 O748 O774 
BITO C001 OO80 1011 0589 0610 0652 0678 06693 0725 MAXCYL A 002 13£A O02 0246% 02528 
BIZ. “6 00) 0020. 10ks 0226 MINT & 014 134D 0854 0047 0048 0049 i ae : : 
BIT3 C001 OO1O 1014 MPL A 004 104D 0758 (0172 
BIT4 C001 0008 1015 0616 ‘“MPLELG C 003 6020 1006 0171 
BITS C 001 0004 101216 MPLX & 004 L1O7E o780 9758% 
BIT6 C O01 O002 1017 0086 0123 MREST A016 1358 0856 Go81 0082 9083 
BIT? C001 0001 1018 0222 0392 0448 0545 0549 0567 06613 MSG A 001 1387 0896 0592* 0593% 0621% 0622* 0629% 0630* 0637% 0638% 0655% 0656 0664% 0667* 
CC A 002 141A 0950 0682% 0684+ 0696* 0698* 07182 
CCHAE A 002 13FA 0921 MSGN A096 I13£6 0897 0587 587% 0608 0608* 0643 0650 0556 0676 O6676* 0691 0691 0723 
CCHAQ A O02 13FF 0926 MSGOi A O01 1081 0789 0768 
CCROE A 002 1404 0931 MSGOIN A C19 1094 0790 C768 0769 
CCROO A O02 1490 0939 MSGO2 A 001 1094 0792 0179 . 
CEWR A 002 1386 0891 0114 0141 MSGO2N A 044 LODA 0794 0179 6180 
com & 001 OAL9 0027 Ol71 4 O772 MSGO3 A O61 100A 0796 0208 
CYL A 002 13£E 0906 C27a8* 0281 0319 03394 _MSGO3N A 046 1108 0797 0208 0209 ES 
Cic A OOL 9000 0007 }MSGO4 A 001 1108 0799 0237 
Ci7 A 002 1079 O776 C760 0763 MSGO4A A 007 LLOF 0800 0233% 
DCK A 004 OF45 0637 0617 MSGO4N A OLO 1119 O80) 6237 6238 
DDCF A COOL 1418 0948 0883 3MSGO05 A 001 12119 0803 0288 
vOCR A 002 137E 0883 0223 0450 0552 MSGOSA A 014 1127 0804 CO47* 0081*% 
DDDF C ool sd500 1039 9161 0128 0230 0249 6326 0391 0473% 0494% 0595 6596 0596% 05984 , MSGO5N A 027 1142 o805 02848 0288 06289 
0600* 0601*% 0613 0616 0642 0884 10460 #MSCO6 & OOL 1242 0807 0353 
DODFN C 001 8OFF 1040 0517* 0518 o51a% MSGO6A A 021 1157 0808 0043* 00824 
DDDR A 002 1380 0884 0224 0451 0553 _MSGO6N A 011 1162 0809 0346% 0353 0354 
OL A 002 1420 0954 O471* 6492% 0514% *MSGO7? A OOl 1162 O811 
DLROE A 0O2 140A 0935 MSGO7N A 014 1170 0812 0593 
DLROO A 002 1413 0943 . MSGO8 A O0OL 1170 O814 
ORV A O0l 13F3 0911 0191* 0200* 0233 0284 0346 MSGO8N A OLS LITE O815 0822 
DRVADR A O01 13F4 0912 0192* 0201% 0220 0447 0541 0543 0544 MSGO9 A OO1 117E O817 
DSWS A 002 1423 0957 6269* 0273 MSGOON A 014 118C 0818 0630 
D2 A 001 1369 0871 0276 O710 0715 0728 MSGIA A 001 1206 0846 0302 
EIGHT A 004 136F 0874 0471 0492 MSGLAN A 033 12EF 0848 0302 0303 aA eas 
ERRHLT C 601 0040 0998 0590 0611 0619 0653 0679 0694 0730 MSG18 A 001 L2EF 0850 0262 ; 
FAQID A 002 0A20 0032 MSGIBN A 040 133F 0852 0262 0263 
FF A901 1418 0949 0096 0123 MSG10 A OO1l 118C 0820 
FFHAE A 001 13F8 0920 MSG1LON A OLS 119A 08621 0638 
FFHAG A 001 13FD 0925 MSG14 A001 119A 0823 
FFROE. A 001 1402 0930 MSGI4N & O18 LIAC 08246 0684 
FFROO A 001 1408 0938 MSGL5 A OOL 1LE4C 0826 
HAE A 001 135FC 0919 MSGI5N A 006 1107 0828 0680 0698 07284 
HALT C€ 001 0222 1030 0183 0212 0241 0266 0305 0745 MSG16 A 001 1107 0830 
HAO A 001 1401 0924 MSG16B A008 1DF 0831 C703% C7152 
HD A 002 13F0 0907 0316 0329 0332* 0334 03372 MSGI6N A 007 12€6 0832 0704% 0715*% 0718 
HH A 002 142C 0951 0399* 0470% 0491% 0512% MSG17 A OOl 11E6 0834 0738 
WHHAE A 002 13FC 06922 . MSGL7A A 014 LIF4& 0835 0049* CO83e 
HHHAO A 002 1401 0927 MSGI7N A 040 121C 0836 0738 0739 
HHROE A 002 1406 0932 MSG18 A OOl 121C 0838 
. ; 
OATE 235UL 76 PROG ID OC1C-0 DATE 23JUL 76 PROG ID - OC1C-0 
eC NG. 571931 
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| | PAGE 14 PAGE 14A 
C1CO 3340 INITIALIZER - MOD 12 CLCO =. 3340 INITIALIZER ~ HOD 12 

CROSS~REFERENCE CROSS~REFERENCE 

SYMBOL 


T LEN VALUE DEFN REFERENCES SYMBOL T LEN VALUE DEFN REFERENCES 
HMSG18A A045 124A 0839 0656 SBYTES C OOL O20D 1025 0109 O126 0257 0357% 0743 
MSG18N A 012 1256 08460 0664 0667 SCK A 00% OF38 0629 0614 
MSG19 A OOL 1256 0842 0297 SEEK A 004 ODIF 0388 0058 0092 OL2 oO139 
MSGION A 040 12A6 0844 0297 0298 SEEKX A 004 OD4F 0406 0388% 
NENTEN A 002 1376 0878 0334 : S10 A 003 O£A8 0559 0538% 0539% 0541 
NN A 001 1421 0955 0376* 0397% 0416* 0433% 0459% 0490% OS511¢ 0513% SIOSNS A 003 GDAD 0453 OC447% 064484 
NORM A 006 OFB8 0691 6321 SKADR A 001 413F0 6905 0255% 063%9 O470 0491 0512 OT06 
NSCAN A 006 OCOD 0346 0327 0330 SKDEVN A 002 1415 0945 O101#® 0103 0106 
NULLS A GOl 1365 0867 0103 0130 06255 0316 0337 06376 0397 0416 0433 0469 0473 09890 SKDODD A 002 14217 094% 0128: 6130 0233 

0494 O5113 SNS A 002 132 0909 0547% 0549 0565%* 0567 OSTL 0598 
NXTRC A 004 OCE1L 0313 0068 0151 SNS23. A 002 1384 0890 0599 
NXTRCX & 004 OCD9 0341 0163*% 0335 SSH1A C 001 0020 0978 017% O197 06356 6742 
NXTRCL A 004 OC4A 0325 0317 O731 SSH1B C COL O010 0979 OL7® 0188 9356 0742 
NXTOL A004 OC98 0320 0323 $S¥28 C OOL 0080 0981 0257 9357 0743 
ONE & 002 1368 0873 0278 0332 0339 708 O713 SSH29 C 001 0040 0982 0109 0136 G357 G743 
PFC A 002 OAO?T 0020 START A 006 OF9T 0676 0314 
PID A 002 GAOL 0016 -$TRT € 601 0008 1001 0054 6088 9313 Os79 
PRINT C 001 O21A i028 0177 0206 ©6235 0260 0286 0295 ©6300 0348 0351 0720 0733 0736 SVPFC A&A O25 OA39 0026 OT72= 
0766 SVPREQ A 002 i382 6889 OLLS Gi%2 

PRT A 00& 1008 0O718 0714 YEN £001 2370 Ge75 0322 
PRTCYL A 006 OFE2 oO708 o7ll Be Te ee TEST C 001 0212 1027 0536 
PRYFLG A OO1 1012 O721 0589*% 0610% 0452% G678* 0693% G725 TIOBSY A 004 OEFAF 0563 0544% 054653 
PRTHD A 005 OFFS 0713 0709 O716 > TIGRDY A 004 OFA4 06557 0543% 
PRTMSG A 006 OFDO 0703 0645 O671 0886 UCK A 006 OFOB 0608 O38i 0494 0421 6438 0478 9499 0523 
PRTSNS A 006 OFSFE 0640 0603 0624 0432 UCKMSK A UDl 13F5 0914 9193% 0202% 0570 
PRTOL A 0O& 1023 0730 0726 -UCKOL & 004 OF2B 0621 
PLT A 002 1374 0877 0253 upto & 003 OA0C 0023 
P209 A 002 137A 06880 0246 0281 UNITCK C 001 ©0806 90997 0325 03860 6390 0403 0420 6437 G457 0477 046498 0522 6355 
P285 A 002 137C 0881 0106 0133 UNPACK C 001 O21E 1029 O271 640 
P34 A 002 1378 0879 0252 UTAB C O61 0232 1033 0188 
PT A 002 1372 0876 0247 WORK A 001 1424 0959 0705s O708S CF13e 
Q A 001 13F& 0916 O0373* 0394% 0413¢ 0430% 0466% 0487* 05088 0538 i} WORKN A 004 1427 09600 O27& 276% 6319% 63260 03226 
R A OC] 13F7 0917 0374* 6395%* 0414% 0431% 0467% 0488% 05090% 0539 WRCCD A 004 O£24 0506 C0S6 
RDHAE A 004 0D53 0411 C060 0094 se oe HWRCCDOX A 004 OEFSE 0525 05062 
RDHAEX A 004 0071 0423 0411% *WRHAE A 004 ODBC 046% 0061 O17 
RDHAG A 004 OD75 0628 0063 0121 WRHAEX A 004 ODEC 0486 04642 
FIHAGX 2 004 OD93 0440 0428 WRHAO A 00% ODFO 04285 006% 0144 
RDSNS A 004 OD97 0445 0699 0126 2574 'WRHAOX A 004 O£20 0501 0485 
RDSNSX A 004 ODBS 0459 0445¢ XEQ A 004 O£62 6534 0378 6401 6418 0435 0475 0496 05206 
RECAL A 004 OCFD 0371 0C56 0090 0392 . XEQX A 004 OFDD 0576 0534% O572 
RECALX A 004 OD1B 0383 0371% >XEQOL A004 OECC J574 0557 
RR A061 141D 0952 05i5% XR1 € 001 O001 0971 O162% GiS3 G165 0165% 0165 
RRROE A OO1L 14607 0933 ZEROS A 003 2368 0869 0680 O703 C704 
RRROO A OOL 1410 094] 
RSTEVN C COL 6020 0999 O1L9 0148 6658 0669 TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
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FF21 


ERR toc 


0A00 


OAOO 
OA02 
QA03 
OA04 
OA06 
OAQB 


OAOA 
OAGE 
CA12 
OA16 
OAIA 
OAIE 
0A20 
OA22 
OA24 
OA26 


OA28 


OAEQ 
OAEA 
OAEB 


OAED 
OAF 1 


DATE 
EC NO. 


PART NO. 5555574 


SYSTEM TEST SUPERVISOR FOR MODEL 15 


OBJECT CODE ADDR STMT 


FF21 OAOL 

80 QA02 

co OA03 

o0Cc0 O&05 

OAE? OAO7 

0000 cAQg 

35 10 OALF 

35 10 OA21 

35 10 OAZ3 

35 10 OA25 

35 10 OA27? 

OB26 OALF 

0C 62 O421 

OC 6A OA23 

OCOD OA25 

OA26 OA27 
QCA28 
OAES 

01 OAES 

00 OQAEA 

OD 8D OAEC 

3C 00 OCGA 

35 84 OCOC 

010CT73 14MAY76 
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& 
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% 

CEEERSRRE SEES ERERREEEERERES ESE RERE AE GER EAE RS EES CARE ERERKE EERE EEE RE 
* 

* 
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* 


PAGE 1 
4 

SOURCE STATEMENT 
* LAST CHG:05:13:76 

DECK 1 

SEQ 0 
FR2 START X*AQO! 

TREP 
HHREEEE EASELS EREAREERKKE KS ERARSSRESAK LESS SSEEKSERLAKSSKOEMAESSSKAREERSE 
* . * 
* SYSTEM/3 SYSTEM TEST SUPERVISOR * 
* ™ 
FLEKKKEE KEKE SARERERAK EASES SEEKER EK E KECK SSEERERERREKE DHS AEREEKERREKE 

DC XL2°FF21! PROGRAM IDENTIFICATION AND LEVEL 

DC XL1¢80° FLAGS ~ NO SPUDT 

DC IL1"0° CURRENT ROUTINE NUMBER 

oc XL2"08 RESERVED 

pc AL2(RTNO1) ADDRESS OF FIRST ROUTINE PREFIX 

DC XL2"08 RESERVED 
RERERRESEERERS AGREES A ERE AEE SES REREAD RE TSASCHESEARESR SEE ALS ARSSSERARER EEE 
* TRANSFER TABLE * 
RRR ERR GA EEE EAE AERA REESE ASR AHS SR RAKTREE SRE RERRHREAK EAR RES 
% * 


* THE SYSTEMS TEST SUPERVISOR PROVIDES THE FOLLOWING LINKAGE * 
* FOR USE BY THE MODULES IT CONTROLS. EACH MODULE MUST BE WRITTEN * 
* TO BRANCH TO THIS ENTRY WHENEVER THE DEVICE BEING TESTED IS BUSY + 


* OR NOT READY. * 
RRR EE RRR RE RE EERE E SE REE RARE EE ERA EAL R ER EREREERRREE AEH 
ENTRY L TR1, TAR ENTRY TO PASS CONTROL TO NEXT MODULE 
NOTME L TR2,TAR ENTRY FROM MODULE NOT CAUSING INT. 
RESET L TR3,TAR ‘ITS ME* ENTRY FROM MODULE CAUSING OP END INT 
NEWINT L TR4,IAR ENTRY TO OP END INT. RTN FROM MODULE 
L TR5SsIAR NOT USED 

TRL pc AL2(RENTRY) 

TR2 Oc AL2 (RNOTME) 

TR3 oC ALZ2URRESTR) 


TR4 oC AL2(RNXT) 


TRS5 OC AL2(*) NOT USED 
TABLE EQU * TABLE CONTAINING CATALOG OF PROGRAM 
DS CL193 MODULES IN CORE. PROVISIONS ARE 
MADE FOR SUPERVISION OF UP TO 16 * 


MODULES. INFORMATION IS CONTAINED* 
AS IN THE FOLLOWING DIAGRAM. 


ARR I TAR [T XRL I XxR2 I PSR I STARTING I DEV 10 IF * 


I I i I f ADDRESS I INT LEV 5 * 
O-1 { 2-3 I 4-5 I 6-7 I 8 I 9-10 I 11 * 
CRRA E EER EERE REE ERE REARS EER RRA REELS ERR EEE ARETE TEER NES ERE ERE 


eH RH HH 


EUNMEREAERERERE GEESE SSRERER ERE ERS OER EAEEERERSERESSOSESEREES BEDE EE REE KER 


% ROUTINE O1 — SYSTEMS TEST SUPERVISOR * 
FREER ER RRERES ER EES RERR ER EEE RES ERE EET SE REGRREERERERERE SE EEERE ESTER ER EEE 


THIS ROUTINE PROVIDES THE SUPERVISORY FUNCTION TO HANDLE THE 
SIMULTANEQUS OPERATION OF UP TO 16 PROGRAM MODULES. THE INOI- 
VIDUAL MODULES ARE REFERENCED BY il BYTE ENTRIES IN -TABLE~. 
LINKAGE FROM MODULE TO SUPERVISOR MUST TAKE PLACE EACH TIME THE 
DEVICE BEING TESTED IS BUSY OR NOT READY. TRANSFER MUST BE MADE 
VIA & BRANCH TO LOCATION X*AQA*. THE SUPERVISOR SAVES THE PRO- 
GRAM ARR» XR1 AND XR2+ THEN PASSES CONTROL TO THE NEXT PROGRAM 
BY BRANCHING VIA ITS PREVIOUSLY STORED ARR. 
CEREREESEREREER ERT REEEERE EERE E EERE AE AE RESERER REDE EAERS EESEREEARE RARER 
RTNOL OC XL1"01° CURRENT ROUTINE NUMBER 

pc XL1¢O" FLAGS 

OC AL2(RTNO2) ADDRESS OF NEXT ROUTINE PREFIX 
WEEEREREREEERE SHE FREE EER REESE ER EER EEEERERGRE RARE ES ESE ES EE ED EERE ERE ELE 

MVI — MODKNT,0 ZERO COUNT OF MODULES WITH INT. 
L OPEND,PSIAR LOAD OP END INTERRUPT IAR 


He RH H HH 
HUH HH HH He HH 
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01 
O1 


AS 


0073 


0D73 


14HAY76 
830254 


ADDR STMT 


70 
71 
72 
73 
74 
75 
76 
77 
7& 
79 
80 
81 
82 
83 
84 
85 
&6 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
161 
102 
103 
104 
105 
106 
107 
108 
109 
110 
11li 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
128 
129 
130 
131 
132 
133 
134 
135 
136 





PAGE 1A 

SOURCE STATEMENT 

LA TABLE ,XRL SET UP [TO RESTART ALL MODULES 
RILOOP CLI Ol eXRIDEX*FFS TEST FOR LAST ENTRY 

JE FIRST JUMP IF IT IS 

L 10( +XR1),XR2 LOAD MODULE*S ADDR. OF 1ST ROUTINE 

TBN =. 20 9XR209X #40! TEST FOR OF END INT. FLAG 

JF *4+13 JUMP IF NOT DEFINED 

MVC = -11014XR1) 500 4XR2) MCVE ID FROM MODULE TO TABLE 

ALC  MODKNT(1°.ONE COUNT MODULES 

MVC «102 4XR1) 976 9XR2) SET ACDRESS OF 1ST ROUTINE 
% AS INITIAL ARR VALUE 

ALC =1(2,XR1},FOUR _ BUMP PAST ROUTINE PREFIX 

MVC = - 3302 9XR1L D091 (yXR1) SET IAR = ARR 

LA 12(XR1)¢XR1 STEP POINTER TO NEXT ENTRY 

g R1LOGP LOOP TILL ALL DONE 
FREESE REHEARSE RERER ESE S ARRAS EAL RE EERE RRA OAE RSE RRAREEAERARSEE SEG BEE 
* MODULE LINKAGE TO THIS SUPERVISCRY ROUTINE IS MADE AS FOLLOWS * 
= * 
* B ENTRY WHERE ENTRY EQU  xX*AOAt * 
RERERERERAK EERE ERRAET SHEER EA AR KERR EKE SKK EERE EERE REL AEERERAAEEEREEREEE 
RENTRY ST SAVE1L, XR} SAVE XR1 TEMPORARILY 

L GPEND»PSTAR StT UP TO GO TO TOP OF OP END INT RIN 

L POINTR,XR1 RELOAD TABLE POINTER 

ST 1(,XR1),ARR PLACE RETURN ADDRESS IN TABLE SLOT 

MVC = 4542 eXR1L},SAVEL MOVE MODULE*S XR1 FROM TEMP TO SAVE 

ST 7£yXR1) eXR2 SAVE MODULE'S XR2 

ST SAVE1;PSR SAVE MODULE®S PSR 

MVC - 8 (1 »XR1 3 SAVE1-1 BITS 0-7 
CKLOG SNS  SAVE1,X*O? CHECK DATA SWITCHES FOR LOGOUT 

CLI SAVE1-1,x°BBS INSTRUCT FONS 

BE LINK 

TBN = SAVE 1-1, X40! CONTINUE TEST IF NOT *A* OR *Be 

TBF = SAVE1-1,.x #40" IN DATA SWITCHES Be oa icce te ee —— 

JF CKDCP | 

MZN = WORK~1, SAVE1-1 ISOLATE 1D OF MODULE TO BE ENABLED 

MNZ  WORK~1,SAVE1 OR DISABLED 

MZN  WORK,SAVEL 

LA TABLE~12,XR1 GO THROUGH TABLE OF MODULES UNTIL 
FINOLP LA 12(sXRLIVXR1 CORRECT ONE FOUND 

CLI =O »XR1) »XS EFS 

JE CKOCP 

L 10(eXR1}eXR2 LOAD MODULE*S STARTING ADDR. IN xR2 


MNN WORK 91 { ¢XR2) 
CLC WORK( 2} 41(4XR2) 
BNE FINOLP 


TBN SAVE 1-1 ,X*108 *B* ENABLE ON ? 
JF TER 
Cul OU eXR1L),X* FES THIS MODULE BEEN DISABLED ? 
JNE CKDCP 
MVC LC2sXR1), Tl, XR2) PUT ADOR. OF MODULE'S FIRST RTN IN 
ALC 1(2+XR1). FOUR BUMP PAST RINo PREFACE 
J CKDCP 
TER MVI O(sXR1L)oX*FES DISABLE MODULE CUZ ENTRY WAS ‘A® 
CKOCP L POINTR,XR1 RELOAD TABLE POINTER 
CLI SAVE 1~1,X"°DO# GO TO DCP IF POSSIBLE VALIO ENTRY 
BNL TEST ; 


* BEGIN SEQUENCING THRU TABLE OF MODULES ENTERING THEM ONE AT A TIRE 
* 


MVC LASTME (2),ZERCGS ZERO COUNTER FOR RESETS TO 1 DEVICE 
* AND ID OF THAT DEVICE. 
MVC TOSAVE(1),ZERGS CLEAR PRESENT INT MODULE SAVE AREA 
B 4G 
B *+6 
B #44 
PROG ID FF2-1 
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FF21 
ERR LOC 


oBcDdD 
OBD1 
OBD4 
OBD7 
OBDB 
OBDE 
OBE1 
OBES 
OBES 
OBED 
OBF2 
OB FS 
OBF9 
OBFC 
oc 00 
0CO3 
0C06 


OCOA 


DATE 
EC NO. 


16M MAINTENANCE DIAGNOSTIC PROGRAM 


SYSTEM TEST SUPERVISOR FOR MODEL 15 


OBJECT CODE 


co 
D2 
7D 
£O 
7D 
F2 
C2 
34 
co 
1C 
75 
34 
75 
3D 
F2 
F4 
co 


00 


87 
01 
FE 
81 
FF 
01 
01 
01 
87 
O1 
02 
01 
01 
C7? 
81 
40 
87 


0801 
oc 
00 
OBD1 
00 
OC 
OAIC 
OEF8 
0B 46 
oco9 


O10CT73 


821490 


ol 


ADDR STMT 


OCOA 


14MAY7S 
8 30234 


137 
138 
139 
140 
141 
142 
143 
144 
145 


146, 


147 
148 
149 
150 
151 
152 
153 
154 
155 


SOURCE STATEMENT 


NEXT 
CKD SB 


FIRST 


GOTO 


RETURN 


MODKNT 


B 
LA 
cul 
BE 
CLI 
JNE 
LA 
ST 
B 
MVC 
L 
ST 
L 
CLI 
JE 
cce 
B 


OC 


*4+4 
12¢eXR1L),XR1 
Ol eXR1) »X* FES 
NEXT 
O(eXR1),X°FFE 
GOTO 
TABLE-12,XR1 
POINTReXRI 
CKLOG 
RETURN+3(2)51¢,XR1) 
T(eXRLI,XR2 
POINTR,XR1 

50 eXR1) xR) 
MODEL,C*G* 
RETURN 

X*O2* -X*4Q# 
*-—& 


XL1L‘'O8 





PART NO. 5555574 
PAGE 2 


INCREMENT POINTER TO NEXT TABLE SLOT 
SKIP MGOULE IF IT IS DISABLED 


BRANCH IF NOT LAST ENTRY 


RE-ENITIALIZE TABLE POINTER IF THIS 
WAS LAST ENTRY 


LOAD RETURN ADDRESS WITH SAVED ARR 
RESTORE XR2 FOR THIS PROGRAM 

SAVE TABLE POINTER 

RESTORE Xki FOR THIS PROGRAM 


IS THIS MODEL 12? ol 
YES: SKIP NEXT INST. 01 
SET CPU TO FAST BEFORE RETURN ol 


GO TO NEXT MODULE 


COUNTER FOR NUMBER OF MODULES 


PROG ID _ FF2-1 
PAGE 2 
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FF21 


ADDR STMT 


ERR LOC OBJECT CODE 
157 
158 
159 
160 
161 
162 
163 
164 
165 
OcoB OCOD OCOC 166 
167 
168 
OCOD 169 
170 
OCOD 34 O1 OD6D 171 
0C1ll 34 O02 OD6F 172 
OC15 34 04 OD72 173 
0C19 35 04 0D73 174 
OC1D OE O00 OD89 OCEA2 175 
0C23 30 04 0D89 176 
0C27 CO B81 OCA6 177 
O0C2B CC 87 OC2F 178 
OC2F CO 87 0C33 179 
0C33 CO 87 0C27 180 
0C37 CO 87 0C38 181] 
182 
182 
182 
182 
182 
OC3B C2 01 OAIC 183 
184 
OC3F [2 O01 OC 185 
0C42 7D FF 00 186 
0C45 CO 81 OC10D 187 
0C49 7D FF OB 188 
OC4C CO 81 OC3F 189 
190 
OC50 75 O02 OA 191 
192 
0C53 34 01 OD75 193 
OC57 2C 00 OD7F 00 194 
195 
OC5C BS 02 05 196° 
197 
OC5F £0 87 00 198 
DATE -OLOCTT3 1L4MAY76 
EC NO. 821490 830234 
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SYSTEM TEST SUPERVISOR FOR MODEL 15 


SOURCE STATEMENT 


SRKEKKKER 
* OPEND * 
SEOKERAE SERA E REESE EEEER SEERA ERER SEEKERS EEEHEREERRE DK ERE 
* 
* COME HERE TO SERVICE GP END INTERUPT WHETHER IT 
* OCCURS FROM SOME OTHER LEVEL OR IS SEMPLY NOT RESET 
* DUE TO ANY REASON ERROR GR NOT. : 
FREE EEREREEEER OEE RESAEL ERE E EL ESSER AREEASHEAEREREREEREEE 
GPEND OC AL2(*4+2) _ ADDRESS OF OP END INTERRUPT ROUTINE 
* SAVE REG*S OF MODULE RUNNING AT TIME OF INTERRUPT ETC. 
RNXT EQU * 
ST TXRL»XRI SAVE XR1 
ST TXR2 »XR2 SAVE XR2 
ST TPSR»PSR SAVE PSR 
L ZEROS »PSR INITIALIZE PSR. 
FINDEM ALC ICTRO(1) ONE INCREMENT COUNTER OF RESETS 
CLI ICTR»s4 
BE NOBODY IF NOBODY RESET IN 4 REQUESTS QUIT 
8 e+q 
B 44 , 
RB 4G 
B ¥+4 
LA TABLE-12,XR1 LOAD POINTER TO MODULE TABLE 
NXTMOD LA 12(XR1),XR1 BUMP TO NEXT ENTRY 
INTRL CLI OU eXR1L) »X*FFS TEST FOR END GF MODULE TABLE 
"BE FINDEM NO ONE WILL ADMIT TO THE INTERRUPT 
CLI 110eXR1) ,X*FFS TEST FOR NON INTERRUPT TYPE 
BE “NXTMOD BRANCH IF NOT 
L 100 ,XR19,XR2 LGAD ACDRESS FROM TABLE THAT 
* POINTS TO BEGINNING OF MODULE 
ST TABLEA,XR1 SAVE TABLE POINTER . 
MVC TEMP(1) 206—XR2) SAVE ID GF MODULE SO IF IT SAYS 
* IT IS HIS INT, WE*LL KNOW HIS ID 
L 5(9XR23,XR2 LOAD XR2 WITH ADDRESS OF INTERRUPT 
* ROUTINE IN TEST MODULE 
B O( »XR2)} 


GO TO INTERRUPT RGUTINE IN MODULE 


PROG ID 


FF2-1_ 
PAGE 2a' 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NU. 5555574 IBM MAINTENANCE DIAGNOSTIC PROGRAM rant NO. 5555574 
PAGE - 3 PASE 3A 
FF21 SYSTEM TEST SUPERVISOR FOR MCDEL 15 , FF21 SYSTEM TEST SUPERVISOR FOR MODEL 15 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
200 eke eR 244 SEETHER ERS 
201 * NOTME * 245 * NOBODY * 
DOD RE a a RR a aR RR HR ROR ROK OR ak a ag a a Raa Sa OE a a eR a RR RR ee BK 246 ERAKFEAREHEHSESLSAERERETEESAERERARE LESSER VET ERRSK LS LSS SEKHSSRBES 
203 * 2°77 * PRESENT INTERRUPT NOT RESET BY ANY MODLLE. 
204 * COME HERE FROM MODULE WHEN THAT MODULE SAYS THAT 248 * ; 
205 * THE INTERRUPT PENDING IS NOT HIS. 2469 CRAP AAEKAGE SRE CERETRES SELEKEAKES SHEE SHE SHELSSITHTSSSSASELKSS SHS 
206 WR gE AAA ERK RRA RH MK RHE RES AKAAKE BS EEEAP ALES KKEEL ARE 250 
207 OCh& 251 NOBODY EQU * Poe eae, tame ato 
OC62 35 OF ODIS 208 RNOTRE L TABLEA, ARI RESTORE TABLE POINTER 252 * FIND GUT IE OURING THE LAST & TIMES THROIGH LOOP CLATHED 
OC66 CO 8&7 OCAFE 209 8 NXTMGD CONTINUE YHRGUGH TABLE Til WE FIND 253 * THAT THE FNF WAS HIS 
210 * WHECHK ONE CAUSED THE INTERRUPT. 254 
Ji OCA6 OD OO GOSB OD8A 255 CLC EDSAVE(L),LASTME 
212 Aa RSH RH OCAC CO Gl CCBC 256 BNE  UNEXP if NOY EQUAL THEN NO ONE CLAIRED AN INTERRUPT 
213 * RESTOR #* 257 
Q1G FRERR EGE SR A aR EE RRR RRS RMA MS AAAS SSR 257 
215 *% ocBO 30 05 ODEs 258 Cil LDSAVE,0 IF GO, THER SOMEBCDY CAUSED AN INTERRUPT 
216 * COME HERE FROM MODULE IN PREPARATION TO RESET 259 % ANG WE CAN°T FEGURE WHO IT IS 
217 * THE INTERRUPT. OCB4 CO 81 OCBC 260 BE UNEXP ASSUME UNEXPECTED INT. 
218 THAT IS; RESTORE XRIisXR2,PSR. THEN RETURN TO oces CO 87 Gi23 261 B FAIL It ~= 0 THEN THE FD = WHE EVER ADMITTED 
219 * THE MOCULE AT THE ARR VALUES 262 * TO THE LAST & ENTERSUPTS DIDN'T RESET 
220 * . 263 * SUCCESSFULLY 
221 * 264 
222 * 265 SRSRHERHAEHKAERSR HES KETU SERS “ 
223 * OCBC 266 UNEXP EQU * ENTER HERE WHEN ICSAVE = O 
224 FREREEELEKEKEE LAKE RESESERRAREEESKRE SAE AEH SKS HEALERS KL GAH ES ocBc CO 87 OZ21E 267 8 UNPACK UNPACK ID GF LAST MCDULE #HO SHOULD 
225 occo 01 OccCO 268 OC TEifLs HAVE RESET HIS INTERRUPT 
OC6A 226 RRESTR EQU * occ: ODBA OcC2 269 ec AL 2CLASTHE} SOURCE 
OC6A 34 08 OCAS5 227 ST DQRES+3, ARP STOKE LOCATION GF MODULESS RESET RIN occ3 0D22 OCC4& 270 oC AL2 (UNEXPH) DESTINATION 
OC6E OC CO ODBA GDB8 228 MYC LASTME(1),1DSAVE PUT LAST 1B IN LASTME occs CO 87 OCt? 271 B *t 
OC7T4 OC 00 OD8e ODTF 229 MVC PDSAVE(1). TEMP SHOW THAT THES MODULE RECOGIZED THE IT occ9 CO 87 O214 272 PTIT B PRINT 
OC7A OD 00 OD8B ODEA 230 CLC IDSAVE C1}, LASTME IF LAST MODULE IS DIFFERENT THAN THIS occDdD C6 cccD 273 oc XL1*Cé* 
oc8o CO 81 OC8s 231 BE SAME] ONE, ZERO THE COUNTER OCCE 4C OCCE 274 DC IL1°*76° 
Oc84 3C GQ OD89 232 AVI ICTR,0O OCCF ODB22 OcDG 275 DC AL 2( UNE XPM} wet eet te Frat Fa 
OC8B 233 SAME1 EQU * ocD1l FFOO OcD2 276 DC XL2°t 5005 
oc88 CO 87 OC8C 234 B s4+4 ocDs CO 87 OCC9 277 B PTIT £8428=76 
235 OCD? CIDSESCSDIDIDTES OCOG& 278 oC CL4B°INTERRPT NOT RESET, SOURCE OF ENFERRUPT UNKNGUN, * 
océc 3D C7 9200 236 CLI MODEL,C 'G* IS THIS MODEL 127 OL OCDF 40D5D6E34CD9C5E2 278 
oC90 F2 8% 03 237 JE ARND YES: SKIP NEXT INST-~ ol OCE? C5E36B40E 2D6E«D9 278 
0C93 F4& 40 02 238 cce X*02*.X*%4Q! SET CPU TO FAST BEFORE RETURN ol OCEF C3C540D6C640C9D5 278 £ 
0C96 35 01 OD6D 239 ARND L TXR1,XR1 OL OCF7 E3C5D9D9E4D7E340 278 
OC9A 35 02 OD6F 240 L TXR2ZeXR2 RESTORE COMMON REGISTERS BEFORE ALLOWING OCFF E€405D2D5D06E6D56B 278 
OC9E 35 04 OD71 241 L TPSRPSR THE RESET ODO7 4003C1E2E34004D6 CD22 279 UNEXPM DC CL28* LAST HODULE TO RESET WAS Xx* 
OCA2 CO 87 0000 242 DORES 8B x % GG DO RESET ODOF C4E4D3C540E3D640 279 
OD17 D9ICS5SE2ZC5E340E6C1 279 
OD1F E240E7E7 279 
280 
281 CEEREKEREEESEESERERSSRIELASHS RS SSIS SESS SKELSSSLAS GH SISSSRKE 
282 * 
283 * COME HERE IF OP END INTERRUPT NOV RESET BUT MODULE XX 
284 * SAYS HE HAS ONE PENDING BUT SEEMS UNAELE TO RESET IT. 
285 * THAT IS, WHEN COUNT IN "LASTME® IS 4. 
286 FEHEERES ERE LEAT ERRARERSEEREKESS NEL SR SAESSREKL ET SROSKSSAST ROSE 
287 
0023 CO 87 O21E 288 FAIL B UNPACK TO UNPACK THE PASSED ID 
OD27 O01 0027 289 Oc XL1°1° LENGTH 
OD28 OD8A 0029 290 oC AL2(LASTME) SOURCE ADDRESS 
OD2A OD4E O02B 291 OC AL2¢(IDFLD} DESTINATION 
oD2C CO 87 0030 292 8 *+4 
293 
0D30 CO 87 O21A 294 CANTR 6b PRINT TO PRINT ERROR *SG THAT INT NOT RES. 
CD34 C6 0034 295 DC XL1*C6* FLAGS 
0035 2A 0035 296 OC 1L142° LENGTH 
OD36 GD67 OD37 297 DC AL2(NOREST) MESSAGE ADDRESS 
0038 FFOO 0039 298 oC XL2*FFQO® MESSAGE 10 
003A CO 87 0030 299 8 CANTR LOOP TO INDICATE ERRGR 
OD3E D4D6C4E403054056 OD4E 300 IOFLD OC CLI7*MOOULE WITH 1D xx®* 
0046 C9E3C849C9C440E7 300 
OD4E €7 300 _ 
DATE 010CT73 L4MAY 76 PROG ID FF2-1 DATE 010CT73 L4HAYT6 PROG ID FF2-1 
EC NOw 821490 830234 PAGE 3 EC NO. 821490 830234 
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PART NO. 5555574 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5555574 
PAGE 4 ‘ PAGE “A 
FF21 SYSTEM TEST SUPERVISOR FOR MODEL 15 FF21 SYSTEM TEST SUPERVISOR FOR MODEL 15 
4 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
OD4F 49C4C9C440D5D6E3 0D67 301 NOREST DC CL25* DID NOT RESET INTERRUPT? 328 FREESE EEESEREEEEEEERERERAESAEEESESEERESESEEEEKERAAREAAREAERAEDERERERAAEES BOK 
0057 4009C5E2C5E340C9 301 329 * ROUTINE 2 - LOGOUT * 
a ceo eres ao 330 FERRER EREEEREEEER ERE RE SEEK ETA AREER AE RS REALE TASES EEE EEREE ERE EST SH 
331 * * 
ao: . : ieeaGe alee on maar RECORDING TABLE FROM EACH MODULE. * 
: NLY N DATA SWITCH SELECTION OF THIS ROUTINE} * 
0068 0000 0D69 303 TARR DOC XL2?*08 : 
OD6A 0000 OD6B 304 TIAR DC XL 2*0° aoe : RECORDING TABLE ENTRIES HAVE THE FOLLOWING FORMAT : 
OD6C 0000 OD6D 305 TXR1 oc XL2*O! 336 * CREE ERESEEEERERAE EERE RRERESE ERSTE SERRATE SRAKERERES * 
OD6E 0000 OD6F 306 TXR2 DC XL2°0° 337 * * CODE * LENGTH * WN BYTES OF FORMAT SPECIFIED * * 
OD70 0000 OD71 307 TPSR OC XL2'*O?* 338 * * BYTE * —N— * BY THE CODE BYTE * x 
OD72 0000 0D73 308 ZEROS DC XL2*0O° 339 * PEELE REELEEKEREA TAREE AMER SHARES STAKES SEERA EES & * 
OD74 0000 O9D75 309 TABLEA DC XL2*O* 340 * * * 
0D76 0000 OD77 310 STATUS OC XL2*O8 a 341 * * * 
0078 O100 0079 311 MASK1 OC XL 2*0100* 362 * * 
pee 20000 OD7B 312 MASK2 OC  xXL2"00008 343 & BIT 0 ~ PRINTABLE DATA ~ PRINT AS IS. * 
OD EC “GE Or OD7D 313 UNKWN DC = CL2*??8 344 * 1 — PACKED HEX DATA — UNPACK BEFORE PRINTING. * 
OD7E 0000 OD7F 314 TEMP DC XL2*08 345 * x 
OD8O 0000 0081 315 RESADD OC XL2*008 346 * A CODE BYTE GF X*FF* TERMINATES LOGOUT. * 
OD82 FFFF 0083 316 NEGI BC XLZ2°*FFFFE BST BRRKLKHEREEEERSEKEAREERER EKER REE EARMARKS KKS ERS EKEKEKE SERS KKEAEAERTRSEKKS SWE 
OD84s 00 0084 317 INTFLG DC XLiIfof O08D 02 OD08D 348 RTNO2 OC XLEftoO2! CURRENT ROUTINE NUMBER 
0085 OC6A OD8&6 318 OPENDX DC AL2CRRESTR)} OD8E 00 ODBE 349 DC XLEEoF FLAGS 
oDg7 OO OD87 319 INTKNT OC XLitot COUNTER FOR NUMBER OF INTERRUPTS OO8F FFFF OoD9G) «350 oC XL2°FFFEFP LAST ROUTINE PREFIX 
oD8s 00 OD&B 320 IDSAVE DC XL1L*°O# 35] ERASE EAE KKAKELSE RAE KEELER AETECKHEKSEKESECEERSEKEKEAKREAESERKAEEEEAKE HERES 
OB89 321 ICTR EQU * 0091 CO 87 O21A 352 8 PRINT SPACE PRINTER 
0vo89 0000 OD8A 322 LASTME DC XL2*O8 RIGHT BYTE--— ID OF MODULE WHICH OD95 13 0095 353 DC XLL°313° 
323 * LAST ADMITTED THAT HE CAUSED AN OP END OD96 3C 5C OBDA . 354 MVI PLINE#90,C**x?* PRINT A LINE GF ASTERISKS AS A 
324 * INT. LEFT BYTE-- NUMBER GF TIMES THAT OD9A OC 59 COBDS OBDA 355 "RVC PLINE+89(90),PLINE#90 SEPARATION ~— “ 
325 * THAT MODULE WAS ENTERED TO RESET HIS INT ODAG CO 87 O21A 356 B PRINT 
OD8&B 0100 OD08C 326 Xx100 DC XL2°O1L00* ODAS 22 ODA& 357 oc XLI®22¢* 
: ODAS C2 01 OA28 358 LA TABLEsXR1 POINT iR1 AT TABLE QF MODULES 
ODAS 7D FF 00 359 CKMOD CLI O( »XR1) .X* FFE BRANCH IF LAST ENTRY 
ODAC F2 81 CF 360 JE LOGEND BE ee Sas 
ODAF 75 02 OA 361 L 10(¢XR1),XR2 LOAD POINTER TO MODULE SPT 
ODB2 BD FF O8 362 CLI BO ,XR2) X* FES BRANCH IF NO RECORDING TABLE 
ODBS F2 81 8F 363 JE NXMOD1 
ODBS B85 02 09 364 L 90 eXR2) eXR2 LOAD ADDRESS OF TABLE INTO XR2 
ODBB B9 3F 00 365 L0OP5 YBF 0(,.XR2),B*O0O111111° IF INVALID BITS ~ TERMINATE LOGOUT 
ODBE F2 90 A2 366 JF NXMOD OF THIS MODULE 
367 * IF X*FF* CODE BYTE - MODULE DONE 
O0C1 2C 00 OEAA O01 368 MVC ADR(1),1(0,XR2) 
OoDC6& 3C 00 OEAS 369 MVI ADR-1,X"0* ; oh 7 
ODCA 2C OO O€55 Ql 370 MVC PLEN(1)910,XR2) MOVE LENGTH GF FIELD TO PRINT LINK 
OOCF 34 02 OE57 371 ST PADR gXR2 SET UP ADDRESS PARAMETER 
0003 CO 87 GEOO 372 B X*EOOt BRANCH ABSOLUTE OC*S 
373 
FFDA 374 GRG X* FFF &~xX*ODFC* +* IF FLAGGED. YOU HAVE ORG OVERLAP 
ODFC 375 ORG X*QDFC* , 
ODFC 0000 ODFD 376 BSCAX OC xL£2*oO0008 OC*S USED FOR BSCA 80F AND 88F. 
ODFE 0000 ODFF S577 BSCAY OC XL2'0000* MUST BE AT OOFC-ODFF. 
GEOQ 378 XEOO EQU * THIS IS E00 
OE00 OF 01 OES57 OEAZ2 379 ALC PADR(2),O0NE 
OEO6 OE 01 OES7T OEAA 380 ALC PADR(23,ADR é 
OE€OC AC O1 OE45 OF57 381 MYC UADR1{2),PADR SET UP UNPACK SOURCE ADOR 
OE12 68 80 00 382 TBN 04,.XR2),xX"80°8 GO PRINT IF THIS IS PRINTABLE ENTRY 
OEF15 F2 10 38 383 JT PRTENT 
OE18 BB 40 00 384 TBN Of +XR2) oX*408 IF NOT HEX DATA, MUST BE CODE ERROR 
O£18 F2 90 45 385 JF NXMOD TERMINATE LOGOUT OF THIS MODULE 
OE1E 2C 6O OE43 Ol 386 MVC ULEN(12),142XR2) SET UP PARAMETERS TO UNPACK HEX DATA 
0523 OC O01 OE47T OEAB 387 MVC UADR2(2) ¢X881 - 
OE29 OF OO OEAA OEAA 388 ALC ADR{1), ADR 
OE2F OF O1 OE47 OEAA 389 ALC UADR2 (2}5 ADR 
OE35 3C 40 O8FF 390 MVI PLINE¢127,C* ! CLEAR DCP PRINT AREA 
OE39 OC 83 OB8FE OSFF 391 MVC PLINE+226(132),PLINE4¢127 
OE3F CO 87 O21E 392 B UNPACK UNPACK HEX DATA 
0£43 00 0E43 393 ULEN DC IL1*o8* 
0£44 0000 OE45 394 UADRI DC AL 2(%-*) 
0E46 0000 QE47 395 UVADR2 OC AL2(%-*€) ¢ 
DATE  O10CT73  14MAYT6 PROG ID FF2-1 DATE  O10CT73  14MAYT76 PROG ID reas 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5555574 IBM MAINTENANCE. DIAGNOSTIC PROGRAM PART NO. 5555574 
PAGE 5 PAGE 5A 
FF21 SYSTEM TEST SUPERVISOR FOR MODEL 15 FF21 SYSTEM TEST SUPERVISOR FOR MEDEL i5 
ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT . 

O£48 CO 87 O21A 396 B PRINT PRINT GUT HEX DATA 0008 456 ARR EQU KOBE ADDRESS RECALL REGISTER 

OE4C 21 CE4C 397 oc XL1L°Z21° OOLO 457 IAR FQU  x*10! INSTRUCTION ADDRESS REGISTER 

O£4D F2 87 08 398 J NX CODE GO CHECK NEXT CODE BYTE 0084 458 ITAR5 EQU = X*84* ; 

OE50 CO 87 O2Z1A 399 PRTENT B PRINT PRINT OUT THIS ENTRY 0020 459 PIAR EGU X*20° PROGRAM LEVEL TAR 

OE54 O1 OE54 460 oc XL1itOL® 0040 460 PARR. EQU- X*40° PROGRAM LEVEL ARR 

0E55 00 CESS 401 PLEN DC ILi?ce | 0082 461 P&IAR EQU  X*88* INTERRUPT LEVEL 4 TAR 

0E56 0000 OF57 462 PADR OC AL2(#-*) 0084 462 PS5IAR EQU X*'84* INTERRUPT LEVEL 5 TAR 

OE58 35 02 OF45 403 NXCODE L YADR Ly XR2 MODIFY XR2 TG POINT AT NEXT 0010 463 PLMR EQU- X*10° 

OE5C E2 02 O01 404 LA 1(oXK22sXR2 CODE BYTE 0200 464 MODEL EQU  xX*200° SYSTEM MODEL TYPE AREA o1 

OESF CO 87 OCB 405 8 LOOPS GO CHECK THIS ENTRY 0212 465 TEST EQU X*212° SRT -ENTRY TO CHECK CONSOLE SWITCHES 

O£63 CO 87 O2iA 406 NXMOD B PRINT 0216 466 LINK EQU  X*216° SRT ~ENTRY TO CHAIN ROUTINE 

OE67 LL GE6T 407 oc XLEtLL? O21A 467 PRINT EQU  X*21A° SRT --ENTRY TG PRINT 

O£68 3C 60 O8DA 408 MVE PLINE+90,7°-8 PRINT LINE CF DASHES TO SEPARATE CZ21E 468 UNPACK EQU KX®f21E° SRT -ENTRY TO CONVERT HEX TO EBCDIC 

CE6C OC 5S O8D9 GBDA 409 MVC PLINESS9(90},PLINE+90 MODULES 0222 469 HALT EQU X*222* SRT ~ENTRY TO HALT 

O£72 CO 87 O21A 410 'B ' PRINT 0880 470 PLINE EQU X*880* START OF OCP PRINT LINE 

OET6 22 OET6 &Li pc XLit22? 471 TREP 

OE77 D2 OL OC G@L2 NXMODE LA 12(0,XR1L2,XR1 INCREMENT TG NEXT MODULE 472 TREP 

OE7A CO 8&7 ODAO . 413 5 CKMOD GO PRINT LOGOUT GF NEXT MODULE 473 TREP 

OE7TE CO 87 O21A 414 LOGEND 8 PRINT PRINT ENDING MSG AND INSTRUCTIONS 474 TREP 

OEB2 42 GE82 415 oc XL1°42° / 475 TREP 

OE83 48 0E83 416 DC IL1°72°* FFFF 476 END 

OE84 OEF2 O£85 417 DC AL 2(ENDKSG) 

OE86 FFEL OE8T 418 oc XL2°*FFEL* ~ 

OE88 3C SC OBDA 419 “Vi PLINE+90,C**?® PRINT A LINE OF ASTERESKS 

OE8C OC 59 0809 O8DA . 420 MVC  PLINE+89(90),PLINE+S9 

OE92 CO 87 O2ZLA 421 B PRINT 

CE96 26 CE96 9422 oC XL1*Z6* 

O£97 CO BT 0222 423 B HALT 

OE9B FFEL OE9C 424 oc XL2°FFE1* HALT TO ALLOW INTERVENTION 

CESD CO B87 0000 425 B 0 GO RESTART PROGRAM 

426 


G27 HESRKHRELK SRE 


428 * CONSTANTS EHHRKKARLERESEH AE SALS ESSERE REESE SALEKEERES TSRETSLEREREE ERE 
429 SHESRESEESSES 


OEA1 OO0O01 OEA2 430 ONE oc tL2?1°* 

CEA3 0004 OEAS 431 FOUR pc IL2¢e* 

OEFA5 0005 QEAG 432 FIVE oc IL2ts* 

OEAT 0881 OEA8 433 X881 DC XL2°881°* 

GEA OCOO OEAAR 434 ADR oc XL2°0* 
435 . 


436 VEKEREARSERLER 


437 * PRINTOUTS RESEEREEREARERERER RERKEREAEEES SHELLED TEREREL DEE BEETS SERA ETERS 
43Q FRRERESESEREE 


OEAB D3D6C 7TD6E4E340C3 OEDD 439 pc CL51*LOGOUT COMPLETE - REMOVE -BB~ FROM LEFT 2 SWS THEN ° 
OEB3 06D4D7D3C5E3C540 439 
OEBB 604009C5 D4 D6E5C5 439 
CEC3 4060C2C26040C 609 439 
OECB D6D440D3C5C6E340 439 
OED3 F240EZ2 E6E240E3C8 439 
OEDB C5D540 439 
OCEDE DICS5SE2C5E340C8C1 OEF2 440 ENDMSG DC CL21* RESET HALT TO RESTART! 
OEE6 D03E340E3D640D9C5 440 
OEEE E2E3C1D9E3 440 
441 


QoQ PHEEEEEEREEEERERES ST 


463 * RESERVED STORAGE SERERERELEEEE EEE RAS LEDAREEAELRERRERK EERE ES HHS ETE SSS 
GGG ERERKECESEREEEERSERESE 


OEF3 OEF4 445 SAVE] OS che TEMPORARY SAVE AREA FOR XR1 
SEFS OEF6 446 WORK os CL2 
OEF? '  OEFB 447 POINTR DS CL2 TABILE POINTER FOR NEXT MODULE 
OEF9 OEFA 448 TEMP1 ODS Cle 

449 


450 *8eSSSSTESE 


451 * EQUATES HESEERERERRESEEEESEERESTERCESESESAELESAESSAE LEEKS SSE SYSEOEKES 
452 B4HRSEREEEE 


0001 453 XRIL ° EQU 1 INDEX REGISTER 1! 
0002 454 XR2 EQU 2 INDEX REGISTER 2 5 
0004 455 PSR £QU = X*04* PROGRAM STATUS REGISTER e 
DATE 01L0CT73 L4&MAY 76 ; PROG 10 FF2-1 DATE o1oct?3 14MAY76 | PROG ID FF2-1 
EC NO. 821490 830234 PAGE 5 EC NOw 821490 830234 


PAGE SA: 








IBM MAINTENANCE DIAGNOSTIC PROGRAM oo PART NO. 5555574 


IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 5555574 
PAGE 6 PAGE 6A 
FF21 SYSTEM TEST SUPERVISOR FOR MODEL 15 FF2i SYSTEM TEST SUPERVISOR FOR MODEL 15 
CROSS-REFERENCE CROSS-REFERENCE 
SYMBOL T LEN VALUE DEEN REFERENCES SYMEOL T LEN VALUE DEFN REFERENCES 
ADR A 002 OEFAA 0434 0368* 0369* 0380 0388 0388%* 0389 RESET A004 OA12 0030 
ARND A 004 O0C96 0239 0237 RETURN A 004 OCO6 0153 0146* O15] 
ARR C 001 0008 0456 0092 0227 RNOTME A 004 OC62 0208 0034 
BSCAX A002 ODFD C376 RNXT A001 OCOD 0169 0035 
BSCAY A 002 ODFF 0377 RRESTR A OOlL OC6A 0226 0035 0318 
CANTR A 004 OD30 0294 0299 RTNOL A OOL OAED 0064 0016 
CKDCP A 004 OBA 0125 0103 0110 O119 0122 RTNOZ2 AOC] OD8D 0348 0086 
CKOSB A 003 OBD4 0139 RILGOP A 063 OAF9 OO71 00283 
CKLOG A 004 CB46 0098 0145 SAMEL A OC1 OC88 0233 0232 
CKMOD A C03 ODAS 0359 0413 SAVE1 A002 OEF4 0445 0089* C093 0095* 0096 0098* 0099 O101L 6102 0104 0105 0106 0116 
DCRES A 004 OCA2 0242 0227*% 0126 
ENDMSG & 021 OEF2 0440 0417 STATUS A 002 OGD77 0310 
ENTRY A 004 OAOA 0028 TABLE A OOL OA28 0039 0970 O107 0143 O183 0358 
FAIL A 004 0623 0288 0261 TABLEA A 002 OD75 0309 0393% 9708 
FF2 A 001 OA00 0005 TARR A 002 OD&9 0303 
FINDEM A 006 GC1D0 O175 0187 TEMP & 002 ODT7F 0314 0194* 0229 
FINDLP A 003 0873 0108 0114 TEMPL f& 002 OFFA 0448 
FIRST A004 OBEL 0143 0072 TER A003 OBAS 01246 C117 . 
FIVE A 002 OEA6 0632 TEST € OOl 0212 0465 OL27 
FOUR A 002 OE£A4 0431 0080 O12) TIAR A 0O2 OD6B 6304 
GOTO A005 OBED 0146 0142 TPSR &£ 002 ODT1 0307 0173% 0241 
HALT C 001 0222 0469 0423 TRL A 002 OALF 0033 0628 
IAR C 0G1 0010 0457 C028* 0029* 0030* 0031* 0032® TR2 A 002 OAZ1 6034. 029 
TAR5 C001 0084 0458 TRB A 002 OA23 C935 0930 
ICTR A OOl OD89 0321 OL75* O176 02324 TRS A 002 OA25 0036 9032 
IDFLD A O17 OD4E 0300 0291 TRS A 002 CA27? 0037 0032 
IOSAVE A 001 OD88 0320 0133* 0228 0229% 0230 0255 0258 TXRL A CO2 OD6D 0305 OL7TL*® 0239 
iINTFLG A 001 OD84 0317 TXR2 A 002 OD6F 0306 0172* 0240 
INTKNT A 001 OD87 0319 UACRI A 042 OF&5 0394 03812 0603 
INTRI A003 OC42 ©0186 UADR2 A 062 CES? 0395 O387® G389% 
LASTME A 002 OD8A 0322 0131* 0228* 0230 6255 0269 6296 UL EN - OO1 O£463 9393 G385* wee 
LINK C€ 001 0216 0466 0100 UNEXP & OOL OCBC 0266 0256 9260 
LOGEND A 064 OE7E 0414 0360 UNEXPM A 028 OD22 0279 C270 G275 
LOOP5 & 003 ODBB 0365 0405 UNKHN &£ 002 OD7D 6313 
MASK] A 002 OD79 0311 UNFACK C 901 O21E 94628 0267 C288 0392 
MASK2 A 002 OO7B 06312 WORK A 002 OFF6 0446 G104% O105% 0106 0112% 0113 
MODEL C 001 6200 0464 0150 0236 XE00 A 001 OCE£0O 0378 « 
MODKNT A GOl OCOA 0155 0068* OOT7# XR1 € GOL 9001 0453 CO70* 0071 0973 OCO?T6 6078 OOS 0081 O08l 0082 082% 9089 00914 
NEGL A CO2 OD83 0316 0092 0093 0094 0096 0107*% 0108 0108% 0109 O111 O118 6120 0121 
NEWINT A 004 OAL6 0032 0124 0125 G138 O138*% 0139 ©0141 0143% 0144 0146 0147 0148 0149 
NEXT A003 OBD1 0138 6140 0149% O171 0183 0185 O0185%* O186 9188 O191 0193 6208¢ 0239% 03583 
NOBODY A 001 OCA6 O25] GL77 0359 0362 6412 O6412* 
NOREST A 025 OD67 0301 0297 XR2 € G01 O0G02 0454 CO73* 0074 OC76 OC7T8 OO94 OLIL® GILZ2 OLIS G120 O147% O172 O191% 
NOTME A 004 GAODE 0029 90194 0196 0196% 0198 06240% 0362% 0362 ©0384 0364* 0365 08368 95370 
NXCODE A 004 OFS8 0403 0398 O371 0382 0384 0386 0403* 0404 004% 
NXMCD A 004 O£63 0406 0366 02385 X100 A O02 ODBC 0326 
NXMODL A 003 OEF77 0412 0363 - ¥8BL A 002 GEAS 0433 0387 
NXTMOD A 003 OC3F 6185 0189 0209 ZEROS A 002 OD73 9308 0131 0133 OLT4 
ONE A 002 OE€AZ 0430 0077 0175 06379 
OPEND A 002 OCOC 6166 0069 6090 TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 6 
OPENDX A 002 OD86& 0318 
PADR A002 OE57 0402 0371% 0379* 0380* 0381 
PARR C€ 001 0040 0460 
PIAR C€ 001 0020 0459 
PLEN AOOl O£55 0401 0370% 
PLINE C€ 001 0880 0470 0354# 0355 0355* 0390* 0391 0391* 0408# 0409 0409* 0419% 0420 0420% 
PLMR CC GOl. CO1S 0463 
POINTR A 00Z OEFB 0447 0091 0125 0144* 0148* 
PRINT C OO1 O21A 0467 0272 0294 0352 0356 0396 0399 0406 0410 0414 0421 
PRTENT A 004 OE50 0399 0383 
PSR C 001 0004 0455 0695 0173 01746* 02414 
PTIT &£ 064 OCC9 0272 0277 
P4TAR C OOL 0088 0461 
P5IAR C 001 0084 0462 0069% 00S0¢ 
RENTRY £004 0B26 6089 0033 * 
RESADD A 002 0D81 0315 " 
DATE OLOCT?3 14MAY76 PROG ID FF2-1 DATE - 010CTT73 L4MAY76 ; PROG 10 Fee~1 
EC NO. 821490 830234 PAGE 6 


EC NO. 821496 830234 PAGE SA 





IBM MAINTENANCE DIAGNOSTIC PROGRAM 


FF21 SYSTEM TEST SUPERVISOR FOR MODEL 15 


THE CHARACTER 


CL 1 THROUGH 16 


GBK GBD PN 55 


evee 


TIOYX"2F- B>U 
T<Of* & (TLO CY 
TCE_+ OGK 63/0, 
TKE> <CHO+H 4Hay 
T<KO>4C7QALED4t-G 
T< 2VC DiS-53C 
T<-00 &#80H*.4/0 
T.OLN(EE(*08 COU 
T< 194"9.0HD<}7M 
T.022CE (S 6HOHD 
(src i 
T +~4N6 )XPB4CNS>¢ 
T(E5. &(XESSP TE+$ 
T+ 6DE*5XECLT10C 
T+ 6f'cey. ng 
TF 70azZ8S. +D-p 


weoeocuaw 


T< 82% SAC Ve 


T(E9SCBY4* E9GCDY 


T+ 2S$OH*BF/DSQ T 


T+-#408*%BG & 


DATE 
EC NO. 


C10CT73 
821490 


INDICATES A BLANK COLUMN 


CL 17 THROUGH 32 


55573 EC 830234 
5/ 0<O=DHHG7" [Hi 
9( D+*CODC OS &# 


C?12UD0H &#5C2< 
es Bak samt RDCy 
(S 530H*. 1 #BGBax 
AC UA) EHG{ D+=6m 
+YT4DCQX ~E2WOHs 
BBTEGACPMZ 5" oy 
<SCO-COX s02€ f¥e 
(S€BAC.3 /O4TOH* 
"6*PS15L, 64.09(x 
ABUCXYBBG /BACQY 
N5>( 6#PS13( 2)p 
B I""OHSBE/<aP 1 
a 22." +nens <9 
+¥-8 ACV*+D-OACUM 
ae Tecnaewais 
EC EUH6E TEOH#BFS. 


D MH-E& 4*$G65>L 


14MAY76 
830234 


CMEB/A5D Yeig | 


OBJECT CARD LISTING 


CL 33 THROUGH 48 


SYSTEM TEST SUPE 
HH3MEBSM5D YxB20 
ASXMBB,/  ?HEBWO 
8) -AL DECTU4 -# 


e 


H -#5C?8H EH#ECPL 


° 


= [HAC6GA 63+ ED 


407 €OH*.4)HACGT7 


AALTG -C2-El4E . 


<<@BGCC] /0070H* 
BA:BG CNACPP /00 
B IRA 85° TMacos 
BG-D(S-4SOHe<2%B 
CLMCOLUCI5s {£6} x 
(LEBGCLC /OHELSY 
TLIXRG(ATE 
ECEUH6ETEOH*BFS. 
pone Tees 
*NHS fHESe7 TH 


BG- OH*BF SG 


K €3 /06ZOH*BFUI 


TE<IO5(4L1ISVEEFA 


CL 49 THROUGH 64 


RVISOR MOD 15 


aeec 


<Q-1DC 4HI- 


BO + OHCDIZ sD 


4A #4L HC?<0 8 
B &Y#4-D<ana ayD 
+Z1HG 73= CMace~ 
= <BABTE* "0C2 £3 
“10 oce Discs 
<+@HAB/3K €1'89¢ 
"( -<Z80 COYLS 0 
5 -52leg(eeag 
G /,FL 4S"0C 703 
U5=( 9(PK5)$650_ 
(Ra OH*(<(LOLSL 


eereewtecaececece 


B EYYn-a AaYGI}EH 
&JKO CU<AC DeJ0: 
2/0T /OKE & CM 
HC? "8LL*B(Y<OET 


6*PMS>PEEFCBOWA 


AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 


CL 65 THROUGH 80 


eeeveseo 


840a84aa 


eoenee 


BeVH2D~GyU 
GL-DACDJ* & 1180 
41$24aa <BovH1O 
_VEHHH < Hla)eys 
'4 #30 HBO- 2HzD 
B EY*( ?TNePD0a 
BCOa4A 51 CHDHSO 
"~60) BaVHJ4RE JD 
“CO-tn0 O.svy TB” 


oe eces 


( 6H ~~ .28TGiD 
12)PT1E Z1/8EFAD 
"4 aGSB4CHSZLU4AN 
LIMCW231HE<XD B# 


seee 


A $6a 


ee ain 


H?-aHAaYE"™_EHIOLA 


Sveevroceserocevrcvvce 


MCOZF 2L ZFF 210016 
YC- +D- O.BYVEJ< 1CEUG414FF210017 
BCUPS -G /06# CM >AOMA: 28FF210018 
RBl, /OHEIZBG S. “” BHE3A4FF 210019 
“L_XOSDCLI®$TEqI "@>0 E&4FF210020 
PROG ID FF2-1 
PAGE 7 


PART NO. 
PAGE 7 


5555574 


CL 81 THROUGH 96 


eeferseece 


FF 210000 
MDE4G32%FF210001 
| BO*CET4FF210002 
MD OHNA*FF 210003 
LDEYFLACEF210004 
| BOQAC #YFF210005 
e BEMC7>EHFF210006 
K B-OB 5 SHFF 210007 
(BE“CP1 FF210008 
*DE&4 Fz; JHEF210009 
( BEMC92DFF 210010 
(BEMAQDAFF210011 
“gq 3EDFF210012 
/FIML LHAFF 210013 


eecscee 


~SDFF210014 


co 


B< A"B-FF210015 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


FF21 SYSTEM TEST SUPERVISOR FOR MODEL 15 


CL 1 THROUGH 16 CL 17 THROUGH 32 


TFO#28UCT2<PNEC xX 


¥SEKAKKERA KEKE KE 


* FF2 — SYSTEM T 


* TG OBTAIN A 


* REMOVE ~BB- 


BERRA SRE RHE EK 


EUW ESE THE ADE MDHS 


Mera eter en RE Ei Ea at a as 


DATE 
EC NO. 


OLOCI73 
821490 


EBZPTEXTAG=( BFR 


SKKKKERHACE SRR EE 


EST SUPERVISOR. 


@ 


LOGOUT SET SHIT 


FROM SWITCHES. 


SEGRE HES ERAS EH 
= 7MEF j ! c 
L4MAY 76 

&40234 


CEJECT CARD LISTING 


CL 33 THROUGH 48 


e @esee 


6*P S8aGKBO 


SREREESESEEAE EERE 


eecesceceeecsescasns 


e 


CH 1 AND 2 TO ~B 


SCBOBRHPHED EMCEE 


EReKERE HER ERTAREE 


ae eGe eee 


Ct 49 THROUGH 34 


eecoeetececescessen 


SEEKERS SEAS E EERE 


er Vee Cena Be SBS e200 


B-. WHEN LOGOUT 


e@eceeorceeecavaczee 


REESE EES KE KEK 


eee cHeezteecasas 


PART NO. 
PAGE 


CL 65 THROUGH 80 


SCeeeeavweecs ovo 


SEEGER ARERERE 


eoceoececweaetzteceasec 


1S COMLETE, 


e@eereesvecenceceon 


RHERKEKKKE RK REED 


oeete 


5555574 
TA 


Ci 81 THROUGH 96 


EB FF210021 


eee & FF2} 0022 


eewoe eee 


* FF2i0023 


eoaoo »ee 


* FF 210024 


eoeoe oe 


* FF210025 


*88*e  FF210026 


FZ ASC RA SOQ 13490630750 51376"8aFF 210027 
RSE PAGE. ei a a a a 
PROG ID FF2-1 





PAGE | TA: 
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PART NO. 
PAGE 


TBM MAINTENANCE DIAGNOSTIC PRGGRAM 


nee IBM MAINTENANCE DIAGNUSTIC PROGRAN PART NO. 


4247603 
PAGE 1A 


€123 3340 FUNCTION TESTS — MOD 12 C123 3340 FUNCTION TESTS - MOD i2 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 





2 * LAST CHGS07/16/76 293A 38 USING DRVWK,XR2 INDEX REG 2 POINTS TO ORV WORK AREA 
3 DECK 4 39 KSSH SESSESEKERSKSESTSSLESSSSKSSESEKSSSRAELSSHAEKKSKSHSHKS SEL SHISSERSSTSESHSRELSE KSEE 
4& SEQ 0 40 @ * 
5 TREP 41 * ROUTINE O1 — READ STATUS COMMANDS TEST * 
6 * 42 ® * 
0G00 7 C12 START G GZ KERSSKKSKETSRHSE SKE SE SSSSEKSEATESESEAESKSCSESEALSSSEKSSKSLHRE HL SHSEASKEKS SAAS SAS 
GE KKKSAKKLECKEKSEKEARHEKKKKKKHKEKKKKKE CSR RELSKEKRKKEKKASHREKACE KKK SKAEKEKCKSEKES 44 & 
9 * = OA3A O21 OA3A 45 RTNOL Oc XLEfOlt ROUTINE NUMBER 
10 * SECTION PREFACE * CA3B 00 OA3B 46 oc XL1°00? ROUTINE FLAGS 
li * : * OA3C OATS OA3D 47 oc AL 2(RTNO2) ADORESS OF NEXT ROUTINE 
LQ RHERSSKERSEKEEKEEKSAKMKESLAKLKEEKKKKKE GS KEKRKESERREKKKKESHKALAKKREREKEKKEEKSE RE 48 * 
13 * OA3SE 3C CA 28FE 49 RO1l MVI LPCNT,10 LOOP THIS ROUTINE 10 TEMES 
OA00 14 ORG X*OA00t 50 * 
; 15 * GA42 CO 87 13B2 Si 8 SEGIN PERFORM ROUTINE INIT: ALIZATION 
OAOO C123 OA01 16 PID DC XL2°C123° SECTION ID AND REVESTON LEVEL OAS6& OAGE OA4ST 52 oc AL2 (ROLLA) "LOOP® SUBROUTINE RETURN ADDRESS 
QA02 00 OA02 i? DC XL1*OO8 SECTION FLAGS QAS8 O0A66 CA49 53 OC AL2(RCiB} *NXORV® SUBROUTINE RETURN ADDRESS 
Oa03 Ol OAQ3 18 RIN DC XLL*OL* CURRENT ROUTINE RUMRBER 54 * 
OA04 0000 OA0S 19 DC XiL2?7 00008 RESERVED OA4A CO 87 1597 55 8 RECAL RECALIBRATE 
OAO6 OAZA OAO7T 20 PFC oc ALZ(RTNO1L} ADDRESS GF FIRST RGUTINE PREFACE 56 = i 
OAOS FFFF GA0E 21 DC XL2°FFFEF® RESERVED OA4E CO 87 1863 57 RO1A 8B RDSNS READ DIAGNOSTIC SENSE DATA 
22 * OA52 CO 87 184B 58 B ROLOG READ AND RESET BUFFERED LOG 
OAOA C14000 QAdC 23 UDTO oc XL3*C140008 3340 UDT ‘ §9 & : i Ye woe 
OAOD 101000 OAOF 26 UDTl oc XL3*°101000* 5471 UDT FOR AMOP LINK OAS6 3A OL 290E " 60 SBN IDDOR el START DOOF ON ODD STORAGE ADORESS 
25 & 61 * 
0A10 GALE 26 DS XL9O RESERVED OQASA CO 87 1863 62 8 ROSNS READ DIAGNOSTIC SENSE DATA 
27 OA5E CO BY 1848 63 8 RDLOG READ ARD RESET BUFFERED LOG 
OA1LSD 00 OALS 28 COM DC XL1*00° 3340 PROGRAM COMMUNICATION AREA 64 * 
OALA OAIA . DS xL1 RESERVED OA62 CO BT 1496 65 B MXDRY REPEAT FOR EACH DRIVE BEING TESTED 
30 * 66 * 
OAIB OAIC = 31 LORIO DS AL2 MICROCODE LDR (C17) IN STG ENDICATOR OA6G OF OO 28FE 280F 67 ROLE SLC  LPCNT(1),PE DECREMENT LOGP COUNTER 
OA1LO OA1LE 32 AMOPID DS AL2 AMOP (C19) IN STG INDICATOR OA6C CO O1 14EE 68 ONZ Loop REPEAT TEST 10 TIMES 
OALE 0420 323 FAQTID Os AL2 ATTACHMENT HICRO-CODE {FAS} IN STG 69 € 
34 * 0A70 CO 87 0216 70 8 LINK GO TO NEXT ROUTINE 
OA21 OA39 35 SVPFC OS XL25 SECTION PREFACE STGRAGE AREA 71s 
36 *® 
DATE 23AUGTS5 OSNOV7S 19MART6 010CT76 PROG ID C12-3 DATE 22AUGT5 OSNOV75 LOMAR 76 010CT76 PROG ID C12-3 
EC WO. 827785 827827 . 827872 571931 PAGE 1 EC NG. 827785 827827 8278T2 §71931 _ PAGE 1A 
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IBM MAINTENANCE OLAGNOSTIC PROGRAM TBM MAINTENANCE DIAGNOSTIC PROGRAM 


PART NOW 4247603 


PART NOw. 4247603 
PAGE 2&8. 


PAGE 2a 


4 


C123 - 3340 FUNCTION TESTS - MOD 12 c123 


3340 FUNCTION TESTS - MOD 12 


ERR LOC OBJECT CODE 


= 
ADDR STMT SOURCE STATEMENT ERR LOC OBJECT 





CODE ADOR STMT SGURCE STATEMENT 
PZ FREER ERAAAEREREEEEREE SEES EERE CERES EERERES ESE EEEKEER EE SEE EERESEREE ERE $ 109 SSHKAKSESSRERSSSSESASARSESTSE HERES SSKESSCRSSHSSSSSSESLSESCSSESSSSHSESSSS ESSE OSSSESES 
74 * = Llu * * 
75 * ROUTINE 02 — CYLINDER ZERO ACCESS TEST * lll * ROUTINE O03 — CE CYLINDER ACCESS TEST _ 
16 * *. 112 
TT FREER EESEEREREREREREEEREEREE EES EERE EE EREAKERE ESS EEEEEEREASSEE SE UEEESESEEERE L113 FHESSHHSESESRESSSERSSESESHSESSESSAKESLAEESSHSESSSHSESSSSAESHROSKSSHSESSH SS HS SHED 
78 * 114 * 
OAT% 02 OA7T4 79 RTNOZ DC XL1*02* ROUTINE NUMBER OABL 03 OAB1L 115 RTNO3 Oc di t*°O38 ROUTINE NUMBER 
CATS 00 OA75 = 80 oC XL1*008 ROUTINE FLAGS OAB2 00 OAB2 116 oc XL1*00¢ ROUTINE FLAGS 
OAT6 OAB1 OA77~— 81 DC AL2(RTNO3) ADDRESS OF NEXT ROUTINE OAB3 OAEA OABS 117 OC AL2(RTNO4) ADORESS OF NEXT ROUTINE 
82 * 118 * 
OAT8 3C 00 0A94 83 RO2 MVI RG2A1,0 INITIALIZE HEAD ADDR TO 0 OARS 3C 00 OACD 219 RO3 MVI = =RO3AL,0 INITIALIZE HEAD ADOR TO O 
84 * 120 * 
OA7TC CO 87 1362 85 B BEGIN PERFORM ROUTINE INITIALIZATION OABS CO 87 1382 121 B BEGIN PERFORM ROUTINE INITIALIZATION 
OA80 0A84. OA81l 86 DC AL2(RO2A) *LOOP* SUBROUTINE RETURN AODRESS OABD OAC1 OABE 122 oc AL2(RO3A) *LOOP* SUBROUTINE RETURN ADURESS 
OA82 OAQF OA83 = BT DC AL2(RO2B) "NXDRY® SUBROUTINE RETURN ADDRESS OABF OADB OACO 123 DC AL2(RO3B) *NXDRV® SUBROUTIA. RETURN ADDRESS 
88 * 124 * 
OA84 CO 87 1597 89 RO2ZA B RECAL RECALIBRATE OACL CO 87 1597 125 ROZA 8 RECAL RECALIBRATE 
OA88 CO B7 1863 90 B RDSNS DETERMINE DATA MODULE SIZE OACS CO 87 1853 126 8 RDSNS CETERMINE OATA MOOULE SIZE 
OA8C CO 87 16AD 91 B RDHAE READ HOME ADDR AND RO COUNT EVEN 127 * 
92 * OCAC9 CO 87 158B 128 8 SEEK SEEK (3340 PHYSICAL AODRESS) 
0490 CO 87 1588 93 B SEEK SEEK CACD OACD 129 RO3AL oS ILi HEAD O - ll 
OA94 0A94 94 ROZAL DS It PHYSICAL HEAD ADDRESS OACE 015D OACF 130 DC 1L2°349¢ CYLINDER 349 
OASS 0000 0A96) = 95 DC IL2*°08 PHYSICAL CYLINDER ADDRESS 131 * ; 
96 * OADO CO 87 16AD 132 B RDHAE READ HOME ADDR AND RO COUNT EVEN 
OA97 CO 87 16AD 97 B RDHAE READ HOME ADDR AND RO COUNT EVEN 133 © 
98 * OAD4 CO 87 1496 134 8 NXORV REPEAT FOR EACH DRIVE BEING TESTED 
OASB CO 87 1496 99 B NXDRV REPEAT FOR EACH DRIVE BCING TESTED 135 * 
100 * OADB O- OO CACD 280F 136 RO38 ALC RO3ZA1(1)2P1 INCREMENT HEAD ADDRESS 
OASF OF 00 0A94 280F 101 R028 ALC = ROZALCE1) »P1 INCREMENT HEAD ADDRESS 137 * 
102 * OADE 3D OC OACD 138 CLI ROZA1L 12 LOOP UNTIL ALL HEADS 
OAAS 3D OC OA94 103 CLI ROZA1,12 LOOP UNTIL ALL HEADS OAE2 CO 82 14EE 139 BL Looe HAVE BEEN TESTED 
OAAS CO 82 14EE 104 BL Locpe HAVE BEEN TESTED 140 * 
105 * OAE6 CO 87 0216 141 B LINK GO TO NEXT ROUTINE 
OAAD CO 87 0216 106 B LINK GO TO NEXT ROUTINE 142 * 
107 * 
DATE = 23AUG75 OSNOV75 LOMART6 O10CT76 PROG 10 C12-3 DATE 23AUGT5S OSNOV75 1L9OMART6 OLOCT76 PROG ID ee 
&C NO. 827785 827827 827872 571931 PAGE 2 EC NO. 827785 827827 827872 §71931 PAGE 








IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247603 BK MAINTENANCE DIAGNOSTIC PROGRAR PART NOe £247603 
PAGE 3 PAGE 3A 
C123 3340 FUNCTION TESTS ~ MOD 12 Ci23 3340 FUNCTIOR TESTS = MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBSECT CODE ADOR STHT SOURCE STATERERT 
144 SERESSRERESASRSEES SER ELESORE EE SERRE REE EE ESSE OEE ELS REREEEEHERDROREE ES ERS iae8 « | PSSRSEGSS CRE SR SRE S SSE SESSOHER EE EEE EOREESRHEREEEERERSERERaESeaRREEE 
145 & * 189 «6 * 
1466 * ROUTINE 04 - CYLINDER ZERQ READ DATA TRANSFER TEST ¥ 190 «€ ROUTINE OS ~ CE CYLINDER READ DATA TRANSFER TEST e 
147 * * AS) & * 
£48 SAEREESERSERERERES SEARS REREEY ERO SERS RES A RECEDES EL ERAEE AREER ERO RO EERE 19? g  NSMESSESESSSEREESSORES ESE SR IGESEALORESERESOOSEREEE EEESSCEEORSEEES 
149 % 193 # 
OAEA 04 QOAEA 250 RYNGE ne KLL®toO4é ROUPTENE NUMBE® 0838 O§ OB3E LSé RYNOS CC XLit ose ROUTING NUKBER 
OAEB O6 QSER £51 DC XLE* age RBUT Ets ELRGS CB39 Oo GB39 195 oC XLItacs ROUTINE FLAGS 
CAEC OB38 GAED i582 Ot ALZERITNOS} ABUDRELS CF NEXT ROUTIRE ORBBSA GEC O&8 3E 1Sé oc ALZERTNOS) ADDRESS OF NEXY ROUT FRE 
153 « 97 & 
QAEE 3C 00 OBS6 154 ROS MY I RO& ELD PNITEALIZE HEAD ADDR TS G6 CE3C 3C OO aR&e 198 RoE ME RO5Bi,0 INITIALIZE HEAD abDOR FO © 
LSS & QQ & 
OAFZ CO @7 1382 156 6 BEGIN PERFORE § ZATION OB46 CO 87 LBB; 206 8 REGEN PERFORM ROUTINE INITIALIZAT FON 
OAFG OB8BG2 CART L57 BC AL ZEROGE ) TE0GP# -§ S AODRESS O44 a65a CE&5 ZOOL OC ALZTRESR} *LOOP*® SuBROUTE GS RETURN ADDRESS 
CAFE OB76 ORF O 156 DC ALZTROSCI “NXORV iN ACORESS OB46 GBAZ SEGA? 202 DC ALZERGEC: *NXORYS SUBROUTINE RETURN ADDRESS 
Sg x 202 * 
OAFA CCG 8? 159% 160 ROGE B RECAL RECALIGSRATE OB438 CO 8? 25¢% 204 ROSR B RECAL RECAL EIBRATE 
OAFE COQ 87 1863 EGi B RDSNS DETERMINE DATA HGDULE SIZE CB4C CC BF LRE2 ZOOS 8 RDSKS DETERMINE BATA MODULE Size 
62 % 2G $$ 
OBO2 CO 87 1588 163 ROQ4B 3 SEEK SEEK €3340 PHYSICAL ADBRESS 3 OBS6G €O BF 145Be 2GF ROSB 8 SEER SEER €3340 PHYSICAL &OORESS} 
GBO6 CBOG 164 RO4&B} DS LLL hEEAD G ~ Li OBS4 OBS&4 208 ROGBI DS ELL HEAG O ~ ZL 
OBO GoOOoo O8CE& £65 oC iL2*o8 CYLINDER GC OBSS O15D OBS& 2aS oc TL2¢3498 CYLINDER 349 
166 * 210 * , . 
309 CO 87 16AD 167 8 RDHAE READ HOME ADDR AND RO COUNT EVEN OB57 CO 8&7 36ad 211 ROSS? 8 RDHAE READ HOME ADDR AND RO COUNT EVEN 
160 * 212 * 
OBOD CO 87 174} 169 B ROCKD READ COUNT-KEY-DATA OB5B CO 87 1A29 213 8 ORIENT TRACK ORIENTATION DELAY 
OBL1I OO OB11 170 oc IL1*68# RECORD O (EVER} 214 
171 # OBSF CO 87 1741 215 8B ROCKD READ COUNT—KEY—DATA 
OB12 3A 01 290C 172 SBN IDDCR el CHECK AGAIN USING 0863 06 OB63 216 DC ILL*oF RECORD O (EVEN) 
OB16 3A O01 290E 173 SBN IODOR 21 OCD STORAGE ADDRESSES 217 * 
174 * OB64 CO 87 1A29 218 8 ORIENT TRACK ORIENTATION DELAY 
OB1A CO 87 16CO 175 B RDHAO READ HOME ADOR AND RO COUNT ODD 219 * 
OB1E CO 87 16FF 176 B ROROO READ KEY-DATA RECORD 0 ODD OB68 CO 87 174i 226 B RDCKD READ COUNT-—KEY—DATA 
177 * OB6C O01 OB6C 2221 OC TLLeze RECORD 1 
OB22 CO 87 1496 178 B NXDRV REPEAT FOR EACH DRIVE BEING TESTED 222 # 
179 * : OB6D 8D 02 14 2827 223 Cie DLT3.XR23,P256 GO TO ERROR END IF mee 
OB26 OF 00 OROS 280F 180 RO4C ALC RO4B1(1),P1 INCREMENT HEAD ADORESS OB72 CO O1 1CF3 224 BNE ERRLS RESIDUAL KL/ODL INCORRECT 
181 # 225 
082C 3B OC OBO6 182 CLI RO4B1,12 LOOP UNTIL ALL HEADS OB76 35 O01 290E 226 L IODOR, XRi POINT TO RESIDUAL DODE 
OB30 CO 82 14EE 183 BL Looe HAVE BEEN TESTED 227 * 
184 *# OB7A 4D 03 03 283¢ 228 ROSB2 CLC 3(4eXR1LE eHCPIN CONTINUE IF RESIDUAL 03 
0B34 CO 87 0216 185 8 LINK GO TO NEXT ROUTINE OB7F F2 81 13 229 JE ROSD DODF IS CORRECT 03 
186 *# 230 * 03 
OB82 OC 03 2930 2839 231 MVC EXP(4),WCPTN SAVE EXPECTED RESIDUAL ODOF 03 
0888 1C 03 2934 O3 232 MVC ACT 23(46XR1L) SAVE ACTUAL RESIDUAL ODOF 03 
OB8D 3A 80 28E5 233 SBN IND2,OD0FER TURN ON RESID DODF ERROR INO 03 
234 + 03 
OB9! CO 87 1003 235 B ERR1LO GO TO ERROR END , 03 
236 # 
OB95 D2 O1 04 237 ROS5D LA 4OsXR1I—-XR1 LOOP UNTIL 03 
CB9B OF 01 2925 2815 238 SLC ROOCF¢8(2),P4 ALL QF RESIDUAL ODDF 03 
OB9E CO O1 OB7A 239 BN2Z RO5B3 HAS BEEN CHECKED 03 
240 4% 
OBA2 38 O01 29GE 241 TBN IDDOR,1 READ AND CHECK 
OBAG 3A O1 290 242 SBN IDODR ol RECORD 1 AGAIN 
OBAA CO 90 O0BS7 243 BF RO562 USING ODD STORAGE ADDRESS 
244 & 
OBAE CO fT 1496 245 B NXORV PEPEAT FOR EACH DRIVE BEING TESTED 
246 © 
OBB2 OF 00 OBS4 280F 247 ROSC ALC ROSBICid PI ENCREWENT HEAD ADORESS 
248 & 
O8B8 3D OC 06564 249 CLI ROSBI.12 LGOP UNTIL ALL HEADS 
OBBC CO 82 i4aéE 250 BL Loop HAVE BEER TESTED 
251 % 
OBCO CO 87 O226 252 B LINK GO TO NEXT ROUTINE 
253 ¢ 
YATE 23AUG75 O5NOV75 19MAR 76 OLOCT76 PROG ID C12-3 DATE 23AUG75 OSNOV7S LOMART6 OLOCT 76 PROG [ID C12+3 
EC NO. 827785 827827 827872 571931 PAGE 3 EC NO. 827785 827827 827872 571931 PAGE 3A 
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-€2123 


ERR LOC OBJECT CODE 


OBC4 
oBcs 
OBC6 


OBCS 
oBcc 
o0BD0 
OBD2 


OBD4 
OBDS 


OBDC 
OBEO 
OBE! 


OBE3 
OBES 


OBEA 
OBEE 


OBF2 
OBF6 


OBFT 
OBFB 
OBFF 
0coo 
ocol 


ocos 
oco9 


OCOA 
OCOF 


oc13 


0cl7 
ocic 


OCIF 
oc25 
OC2A 


0C32 
0035 
0C38 


OC3F 
0043 
Oc4T 


6C4B 


DATE 
EC NO. 


3340 FUNCTION TESTS - MOD i2 


06 
00 


oc 5D 


3c 


co 


OA 


87 


OBE3 
OC 4F 


co 
co 


co 


87 
87 


37 


015) 


B8 
co 


co 
co 


£0 
01 


co 
co 
02 
00 
co 


co 
02 


8D 
co 


35 


4D 
F2 


oc 
1c 
3A 
co 


b2 
OF 
co 


38 
3A 
co 


co 


08 
10 


87 


87 


87 


87 


87 


87 
87 
02 
ol 
O11 


03 
81 


03 
03 
80 


87 
ol 
O01 
G1 
01 
01 
90 


87 


2BFE 


13B2 


1597 
1863 


15BB 


00 
1496 


16AD 
1A2z9 


1741 
LA29 


1906 


1A29 


1741 


14 2827 


1CF3 


290E 


03 2839 


13 


2930 
2934 
28E5 


1D03 
04 - 
2925 
0C17 
290€ 
290E 
OBE3 


1496 


23AUG75 


827785 


2839 
03 


2815 


ADDR STMT 


OBC4 
oBCcS 
OBCT 


OBD1 
0BD3 


OBEO 
OBE2 


OBF6 


OBFF 
ocoo 


oco9 


OSNOV75 


827827 


PART NO. 


4 EC NO. 


4247603 ISM MAINTENANCE DIAGNOSTIC PROGRAM PART NO 4247603 
PAGE 4 , PAGE 4A 
C123 3340 FUNCTION TESTS - MOD 12 
SOURCE STATEMENT ‘ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
255 RE ORK REE ERE RE RHE TRE EAEERERATABHE EAE SRK ASSERHE ECE SRSA SE TER HEETRAAE RH OC4E OF 00 28FE 280F 323 RO6C SLC LPCNTC1) Pi LOOP THIS TEST 10 TIMES 
256 * * 0C55 CO OL 14EE 324 BNZ LOOP 
257 * ROUTINE 06 -— WRITE DATA TRANSFER TEST * 325 * 
258 * * 0C59 CO 87 0216 326 ) LINK GO TO NEXT ROUTINE 
259 EEREKHKAEREAEKEKEKKAREHERERESRERE EKEEGIEE REE EKKSEKS SEATS CLEAREST SE SSEESEES 327 & 
260 * 
261 RTNDG DC XL1*06! ROUTINE NUMBER 
262 oC X¥L1*00? ROUTINE FLAGS 
263 DC AL2(RTNOT} ADDRESS OF NEXT ROUTINE 
264 * 
265 ROS MVI  LPCNT,10 Looe THIS TEST 10 TIMES 
266 * 
267 8 BEGIN PERFORM ROUTENE INITIALIZATION 
268 oc AL 2(RO6B) *LOGP*® SUBROUTINE RETURN ADDRESS 
269 DC AL2(RO6C} *NXDRV® SUBROUTINE RETURN ADDRESS 
270 * 
271 ROA B RECAL RECALIBRATE 
272 8 RDSNS DETERMINE DATA MODULE SIZE 
273 % 5 
274 8 SEEK SEEK (3340 PHYSICAL ADDRESS? 
275 oc IL1¢O* HEAD 0 
276 oc IL2*349* CYLINDER 349 } 
277 * 02 
278 2068 TBN DIND(.XR2)-NOWR BYPASS DRIVE IF 02 
279 BT NXDRV WRITE INHivI TED 02:3 
280 * 
281 B RDHAE READ HOME ADDR AND RO COUNT EVEN 02 
z82 * } 
283 8 ORIENT TRACK ORIENTATION DELAY 
284 * 
285 RO6B1 B - RDCKO READ COUNT-KEY-DATA } 
286 pc IL2¢1¢ RECORD 1 
287 * 
288 B ORIENT TRACK ORIENTATION DELAY } 
239 * 
290 B WRCKD WRITE COUNT-KEY-DATA — aahees ; oc * 
291 DC ItL1*2e RECORD 2 } 
292 DC IL1¢*O* NN = 00 
293 * ; 
294 B ORIENT TRACK ORIENTATION DELAY } 
295 * 
296 B RDCKD READ COUNT-KEY-DATA 
297 DC IL1*2¢ RECORD 2 j 
298 * 
299 CLC DL3eXR2)eP256 GO TO ERROR END IF 
300 BNE €RR18 RESIDUAL KL/OL INCORRECT b 
301 * 
302 L IODOR,XR1 POINT TO RESIDUAL DOOF 
303 * 3 
304 RO6B2 CLO 3(49XR1),HWCPTN CONTINUE IF RESIDUAL 03 
305 JE RO6D DODF 1S CORRECT 03 
306 * 03: 
307 ‘MVC = EXP(4),WCPTN SAVE EXPECTED RESIDUAL . DODF 03 sf pelea moet 
308 MVC = ACT 9 33.04 eXRL) SAVE ACTUAL RESIDUAL DDDF 03 
309 SBN IND2-eOD0DFER TURN ON RESID DDDF ERROR IND 033 
310 * 03 
311 B ERR19 GO TO ERROR END 03 
312 * 03: 
313 RO6D LA 4 ¢XR1) eXR1 LOGP UNTIL 03 
314 SLC RODCF4+8(2),P4 ALL OF RESIDUAL ODDF 03 
315 BNZ  R06B2 HAS BEEN CHECKED 03} 
316 * 
317 TBN IDDDR»1 WRITE AND CHECK 
318 SBN IDDDR»1 RECORD 2 AGAIN. 3 
319 BF RO6B USING OOD STORAGE ADDRESS 
320 * 
321 B NXDRV REPEAT FOR EACH DRIVE BEING TESTED > 
322 * 
LOMART6 010CT76 PROG ID C12-3 DATE 23AUGTS O5NOVTS5 LOMART6 010CT76 PROG 1D c12-3 
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C123 


ERR LOC OBJECT CODE 


o0c50 
OCSE 
OC 5F 


OCél 
0C65 
OC6é7 


0cé9 
OC6C 


0C70 
OC TS 


OC78 
oc7c 
oc7O 
OCTF 


oc83 
OC87 


OC8B 
OC8F 


MATE 
EC NO. 





3340 FUNCTION TESTS - MOD 12 


07 
00 
0c 93 


CO 87 
0cé69 
OC 8F 


B8 
co 


08 
10 


co 
co 


87 
87 


co 
00 
0150 


87 
CO 87 


co 
co 


37 
87 
CO 87 


CO 87 


13B2 


00 
1496 


1597 
1863 


15BB 


16AD 


18BA 
16CO 


1496 


0216 


23 AUG75 
827785 





PART NO. 
PAGE 


ADDR STMT SOURCE STATEMENT 
329 SRRSMEEERGREAER ARE SERSEEERAR ERATE ERE SEREEERKERR EER REREESEEERERE ROR RERES 
330 * * 
331 * ROUTINE O7 - WRITE HOME ADDRESS TEST * 
332 * * 
333 SERESERSRGAEER ERE ERE EY EE EER SARE HER EERE SERRE EKEAES RERERE ERA ERE EERE EONS 
334 * 

OC5D 335 RTNO? OC XL1i*o7? KOUTINE NUMBER 

OC5E 336 oC XL1°008 ROUTINE FLAGS 

OC60 337 OC AL2Z(RTNOS) ADDRESS OF NEXT ROUTINE 
338 * 
339 B BEGIN PERFORM ROUTINE INITIALIZATION 

OC66 340 DC AL2(RO7A) "LOOP*® SUBROUTINE RETURN ADDRESS 

OC68 341 OC AL2(RO7B) *NXORVE SUBROUTINE RETURN ADDRESS 
342 * 
343 ROTA TBN DIND(.XR2).NOWR BYPASS ORIVE IF 02 
344 BT NXDRV . WRITE INHIBITED 02 
345 * 
346 8 RECAL RECALIBRATE 02 
347 B ROSNS DETERMINE DATA MODULE SIZE 
348 * 
349 B SEEK SEEK (3340 PHYSICAL ADDRESS} 

OCcC7C 350 OC IL1itot HEAD 0 

OC7E 351 oC IL2*349* CYLINDER 349 
352 * 
353 B RDHAE READ HOME AEDR AND RO COUNT EVEN 
354 & 
355 B WRHAOG WRITE HA AND RO GDD 
356 B RDHAO READ HA AND RO COUNT ODD 
357 * 
358 8 NXDRV REPEAT FOR EACH DRIVE BEING TESTED 
359 & 
360 RO7B 8 LINK GO TO NEXT ROUTINE 
361 * 

OSNOV7TS 19OMART76 C1OCT76 PROG ID C12-3 
827827 82787z 57193) PAGE 5 


C123 


ERR LOC OBJECT CODE 


9C93 
0C94 
ocgs 


O0c97 
Oc9B 
OC9OF 
OCAl1 


OCA3 
OCA7 


OCAB 
OCAE 


ocB2 
OCES6 
OCBT 
ocB9 
OCBD 


occl 
occs 


Occé 
OCCA 
OccB 


Occc 
ocooe 


ocol 
OCD6 


OCDA 


OCDE 
OCE3 


SCE6 
OCEC 
OCFi 
OCF5 
OCF9 
OCFC 
op02 
OD06 
ODOA 
ODOE 
0012 
0016 
oDiC 
0020 


DATE 
EC NO. 
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08 
00 
0Dz8 


3C 900 
Co a7 
OCAB 
0D16 


co 
co 


87 
87 


88 
co 


08 
10 


CoO 87 
0150 
CoO 87 
co 87 


co 
ol 


87 


co 
02 
14 


87 


co 
15 


87 


8D 
co 


02 
01 
35 01 


40 
F2 


03 
81 


0c 
Ic 
3A 


03 
03 
80 
CO 87 
D2 


OF 
co 


01 
O01 
01 


38 
3A 
co 


01 
01 
90 


cO 87 


OE 00 


30 
co 


OB 
04 


OCB6 


13B2 


1597 
1863 


00 
1496 


156B 


16A0 
1808 


1741 


1906 


1741 


ADDR 


0c 93 
0C94 
0C 96 


OCAO 
OCA2 


OCB6 
OCBB 


Occs 


OCCA 
OcCcB 


oc 00 


14 2827 


1CF3 
290E 


03 2839 


13 

2930 
2934 
28E5 
1003 
04 

2925 
OCOE 
290E 
290E 
OCcCl 
1496 
OCB& 


OCBE 
14EE 


23AUG75 


827785 


2839 
03 


2815 


280F 


OSNOV75 
827827 
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PAGE 


4247603 
‘SA 


STMT SOURCE STATEMENT 
363  MERSSS SSSR CREE NS HER ESS EEEL sees EL eReeSEReReeenesexaREceseSESSeaees 
364 * * 
365 * ROUTINE 08 - HEAD WRITE/READ TEST * 
366 * * 
367 5 RAESSSSSR SERS SERS S SOLDERS SUES ERSSREEECEERESSESEtEESEEENSESNESERESEEe 
368 * 

369 RTNOS OC XL1*08* ROUTINE NUMBER 

370 DC XLi*oo8 ROUTINE FLAGS 

3271 OC AL2(RTNOS) ADORESS OF NEXT ROUTINE 

372 * 

373 RO8 MVI R08B1,9 INITIALIZE HEAD ADOR TO ZERO 

374% & 

375 8 BEGIN PERFORM ROUTINE INTTIALIZATION 

376 OC AL2(RO8B) *LOOP* SUBROUTINE KETURN ACORESS 

377 DC AL 2(RO8C) *NXDRV* SUBROUTINE RETURN ADDRESS 
378 * 

379 ROBA 8 RECAL RECALIBRATE 

380 8 ROSNS DETERMINE DAVA MODULE SIZE 

381 * 02 
382 RO8B TBN DINO( »XR2) -NOWR BYPASS ORIVE IF 02 
383 BT NXORV WRITE INHIBITED 02 
384 * ; maar: 

385 B SEEK SEEK (3340 PHYSICAL ADDRESS) 02 
386 ROBB1 DS ttl HEAD O = 21) 

387 DC TL2*3498 CYLINDER 3469 

388 * 

389 B RDHAE READ HOME ADDR AND RO COUNT EVEN 

390 x 

391 8 WRR OO WRITE RECORD ZERO CNT~KEY-DATA GoD 
392 # 

393 RO8B2 B ROCKD READ COUNT-KEY-—DATA 

394 DC Ter?18 RECGRD 1 

395 * 

396 8 WRCKD WRITE COUNT-KEY-DATA 

397 oc IL1L*2¢ RECORD 2... Pe - 
398 oC TL1*208 NN = 20 

399 * 

400 8 RDOCKD READ COUNT-KEY-DATA 

401 DC IL1L¢2ye RECORD 21 

402 * 

403 CLC DL(3+XR2),P256 GO TO ERROR END IF 

40% BNE ERR18 RES IOUAL KL/DL INCORRECT 

465 * 

406 L IDDOR,XR1 POINT ¥O RESIDUAL DODF 

407 

408 RO8B3 cLC 3(4sXR1) eHCPTN CONTINUE IF RESIOUAL 03 
409 JE RO8D DDDF IS CORRECT 03 
410 * 03 
411 MVC EXP(4) ,WOPTN SAVE EXPECTED RESIDUAL DODF 03 
412 MVC ACT s304eXR1) SAVE ACTUAL RESIDUAL ODDF 03 
413 SBN IND2,O0DFER TURN ON RESID DODF ERROR IND 03 
414 * 03 
415 B ERR1IG GO TO ERROR END 03 
416 * c3 
417 RO8D LA 4UoXR1bXR1 LOOP UNTIL 03 
418 SLC ROOCF+8(2} ,P4 ALL OF RESIDUAL ODOF 03 
419 BNZ RO8B3 HAS BEEN CHECKED 03: 
420 * 

421 TBN IDDDRs1 WRITE &ND CHECK 

422 SBN IODDR »1 RECORD 21 AGAIN 

423 BF ROBB2 USING ODD STORAGE AODRESS 

424 * 

425 8 NXDRV REPEAT FOR EACH DRIVE BEING TESTED 
426 * 

427 ROSC ALC RO8B1(1),P1 INCREMENT HEAD ADDRESS 

426 * 

+29 CLI ROSBi sll LOOP UNTEL ALL 

430 8NH Loop HEADS HAVE BEEN TESTED 
LSMART6 O1LOCT76 PROG ID Ci2-3 
827872 571931 PacE : ra 


IBM MAINTENANCE DIAGNOSTIC PROGRAM © PART NO. 4247603 IBM MAINTENANCE DIAGNOSTIC PROGRAM 4 PART NOw 4247603 
PAGE 6. PAGE OA 
C123 3340 FUNCTION TESTS - MOD 12 C123 3340 FUNCTION TESTS - MOD 12 
ERR LOC GBJECT CODE ADDR STMT SOURCE STATEMENT ERR toc OBJECT CODE ADOR STMT SOURCE STATEMENT 
431 * 35 SOCKEHEEHESESTEESERSSRESESSEESESS SES SERESESESSESRESESESEESSSESESEDSESESES 
0024 CO 87 0216 432 B LINK GO TO NEXT ROUTINE 436 * ; ¢ 
433 * 437 * ROUTINE 09 - WRITE KEY-DATA TEST * 
2 438 * * 
G39 PRREREEEEEERESEEESEEEESESEFE SEES EES ESEEGEEREE SSS ESEOEEESESEESESESESERESS 
440 * 03 
$ 0028 09 0028 441 RTNOS oc XL1*098# ROUTINE NUMBER 03 
0029 00 0029 442 oc XLL*00* ROUTINE FLAGS 03 
OD2Z2A OE£20 OD2B 443 oc AL2ZURTNOA} AOORESS OF NEXT ROUTINE 03 
444 &% 03 
op2c 3C OO 0048 445 ROOD MVI RO90,0 INITIALIZE HEAD ADDR TO ZERO 03 
446 * 03 
0030 CO 87 1382 447 8 BEGIN -PERFORM ROUTINE INITIALIZATION 03 
0034 0040 0035 448 oc AL2 (RO9B) *LOQP* SUBROUTINE RETURN ADDRESS 03 
3 0036 OEOE OD37 449 oc AL2 (ROSC) *NXORV® SUBROUTINE RETURN ADDRESS 03 
&50 * 03 
0038 CO 87 1597 &51 ROSA 8 REC AL RECAL ISBRATE 03 
Oop3C CO 87 1863 452 8 RDSNS DETERMINE DATA MODULE SIZE 03 
2 453 * 03 
0040 B8 O08 00 454 ROOB TBN DIND( eXR2Z2) -NOWR BYPASS DRIVE IF 03 
7 0v43 CO 10 1496 455 BT NXDRV WRITE INHIBITED 03 
} 456 * . os ee 03 
0047 CO 87 1588 457 B SEEK : SEEK (3340 PHYSICAL ADDRESS) ~~ Q3 
; OD4B O0D4B 458 ROOD os Itl HEAD 0 - 11 03 
i oD4C 0150 0D4D 459 OC IL2*349* CYLINGER 349 03 
460 * 03 
OD4E Ci 87 1741 461 B ROCKO READ COUNT-KEY-DATA 03 
} ODSs2 OL OD52 62 oc Ititi*® RECORD 1 03 
463 * 03 
0053 CO 87 1906 464 8B WRCKD WRITE COUNT~-KEY-DATA 03 
oD57 02 OD5? 465 oc Iil*2* RECORD 2 03 
0058 26 0D58 466 OC It1*38* NN = 38 03 
s 467 * 03 
oDS9 35 01 290E 468 L IDDOR ,XR1 LOAD INITIAL OODOR INTO XR1 03 
005D OC O1 292C 282F 469 MVC WORKN(2) - P4092 SET UP DDOR COUNTER 03 
470 * 03 
OD6é2 4C€ 03 03 2839 471 ROOF MVC 3(14,XR1)e-WCPIN FELL ODDR AREA 63 
0068 D2 O01 04 472 LA 4(,XR1),XR1 WITH 16 RECORDS 03 
0068 OF O1 292C 2815 473 SiC WORKNI2) -P4 OF WORST CASE 03 
0071 CO 01 OD63 474 BNZ ROSF TEST PATTERN 03 
475 * ; 03 
3 O075 OE O1 290E 2827 476 ALC IDDDR(2) -P256 POINT INIT DOCR TO RECORD 2 03 
J 477 * 03 
0078 CO 87 19A5 478 8 WRKD WRITE KEY DATA 03 
OD7F O02 OD7F 47° DC  Tkit2e RECORD 2 03 
0080 26 OD80 480 OC i1L1*38* NN = 38 03 
481 * 03 
OD81 OF O1 290E 2827 482 Stc 1DDDR (2) -P 256 POINT INIT DDOR TO RECORD 1 03 
} 483 * ; 03 
Oops7 3c 01 OD95 484 MVE ROVE ol INITIALIZE ROKD TO RECORD 1 33 
OD8S OC O01 ODOB9 2845 485 MVC PTR1I(2),HCPING SET UP PTR 1 TO WC PATTERN ADOR 03 
486 ¢ 03 
0091 CO B87 179A 487 ROOG B RDKD - READ KEY-DATA: ~~ 03 
- 0095 00 0095 488 ROVE oc {L1*0* RECORD X 03 
3 0096 09 0096 489 oc 1L1°09° NN = 09 03 
490 * 03 
0097 3D OB 0095 491 CLI ROSE eil JUMP TF NOT 03 
O09B F2 01 06 492 JNE ROSS ‘RECORD 12 03 
493 * 03 
OD9E OC O1 ODBS 0OBB 4S4 MVC PTR1(2),.PTR2 SET POINTER 1 TO POINTER 2 as 
“ 495 * 
ODA4 OC 01 292C 2828 496 ROSJ MVC WORKN( 2) +P 640 SET UP LO RECORD COUNTER oa 
497 * 
Ey ODAA OC 01 ODBB 290E 498 MVC PTR2(2} -IDODDR SET UP POINTER 2 TC 03 
ODBO O€ O21 OD8B 2813 499 ALC PTR2€2),P3 INITIAL DDOR 8 
500 * . : 
0DB6 OD 03 000d 0000 501 ROCK CLec #-# (4) ,t—-* CONTINUE IF RESIDUAL 03 
COBC F2 81 20 502 JE ROOK ODDF 1S CORRECT 63 
3 . | | 
DATE 23AUGT5 OSNOV7S LOMARTS OLOCT76 PROG ID Ci2-3 DATE 23AUG75 OSNOV7S 1OMARTE O10CT76 PROG 10D Ci2-—3 
ec NOW 827785 827827 827872 571931 PAGE 827785 827827 827872 §71931 


& EC NO. 


PAGE 6A 





, 


IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 


PART NO. 4247603 


C123 


ERR LOC OBJECT CODE 


OOBF 
oDcs 
ODCB 
oDDd1i 
ODD7 
opoB 


ODDF. 
ODE3 


ODE6 
ODEC 


ODF2 
ODF8 


ODFC 


GEO2 
OE06 


OEOA 
OEOE 


OE 14 
O£18 


OFIC 


DaTE 
EC NG. 


3340 FUNCTION TESTS — MOD 12 


oc 
oc 
oc 
oc 
3A 
co 


3D 
F2 


OE 
OE 


OF 
co 


OE 


30 
co 


co 
OE 


3D 
CG 


co 


o1 
01 
03 
03 
80 
87 


Ol 
81 


ol 
ol 


ol 
01 


00 


23 
82 


87 
00 


08 
04 


87 


ODDO 
ODD6 
2930 
2934 
28E5 
1003 


0D95 
06 


ODB9 
OOBB 


292C 
ODB6 


oDp95 


0095 
0091 


1496 
OD4B 


OD4B 
14EE 


0216 


23AUG75 
£27785 


ADOR STMT SOURCE STATEMENT 


ODB9 
oDBB 
0000 
0000 


2815 
2815 


286F 


28iF 


2 80F 


OSNOV7S 
827827 


503 * 
504 

505 

506 ROOL 
507 ROOM 
508 

509 ¥ 
510 

511 * 
S12 ROOK 
513 

514 * 
515 

516 * 
517 ROQI 
518 * 
519 

520 

321 * 
522 

523 * 
526 

525 

526 * 
527 

528 * 
52S ROOC 
$30 * 
531 

532 

533 * 
534 

535 * 


LOMART6 
827872 


MVC 
MVC 
MVC 
MVC 
SBN 
B 


c.l 
JE 


ALC 
ALC 


SLC 
BNZ 


ALC 


Ctl 
BL 


ALC 


cLI 
BNH 


O10CT76 
.$71931 


RO9L4+5(2),PTRI 
ROOWM+5( 2) ,PTR2 
EXP(4), *—* 

ACT (4) ,#-*# 
IND2-.DDDFER 
ERRI1S 


ROSE,1 
RC9I 


PTR1{2) 9 P4 
PTR2(2),P4 


WORKN(2) »P2 
ROSH 


ROSE (1},P10 


ROSE. 41 
ROIG 


NXDRV 
ROOD(1L} -PL 


RO9D, 11 
Loop 


LINK 


PAGE 


SET UP TU SAVE EXP RESID DODF 
SET UP TO SAVE ACT RESID DODF 
SAVE EXP RESIDUAL DODF 

SAVE ACT RESIDUAL DODF 

TURN ON RESTO DDODF ERROR IND 
GO TO ERROR END 


JUMP IF 
RECORD 1 


INCREMENT POINTER 1 
INCREMENT POINTER 2 


LOOP UNTIL 10 
RECORDS CHECKED 


SET UP TO READ NEXT 10 RECORDS 


READ NEXT 16 RECORDS : 
IF 40 RECORDS NOT READ 


REPEAT FOR EACH OREIVE TESTED 
INCREMENT HEAD ADDRESS 


LOOP UNTEL ALL 
HEADS HAVE SEEN TESTED 


G60 TO NEXT ROUTINE 


PROG ID 
PAGE 


C123 
ERR LOC 
03 
03 
03 
03 
03 
03 
03 0£20 
03 OE21 
03 OE22 
03 
03 OE 24 
03 OE2A 
03 
03 OE2E 
03 0E32 
03 OE34 
03 
03 OE36 
03 OE3A 
03 
03 OE 3E 
03 OE42 
03 0E43 
03 
63 OE45 
03 
03 OF49 
03: 
03 CE4D 
03 OE51 
03 O£S7 
03 
03 OES5D 
OE61 
OE62 
O£63 
O£67 
OE€6B 
OE6F 
OE7O 
OE71 
OET5 
OET9 
OE7D 
OE7E 
OETF 
0E83 
O£87 
OF 8B 
OESC 
OE8D 
O€91 
OE95 
CE99 
OE9D 
C12-3 DATE 
7 EC NO. 


} 


Bi IBM MAINTENANCE DIAGNOSTIC PROGRAM 


3340 FUNCTION TESTS — MOD 12 


PAGE 7A 


537 SHSELOSSSSSRES SHS SSSSHESS CES LESSEE RTLERTESSSSESTERSSEEERESESEREREKESES 


ROUTINE OA - SCAN FF DETECT TEST s 


XLI*O4! 
XL1*008 
AL2(RTNOB) 


PATRN#3 14} »NCPTN 


PATRNG1 »X* FES 
BEGIN 

AL2 (ROABI 
AL2{(ROAC) 


RECAL 
ROSNS 


SEEK 
ILi*o* 
IL2*3498 
RDHAE 


GRIENT 


ODDF +255 ,.K* FFE 
DODF+254(255) eDDDF 4255 
DDDF+2(3),PATRNF2 


SCANE 
FL1sié 
IL1*O* - 
ERR15 oX*C3€ 
ORIENT 
SCANH 
ILie1? 
IL1*O* 
ERR15,X*C3* 
ORTENT 
SCNRE 

TLie ie 
IL1*o¢ 
ERR15,X*C3# 
ORIENT 
SCNRH 
Tirene 
111408 
ERRELS eX*C3° 
ORIENT 
ODDFtL »x*77* 


SC ANH 
RLLe28 


OBJECT CODE ADDR STMT SCURCE STATEMENT 
538 * 
539 © 
540 # 
S41 
542 * 

OA OEF20 543 RTNOA OC 

00 OEZL 544 oc 

OEE3 OE23 545 Oc 
546 & 

OC 03 2830 2839 547 ROA MVC 

3C FE 2838 548 MVI 
549 *® 

CO 87 1382 $50 B 

O€45 OF33 551 oC 

OECD 0£35 552 oc 
553 * 

Co 87 1597 554 ROAA B 

CO 87 1863 555 B 
556 © 

CO 87 1588 557 B 

oo .- CC: OE42 558 ~ oc 

015D OE44 559 DOC 
560 

CO 37 16AD 561 ROAB 8 
562 % 

COQ 87 1A29 563 B 
564 % 

3C FF 2C77 565 MVE 

OC FE 2C76 2C77? 266 MVC 

OC 02 2B7A 283¢ S67 MYC 
568 & 

CO 87 1989 369 6 

O1 O£61 570 OC 

G0 O&62 S71 oC 
S72 * 

Ci C3 icDdo 573 T10 
574 * 

CO 87 1A29 575 8 
576 * 

CO 87 19CD 577 8 

01 OE6F 578 OC 

00 OETO 579 DC 
560 * 

Cl C3 1C¢00 581 TIO 
582 * 

CO 87 1A29 583 B 

584 *& 

CO 87 1AOl 585 B 

ol OE7D 586 oc 

oo OETE 587 oc 
588 * 

Ci C3 1C00 589 TIO 
590 * 

CO &7 1LA29 591 B 
592 * 

CO 87 1A1L5 593 B 

Ol OES8B 594 OC 

00 OESC 595 oC 
596 & 

Ci C3 1C00 597 TIO 
598 2 

CO 87 1429 599 B 
600 * 

3C 77? 2679 601 MVI 
602 # 

CO 87 19CD 603 B 

01 OE9D 604 oc 

23AUG75 OSNOVTS LSHAR76 G1lOCTTé6 

827785 827827 827872 571931 


s 


s 


PESESESSSORESSE EOE EESSES ELSES $998 OOS FE SEHSETEEEEOE EE OS9S8E4E88EEERELOTES 


ROUTINE NUMBER 
ROUTINE FLAGS 
ADDRESS OF NEXT ROUTINE 


INITIALIZE 
TEST PATTERN 


PERFORM ROUTINE INITIALIZATION 
*LOOP* SUBROUTINE RETURN ADDRESS 
*NXDRV® SUBKOUTINE RETURN ADORESS 


RECALIBRATE 
DETERMINE DATA MODULE SIZE 


SEEK (3340 PHYSICAL ADDRESS) 
HEAD O ~~~ = as 
CE CYLINDER 

READ HOME ADDR AND RO COUNT EVEN 

TRACK GRIENTATION DELAY 

SETUP SCAN 
ARGUMENT IK 

DODDF AREA 

SCAN EQUAL 
RECORD 1 — 

NN = QO. -- gh eae 

ERROR IF SCAN HIT 

TRACK ORIENTATION DELAY 

SCAN HIGH OR EQUAL 
RECORD 1 
NN = OO 

ERROR JF SCAN HIT 

TRACK ORIENTATION DELAY 

SCAN READ OR EQUAL 
RECORD 1 
NN = 00 

ERROR IF SCAN HIT 

TRACK GRIENTATION DELAY 

SCAN REAO OR HIGH OR EQUAL 
RECORD 1 
NN = 00 


ERROR IF SCAN HIT 


TRACK ORIENTATION DELAY 


CHANGE ODDF TO CAUSE SCAN HIT 
SCAN HIGH OR EQUAL 
RECORD 1 


PROG 1D C12-3 
PAGE | 7A 





IBM MALNTENANCE DIAGNOSTIC PROGRAM 


C123 


ERR coc OBJECT CODE 


OE9E. 


OE OF 
OEA3 


OEAT 
OEAB 


OEAF 
OEB3 
OEB7 
OEBS 


OEB9 
SEED 


OEC1 
OECS 


OEC9 


OECD 
GED3 


OED? 
GEDB 


OEDF 


DATE 
EC NG. 


3340 FUNCTION TESTS - MOD 12 


00 


C1 
co 


38 
co 


co 
co 
01 
00 


cl 
co 


38 
co 


co 


OE 
3A 


3D 
co 


co 


C3 
87 


40 
90 


87 


87 


c3 
87 


40 
90 


87 


00 
Ol 


FF 
01 


87 


OEAT 
1cC7 


2928 
ICBE 


1LA2S 


iAL5 


OECL 
icc? 


2928 
1CBE 


1496 


2838 
2838 


2836 
14EE 


0216 


23AUGT5 


827785 


OES 605 


606 * 


607 
608 


609 * 
610 ROABI 


611 


6lz * 


613 
614 * 
615 
616 
617 
618 * 
619 
620 


O&B7 
OEBS 


62i * 
622 ROAB2 


623 
624 * 
625 
626 * 
2838 
628 
629 * 
630 
631 
632 * 
633 
634 * 


OSNOV75 


827827 827872 


627 ROAC 


19MART6 


oC 


Tid 


TBN 
BF 


DC 
oC 


TIO 


TBN 
BF 


ALC 
SBN 


cLI 
BNE 


O19CT TS 


571931 


ADDR STMT SOURCE STATEMENT 


TL1*o° 


ROAB1,X*C3* 
ERR14 


SNS,SITL 
ERR13 


ORIENT 
SCNRH 

TLit1s 
IL1*O* 


ROAB2 »X*C3* 
ERR14 


SNS ,BITL 
ERR13 


NXDORV 


PATRNGF1LC LD PATRNGL 
PATRN41,BITT 


PATRN4+1 .X* FFE 
LooP 


LINK 


PART NO. 
PAGE 


NN = 00 


ERROR IF 
NO SCAN HIT 


ERROR IF NO 
SCAN EQUAL CONDITION 


TRACK ORIENTATION DELAY 
SCAN READ OR HIGH OR EQUAL 
RECORD 1 
NN = 00 


ERROR IF 
NO SCAN HIT 


ERRGR IF NO 
SCAN EQUAL CONDITION 


REPEAT FOR EACH DRIVE BEING TESTED 


SHIFT TEST PATTERN 
BYTE LEFT GONE BIT POSITION 


LOOP UNTIL ALi 
BIT POSITIONS HAVE BEEN TESTED 


GO TO NEXT ROUTINE 


PROG ID 
PAGE 


C123 


ERR LOC OBJECT CODE 


OEE3 
DEES 
OEES 


OEE? 


OEEB 
OEEF 
OFF] 


OEF3 
OEFT 


OEFB 
OEFF 
OFOO 


OFO2 
OF 06 
OFOA 
OFOE 
OF 14 
CFIA 
OF20 


OF26 
OF2ZA 


OF 2D 
OF33 
OF 37 
OF38 


OF39 
OF 30 


OF41 
OF 45 


OF49 
OF 40 


OF50 
' OFS6 


OF SA 


OFS5SE 
OF 64% 


OF6B 
OF 6C 
OF70O 
OFT1 


OF T2 
OFT6 


C12-3 DATE 
8 EC NGOew 


3340 FUNCTION TESTS - MOD 12 


0B 
00 


OF AA 


3c 


co 


OA 


87 


OFO02 
OF9OC 


co 
co 


co 
00 


87 
87 


87 


0150 


co 
co 


3c 
oc 


oc 
oc 


38 
F2 


co 
O11 
00 


Ci 
co 


38 
co 


38 
F2 


oD 
co 


co 


oo 
co 


co 
co 
OL 
00 


cl 
co 


87 
RT 
FF 
FF 
03 
01 
01 


o1 
90 


o5 


87 


C3 
87 


40 
90 


01 
10 


03 
01 


87 


03 
01 


87 
87 


c3 
87 


28FE 


1382 


1597 
1863 


15BB 


OF41 
1cC7 


2928 
iCBE 


290E 
OE 


2882 
1003 


OF 68 


2883 
1D03 


LA29 


LAOL 


OF TA 
1cc7 


23AUGT75 


827785 





eee IBM MAINTENANCE DIAGNOSTIC PROGRAM 


ADDR STMT 


OEE3 
OEE4 
OEE6 
OEFO 
OEF2 
OEFF 
OFO1 

2C78 

2839 

2839 

2808 

2B7E 
OF37 
OF 38 

2835 

2835 
OF 70 
OF71 

OSNOV75 

827827 


636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 


658 


659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
$69 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
6&5 
686 
687 
688 
689 
690 
691 
6392 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 


SMURCE STATEMENT 


PART NO. 


4247603 
PAGE SA 


SRERARAESRESERESESAERTERESESSER SEES SEHESERES CREASES ESSCSEEESS SHESESSESES 


* 
* 
* 


* 


ROUTINE OB — SCAN EQUAL TEST * 


* 


RECKESERSERORSTETARSERESEESESESEERES EERE SHAESESEESRESSES ERE SES ES ELERESED YS 


* 
RTNOB 


ROBA 


ROBB 
* 


ROBB1L 


ROBB3 


ROBBS 


* 


19MART6 
827872 


DC 
OC 
Oc 
MVI 
B 
DC 
DC 


8 
8 


B 
OC 
oc 
B 

B 
MVI 
M¥C 
MYC 
MVC 
HVC 


TBN 
JF 


aVC 


oc 


Tid 


TBN 


BF 


TBN 
JT 


cL_c 
BNE 


cLc 
BNE 


8 
DC 
DC 


Ti9 


O1LOCT76 
571931 


XL1*OB* 
xL1*00° 
AL2(RTNOC) 
LPCNT.210 
BEGIN 
AL2(ROBB) 
AL2(ROBC) 


RECAL 
RDSNS 


SEEK 
IL3*O* 
IL2°349° 
RDHAE 
ORIENT 


DDDF+2565X° FF® 


ODDF4+255( 256) ,DODF +256 


DDDF+6(4),WCPTIN 
DODDF+3(2),KCPIN 
DDDF+1(2) »NULLS 


IDDDR, BIT? 
ROBB1 ian 


DODF +7 (6), DODF+6 
SCANE 
ILitze 
IL1*O* 


ROBB2,X*C3* 
ERR14 


SNS,BIT1 
ERR13 


TODDR -BIT7T 
ROBB 


DODF+10(4),FFPTN 
ERR19 


ROBBS 


DDDF4+11(4)-FFPTN 
ERR1I9 | 


ORIENT 
SCNRE 


rLieie 
ILi*0°* 


ROBB5S 2X*C3* 


ERR14 


ROUTINE NUMBER 
RCUTINE FLAGS 
ADDRESS OF NEXT ROUTINE 


LOOP THSS TEST 10 TIMES 


PERFORM ROUTINE IN“ TIALIZATION 
*LOCP* SUBROUTINE RETURN ADDRESS 
*NXDRV® SUBROUTINE RETURN ADDRESS 


RECALIBRATE 
DETERMINE DATA MODULE SIZE 


SEEK (3340 PHYSICAL ADDRESS) 
HEAD O - — 
CE CYLINDER 

READ HGME ADOR AND RO COUNT EVEN 

TRACK GRIENTATION DELAY 

SETUP SCAN 


ARGUMENT IN 
ODDF AREA 


o 


SkIP IF ODOF IS. 
ON EVEN ADDRESS BOUNDARY 


SHIFT SCAN ARGUMENT FOR ODD BOUNDARY 
SCAN EQUAL 

RECORD 1 

NN = 00 


ERROR IF 
NO SCAN HIT 


ERROR IF NO 
SCAN EQUAL CONDITION 


SKIP IF ODDF [IS 
ON ODD ADDRESS BOUNDARY 


ERROR IF RESTOUAL ne Se 
DDOF IS INCORRECT 


REPEAT TEST FOR SCAN OR EQUAL 


ERROR IF RESTOUAL 


ODDF IS ENCORRECT 
TRACK ORIENTATION DELAY 
SCAN READ OR EQUAL) 

RECORD 1 

NN = 0G 


ERROR IF 
NO SCAN HIT 


PROG ID C12=3 
PAGE 8A 





4 . | 





IBM MAINTENANCE DIAGNOSTIC PROGRAM PAGE \’ 7247603 IBM MAINTENANCE DIAGNOSTIC PROGRAM, PART NO. = 4247663 
PAGE 9 PAGE 9A 
C123 3340 FUNCTION TESTS - MOD 12 C123 3340 FUNCTION TESTS — MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBYECT CODE ADDR STMT SOURCE STATEMENT 
OF7A 28 40 2928 704 ROBBS TBN SNS-BITE ERROR IF NO 722 ge SSSEESERS SOAR SR SEED EROS ESE SeDEERERERES SEREREEEEOREESSEERaEnes 
OF7E CO 90 1CBE 705 BF ERR13 SCAN EQUAL CONDITION 723 * . 
706 * 724 ®) ROUTINE OC - SCAN HIGH OR EQUAL TEST : 
9 707 CLC OCDDF+10(4),WCPTN ERROR IF RESIDUAL 725 * 
Bena = se anes ne 708 BNE ERR19 " DOOF IS INCORRECT 726 a NS ABSESERERESSSSASA SESS SEARS ESSERE ENEDSEEESESEEEDEEEEESEKEEORe 
709 * 727 * 
OF8C 38 01 290€ 710 TBN = IDDDR, BIT? REPEAT OFAA OC OFAA 728 RTNOC DC XL1*uc# ROUTINE NUMBER 
OF90 3A 01 290E 711 SBN IDDDR,BITT TEST USING ODD OFAB 00 OFAB 729 oc XL1*008 ROUTINE FLAGS 
OF94 CO 90 OFO2 712 BF ROBB MAIN STORAGE BOUNDARY CFAC 1049 OFAD 730 OC AL2(RTNOD) ADDRESS OF NEXT ROUTINE 
713 % 731 * 
OF98 CO 87 1496 714 8 NXDRV REPEAT FOR EACH ORIVE BEING TESTED OFAE OC 03 283D 2839 732 ROC MVC = PATRN#3(4) ,WCPTN INITIALIZE 
715 * OFB4 3C FE 283C¢ 733 MVI —- PATRN#2,X* FES TEST PATTERN 
OFOC OF 00 28FE 280F 716 ROBC SLC = LPCNT¢1),P2 LOOP THIS 734 ¢ : 
OFA2 CO 01 14EE 717 BNZ = LOOP TEST 10 TIMES OFB8 CO 87 1382 735 B BEGIN PERFORM ROUTINE INI~ TALIZATION 
718 * OFBC OFCF OFBD 736 OC AL2(ROCB) “LGOP® SUBROUTINE RETURN ADDRESS 
OFA6 CO 87 0216 719 B LINK GO TO NEXT ROUTINE OFBE 1033 OFBF 737 DC AL2(ROCC) *NXDRV® SUBROUTINE RETURN ADDRESS 
720 * 738 * 
OFCO CO 87 1597 739 ROCA B RECAL RECAL IBRATE 
OFC4 CO 87 1863 740 5 RDSNS DETERMINE DATA MOOULE SIZE 
741 © 
OFC8 CO 87 1568 742 8 SEEK SEEK (3340 PHYSICAL ADDRESS) 
OFCC 00 OFCC 743 oc ILi*o8 HEAD 0 eee 
OFCD 0150 OFCE 744 oc I1L2*349¢- -- CE CYLINDER a a 
745 # 
OFCF CO 87 185AD 746 ROCB 8 RDHAE READ HOME ADOR AND RO COUNT EVEN 
747 & 
CFD3 CO 87 1a29 748 B ORIENT TRACK ORIENTATION DELAY 
749 & 
OFD7 3C FF 277 750 MVI = ODDF +255, x*FFe SETUP SCAN 
OFDB OC FE 2€76 2C77 751 AVC = ODDF +254 255), 00DF +255 ARGUMENT IN 
OFEL OC 03 2878 2830 752 MVC = ODDF 4 34) ,PATRNG3 DDDF AREA 
OFE7 3C FF 2B7¢ 753 MVI = DODF 4#4,X*FFe 
754 * 
2 OFEB CO 87 19CD 755 B SCANH SCAW HIGH OR EQUAL 
OFEF 01 OFEF 756 DC ILie e RECORD 1 
OFFO 00 OFFO 757 oC ILi*o® NN = 00 | oi cce 
758 * 
OFF1 C1 C3 OFF9 759 TIO) =—6ROCB1 eX*C3¢ ERROR IF 
OFF5 CO 87 1CC7 760 B ERR14 NO SCAN HIT 
761 * 
OFF9 38 40 2928 762 ROCB1 TEN = SNS BIT ERROR IF 
OFFD CO 10 1013 763 BT ERR1A SCAN EQUAL CONDITION 
764 * 
1001 OD 03 2881 2835 765 CLC = =DDDF+9(4),FFPTN ERROR 1F RESIDUAL 
1007 CO 01 1003 766 BNE ERR19 ODDF IS INCORRECT 
767 « 
100B CO 87 1A29 768 B ORIENT TRACK ORIENTATION DELAY 
769 ¢ 
100F CO 87 1A15 770 8 SCNRH SCAN READ OR HIGH OR EQUAL 
1013 01 1013. 771 oc ILL 1° RECORD 1 
1014 00 1014 772 DC 1L1¢*0° NN = 00 
773 * 
1015 Cl C3 1010 774 TIO = ROCB2.X*C3¢ | ERROR IF 
1019 CO 87 1CC7 775 B CMR14 NO SCAN HIT 
776 @ 
1010 38 40 2928 777 ROCB2 TEN =o SNS, BIT1 ERROR IF 
1021 CO 10 1013 778 BT ERRILA SCAN EQUAL CONDITION 
779 * 
1025 OD 03 2881 2839 760 CLC =DDDF +914) .wCPTN ERROR IF RESIDUAL 
102B CO 01 1003 781 BNE = ERR19 ODOF IS INCORRECT 
782 * 
102F CO 87 1495 783 6 NxORY REPEAT FOR EACH DRIVE BEING TESTED 
T8Q *& 
1033 OF 00 283C 283C 785 ROCC ALC = PATRN#2(1),PATRN¢2 SHIFT TEST PATTERN 
1039 3A 01 283C¢ 786 SBN = PATRN4+2,BIT7 BYTE LEFT ONE BIT POSITION 
787 % 
1030 3D FF 283C 768 CLI = PATRN@2,XtFFE €O0P UNTIL Att 
1041 CO 01 14EE 789 BNE ‘Loop BIT POSITIONS HAVE BEEN TESTED 
DATE 23AUG75 OSNOV7S LOMART6 010CT76 PROG ID C12-3 DATE 23AUGT5 OSNUV7S LOHAR 76 O10CT76 PROG ID Cli2-3 
EC NO. 827785 827827 827872 571931 PAGE 9 EC NO. 827785 827827 827872 £7193) PAGE 9h 





TBM MAINTENANCE DIAGNOSTIC PROGRAM 


C123 3340 FUNCTION TESTS - MOD 12 


ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 


790 * 
1045 CO 87 0216 791 B LINK 
, 792 * 
DALE 23AUGTS - OSNOVTS 19MAR76  «=—«- O1LUC T76 
EC NO. 827785 827827 571931 


827872 


GO TO NEXT ROUTINE 


I 


PART NQ. 
PAGE 


C123 


ERR LOC CBJECT COLE 


1649 
104A 
1048 


104D 
1051 
1053 


1055 
1059 


105D 
1061 
1062 


} 1064 
1067 


1068 
106F 


1073 
1077 


1078 
107C 
} 1070 


LOTE 
} 1082 
1083 


‘ 1084 
1088 
1089 
108A 


t 108E 


i 
C12-3 DATE 
10 EC NO. 


PROG ID 
PAGE 


oO 
00 


1092 


co 


87 


1064 
LOBE 


co 
co 


co 


87 
87 


87 


0150 


BB 
co 


co 
co 


co 
O1 


co 
02 
13 


co 
02 
13 
co 
02 
13 
co 


co 


08 
10 


87 
87 
87 


87 


87 


87 


87 
87 


1362 


1597 
1863 


15BB 


oo 
1496 


16AD 
1808 


1741 


1906 


195E 


LTFD 


1496 


0216 


23AUGT5 


827785 


3340 FUNCTION TESTS 


Seer IBM MAINTENANCE DIAGNOSTIC PROGRAM 


4247653 
10A 


PART NO}~ 
PAGE 


TEKAASSARASKSSEKSAKSEKSS SSESSSSHEARESSSSSLESEKKS SSS SKESKTESSSSIFCSEKSKESSOOSSSS 


ROUTINE OD - WRITE REPEAT / READ VERIFY TEST * 


= 


EHSSERKKSTAASKKSKSEKSKASSSSSSKSSSEAESKESSSSE ESSSHSTSSTSEKEEKSESESSSSHSSCESSESSSKSS 


XL1°OD* 
xL1°00° 
AL2(RTNOE) 


BEGIN 
AL 2(RODB) 
AL2(RODC) 


RECAL 
ROSNS 


SEEK 
IL1°O* 
IL2*349°* 


DIND(,XR2),NOWR 
NXORV 


RDHAE 
WRROO 


ROCKO 
IL1°1°* 


WRCKD 
TL1*2* : 
IL1*19* 


WRREP 
ILi*2° 
TL1*19* 
ROVKD 
TL1*2¢ 
1114198 
NXDRV 


LINK 


~ MOD le 
ADDR STMT SQURCE STATEMENT 

194 

795 * 

196 * 

797 * 

798 

7199 * 

1049 800 RTNOD OC 
104A 801 OC 
104C 802 oc 

803 * 

804 ROD B 
1052 805 DC 
1054 806 oc 

807 * 

808 RODA B 

809 B 

810 * 

811 B. 
1061 812 oc 
1063 813 DC 

614 * 

$15 RODB TBN 

816 8T 

817 * 

818 5 

819 * 

820 8. 

821 * 

822 B 
1077 823 oc 

824 * 

825 8 
107C 826 oc 
107D 8627 DC 

828 = 

829 8 
1082 830 DC 
1083 831 oC 

832 * 

833 8 
1088 834 oc 
1089 835 oc 

836 * 

837 B 

838 * 

839 RODC 8 

840 *° 

OSNOV75 LOMAR 76 -01GCT76 
827872 


827827 


571931 


ROUTINE NUMBER 
ROUTINE FLAGS 
ADDRESS OF NEXT ROUTINE 


PERFORM ROUTINE INITIALIZATION 
*LOOP® SUBROUTINE RETURN ADOPRESS 
"NXORV.* SUBROUTINE RETURN ADORESS — 


REC ALIBRATE 
DETERMINE DATA MOOULE SIZE 


SEEK (3340 PHYSICAL ADORESS) 
HEAD O 
CYLINDER 349 


02 
BYPASS OREVE IF es 
WRITE INMIBITED 02 


READ HOME ADDR AND RO COUNT EVEN O02 
WRITE RECORD ZERO CNT-KEY~-DATA ODD) 


READ COUNT-KEY-DATA 
RECORD 1 


WRITE COUNT-KEY-DATA 
RECORD 2 
NN = 19 
Cie. CRS 
WRITE REPEAT KEY-DATA 
RECORD 2 
NN = 19 


READ VERIFY KEY-DATA 

RECORD 2 

NN = 19 | 
REPEAT FOR EACH ORIVE BEING TESTED 


GO TO NEXT ROUTINE 


PROG 10 
PAGE 


c12-3 
108 





IBM MAINTENANCE DIAGNOSTIC PROGRAR PART NOe 4247603 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NOo 4247603 
PAGE ll PAGE LIA 
C123 3340 FUNCTION TESTS —- MOD 12 C123 3340 FUNCTION TESTS - MOD 12 
ERR LOC OBJECT CODE AODR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STHT SOURCE STATEMENT 
842 RHRASLKSVAKRKKSAAKK SSK SLSESRESELKE FEE SLSSESSERVEGCTSESKSESRRKEKSS RSS SHEKEL SESLESS 894 SEKSSESSSSSSSESESLESKEAERSHEHSSKEKSSHSLSSHKELSKS SKEKSSCHSSKSSSSSESSSS SHS SASS 
843 * * 895 * * 
844 * ROUTINE O€ - CYLINDER SEEK TEST ® 896 & ROUTINE OF — REAO IFL TEST * 
845 % % 8o7 * * 
B46 STSERSSSSERERSSEE SASS SKASRKSKASSESFEKSESLKSEKKSKAKSSLSAIRSSKKSERSSSKRHSRSLE BOR SHEKEESSSSSESKES SESS SLESSSHESSHSH SS SL SLKS SKESOCSSSSS LSS SSSSSSSSSSE SELES SEHK VS 
847 * 89o9s 
1092 OE 1092 848 RTNOE DC XLI1°OE® ROUTINE NUMBER 1103 OF 1103 900 RTNOF DC XL1°OF® ROUTINE NUMBER 
1093 00 1093 849 DC XL1°OO8 ROUTINE FLAGS 1104 00 1104 901 oC XL1*008 ROUTINE FLAGS — 
1094 1103 1095 850 oc AL2(RTNOF) ADDRESS OF NEXT ROUTINE 1105 1LEB 1106 902 oC AL2Z(RTN1O} ADDRESS OF NEXY KOUTINE 
851 * 903 *# 
1096 OC 01 10BA 2808 852 ROE MVC ROEA1L(2).NULLS CYL ADOR = O00 FOR FIRST SEEK 1107 39 10 0208 S04 TBE SBYTE3,SSWI1B 02 
853 # 1108 39 40 020A 905 TBF SBYTE2,SSWL1 BYPASS THES ROUTINE IF “ 
109C C2 01 OAO1I 854 LA PIDs XR INITIALIZE PSUEDO L1OF CO 90 L1E6 906 BF NORMN DRIVE 1 IS NOT BEING TESTED 
LOAO 34 O1 28FE B55 ST LPCNT ¢XR1 RANDOM NUMBER GENERATOR S07 * 
856 * 1113 38 20 OA19 908 SBF COMeMPLFLG RESET MICRC~PROGRAM LOADED IND 03 
10A4 CO 87 13B2 857 B BEGIN PERFORM ROUTINE ENITIALIZATION 1117 3C OO 27EE S09 MVI  €M30A,0 CLEAR ERROR CODE IN MESSAGE 03 
10A8 10BF 10A9 858 oc AL2(ROEB! *LOOP® SUBROUTINE RETURN ADDRESS S1O * 03 
10AA LOEB 10AB 859 Oc AL2(ROEC) *NXDRV® SUBROUTENE RETURN ADORESS 1118 F3 CO O12 911 SIO = X01 * »X*CO8 RECALIBRATE ORKIVE 1 03 
860 * L11E Cl CL LILLE 912 TIO = BoX*CIE 1O00P ON SEEK BUSY 03 
LOAC CO 87 1597 861 ROEA B RECAL RECALIBRATE. 1122 Cl C2 1122 913 T10 %eX*C2* LOOP ON ATTACHMENT BUSY 03 
L0B0 CO 87 1863 862 B RDSNS DETERMINE DATA MODULE SIZE 914 * 
863 * 11z6 CO 87 212E 915 8 REGRST RESET ATTACHMENT REGISTERS 
10B4 CO 87 15BB 864 B SEEK SEEK (3340 PHYSICAL ADDRESS) 916 * - sn we Bees, Bs 
1038 00 LO0B8 865 oc TL1*0° HEAD O 112A CO 87 1FBS g17 B SAVRST GO TO STORE A RESTART ADDR 
10B9 10BA 866 ROEAL DS Ti2 CYLINDER O - 349 L1Z2E 31 C4 2849 918 LIG DDDR.x*C4e LOAD DDDR 
867 * 1132 CO 87 200E 919 B RSTOR GO TO RESTORE LOCATION 0 
1086 CO 87 16AD 868 B ROHAE READ HOME ADDR AND RO COUNT EVEN $20 * 
869 + 1136 38 80 28E4 921 TBN  ENDeHUNG ERROR END IF 
1OBF 35 01 28FE 870 ROEB L LPCNT sXR1 GENERATE 113A F2 10 26 922 JT ROFD LIO HANGS IN REJECTION LOOP 03 
10C3 OC O1 1GE2 10BA 871 MVC ROEB2(2),ROEAL SIRULATED 923 ¢ 
10C9 1E O1 10E2 02 872 ROEBL ALC ROEB2(2},06,XR1) RANOOH 1130 CO 87 1FB5 924 B SAVRST GC TG STORE A RESTART ADOR 
10CE 3B FE 10€1 873 SBF ROEB2~1eX*FE® CYLINDER 1141 F3 Cé& Ol 925 SIO X*Ol® ex*Cee READ IPL 
1002 OD O01 10E€2 2829 874 CLC ROEB2(2},P349 ADDRESS 1146 CO 87 200E $26 B RSTOR GO TO RESTORE LOCATION O 
1008 CO 84 10C9 875 BH ROEBL we ag 927 = 
876 * 1148 38 80 28E4 $28 TON INO sHUNG ERROR ENG IF 
10D0C CO 87 158B 877 8 SEEK SEEK (3340 PHYSICAL ADDRESS) 114C F2 10 14 929 JT ROFOD SIO HANGS IN REJECTION LOOP 03 
10E0 00 10EG 878 oc IL1*0° HEAD 0 ‘ ¥30 * 
10€1 LOE2 879 ROEB2 os 112 CYLINDER O = 349 L14F OC 02 292C 284C 931 MVC WORKN(3),TEM3S ENITEALIZE TIMER 
B80 * $32 * 
10E3 CO 87 16AD 881 8 RDHAE READ HOME ADDR AND RO COUNT EVEN ' 1155 OE O02 292C 280F 933 ROFA ALC WORKN(3),PL INCREMENT ATT BUSY TIMER 
B82 * 1158 CO AO 1163 934 BOL ROFD ERROR END IF ATTACHMENT 03 
LOE? CO 87 1496 883 B NXDRV REPEAT FOR EACH DRIVE BEING TESTED 1ISF Cl C2 1155 935 TIO =ROFAsX*C2® BUSY FAILS TO GO OFF 
884 * ' 936 * 
10EB OC 01 10BA 10E2 885 ROEC MYC ROEAL(2),R0EB2 SAVE CYLINDER ADDR FOR ERR RECOVERY 1163 30 C4 292A 937 ROFO SNS  WORKN-2-X°C4? SENSE RESIDUAL DDODR 03 
BBS * 938 * 03 
1OFL OE O1 28FE 280F 887 ALC  LPCNTC2),P1 LOGP UNTIL i 1167 OC O1 292C 2883 939 MVC WORKN(2)-DLY¥256 SET UP DELAY COUNTER 03 
10F7 3D OC 28F0 888 CLI LPCNT=1,X*O0C® 512 CYLINDER C40 & 03 
10FB8 CO 01 14EE 889 BNE LOOP SEEKS HAVE BEEN PERFORMED 116D OF O1 292C Z80F 941 ROFE SLC WORKN(2},P3 DELAY ASOUT 03 
890 * ; 1173 CO O1 116D 942 BNZ ROFE 250 MILLI-SEC 03 
1OFF CO 87 0216 891 8 LINK GO TO NEXT ROUTINE 943 % 03 
892 * 1177 30 C4 2912 944 SNS  RODOR,X®°C4e® SENSE RESEDUAL ODDR 03 
945 © 03 
1178 OD 01 2912 292a8 946 CLC RDDOR(2) .NORKN-2 JUMP IF RESICUAL DORR 03 
1181 F2 81 04 947 JE ROFB UNCHANGED AFTER CELAY 03 
' G48 ¢€ 03 
1184 3C FO 27EE S49 MVE EMZ0A~C*O* SET UP FOR ERROR CODE 2030 03 
950 ¢ 03 
1188 35 O01 2849 951 ROFB L DDOR,XRL CALCULATE 03 
118C 36 O01 2820 952 A P1200 eXR1 FIRST EXPECTED 02 
1190 34 O1 2924 953 ST WORKN=2~XRE DDD RESIDUAL 02 
954 % 
1194 36 O1 2823 955 A P8O.XRL CALCULATE SECOND 02 
1198 34 O01 292C 956 ST WORKN XR EXPECTED DDOR RESIDUAL 02 
957 * 02 
119C 0D O01 2912 292A 958 CLC RODDR(2} sHORKN-2 GO TO RE-LOAD MICROCODE IF 02 
11LA2 CO 81 11C1 959 BE ROFC FIRST RESIDUAL DDOR IS CORRECT 063 
} S66 * 02 
L1A6 OD O01 2912 282C S61 CLC RDDOR(2},#GRKN GO TO RE-~LGAD MICROCODE IF 02 
* 
eo aa pas needle 1SHAR 76 O10CT76 PROG ID C12-3 DATE 23AUGT5 OSNOV75 LOMART6 OLOCTT6 PROG 1D Ci2-3 
: 2 827872 571931 PAGE ll EC NO. 827785 827827 827872 571931 PAGE LIA 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C123 

ERR LOC 
LIAC 
1180 


11B4 
LIBA 


1280 


Lic. 
11¢€5 


11€8 


11CC 
11D0 
1iDt 
1102 
1104 


11D6 
11DA 


110C 
L1E2 


LLEG 
LLEA 


DATE 
ec NO. 


3340 FUNCTION TESTS - MOD 12 


OBJECT CODE 


co 81 
3C Fl 


OD O1 
F2 81 


3C F2 


30 00 
F2 81 


CO 87 


CO 87 
cé 

18 
2801 
€1021 


CO af 
C101 


oD 00 
co 8i 


CO 87 
00 


23AUG7TS 
827785 


11¢c1 
27EE 


2912 
04 


27EE 


27TEE 
14 


212 


Q21A 


0222 


0232 
2072 


2849 
1100 
1101 
1103 
1105 
11D8 
DA00 
LLEA 
OSNOV7S 
827827 


962 BE 
963 
964 MVI 
965 * 
966 CLE 
967 JE 
968 & 
969 AVI 
976 *% 
971 ROFC CLI 
972 JE 
973 * 
974 B 
975 & 
976 B 
977 oC 
978 OC 
979 DC 
980 DC 
981 * 
982 5 
983 DC 
984 * 
985 RELOAD CLC 
986 BE 
987 = 
988 NORMN 8 
$89 DC 
990 * 
LOMARTH O10CT7é 
827872 S71931 


ADDR STMT SOURCE STATEMENT 


ROFC 


EM30A,C*1* 
RDDDR{i2),DDDR 
ROFC 


EM30A.C®26 


EM30A,0 
RELOAD 


REGRST 


PRINT 

XLESCes 

ALL CEMZON-EM3 042 } 
AL2(EM30N} 
AL2(HLTOL) 


HALT 
AL2¢HLTO1) 


UTAB(1},PIO-1 
MPL 


LOAD 
XLE*O0# 





PART NO. 
PAGE 


SECOND RESID DDDR IS CORRECT 
SET UP FOR ERROR CODE 2031 


JUMP IF NG DATA 
TRANSFER TOOK PLACE 


SET UP FGR ERROR COCE 2032 


GO TO TERMINATE IF 
NO ERRGR CODE SET UP 


RESET ATTACHMENT REGISTERS 


PRINT 
ERRGR 203X MESSAGE 


ERROR 
HALT O1 


RE~LOAD MICROCODE IF 
RUNNING FROM 3340 


TERMINATE SECTION 


PROG ID 
PAGE 


03 
03 
03 
03 
03 
03 


03 
03 


G3 
o3 


03 


G3 


C123 


LiFS 
LIF7 
LlF9 


LLFB 
LIF 


1202 


1205 


1209 
1204 


1208 
i200 


120F 
1213 


2215 


1219 
12iD 


1221 
1225 
i226 


1228 
122C 
1230 


1234 
1238 
123C 


21240 
1245 


1248 
L26F 
1256 


1251 
i255 


1256 
125A 


125E 
1262 


1268 
126D 
1270 
1276 


C12-3 DATE 
i2 EC NO. 


10 
00 
L245. 


3c 00 


CO 8&7 
LLFB 
1285 


3D FF 
F2 81 


F3 C4 


ca 87? 
46 
50 
22FC 
CLES 


Co &T 
CLE4 


co 8&7 


co 87 
Co 87 


co 87 
025D 


31 C5 
31 C5 
CO 87 


31 C5 
32 C5 
cO 87 


8C 02 
OC 07 


co 
00 
00 


87 


co 
00 


87 


co 87 
CO 87 


35 021 
oc O28 


&C G3 
D2 01 
OF Oi 
co 01 


23AUGT 
827785 


ERR LOC OBJECT CODE 


8225 


1382 


2904 
17 


7E 


O21A 


6222 


LIEF 


1597 
1863 


1588 


2878 
285E 
LEAT 


2878 
2Q5E 
186A 


14 2810 
2B7F 2808 


1906 


1741 


1808 
L6OFF 


290€ 
292C 2827 


03 2839 
04 

292C 2815 
1268 


L1lEB 
LEC 
RIEE 


LIF& 
LIFA 


1209. 


B20A 
k20C 
126E 


1214 


1225 
1227 


124F 
1250 


1255 


5 OS5NOV75 


827827 


ou en MAINTENANCE DIAGNOSTIC PROGRAM 


3340 FUNCTION TESTS - MOD 12 


ADDR STMT 


PART NO. 
PAGE 


4247603 
12a 


SPEEA SESERSE SESE SE ERE RERER ESE SESE REESE SERS SEETHER SEEEEEEEESEEEESE 29 8ERDEEE 


* 


ROUTINE 10 - CE CYLINDER RESTORE s 


* 


CESESKHKSEKS SESE SSREKAHAEEKEKEE REESE SEE RERSKSE SEEKS EE HSEOEESERE SEES OEEERSEED 


XL i* 108 
XL LP EQOF 
AL2Z(RTNLL) 


Ri0d81,0 
BEGIN 

AL 2(R1GA) 
ALZ(RIOF) 


ADRTBLO2,X*FF® 
RiOB 


X° TES oX* CG? 


PRINT 
XLE&46* 


ALI (4MSGOAN-MSGOAC1) 


AL2(MSGOAN) 
AL2 CHLTE4) 


HALT 
ALZCHLTES) 


RiG 


RECAL 
RDSNS 


SEEK 
Tha 
EL2* 349¢ 


CEMODE,xX*C58 
SVPREQ,sX*C5! 
HRHAE 


CEMODE,X*Ce® 
SVPREQeX*C5& 
WRHAO 


DL(3-XR2)4P8 
ODDF4+7(8) ,NULLS 


WRCKD 
TLI*oe 
ILf¢os 


ROCKD 
IL1°O* 


WRROO 
ROROO 


IDDDR »XR1 
WORKN(2) »P256 


3(4,XR1L),WCPTIN 
4UeXR1) XR 
WORKN( 2) .P4 
RiOEL 


SOURCE STATEMENT 
992 
$93 * 
994 * 
995 *# 
996 
997 & 
998 RTNIG oc 
33g oc 
1006 oC 
1nOi «© 
L902 Ri0 MY I 
1003 * 
1062 8 
1005 BC 
1006 oc 
1007 * 
1008 R104 CLE 
1009 JE 
LO1O 
101i $i0 
1Ool2 * 
1613 8 
1014 oc 
1015 DC 
1Gi6 OC 
LOL? oC 
1018 5 
1019 8 
1020 oC 
102% * 
1022 8 
1023 # 
1024 R108 & 
1025 8 
21026 * 
1027 & 
1028 R108} BS 
1029 BC 
1030 * 
1031 L106 
1032 Lin 
1033 8 
1034 # 
1035 L190 
1036 Lio 
1037 B 
1038 * 
1039 MVC 
1049 MVC 
1041 * 
1042 B 
1043 DC 
1044 oC 
1045 * 
1046 B 
1047 DC 
1048 * 
1049 B 
1050 * 
1051 B 
1052 * 
1053 L 
1054 MVC 
1055 # 
1056 RiOEL MVC 
1057 LA 
1058 Si€ 
1059 BNZ 
LOMART6 OLOGCT76 
6273872 571931 


ROUTINE NUMBER 

ROUTINE FLAGS 
ADDRESS OF NEXT ROUTINE 03 
INETIALIZE HEAD ADORESS 


PERFGRM ROUTINE INITIALIZATION 
*LOGOP* SUBROUTINE SETURN ADDRESS 
*NXORV® SUBROUTINE RETURN ADDRESS 


ALLOW ONLY ONE 
ORIVE TO BE SELECTED 


RESET AND DISABLE 3340 FNTERRUPTS 


PRIMT MESSAGE 
“"~~“SELECT DRIVE ote or 
TO SE INITIALIZED 


UNCONDITIONAL HALT E& 


RESTART ROUTINE 


RECALIBRATE 
DETERMINE DATA MODULE SIZE 


SEEK (3340 PHYSICAL ADDRESS) ~~~ 
HEAD 0 - il 
CYLINDER 349 


03 
03 
03 
03 
G3 
63 
03 


SET X REG WRHA PREQ OVERRIDE 
SET UP SVP REQUEST 
WRITE EVEN HOME ADORESS 


SET X REG WRHA PREQ OVERRIDE 
SET UP SVP REQUEST 
WRITE GOD HOME ADDRESS 


SETUP RO 
Ki» Ol,» AND DATA 
WRITE COUNT-KEY-DATA 
RECORD ZERO (EVEN) 

NN = 06 


READ COUNT-KEY-DATA 
RECORD ZERO (EVEN) 


WRITE CNT-KEY~DATA RECORD ZERG ODD © 
READ KEY-DATA RECORD ZERO ODD 


PCINT TO DODF AKEA 
SETUP BYTE COUNTER 


MOVE WORST 
CASE PATTERN 
TO ODDF AREA 


PROG ID 
PAGE 


Ci2-3 
R2A 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C123 


ERR LOC OSJECT CODE 


127A 
L27F 
1283 
1284 


1285 
1289 


128A 
128E 


1294 
1298 


129C 


12A0 
12A4 


PATE 
€c NO. 


3340 FUNCTION TESTS - MOD 12 


ADDR STMT SOURCE STATEMENT 
1060 * 
8C 02 14 2827 1061 MVC DL (35 XR2) »P256 
1662 * 
CO 87 1906 1063 B WRCKD 
01 1283 1064 OC ILi"ie 
00 1284 1065 oc TiL1*o8# 
1066 * 
CO 87 1741 1067 B ROCKO 
Cl 1289 1068 DC ILitie 
1069 * 
CO 87 1496 1070 B NXDRV 
1071 * 
OE 00 1225 280F 1072 Ri0OF ALC R10B1(1),Pi 
1073 * 
3D CC 1225 1074 cul R10B1,12 
CO 82 14EE 1075 BL Loop 
1076 * 
38 30 0208 1077 SBF SBYTE3,.X*308 
1078 * 
CO 87 0224 1079 B LOAD 
00 12A4 1080 DC XL1*008 
1081 * 
23AUG75 OSNOV7S 19OMAR76 C1OCT76 
827785 827827 827872 571931 


PART NO. 
PAGE 


SET DATA LENGTH TO 256 


WRITE COUNT-KEY-DATA 
RECORD 1 
NN = 00 


READ COUNT-KEY-DATA 
RECORD 1 


END OF INITIALIZATION FOR ONE TRACK . 


INCREMENT HEAD ADDRESS 


LOOP UNTIL ALL 
TRACKS HAVE BEEN 


TURN OFF SENSE SW 1A - 18 


TERMINATE SECTICGN 


PROG ID 
PAGE 


INITIALIZED 


peak MAINTENANCE DIAGNOSTIC PROGRAM 


C123 


ERR LOC OBJECT CODE 


Smeg 


12A5 
12A6 
12A7 


42A9 
12AD 
LAF 
1281 
1285 
03 
03 1288 
1288 


12Cl 
12C5 
«1266 
3} 12€7 
12¢9 


12C5 
12CF 


: 1201 
1205 


jae 


1209 
12DE 


eee 


12E2 
; 12E5 


«1269 
: 12ED 
12F1 


12F4 


12F8 
12FE 
1304 
130A 


1310 


1316 
1318 
1320 


1325 
1329 
132D 


1331 
1334 


1338 
133D 


C1i2-3 DATE 
13. EC NO. 


’ 


11 
oo 
FFFF 


CoO 87 
1205 
1205 


3D FF 
F2 81 


00 
Cl C2 


38 10 
39 EO 
F2 90 


C2 Ol 


oc co 
oc 00 
oc 00 


oc 02 


ic 00 
1c 00 
1c 00 


3B 00 
3B 90 
38 00 


7D OF 
co 81 


1D 02 
F2 81 


13B2 


2904 
10 


22C0 2490 


O21A 


0222 


12A9 
2843 


12E3 
12E3 


O7 
12E5 


296D 
2960 
B85 


297E 


2939 
2937 
2938 
2936 


292C 


1326 
132A 
132€ 


292A 
2926 
292C 


00 
13A9 


292C 
07 


23AUG75 


827785 


02 


2 96F 
2970 
2971 
2976 


2939 
O01 


02 
03 


06 


ADDR 


1245 
12A6 
12A8 


12AE 
12B0 


12C5 
12€6 
12c8 
12CA 


12D0 


O5NOV75 


827827 


3340 FUNCTION TESTS — MOD 12 


FASSEESSERSSSSSES HARE SEAR RAAESESAEE SEE SERENE ERESERRES 


SESE HESSSEEEAEAERES ESSERE S ESSE SERRE EREEEEE 


PART NO. 
PAGE 


ROUTINE 11 ~ LOAD STATE ANALYSIS 


XLI¢Lie 
XL1*00! 
XL2°FFFFS 


8SEGIN 
AL2(R11A} 
ALZ(R1IA} 


ADRTBLt2 XxX" FFE 
R1IA 


X®TE* sxXecge 


MSGOAB(14) ,MTEST 


PRINT 
XL1*46* - 


AL1(tMSGOAN—MSGOA+1 } 


AL2 (MSGOAN) 
AL 2CHLTE4) 


HALT 
AL2(HLTE4) 


Ril 
DGSNS@.X*C4t 


RL1V+L,ORVADRi1»XR2) 


R11V+1,BIT7 
X*O7* ,#-*% 
*eX*C2e 


OGSNS+7,B11T3 
OGSNS*#7,X*EO! 
RilU 


ACTABL eXRE 


TAG83 , DGSNS +9 

TAG43 sDGSNS+4+10 
TAG23»90GSNS4+11 
TAG13,0GSNS416 


WORKN( 3? » TAGB3 


RLLP+1Lsl( bh oXRL) 
R11Q41.62¢1.6XR1) 
RLIR¢1,301—¢XR1) 


WORKN—-2 .*-% 
WORKN- 1, *-# 
WORKN, *—* 


Of ¢XR1),X*OF® 
R11uU 


WORKN»6(3¢XR1) 
R115S 


STMT SOURCE STATEMENT 
1083 

1084 * 

1085 * 

1086 * 

1087 

1088 * 

1089 RINII oc 
1090 Oc 
1091 DC 
1c92 * 

1093 Rll B 
1094 OC 
1095 cc 
1096 * 

1097 Cul 
1098 JE 
i099 * 

1100 $10 
1101 * 

1102 MVC 
1103 * 

1104 8 
1105 DC 
1106 oc 
1107 oc 
1108 DC 
1109 * 

1E1O B 
11lii oc 
1ll2 # 

1113 8 
1114 * 

1115 R11LA LIQ 
1116 & 

1117 MVC 
1118 SBN 
1119 * 

1120 RLV SIO 
ll21 *& 

1122 T10 
1123 * 

1124 TBN 
1325 TeF 
1126 JF 
1127 * 

1228 R118 LA 
1129 

1130 R116 MVC 
il3l MVC 
1132 MVC 
1133 MYC 
1134 * 

1135 R11T MVC 
1136 « 

1137 MYC 
1238 MVC 
1139 MVC 
1140 * 

1141 R1LIP SBF 
1142 R119 SBF 
1143 R1I1R SBF 
1144 *% 

1145 CLI 
1146 BE 
1147 * 

1148 cic 
1149 JE 
1L50 * 

19MAR 76 O1LOCT76 
827872 571931 


ROUTINE NUMBER 
ROUTINE FLAGS 
LAST ROUTINE 


PERFORM ROUTINE INITIALIZATION 
*LOoP® 


SUBROUTINE RETURN ADDRESS 


42476003 


L3A 


8020084 66208866203 


03 
03 
03 


¥FSSEESEE TES EEE8EESSEEQ3 


03 
03 
03 
03 
03 
03 
03 


*"NXORV* SUBROUTINE RETURN ADURESS 63 
03 
ALLOW ONLY ONE 03 
ORIVE TO BE SELECTED 03 
03 
RESET AND DISABLE INTERRUPTS 03 
03 
SET UP PRINT MESSAGE 03 
03 
PRINT MESSAGE 03 
“SELECT ORIVE 03 
TO BE FESTEO.* 03 
03 
03 
03 
UNCONDITIGNAL HALT E4 03 
03 
03 
RESTART ROUTINE 03 
03 
LGAD DODR TO SENSE AREA ADDR 03 
03 
BUILD READ 03 
DIAGNOSTIC SENSE COMMAND ‘03- 
03 
READ DIAGNOSTIC SENSE DATA 03 
03 
LOOP ON ATTACHMENT 8USY 03 
03 
GO TO TERMINATE SECTION IF 03 
DIAG SENSE BYTE 7 IS NOT 03 
EQUAL TO 1x 03 
03 
LOAD AC TABLE ADORESS IN XR1 03 
: 03 
MOVE DIAGNOSTIC 03 
SENSE DATA 03 
INTO G3 
TAG BYTES 03 
03 
~ REPLENISH WORK AREA ee ~rn QZ 
03 
SET UP 03 
SBF 03 
INSTRUCTIONS 03 
03 
INITIALIZE 03 
WORK 03 
AREA 03 
03 
GO TO TERMINATE SECTION IF 03 
DEFAULT CODE REACHED 03 
03 
JUMP IF ERROR 03 
CODE MATCH 03 
03 
PROG ID C%t2-3. 
PAGE A3A 








IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C123 

ERR LOC 
1340 
1343 
1347 


134C 
1350 
1351 
1353 


1355 
1359 
135A 
135C 


135€ 
1362 
1363 
1365 


1367 
136B 
136C 
136E 


1370 
1374 
1375 
1377 


1379 
137D 
L37E 
137F 
1381 


1383 
1387 
1388 
a389 


1388 
138F 
2390 
1391 


1393 
1397 
1398 
1399 


1396 
139F 
13A0. 
13Al 


13A3 
13A7 


L3A9 


13AD 
13B1 


DATE 
EC RO. 


@©9eoeooeo eoeoeedeeoeeee@eddege@eeteoeeteoeeegede eee eee ee 8 @ 


3340 FUNCTION TESTS - MOD 12 


OBJECT CODE 


B2 01 
co 87 
ic 00 


CO 87 
01 
2935 
234F 


CO 87 
01 

2939 
236C 


co 87 
ol 
2937 
2389 


CO 87 
ol 

2938 
23A6 


co 87 
o1 
2936 
23C3 


CO 8&7 
c1 

LE 
234F 
cidl 


23AUG7 
827785 


O7 

1310 
2935 00 
O21E 


O21E 


O21E 


O21E 


O21E 


O21A 


O21A 


O21A 


O21A 


O21A 


0222 


O20B 


O22A 


ADDR 


2350 
1352 
1354 


1359 


1358 


1350 


1362 
1364 
1366 


1368 
136D 
136F 


1374 
1376 
1378 


1370 
137E 
1380 
1362 


1387 
1388 
135A 


138F 
1399 
1392 


1397 
1398 
1394 


139F 
13A0 
13A2 


13A8 


1381 


5 OSNOV75 


827827 


7 eXR1} oXR1 
RILT . 
CODE, JC 1)XR1) 


UNPACK 
xXLifie 

AL 2¢CODE) 
AL2(MSGLON) 


UNP ACK 
XL1*1° 
AL2(TAG83) 
AL2(MSGLIN) 


UNP ACK 
XLI"1¢ 
AL 2( TAG43) 
AL2(MSG12N) 


UNPACK 
XL1iti* 
AL2 (TAG23)- 
AL2(MSG13N) 


UNPACK 
XLiele 
AL2(TAG13) 
AL2(MSGI4N} 


PRINT 

AL1L°Ci? 

ALL (MSGION-MSG1IO+1) 
AL2(MSG1ON} 

AL 2€HLTOL) 


PRINT 

XL1°81° 

ALL UMSGLIN-MSG1IF1) 
AL2(MSG1LIN) 


PRINT 

XLL°SL® 
AL1(MSG1L2N-MSG12¢1)} 
AL2(KMSGi2N} 


PRINT 

XL1*81® 

ALL (MSG1L3N~—MSG1341)} 
AL2(MSGL3N} 


PRINT 

XLL*B5° 
AL1(MSG14N-MSG1441) 
AL 2(MSG14N) 


HALT 
AL2¢HLTOL) 


SBYTE3,X*° 30° 


LOAD 
XL1*O° 


STMY SOURCE STATEMENT 
1151 uA 
1152 * 
1153 B 
1154 * 
1155 R118 MVC 
1156 ¥* 
1157 B 
1158 be 
1159 oC 
1160 bc 
21161 * 
1162 B 
1163 oC 
1164 oc 
1165 DC 
1166 * 
1167 B 
1168 oc 
1169 DC 
1170 DC 
1171 * 
1172 B 
1173 pc 
1174 oc 
1175 bc 
1176 * 
1177 B 
1178 oc 
1179 oc 
1180 DC 
1181 * 
1182 B 
1183 oc 
1184 DC 
1185 BC 
1186 DC 
1187 = 
1188 8 
1189 oc 
1190 oc 
1191 DC 
i192 * 
1193 B 
1194 oc 
1195 oc 
1196 oc 
LL97 * 
1198 B 
1199 oc 
12600 OC 
1201 oC 
1202 * 
1203 B 
4204 dC 
1205 DC 
1206 DC 
1207 * 
1208 3 
41209 DC 
1210 * 
2223 RELLY SBF 
1212 * 
1213 B 
1214 oC 
1215 * 
LOMARTE OLOCT 76 
$71931 


827872 


PART NO. 
PAGE 


INCREMENT POINTER IN TABLE 
LOOP UNTIL MATCH OR DEFAULT 
SET UP CODE FOR PRINTOUT 


UNPACK 
AC 
CODE 


UNPACK 
DRIVE 
CHECKS 
BYTE 


UNP ACK 
DM SEQUENCE 
CONTROL 
BYTE 


UNPACK 
LOAD SWITCH 
STATUS 
BYTE 


UNP ACK 
ACCESS CONTROL 
SFTATUS 
BYTE 


PRINT 
FIRST 
LINE OF 
MESSAGE 


PRINT 
SECOND 
LINE OF 
MESSAGE 


PRINT 
THIRD 
LINE OF 
“MESSAGE 


PRENT 
FOURTH 
LINE OF 
MESSAGE 


PRINT 
FIFTH 
LENE OF 
MESSAGE 


ERROR HALT Ol 


TURN OFF SENSE SW 1A ~- 18 


TERMINATE 
SECTION 


PROG ID 
PAGE 


ERR LOC OBJECT CODE 


14 
C123 
03 
03 
03 
03 
03 
03 
03 
03 
03 1382 
03 13B6 
03 
03 13BA 
03 13B8F 
03 
03 13C4 
03 13C7 
03 
03 13CR 
03 
03 13CE 
03 13D2 
03 
03 «1306 
03 13DA 
63 
03 13DE 
03 13E2 
03 
03 13€6 
03 L3EA 
03 13EE 
03 
03 13F2 
o> 13F8 
03 
03 L3FE 
03: 
03 1404 
G3 
3) 1408 
03 140C 
03 1410 
63: 
3 1413 
03 L417 
03: 141A 
03 
03 141D 
03: 
03 1420 
03 1424 
03 
03 1427 
. 03 
03 142A 
03 142E 
03 1432 
03: 
03 1435 
03 1439 
03 L43C 
03 
03 143F 
03: 
03 1442 
1446 
1449 
C12-3 DATE 
14 EC NO. 


a 


34 
35 


ic 
1c 


02 
34 


F3 


38 
co 


38 
co 


31 
31 


3c 
3C 
3c 


oc 
oc 


oc 
C2 
39 
393 
F2 
C2 
74 
D2 
ac 


38 
F2 


BA 
39 
39 
Fa 
C2 
T4% 
D2 
BC 


38 
F2 


BA 


08 
Ol 


ol 
01 


01 
o1 


C4 


ol 
10 


20 
90 


cs 
C5 


00 
00 
FO 


O11 
Ol 


03 
01 
10 
40 
90 
02 
02 
O1 
00 


40 
90 


08 
20 
20 
90 
02 
02 
OL 
oo 


20 
90 


08 





232C 
292C 


1534 
14ED 


04 
1495 


CAL9 
20ic 


OAlL9 


2072 


2878 
285E 


28E4 
28E5S 
28FF 


290C 
290E 


28E8 
2962 
0208 
O20A 
17 
293A 
Ol 
02 
co 


020C 
03 


00 
0208 
020A 
17 
2950 
01 
02 
00 


020C 
03 


00 


23AUGT75 


827785 


4247603 IBM MAINTENANCE OIAGNOSVIC PROGRAM 


3340 FUNCTION TESTS - MOO 12 





PART NO. 
PAGE 


4247603 
14A 


SRETREERESESEESERESEEERES ESE EERO ESESESERESSESESESESSOESESESESSESSES OHSS 


s 


INITIALIZATION AND LOOP CONTROL SUBROUTINES * 


* 


SLEERERESRHKEEREESRESSRESCAERASAESSETATRERSSSSSSSKESSESKHSSHASSHESE FH HLHSE SKE 


ROUTING INITIALIZATION 


WORKN»ARR 
WORKN,» XR1 


LOOPX4#3(2),1(0.XR1) 
NXDRVX*#302) 930 eXR1) 


4(eXR1)eXR1 
BGNX#3 oXR1 


X®TE® pX*C4® 


COM, AMOP SW 
AMOPLK 


COM. MPLFLG 
MPL 


CEMODE sx*C5* 
SVPREQ»X*C5* 


IND,0O 
IND2,0 
ERRCNT.C*O® 


1DDCR{(2),00CR 
EDDDR(2) ,DDOR 


S$2¥SV(4) ,SBYTES 
ADRTBL -XR1 
SBYTE3 -SSWiB 
SBYTE2 «SSW1il 
BGNO3 

DRVWK1 ,XR2 

145 XR1L5yXR2 
2oeXRLPEXRL 
DIND( »XR2} -0 


SBYTE4,SSW21 
8GNO3 


DIND( »XR2) »NOWR 
SBYTE3 eSSWLA 
SBYTEZ,SSW12 
BGNO6 

DRVHK2 »XR2 

1 eXR1)-XR2Z 

20 eXRLDeXRL 
DIND(.XR29,0 


SBYTE4,SSW22 
BENOS 


DIND( ,XR2},NOWR 


ADDR STMT SOURCE STATEMENT 
1217 
1218 * 
1219 * , 
1220 * 
1221 
1222 * 
1223 * 
1224 * 
1225 BEGIN ST 
1226 L 
1227 # 

01 1228 MVC 
03 1229 MVC 
1239 * 

1231 LA 
1232 ST 
1233 * 

1234 BGNOL S10 
1235 * 

1236 TBN 
1237 BT 
1238 * 

1239 TBN 
1240 BF 
1241 * 

1242 LiO 
1243 Lio 
1244 * 

1245 MVI 
1246 MVI 
1247 MVI 
1248 * 

2847 1249 MVC 
2849 1250 MVC 
1251 * 

6200 1252 BGNO2 MVC. 

1253 * 

1254 LA 

1255 * 

1256 TBF 

1257 TBF 

1258 JF 

1259 * 

1260 LA 

1261 St 

1262 LA 

1263 * 

1264 MVI 

1265 * 

1266 TBN 

1267 JF 

1268 * 

1269 SPN 

1270 = oS RL 

1271 BGNO3 TBF 

1272 TBF 

1273 JE 

1274 * 

1275 - LA 

1276 ST 

1277 LA 

1278 ¢ 

1279 MVi 

1280 # 

1281 TBN 

1282 JF 

1283 * 

1284 SBN 
O5NOV75 19MAR76  -OLOCT76 
827827 571931 


827872 


POINT TO SUBROUTINE 
CALL PARAMETERS 


SETUP *LOOP* SUBROUTINE RETURN 
SETUP *NXURV® SUBROUTINE RETURN 


SETUP *BEGIN® 
SUBROUTINE RETURN 


RESET AND DISABLE 3340 INTRPS 


BRANCH IF AMOP 
WAS ABNORMALLY TERMINATED 


LOAD MICROCODE a 
IF REQUIRED 


SET CE MODE 
INDICATORS 


RESET PROGRAM INDICATORS 
RESET PROGRAM INDIVLATORS 
INITIALIZE ERROR RETRY COUNT 


03 
INITIALIZE DDCR 

AND DDDR VALUES 
SAVE SECTION SENSE SWITCHES 
POINT TG DRY WORK AREA ADDR TBL 

. 02 

BRANCH IF DRIVE 1 

TESTING 2S INHIBITED 
STORE DRIVE 2 

WORK AREA ADDRESS IN TABLE 

AND ADVANCE TABLE POINTER 

RESET ORIVE DEPENDENT IND 


SKIP IF WRITE 
ALLOWED ON DRIVE 1 


INHIBIT WRITE TESTING 
02 

BRANCH IF DRIVE 2 

TESTING IS INHIBI TEO 
STORE ORIVE 2 

WORK AREA ADDRESS IN TABLE 

AND ADVANCE TABLE POINTER 

RESET DRIVE DEPENDENT IND 


SKIP IF WRITE 
ALLOWED ON DRIVE 2 


INHIBIT WRITE TESTING 


C12-3 
14A 


PROG ID 
PAGE 





18M MAINTENANCE DIAGNGSTIC PROGRAM PART NO} 4247603 IBM MAINTENANCE DIAGNOSTIC PROGRAM 4 : PART NO. 4247603 
PAGE is , PAGE 15A . 
C123 3340 FUNCTION TESTS ~ (40D 12 C123 3340 FUNCTION TESTS - MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
1285 * - 1405 CO e7 0212 1353 8 TEST ; CHECK FOR USER INTERVENTION 
144C 7C FF 00 1286 BGNOS MVI OUsXR1),X*FFE MOVE TERMINATOR TO ADDR TABLE 1354 * 
1287 * 14D9 38 40 2864 1355 TBN INDesHLTSW' CONTINUE TESTING IF NO 
144F C2 01 2902 1288 LA ADRTBL»XR1 POINT TO START OF ADDRESS TABLE 140D F2 90 OA 1356 JF NXDRVX PERMANENT ERROR OCCURED 
1453 34 01 2901 1289 ST AORP TR+eXR1 INITIALIZE ADDRESS TABLE PTR 1357 * 
1457 75 02 O1 1290 L 1¢9XR1)_XR2 FIRST ORIVE WK AREA ADDR TO XR2 14EO CO 87 0222 . 2358 B HALT ERROR HALT 
1291 * 14E4 C101 14E5 1359 oC AL2CHLTOL)? 
145A 7D FF 00 1292 CLI Ol,XR1)yX*FFE GO TO START TEST IF 1360 * 
145D F2 O01 14 1293 JNE BGNOT? VALID SENSE SW SELECTION 14E6 3B 40 28E% 1361 SBF IND, HLTSW RESET PERMANENT ERR INDICATOR 
1294 * 1362 * 
1460 CO 87 O2iA 1295 B PRINT PRINT MESSAGE 14EA CO 87 0000 1363 NXORVX 8 + * RETURN TO CALLING ROUTINE 
1464 46 1464 1296 BC XL1*46? INVALID SETTING 1364 * 
1465 2A 1465 1297 Dc AL1L(MSGO4N-MSG0441 ) OF SENSE SWITCHES 1365 Ben a ee 
1466 21£6 1467 1298 DC" AL2(MSGO4N) 11-12 OR 1LA-18 02 1366 * SETUP TEST LOOP ADDRESS 
1468 C1E2 1469 1299 oc AL2(HLTE2) ; 1367 © 
1300 * 14EE OC O1 290C 2847 1368 LOOP MVC IDDCR(2),D0CR RE-INITIALIZE 
146A CO 87 C222 1301 8 HALT UNCONDITIONAL HALT E2 14F4 OC 01 290E 2849 1369 MVC IDDDR(2) ,O0DR DDCR AND DDOR VALUES 
146E C1E2 146F 1302 OC AL2(HLTE2) : 1370 * 
1303 * 14FA OD 03 28EB 0200 1371 CLC SSWSV(4) »SBYTES BRANCH IF ANY 
1470 CO 87 13FE 1304 B BGNO2 GO TO CHECK SENSE SWS AGAIN 1500 Co 01 13CB 1372 BNE BGNOL SECTION SNS SW CHANGES 
1305 * 1373 * 
1474 BA 40 00 1306 BGNO7 SBN DIND(.XR2) -LPSW SET DRIVE LOOP INDICATOR 1504 3B O7 28E4% 1374 SBF IND, OPEND+ SKENG+ SNSAVL RESET INTERRUPT AND : Panels 
1307 * vets _.,.. .  .1508 3B 30 2864 _... 1375 --- SBF IND, INTERR4+DRVERR ERROR INDICATORS : 
1477 OC O01 2928 2608 1308 MVC SNST2)5NULLS =” CLEAR SENSE AREA 1376 * 
1309 * 150C OC O01 2928 2868 1377 MVC SNS(2) NULLS CLEAR SENSE AREA 
147D 31 CS 284E 1310 LIO SVPSEQ#1 eX "C5? FORCE 1378 * 
1481 31 C5 2862 1311 LIQ K+il,X*C5* ADAPTER CHECK 1512 31 °5 284€— 1379 LIO SVPSEQt1,xX*C5* FORCE 
1485 31 C5 2864 1312 LIO RUNMP ,x*C5* TG TEST INTERRUPT ENABLE 1516 31 C5 2862 1380 LIO K+1,X*C5! ADAPTER CHECK 
1313 * 1514 31 C5 2864 1382 LIQ RUNMP,X*C5? TO TEST INTEKRUPT ENABLE 
1489 OD FF 1489 1489 1314 CLC *(256).% 800 USEC DELAY 1382 * 
1315 * L51€ OD FF LSE 151 1383 CLC *(256),*% 800 USEC DELAY 
148F F3 C4 80 1316 SIO X* 80" sX*C4* ENABLE 3340 INTERRUPTS 1384 + 
1317 * 1524 F3 C4 80 1385 SIO =X*80"%,X*C4e ENABLE 3340 INTERRUPTS 
1492 CO 87 0000 1318 BGNX B +3 RETURN TO CALLING ROUTINE 1386 * 
1319 * : 1527 B8& 40 00 1387 TBN ODIND(,XR2)-LPSHW TEST DRIVE LOOP INDICATOR 
1320 Benn mn nw nnn nw mn nn nnn nnn nn nnn nn nnn nn nnn nn nnn 1524.84 40 00 1388 - SBN DIND1 oXR22 > LESH RESET ‘INDICATOR ~~ * UU as 
1321 * REPEAT TEST ON NEXT DRIVE 152D C0 90 1492 1389 BF BGNX BRANCH IF IND WAS OFF 
1322 * 1390 * ; 
1496 F3 C4& TE 1323 NXDRV sio X®7E® sX*C4? RESET AND DISABLE 3340 INTRPS 1531 CO 87 0000 1391 LOooPX 8 koe RETURN TG CALLING ROUTINE 
1324 * 1392 * 
1499 3D FO 28FF 1325 Ct ERRCNT»C#O® BRANCH IF NG ERROR 1393 #-----~-~———__....~ wee ee ee meee 
149D F2 81 12 1326 JE NXDO1 RETRIES WERE REQUIRED 1394 * ERROR RETRY PROCEDURE 
1327 * 1395 * 
14A0 OC 00 21F7 28FF 1328 MVC MSG054+16(1) ,ERRCNT MOVE RETRY COUNT TO PKINT MSG 1535 F3 C4 TE 1396 RETRY SIO = XE TE®,X#CKP RESET AND OYSABLE 3340 INTRPS 
1329 *# 1397 + 
14A6 CO 87 O21A 1330 B PRINT PRINT 1538 30 00 28E7 1398 SNS SWS,50 * AMOP < SENSE DATA SWS 
14AA 86 14AA 1331 DC XL1"86¢ *RECOVERED 153C 3D 83 28E6 1399 CLI LINKIDsX*63® © LINK © ANDO GG TO AMOP IF 
14AB 19 14AB 1332 DC AL 1(MSGO5N~-4SG05+1) AFTER X RETRIES®* 1540 CO 81 201C 1400 BE AMOPLK * (gze «& SWS 1 & 2 CONTAIN °838 
14AC 21FF 14AD 1333 DC ° AL2(MSGO5N) 1401 * 
1334 * : 1544 3D FO 28FF 1402 CLI ERRCNT »C*0? PRINT ERROR 
14AE 3C FO 28FF 1335 MVI ERRCNTe¢C#O® RESET ERROR RETRY COUNTER 1548 CO 81 1lE12 1403 BE ERRPRT MESSAGE IF FIRST ERROR 
1336 * 1404 * 
1482 35 01 2901 ae NXDO1 L ADRPTR»XR1 GET ADORESS TABLE POINTER 154C 8B CO 00 1405 SBF DIND( .XR2),LPSH+CEDN RESET ORIVE INDICATORS 
1 + send 1406 *# , 
14B6°7D FF 02 1339 CLI 2(yXR1),X*FFE BRANCH IF ALL DRIVES 154F 39 05 2928 1407 TBF SNS, BIT54+BIT7 FORCE SYSTEM RESET IF 
14B9 F2 81 OE a P JE NXD02 HAVE BEEN TESTED 1553 CO 90 2087 1408 BF SYSRST OM ATTENTION OR ADAPTER CK 
4 1409 * 
148C 75 02 03 1342 t 3(eXR1),XR2 POINT TO NEXT DRV WORK AREA 1557 38 01 2928 1410 TBN SNS,BIT7 TERMINATE SECTION IF 
1343 * 1558 F2 10 22 1411 JT ABEND MICRO-PROCESSOR WON'T START 
14BF D2 01 02 1344 LA 2(,XR1L)»XR1 ADVANCE ADDRESS 1412 * 
24C2 34 01 2901 Nerd : ST ADRPTR »XR1 TABLE POINTER 155E 06 OO 28FF 280C 1413 AZ ERRCNT(1),D1¢13 INCREMENT ERROR RETRY COUNT 
1414 
14C6 CO 87 14EE 1347 B Loop GO TO TEST NEXT DRIVE 1564 30 F3 28FF 1415 CLI ERRCNT,»C*3° GO TO RETRY COMMAND SEQUENCE 
1348 * 1568 CO 04 14EE 1416 BNH Loop IF COUNT NOT YET EXHAUSTED 
14CA C2 01 2902 1349 NxDO2 LA AORTBL oXR1 RE-INITLALIZE 1417 * . 
14CE 34 01 2901 1350 ST ADORPTRsXA1 ADDRESS TABLE POINTER AND 156C CO 87 O21A 1418 . 8 PRINT PRINT 
14D2 75 02 O1 1351 L - 1¢,XRL),XR2 POINT TO FIRST DRIVE AREA 1570 86 1570 1419 DC XL1L* 86° PERMANENT 
1352 * a 1571 1C 1571 1420 DC AL 1(MSGO7N-MSGO7+1)_ ERROR MESSAGE 
OATE 23AUGT75 OSNOV75 19MAR76 O1GBCT76 PROG ID €12-3 DATE 23AUG75 OSNOV75 1OMART6E OLOCTT76 ; PROG ID Ci2-3 
ES NO. 827785 827827 827872 571931 PAGE 15 —C NO. 827785 827827 827872 571931 . PAGE 9A 















C123 


ERR LOC 


1572 


1574 
1578 
157C 


1580 
1584 
1585 
1586 


1588 


158C 
1590 


1592 
1596 


DATE . 
EC NO. 


TBM MAINTENANCE DIAGNOSTIC PROGRAM 4. 


3340 FUNCTION TESTS -— MOD 12 


OBJECT CODE 


2240 


3C FO 
3A 40 
co 87 


co 87 
86 

32 
2231 
3B 20 


Co 87 
c101 


co 87 
40 


827785 


28FF 
28E4 
1496 


O21A 


OAL9 


0222 


022A 


- 23AUG75 


O5NOVT 
827827 


ADDR 


1573 


1584 
1585 
15867 


1591 . 


1596 


5 . 


STMT 


1421 
1422 *. 
1423 
1424 
1425 
1426 * 
1427 
1428 
1429 
1430 
1431 * 
1432 
1433 * 
1434 
1435 
1436 * 
1437 
1438 
1439 * 


19MART6 
827872 


oc 


MVI 
SBN 


DC 
OC 
oc 


SBF 


oc 


boc 


O1NCT 76 
571931 


SOURCE STATEMENT 


AL2 (MSGO7N) 


ERRCNT,C*O# 
IND, HLSW 
NXORV 


PRINT 

XL1°86¢ 
AL1(MSGO6N-MSG0641 ) 
AL2(MSGO6N) 


COM,MPLFLG 


HALT 
AL2(HLTO1L) 


LOAD 
XL1°40° 





PART NO. 
PAGE 


RESET ERROR RETRY COUNTER 
SET PERMANENT ERROR INDICATOR 
GO TO TRY NEXT DRIVE 


PRINT 
TERMINATION MESSAGE 


RESET MICRO-PROGRAM LOADED IND 


ERROR HALT O1 


TERMINATE SECTION 


PROG ID 
PAGE 16 


C123 


ERR LOC OBJECT CODE 


1597 
159B 


15Al 
15A4 


15AT7 


15AC 
1582 


1588 


1588 
LSBF 


15C3 
‘15¢C9 


15CE 
1504 


15DA 
15£0 
15&3 
15€9 
15E0 
15F3 
15F6 
15FC 
1600 
1605 


1609 
160C 


160F 


1613 
1616 


161A 
1610 


1620 
1625 
162A 
1630 


1634 


C12-3 DATE 


EC NO. 


34 
oc 


BC 
BC 


8c 


oc 
oc 


F2 


34 
35 


oc 
1c 


oc 
oc 


OE 
F2 
06 
co 
OE 
F2 
06 
co 
1c 
3c 


68 
F2 


3G 


7D 
co 


Bc 
BC 


1E 
co 
OE 


08 
04 


00 
ol 


09 
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1442 * 

1443 * 

1444 ®# 

1445 

1446 *® 
(1447 * RECALIBRATE COMMAND 
1448 * 
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1450 * 
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1452 * 
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TBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. “247603 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247663 
PAGE 17, PAGE LTA 
‘C123. 3340 FUNCTION TESTS - MOD 12 C123) 3340 FUNCTION TESTS ~ MOD 12 
ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT ERR LOC GBJECT CODE ADOR STMT SOURCE STATEMENT 
163A D2 01 03 1509 LA 3 eXR2}eXR1 SETuP 1577 
163D 34 O1 16AC ore ST SEEKX439XR1 RETURN ADORESS L6EA 02 01 09 1578 LA 9( yXR1),XR1 CALCULATE EXPECTED 
¥ 16EU 34 O1 292C 1579 ST WORKNeXR1 RESIDUAL DDOR 
1641 C2 01 0000 1512 LA 0»XR1 DIVIDE BY 20 1580 * 
1645 OD 01 292C 2821 1513 SK03 CLC WORK +43(2),P20 TO GET CYLINDER 16Fl OD O01 292C 2912 1581 CLC WORKN(2),RDDOR GO TO ERROR END IF 
164B F2 82 OD 1514 JL SK04 SEEK ARGUMENT IN 16F7 CO CL 1C09 1582 BNE ERR16 RESIDUAL ODOR IS INCORRECT 
164E D2 OL OL 1515 LA 1(,XR1) -XR1 INDEX REGISTER 1 AND 1583 « 
1651 OF O1 292C 2821 1516 SLC WORK4 342) ,P29 HEAD SEEK ARGUMENT 16FB CO 87 0000 1584 RDHAOX B S— RETURN TO CALLING ROUTINE 
1657 ©O 87 1645 ae “3 B SKO3 IN WORK AREA 1585 * 
1586 Sh ee ne we ee ci ee eee ee oe a eee ee ee oe ate ee a coe ae wn oe am Oe Om ae we oe oe ee om ee am 00 ce ee ee om ee Oe we a oe eee 
1658 B4 O1 OE 1519 SK04 ST CC(¢XR2) XR] STORE SEEK 1587 * READ RECORD ZERO KEY-DATA ODD 
165E BC 01 10 292C 1520 MVC HH )XR2),WORK+3(2) ARGUMENT IN DDCF 1588 & 
1521 * 1L6FF 34 08 1740 1589 RDROO ST RDROOX4+3,ARR SAVE RETURN ADDRESS 
1663 34 O01 292A 1522 ST WORK4+1,XR1 MOVE CYL ADDRESS TO WORK AREA 1590 © 
1523 * 1703 OC 04 28FO 2427 1591 MYC §=©CMD(5),MRDROO SETUP *"CMD* FIELD FOR PRINTOUT 
16067 OF 01 292A 2831 1524 SKO5 ALC WORK41(2),N1 CONVERT CYLINDER 1592 * 
166D F2 82 OA 1525 JM SK06 ADDRESS TO DECIMAL 1709 BC 01 06 1593 MVI Q(,XR2),x*OL° SETUP Q AND R 
1679 oO o ele 280C 276 x cre eter) AND SAVE FOR PRINTOUTS 170C BC 08 07 1594 MVI RO eXR2) 9X*088 BYTES FOR SIG COMMAND 
1595 
1528 + 170F BC 90 11 1596 MVI RR sXR2) 90 CLEAR ODCF RR FIELD 
167A OE O1 292C 2831 1529 SK0Q6 ALC WORK4+312),N1 CONVERT HEAD 1712 BC 00 15 3597 MVI NN( 2 KR2)20 CLEAR ODCF NN FIELD 
1680 F2 82 OA 1530 JM SEEKA ADDRESS TO DECIMAL > 1598 * 
ae . rs ook 2800 ee aoa anette AND SAVE FOR PRINTOUTS 1715 CO 87 1A3D ae ee xEQ) GO TO EXECUTE COMMAND 
c 1600 #* 
1533 * 1719 8D 08 14 2925 1601 RDROGA CLC DLI9~eXR2) -RODCF+8 GO TO ERROR END IF 
1680 CO 87 1A3D aes sere 8 XEQ GO TO EXECUTE COMMAND L71E CO O01 1CF3 1602 BNE ERR1E RESIDUAL DDCF IS INCGRRECT 
1603 « 
1691 OD O1 290E 2912 L536 CLc IDDDR(2} eRDDDR GO TG ERROR END IF 1722 BC 00 iil L604 VI RRL .XR22,0 CLEAR RR FIELD 
1697 CO O61 1CD9 1537 BNE ERR16 RESIDUAL CDDR IS INCORRECT 1605 * 
1538 * 1725 35 01 296€£ 1606 L EDODR»XR1 CALCULATE 
169B OD 09 291C 2926 1539 CLC IDDCFN{10).RODCEN GO TO ERROR END IF 1729 B& OL 12 1607 A KL(XR2} XRD EXPECTED 
iGAl CO OL 1CF3 ieee BNE ERRi& RESIDUAL DDCF IS INCORRECT k72C B6 51 14 L603 A OL &sXR2} XR RESIOQUAL DODR 
i * 172F 34 OL 292C€ 1669 ST WORKN, XR1 
L6A5 AC 03 OB 10 1542 MVC PA(4 ¢XR2} HH sXRZ) SAVE CURRENT PHYSICAL ADDRESS } LGLO & : 
; 1543 *# . | 1733 CD 01 292C 2912 LOL: CLC WORKN(2)-RDOODAR GO TO ERROR END IF / 
1649 CO 87 ODG00 et SEEKX B o-% RETURN TO CALLING ROUTINE 1739 CO 01 1CD¢9 16%20 ***>- BNE ERR1G6 ; RESIDUAL DDDR IS "INCORRECT 
; 1633 *% 
DG RR ie i Se a ee ate eee as La 1730 CO 87 0006 1614 RDROOX e—% iL if 
1547 « READ HOME ADDRESS AND RECORD ZERO COUNT EVEN aie i ; . RETURN TO CALLING “ROUTINE 
: 1548 © } L416 Te ce co a a ce he ene enero See enema ery ne cen nee er er essere er epee 
16AD 34 O68 L6&FE ees ROHAE ST RDHAOK+4+3,ARR SAVE RETURN ADDRESS 8617 % READ COUNT-KEY-DATA 
; 2 * 7 LEED *% 
1681 OC 04 2B8FO 2410 te} : MYC CMO(5) -MROHAE SETUP °CMDO® FIELD FOR PRINTOUT ! 1741 34 68 1740 1612 WOcKe ST RORCOX43, ARR SAVE RETURN ADDRESS 
5 ae : a . = L620 & 
ae c at i ao a oe ea sae one . sions . 1745 OC 04 28FO 242¢ LS22 HVC CMD(5) sMROCKO SETUP *CHD® FIELO FOR PRINTOUT 
22% ’ 9 : i k6Z2 % 
1555 # 1748 BC OL 06 1623 RVI Ol eXRZb xP OLE SETUP Q@ AND RB 
1680 F2 87 10 fe J ROHAGA GO TO EXECUTE COMMAND L74E BC 02 07 1624 MYT = -ROUgXR2ZD9X8 02° BYTES FOR SIG COMMAND 
155 ' 1625 © 
ae on See eine ee ae aha Te ee 1751 8C 03 15 2808 L626 MYC NN(4—XR2) g@NULLS CLEAR KL» Gls AND WN FIELOS G3 
= L627? * 
1560 * i 1756 35 01 1740 1628 t ROROOX43,XRL MOVE RECGRC 
0 5 c : : 
16CO 34 O08 L6FE ee REGAO ST RDHAOX+3 ARR SAVE RETURN ADDRESS 175A 9C 00 11 00 1429 MYC RRL XR2N OO XRLD NUMBER TO ODCF 
. ; 1630 ¢ 
16C4 OC 04 28FO 2422 ie ¥ MVC) = CH.) »MROHAO SETUP *CHD® FIELD FOR PRINTOUT . 175E CO B87 1430 1631 8 XEQ GO TO EXECUTE COMMAND 
1632 © 
16CA BC 01 06 1565 Mv] QisXR2Z) sX*018 SETUP @ AND R 7 STH 
16CD BC 09 07 ieee ies Re RRS) xiao BYTES (FOR 610: CUSWAND 1762 8C O02 14 2925 oe : MVC DL¢€35XR2) -ROOCE +8 SAVE KEY AND DATA LENGTHS READ 
1567 * . 
1767 OE O21 1740 280F 5 Z 
1600 8C 09 15 2808 1568 RDHAGA MYC NNC1L0yXR2}, NULLS CLERK OUCE ARER 1 1740 28 ees : ALC ROROOX+3(2},P1 SETUP RETURN ADORESS 
1569 * : 1760 CO 87 1719 37 
1605 CO 87 1430 1570 ‘ eee ga 30 ESE CUE Commins 17h en “ B ROROOA GO TO CHECK RESIDUAL VALUES 
*& 
1609 2D 03 2921 OB 1572 CLC RDDCF44(4) pPA(,XR2) GO TO ERROR EXIT IF : ee aaa AS a rae — 
‘ tty x ~” > Y aeo 
16DE CO 01 1CF3 eta BNE ERR18 HA READ IS INCORKECT teay * Bare haere ane ve gah Ungnost $e 
157% 
1771 34 08 1740 1642 : 
16€2 35 01 2908 1575 : roDoRGKRA Pivecne Seana cue Le nouey ST ROROGX+ 3,ARR SAVE RETURN ADDRESS 
14 08 1576 MYC = =—s- DL (95 XR2). Bl e XR1) FOR USE IN NEXT DDCE 1775 OC 64 28FO 2431 1644 MVC =©CHD(S} +#RDDGH SETUP *CHD* FIELD FOR PRINTOUT 
DATE 23AUG7 . 
ec aps Boorse? sorana? paella O1LOCT76 PROG ID C12-3 DATE 23AUG75 OSNOV7S 1SHART6 OLCCTT6 PROG ID C1l2=-2 
§71931 PAGE 17 EC NO. 9827785 827827 827872 571931 PAGE i?vaé 
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1BM MAINTENANCE DIAGNOSTIC PROGRAM 


PART NOw 424760316 MAINTENANCE OIAGNOSTIC PROGRAM PART NO. 4247603 
PAGE 18 PAGE 18A 
C123 3340 FUNCTION TESTS - HOO 12 C123 3340 FUNCTION TESTS — MOD 12 
ERR LOC OBJECT CODE ADOR STMY SOURCE STATEMENT ERR LOC OBVECT CODE ADDR STMT ZOURCE STATEMENT 
1645 * 181A 9C 00 15 O1 1713 MVC  «- NNO Le XR2002 Ce XRD) VALUE TO DOOCF 
1778 BC 01 C6 1646 MVI QU XR2PX*OL! SETUP Q AND R 1714 * 
1L77E BC 04 O7 1647 AVI ROgXRZ} X04! BYTES FOR SIG COMMAND IBLE CO 87 LA3D 1715 B XEQ GO TO EXECUTE COMMAND 
1648 * 1716 * 
1781 BC 00 15 ee i MVE WNN(,XR2),0 CLEAR NN FIELD 1822 AE 00 11 15 1717 ALC  RR(L»eXRZ2),NN(eXR2) CALCULATE EXPECTED RESIDUAL RR 
1718 * 
1784 35 O01 1740 1651 L ROROOX4+3eXP1 MOVE RECORD 1826 30 FF 2926 1719 CL! RDOCF¢9e X* FFP GO To 
1788 9C 00 11 00 1652 MVC RROL»eXR2}¢00e XRD) NUMBER TO ODCF 182A CO O1 1CF3 1720 BNE ERR18 ERROR END 
1653 * 182E 8D 05 11 2922 1721 CLE RRIG_XR2Z) eRODCF 45 IF RESIDUAL 
178C CO 87 1A30 1654 B XEQ GO TO EXECUTE COMMAND 1833 CO OL 1CF3 1722 BNE  €ERR18 DOCF IS ENCORRECT 
1655 * 1723 % 
1790 O€ O1 1740 280F 1656 ALC RDROOX4+3(2);P1 SETUP RETURN ADDRESS 1837 00 O1 290E 2912 1724 CLC IDDOR(2},/RDOOR GO TO ERROR END IF 
a 1657 * 1830 CO G1 1ICD9 1725 BNE ERRL6 RESIDUAL NOOR IS INCORRECT 
1796 CO 87 1719 1658 B RDROOA GO TO CHECK RESTOUAL VALUES 1726 * : 
1659 * 1841 O€ O1 184A 2811 1727 ALC ROVKDX43(2),P2 SETUP RETURN ADDRESS 
LOCO Bamana nr i 1728 % 
i661 * READ KEY-DATA 1847 CO 87 0000 1729 RDVKDX 8 e-% RETURN TO CALLING ROUTINE 
1662 * 1730 *& 
179A 34 08 LTFC 1663 RDKD St RDKDX43,ARR SAVE RETURN ADDRESS LTB] Bema ren a ee ew nn n= 
1664 * 1732 * READ AND RESET BUFFERED LOG 
LT9E OC 04 28FO 2436 1665 MVC  =CMD(5) »MROKD SETUP *CMD® FIELD FOR PRINTOUT 1733 * 
2666.'% j 184B 34 08 18A6 1734 RDLOG ST RDSNSX*#3, ARR SAVE RETURN ADDRESS motes ries See + 
1744 BC 01 06 1667 MVI .Q(9XR2)-X#O18 SETUP Q@ AND R 1735 * 
17A7 BC 00 O7 1668 MVI =—- RU pXRZ29 2X" 00° BYTES FOR SiG COHMANO 184F OC 04 Z8FO 2440 1736 MVC CMD(5) »MROLOG SETUP *CMD® FIELD FOR PRINTOUT 
1669 * 1737 * 
L7AA 35 O1 LTFC 1670 ROKDA L RDKDX#3_¢XR1 MOVE RECORD 1855 BC Ol 06 i738 MVE QU pXR2P2X*O1* SETUP @ AND R 
L7AE 9C 00 11 0O 1671 MVC =- RREL»XRZ2}-OEe XR1I? NUMBER AND NN 1858 BC OS O07 1739 MVE Ri eXR2Z) 9X25! BYTES FOR SIO COMMAND 
17B2 9C 00 15 O1 L672 MVC  NNOLsXR2Z} 01 €eXRL} VALUE TO DOCEF L740 *# 
1673 * 1858 CO 87 1A3D L?4l & XEQ GO TG EXECUTE CCOMRAND 
17B6 CO 87 1A30 1674 B XEQ GO TO EXECUTE COMMAND L742 * 
1675 * 185F CO 87 1884 1743 8 RDSNSA GQ TO CHECK RESTOUAL VALUES 
L7BA AE 00 11 15 LOT ALC RRELSXRZ} oMMCeXRZ} CALCULATE EXPECTED RESTOUAL RR 1744 + 
1677 * 1745 #------ a nn i a sin ana ta cic eee eee re eee oe een rate encima ance 
L7BE 3D FF 2926 1678 CLI RDDCF+9,X*FFt GO TO 1746 * READ DIAGNOSTIC SENSE DATA 
L7C2 CO 01 1CF3 1679 BNE ERREIG -- ERRGR. END ee L747 * eae gace 
17C6 8D O08 14 2925 1680 cic DL(9,XR2) -RDOCF+8 IF RESTOUAL 1863 34 O8 18A6 1748 ROSNS St RDOSNSX#3,ARR SAVE RETURN ADDRESS 
L7CB CO OL 1CF3 1681 BNE  ERRIEB DOCFE IS INCORRECT 1749 ® 
1682 * L867 OC 04 28FO0 2445 1750 MVC  CMD(53.MRDSNS SETUP *CMD® FIELD FOR PRINTOUT 
L7CF BC 00 11 1683 MVI  RROU»XR2}60 CLEAR RR FLEELD i?7S5i # 
1684 * 1860 BC O1 06 1752 MVE Q€_¢XR2}eX*O1° SETUP @ AND R 
17DzZ 35 O1 290€ 1685 L IDDDR, XRL CALCULATE 1870 BC O7 OT 1753 MVi Bi eXR2Z}-X*2 078 BYTES FOR SIO COMMAND 
i7D6 BE O1 12 1686 RDKDB A KL(,XR2) XRL EXPECTED 1754 # 
1709 B6 OL 14 1687 A DLE eXR2Z} eXR1 RESIDUAL 1873 CO 87 1A3D 1755 8 XEO GG TG EXECUTE COMMAND 
170C BE 0O 15 2831 1688 ALC  NNGLeXR2} NL DDOR VALUE 1756 * 
17E1 CO 02 1706 1689 BNM RDKDB L877 35 OL 290E 1757 L IDDORsXRE SET ENDICATOR 
1690 * 187B 79 02 02 1758 TBE 2 ¢XRLE sBET6 1—F SENSE DATA 
LTES 34 02 292C 1691 st WORKN »XR1 GG TO ERROR LESTE F2 90 03 i75$ JF ROSNSA INDICATES THAT A CE 
L7E9 OD OL 292C 2912 1692 CLC WORKN(2},ROD0R END If RESIDUAL L881 BA 80 O00 1760 SBN DIND(,.XR2},CEDM DATA MODULE IS MOUNTED 
17EF CO O1 1C€09 1693 BNE ERRIG DDOR IS INCORRECT 176k # 
1694 * 1884 35 O1 290E 1762 RDSNSA ok IDODR» XR) CALCULATE 
17F3 OF OL 17FC 2811 1695 ALC ROKOX43(23,P2 SETUP RETURN ADDRESS 1888 D2 O01 18 1763 LA 24 yXR1)eXRE EXPECTED 
1696 * : L88B 34 OL 292C L764 ST WORKN oXRI RESIDUAL DDOR 
L769 CO BF 0000 1697 RDKOX B — & RETURN TO CALLENG ROUTINE 1765 * yah se geee cup IE 
1698 * BBE OD OL 292C 2912 1766 CLC WORKN(2)+RDDDR S 
F699 Garena ee aa a ee £0 OL iCD9 L767 BNE  ERRLO RESIDUAL DDDR IS INCORRECT 
L700 * READ VERIFY KEY-DATA 1768 * eee Aecee eanORSEND IF 
L701 * 1899 OD 09 291C 2926 1769 CLC  IDDCFNE10} »RVOCEN 
L7FD 34 08 184A 1702 RDVKD st ROVKDX43 ARR SAVE RETURN ADDRESS 189F CO O01 iCF3 1770 BNE ERR1S RESIDUAL DOCF IS INCORRECT 
1703 * L77i * 
1801 OC 0% 28FO 2438 1704 MVC =CMD(5} ¢MROVKD SETUP *CMD* FIELD FOR PRINTOUT -4B8A3 CO 87 0000 1772 RDOSNSX 8 Soo & RETURN TO CALLING ROUTINE 
1705 * 1773 * 
1807 BC O01 06 1LT06 MVI «QU gy XRZD_X*EOLE SETUP Q AND K 1774 ¢<---~---- -_— pn na Soe eG 
180A BC 03 07 1707 AVI = RO XRZDYK*OB? BYTES FOR SIG COMMAND 1775 ® WRIETE HOME ADDRESS AND RECORD ZERO COUNT EVEN 
1708 * 1776 * 
180D 8C O02 14 2808 1709 MVC = OL 03s XRZP NULLS CLEAR KL AND CL FIELDS 1BA7T 34 08 1905 L777 WRHAE ST WRROOX +3, ARR SAVE RETURN ADDRESS 
1710 * 1778 * 
1812 35 O1 184A 1711 L RDVKDX43 ¢XR1 MOVE RECORD LBAB OC O04 28FO 244F 1779 MVC CMD( 5? »MWRHAE SETUP *CMD® FIELD FOR PRINTOUT 
1616 9C 00 11 00 1712 MVC  - RRO Le KRZ27 sO eXRL? NUMBER AND NN 1780 + 
DATE 23AUG75 OSNOV7T5 | 19MARTS O1LOCTT6 PROG ID C12~3 DATE 23AUGT5 OSNOV7S5 — 19MART6 O1OCTI6 PROG ID ci2-3 
EC NO. 827785 827827 827872 571931 PAGE 18 €C NO. 827785 827827 827872 §71931. PAGE 18A 





























IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247603 18M MAINTENANCE DIAGNOSTIC PROGKAM PART NO} 4247603 
PAGE 19 PAGE. 19A 
C123 3340 FUNCTION TESTS ~— MOD 12 C123 3340 FUNCTION TESTS -— MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
18B1 BC 92 06 1781 MVI Q(yXR2),xX"02' SETUP Q AND R 1946 CO 87 0000 1849 WRCKOX 8B a-% RETURN TO CALLING ROUTINE 
1884 BC 01 07 1782 MVI ROeXR2)eX*O1! BYTES FOR SIO COMMAND 1850 * 
: 1783 * 185] #---—~- — ne on oe ee mene 
18B7 F2 87 10 1784 J WRHAOA GO TO EXECUTE COMMAND 1852 * WRITE COUNT COMPRESSED DATA 
1785 * 1853 * 
1786 *-------~-----~------~------------ -- - - + - + + +--+ + +--+ + + 194A 34 08 1949 1854 WRCCOD ST WRCKOX43,ARR SAVE RETURN ADDRESS 
1787 * WRITE HOME ADDRESS AND RECORD ZERO COUNT ODD 1855 * 
1788 + L94E OC 04 28FO 2453 1856 MVC CMO(5} »MWRCCO SETUP *CMO® FIELO FOR PRINTOUT 
188A 34 08 1905 1789 WRHAO ST WRROOX+ 3, ARR SAVE RETURN ADDRESS 1857 *# 
1790 * 1954 BC 02 06 1858 MV I QU eXR2) eX*025 SETUP Q AND R 
18BE OC 04 28FO 2454 1791 MVC CMD(5 ) »MWRHAO SETUP "CMD* FIELD FOR PRINTOUT 1957 BC 08 07 1859 MVI Ro XRZ) oX* 08" BYTES FOR SIO COMMAND 
1792 * 1866 * 
18C4 BC 02 06 1793 ' MVI Q(+XR2)-X*02! SETUP Q AND R 195A CO 87 1916 1861 B WRCKDA GO TO EXECUTE COMMAND 
18C7 BC 09 07 1794 MV I R(eXR2),X*09! BYTES FOR SIO COMMAND 1862 * 
1795 * 1863 %*------------- —- +--+ + ee oe en eee 
18CA 8C O08 15 280B 1796 WRHAOA MVC NN(9—XR2) »NULLS CLEAR DDOCF AREA 1864 * WRITE REPEAT KEY-DATA 
18CF AC 03 10 08 1797 MVC HH(4sXR2),PA(,XR2) MOVE PHYSICAL ADDRESS TO ODOCF 1865 * 
18D3 8C 02 14 281D 1798 MVC DL(3.XR2),P8 MOVE RO KL & OL TO DDCF 195E 34 08 19A4 1866 W.REP ST WRREPX¢3,ARR SAVE RETURN ADDRESS 
1799 * 1867 * 
18D8 F2 87 10 1800 J WRROOA GO TO EXECUTE COMMAND 1962 OC 04 28FO 2468 1868 MVC CMD(5),MWRREP SETUP *"CMD® FIELD FOR PRINTOUT 
1801 * 1869 * 
1802 *-~------~-~-~---~---~---~---~-------~ ~~~ -- +--+ - = 1968 BC 02 06 1870 MVI Qi» XR2)9X*O2° _— SETUF Q AND R 
1803 * WRITE RECORD ZERO KEY-DATA ODD 196B BC 03 07 ; 1871 MVI Ri aXR2P2X*O3* BYTES FOR SIO COMMAND © 
1804 * 1872 * 
18DB 34 08 1905 1805 WKROO ST WRROOX+3,ARR SAVE RETURN ADDRESS 196E 35 O01 1944 1873 L WRREPX+3eXR1L MOVE RECORD 
1806 * 1972 9C vO 11 00 1874 MVC RROE1¢XRZ2)200,XR1) NUMBER AND NN 
L8DF OC 04 28FO 2459 1807 MVC CMO(5) »MWRROO SETUP *CMO® FIELD FOR PRINTOUT 1976 SC vO 15 OL 1875 MVC NNCL 9 XR2) 91 eXRL) VALUE TO DOCE 
1808 * 1876 ® 
18E5 BC 02 06 1809 MVI Q(eXR2),X*028 SETUP Q@ AND R 197A CO 87 1A3D 1877 B XEQ GO TO EXECUTE COMMAND 
18E8 BC 06 07 1810 MVI R(yXR2} X"06! BYTES FOR SIO COMMAND 1878 * 
1811 * 197E AE OO 11 15 1879 ALC RRL »XRZ) gNN( gXR2} CALCULATE EXPECTED 
18EB CO 87 1A3D 1812 WRROGA 8 XEQ GO TO EXECUTE COMMAND 1982 BC FF 15 1886 MVI NNO ,XR2) oX*FFE RESIDUAL RR AND NK VALUES 
1813 * 1881 * 
18EF 8D 08 14 2925 1814 CLC DL(9eXR2) ,RDDCF+8 GO TO ERROR END IF 1985 8D 08 14 2925 1882 CLC DL (9,XR2),RDDCo+8 GO TO ERROR END IF 
18F4 CO 01 1CF3 1815 BNE ERR18 RESIDUAL DOCF 1S INCORRECT 198A CO 01 1CF3 1883 BNE ERR1B RESTOUAL DOCF IS INCORRECT 
1816 * 1884 * 
18F8 OD OL 290E 2912 1817 CLC IDDOR(2),RDDOR GO TO ERROR END IF 198E BC 00 1} 1885 MV I RR(eXR2)50 CLEAR RR FIELD 
18FE CO 01 1CD9 1818 BNE ERR1L6 RESIDUAL DODR IS INCORRECT 1886 * 
1819 * 1991 OD 01 290E 2912 1887 CLC 10D0R (2) »RDOOR GO TO ERROR END IF 
1902 CO 87 0000 1820 WRROOX 8 +—* RETURN TO CALLING ROUTINE 1997 CO 01 1CD09 1888 BNE ERR16 RESIDUAL DDOR IS INCORRECT 
1821 * 1889 * 
1822 %--- nn a ees e- 1998 O€ O1 1944 2811 1890 ALC WRREPX43(2),P2 SETUP RETURN ADORESS 
1823 * WRITE COUNT—KEY-—DATA 1891 * 
1824 * 19Al CC 87 0000 1892 WRREPX B o—* RETURN TO CALLING ROUTINE 
1906 34 08 1949 1825 WRCKD ST WRCKDX43,ARR SAYE RETURN ADDRESS 1893 * 
1826 * 1894 #-----~--~------~~~-~+-~ ~~ ++ + ++ + + ee ee ne en ee 
190A OC 04 28FO 245E 1827 MVC CMD(5),MWRCKD SETUP *CMD* FIELD FOR PRINTOUT 1895 * WRITE KEY-DATA 
1828 * 1896 * 
1910 BC 02 06 1829 MVI Q(9XR2),X*02! SETUP Q AND R 19A5 34 08 17FC 1897 WRKD ST ROKOX43 ¢ ARR SAVE RETURN ADDRESS 
1913 BC 02 07 1830 MV I R(yXR2) 9X02! BYTES FOR SIO COMMAND 1898 € 
1831 * 19A9 OC 04 28FO 246D 1899 MVC CMD(5) »MWRKD SETUP *CMD® FIELD FOR PRINTOUT 
1916 35 01 1949 1832 WRCKDA L WRCKDX43,XR1 MOVE RECORD 1900 * 
191A 9C 00 11 00 1833 MVC = RR(1,XR2) 600, XR1) NUMBER AND NN 19AF BC 02 06 1901 MVI Q(4XR2),X*02¢ SETUP Q@ AND R 6 
191E 9C 00 15 Ol 1834 MVC NN(1,XR2) 91 ¢,XRL) VALUE TO ODCF 19B2 BC 00 07 1902 MVI R( eXR2Z) eX*008 BYTES FUR SIO COMMAND 
1835 * 1903 
1922 CO 87 1A3D 1836 B XEQ GO TO EXECUTE COMMAND 1985 CO 87 1T7TAA 1904 B RDKDA GO TO EXECUTE COMMANDO 
1837 * 1905 # 
1926 AE 0C 11 15 1838 ALC RR(1L,XR2) eNN(OyXR2) CALCULATE EXPECTED 1906 *-----~--~~-~-—--~+~- +--+ oe a nn oo ene 
192A BC FF 15 1839 MVI NN( ¢XR2) 9X" FFE RESTOUA: RR AND NN VALUES 1907 * SCAN EQUAL 
1840 * 1908 * 
1920 80 08 14 2925 1841 CLC OL (9,XR2),RODCF +8 GO TO ERROR END IF 1989 34 08 1A00 1909 SCANE ST SC ANHX43 ,ARR SAVE RETURN ADDRESS 
1932 CO 01 1CF3 1842 BNE ERR18 RESIDUAL DOCF IS INCORRECT 1910 * 
1843 * 198D OC 04 28FO 2472 1911 MVC CMD0(5}+MSCANE SETUP "CMD* FIELD FOR PRINTOUT 
1936 OD 01 290E€ 2912 1844 CLC IODDR(2),¢RDDOR GO TO ERROR END IF 1912 * 
193C CO 01 1CD9 1845 BNE ERR16 RESIOUAL ODDR .S INCORRECT 19C3 BC 03 06 1913 MVI Q( eXR2) 2X°03! SETUP G AND R 
1846 * 19C6 BC 00 07 1914 MVI R&eXR2)eX*008 BYTES FOR SIO COMMAND 
1940 OE 01 1949 2811 1847 ALC WRCKDX43(2)5P2 SETUP RETURN ADDRESS 1915 * 
1848 * 199 CO 87 190D 1916 B SCANHA GO TO EXECUTE COMMAND 
DATE 23AUG75 O5NOV75 —19MART6 O1GCT 76 PROG ID C12-3 DATE 23AUG75 OSNOV7S 19MAR 76 O10CT76 PROG ID C12-3 
EC NOw 827785 827827 827872 §71931 PAGE 19 €C NG. 6827785 827827 827872 571931 PAGE 19A 





IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C123 


ERR LOC OBJECT CODE 


19CD 
19D1 


19D7 
LSDA 


1900 
19E1 
19E5 
19ES9 


19ED 
19F3 


19FT7 


19FD 


LAGL 
LA05 


LAOB 
LAOE 


1AlL 


LALS 
LAI9 


LALF 
LA2Z2 


LA2S 


LA29 
L420 
1A31 
LA35 


2A39 


DATE 
£C £0. 


eeeeeoeoeoeoenaeeeaeaeaeesoneenengeaesnsongenee eee es se ®e@ 


3340 FUNCTION TESTS — MOD 12 


34 
oc 


BC 
BC 


35 
gc 
9C 
co 


OD 
co 


OE 
co 


34 
oc 


BC 
BC 


co 


34 
oc 


BC 
BC 


co 


34 
C2 
36 
co 


co 


08 
04 


03 
02 


01 
00 
B87 


Ol 
Ol 


ol 
87 


08 
04 


03 
oc 


87 


08 
04 


03 
oD 


87 


08 
01 
01 
01 


87 


1A00 
28F0 


06 
O7 


1A00 


11 00 
15 O01 


1A3D 


290E 
1C09 


LA00 


coo0o0 


1A00 
28FG 


06 
O7 


19DD 


1LA00 
28F0 


06 
o7 


i9DD 


1A3C 
FOOO 
280F 
1A31 


0006 


23AUG7T5 


827785 


ADDS STMT 


2477 


2312 


2811 


247C 


2481 


OSNGV75 
827827 


1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 


A971 
1972 


1973 
1974 
1975 


SOURCE STATEMENT 


* 


é 


I mn a a a a es eee ee ae ee ae a ee ee ee ee ee 


* 
* 


SCANH 
* 
* 


* 
SCANHA 


* 
SCANHX 
* 


* 


* 


ST 
MVC 


MV I 
MMVI 
L 
MVC 
MVC 
B 


CLC 
BNE 


ALC 


ST 
aYC 


MVi 
AVI 


B 


SCAN HIGH OR EQUAL 
SC ANHX43, ARR 
CMD(5) »MSCANH 


QU,XR2),X°038 
ROeXR2)9X*02! 


SCANHX+43,XR1 
RR1»XR2),00-XR1) 
NNO1 ¢XR2) 51 snR1L) 
xEQ 


TDDOR(2),RDDOR 
ERR le 


SC ANHX4+3(2),P2 


SCAN READ GR EQUAL 
SCANHX43 , ARR 
CMD(5) sMSCNRE 


Q(eXR2) »X*O3* 
RE eXR2)-X*OC* 


SCANHA 


Mia ce ae ee se ee a ee a ee a A ES ae an A ne ee ae Oa ee ce SO nS eS eee Ome eee ene ee ee ee coe a en oe ee a 
: 


# 
* 
SCNRH 
* 


* 


* 
ORINTX 
» 


19MART6 
827872 


ST 
EYC 


MMVI 
MYI 


B 


A 
BNZ 


~ 


fw 


O10CT76 
571931 


SCAN READ OR HIGH GR EQUAL 


SCANHX*#3-ARR 
CMD(5)sMSCNRH 


Ot sXR2) 2X*03° 
R»XR23oX*OD® 


SCANHA 


TRACK ORIENTATION DELAY SUBROUTINE 


ORINTX4+3,ARR 
X*FDOO* »XRL 
PLeXR1L 

a & 


Re 


PART NO. 
PAGE 
C123 
! t 
SAVE RETURN ADDRESS 
SETUP *CMD* FIELD FOR PRINTOUT 1A3D 
SETUP G AND R 1A41 
BYTES FOR SIG COMMAND LAS6 
MOVE RECORD LAGB 
NUMBER AND NN 1A50 
VALUE TO DOCF 1A55 
GO TO EXECUTE COMMAND LAS9 
GO TO ERROR END IF 1LASE 
RESIDUAL DDDR IS INCORRECT 1A62 
SETUP RETURN ADDRESS 1466 
RETURN TO CALLING ROUTINE LA6C 
LAT72 
1A78 
SAVE RETURN ADDRESS LATE 
LAB? 
SETUP *CMD® FIELD FOR PRINTOUT 1A86 
SETUP Q AND R LARA 
BYTES FOR SIG COMMAND 
: LASE 
GQ TO EXECUTE COMMAND 1492 
: 1A96 
LASA 
SAVE RETURN ADDRESS LAQE 
LAA2 
SETUP fCMD* FIELD FOR PRINTOUT 
; 1AA6 
SETUP @ AND R 1AAA 
BYTES FOR SIG COMMAND 
LAAD 
GO TG EXECUTE COMMAND 1AB1 
LABS 
2AB9 
1ABD 
SAVE RETURN ADDRESS : 
1ACO 
DELAY 1LAC4 
APPROXIMATELY ee) 
11 MILLISECONDS 1ACB 
LACE 
RETURN TO CALLING ROUTINE 
1AD1 
LADT7 
1ADB 
LADE 
1LAE1 
; 1AES 
1AE8 
} 
PRGG ID C12-3 DATE 
PAGE 20 EC NQ. 


3 


34 


2c 
2e 


2c 
2c 
3A 


2c 


2 
~ 


6C 
Oc 


oc 
oc 


oc 
30 
30 
co 
ci 


38 
co 


cl 
co 
31 
co 


38 
F2 


co 
31 
co 


38 
F2 


30 
39 


oD 
F2 


oo 
co 


BS 
F2 


3A 


BD 
F2 


23AUG75 
827785 


08 


01 
00 


00 
00 
O1 
09 


O11 
09 


4F 


OX 
Ol 


O07 
60 
81 
81 
cé 


20 
10 


C2 
87 
cé 
87 


89 
10 


87 
C4 
87 


80 
16 


cé 
C4 


ol 
01 


Ol 
o1 


04 
10 


04 


00 
O01 


ERR LOC OBJECT CODE 


1B88C 


LAFD O7 
EAFC 02 


LAF& 62 
1812 02 
1Bl2 

291C i5 


290C 
os 15 


28E2 28E3 
2910 2808 


2912 2808 © 


296D 2808 


28E7 
28E6 
20ic 


1F4&2 


28E4 
1D26 


1B9C 


LFBS 
290C 
200E 


28E4& 
EO 


LFB5 
290E 
200€ 


28E4 
cD 


2910 
2912 


Baoe 


290C 2910 


D4 


290E 
IBAE 


2912 
06 

12 

28E4 


06 
08 


OSNOV75 
827827 
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AODR STMT 


827872 





4247603 
20a 


PART NO. 
PAGE 


SSKSKSSKEKSSKSETKTEKSAKREESSE SKE STE SASSSSASSCSKSESSKSKSKKRESSESSSHKSKHAKKSSKSESHSEE 


* 


COMMON 3340 COMMAND EXECUTION SUBROUTINE * 


* 


SLEKKASTKTKESHSESHSSSSL ESTES SCKESSE ARS STRESS STS ESESESS SKS SSCS HELE KRHKRTE SESH LESEESS 


XEQX4+3 ARR 


$1042,R(2eXR2) 
S1O+1L sORVADR(1 XR2) 


TIQROY4+101) eDRVAOR(, XK2) 
TIOBSY+1¢1) ,O0RVAOR(,XR2) 
TIOBSY4#1.X* O01 * 
IDDCFN,NN(10-¢XR2) 


TODCR oXR1 
9C10eXR1L} »NNG XR2) 


MSGN(80) ,MSGN+i 


RDDCRI2),NULLS 
RDDDRI2) pNULLS 


DGSNS+7(8) »NULLS 


SWS 0 * AMOP © 
LEINKIO,x*8l® #* LINK ® 
AMOPLK * *Ble *£ 


DASDI eX*C4* 


IND: EINTERR 
ERRXX 


ERRO1, X*C2* 
SAVRST 
IDOCR »X*Cee 
RSTOR 


IND o HUNG 
ERRUO 


SAVRST 
EODOR, X*C4* 
RSTOR 


END >» HUNG 
ERROO 


RDOCR »X*Coe 
RDDOR » X*C4* wns: 


1D0C&(25,ROOCR 
ERROZ 


IDDDR(2),RODOR 
ERROS 


QisXR2),81T5S 
TIORDY 


IND, OPEND 


Q0,XR2) 50 
TIGRDY 


SOURCE STATEMENT 

1977 

1978 * 

1979 @ 

1980 * 

2981 

1982 * 

1983 XEQ $T 

1984 *# 

1985 MYC 

1986 ALC 

1987 * 

1988 MVC 

1989 MYC 

1990 SBN 

199] * 

1992 MYC 

1993 * 

1994 L 

1995 RVC 

1996 * 

1997 MVC 

1998 * 

1999 VC 

2000 MVC 

2001 

2002 MVC 

2003 * 

2004 SNS 

2005 CLE 

2006 BE 

2007 * 

2008 TIG 

2009 * 

2010 TBN 

26011 BT 

2012 * 

2013 TIS TIiG 

2014 * 

20155 8 

2016 LIO L10 

2017 6 

2018 * 

2019 TBA 

2629 JST 

2021 * 

2022 8 

2023 LEO 

2024 B 

2025 

2026 TBN 

2627 JST 

2028 * 

2029 SNS 

2030 SNS 

2031 * 

2032 CLC 

2033 JNE 

2034 * 

2035 cLC 

2036 BNE 

2037 * 

2038 TBN 

2039 JT 

2040 * 

2041 SBN 

2042 * 

2043 cLI 

2044 JNE 

1SMARTS CLOCT 76 
571931 


SAVE RETURN ADDRESS 


MOVE Q ANDO R BYTES TO SIO 
ADD DRIVE ADORESS TO Q BYTE 


SETUP Q BYTE IN TIO 
"NOT ROY / UNIT CHECK*® AND 
"SEEK BUSY® INSTRUCTIONS 
SAVE INITIAL DOOCF 


MOVE OOCF 
TG EXECUTION AREA 


CLEAR PRINT MESSAGE AREA 


CLEAR RESTOUAL 


wee 


ODCR’ AND DDDR AREAS 
CLEAR READ SENSE AREA 
SENSE DATA SWS 
AND GQ TO AMOP IF 
SWS 2 & 2 CONTAIN "81° 
GO TO INTERRUPT SUBR IF PENDING 


GG TO ERROR PROCESSING 
IF UNEXPECTED 3340 INTERRUPT 


ERR IF ATTACHMENT BUSY 
GO TO SAVE RESTART ADOR 


LOAD ODCF ADDRESS IN DOCR 
GO TO RESTORE LOCATION O 


-ERRGR ENC IF 


LIO HANGS IN REJECTION LOOP 


GO TO SAVE RESTART ADOR 
LOAD DODF ADORESS IN CBDR 
GO TO RESTORE LOCATION 0 


ERROR 
LO 


END IF 
HANGS IN REJECTIGN LOOP 


SENSE 
SENSE 


boca 
DDOR wee errr 


ERROR END IF 
DOCR INCORRECT 


ERROR END IF 
DOOR INCORRECT 


BRANCH IF . 
READ IPL COMMAND 


SET OP END EXPECTED INDICATOR 
BRANCH IF NOT 
RECAL OR SEEK COMMAND 


PROG ID 
PAGE 


C1l2—3° 
20A 


cReec porte 





irk 
‘a 








IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NQ. 4247603 IBM MAINTENANCE DIAGNOSTIC PROGRAR «PART NO. 4247603 
- PAGE 21: PAGE 21A 
C123 3340 FUNCTION TESTS - MOD 12 : C123 3340 FUNCTEGN TESTS - MOD 12 
ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT ERR LOC OBJECT CODE ADDR STMY SOURCE STATEMENT 
2045 @ 2107 ¢3% SLSCKESKRIKSKS RES SSSSSKASLSERKSESHSSSKSSSHSPTRRK STK HSPAEAEKELKESFESSARGERVE SHAS 
1AEB 3B 04% 28E4 2046 SBF IND » OPEND RESET GP END EXPECTED INDICATOR 2105 © e 
LAEF 3A O2 2854 2042 S8N IND+SKEND SET SEEK COMPLETE EXP INDICATOR 2209 2 ERRO#x ENDING CONDITIONS e 
048 * : ; 2110 2 * 
LAF3 C1 OO LBDB ooae TIORDY Tis ERR OS pt-# ERROR END TF DRIVE NOT READY 2iLL SSHSSSSSSsSSSSSSSSSSSSESSEKLHASSK SKE SKSSFSAESTSESHHAEKSERSECRS RTE SELARESSSESRED 
2050 # 2112 # 
LAF? CO 87 LFBS 2051 8 SAYRST GO TO SAVE RESTART ADDR 2313 # LEQ HUNG EN RESECTION LOOP 
LAFB F3 GO 00D 2052 S10 SIG + #, Ree ISSUE 3340 START I/G COMMAND 211% & 
LAFE CO 87 200E 2053 8 RSTOR GO TO RESTGRE LOCATION 0 1B6D OC LE 2887 251A 2115 ERROG AVC MSGA? 31431) ,E804N SETUP ERROR MESSAGE 
2684 * 1893 OC C7 2880 2448 2126 YC 4SGA+8 (8), EMOON 
1892 38 80 28E4 2055 TBN IND, RUNG ERROR END IF $10 iBS9 Fz 87 89 2117 J ERROOB 
160¢ f2 10 C3 2056 JT ERROS HUNG IN RESECTION Leap 21:8 ¢ 
2057 * 21D He me mr rr nn me ree em ee me en eee eee 
1B09 Ci C2 1811 2058 TiO TICGBSY,x?C25 ERRGR END IF 2120 # ATTACHMENT BUSY PREGR TG COMMAND EXECUTIGN 
180D CO 87 1BES 2659 B ERRCS ATTACHMENT DIG RGT GO BUSY 2121 * 
2066 * 1895 OC 26 288F 2402 2122 ERROL MVC MSGA+ 39139) sEHOL!, SETUP ERROR KRESS AGE 
1611 €i OO 1BiF 2061 YiOBSY TIO XEQOL, a= SRANCH If SEEK BUSY 1BA2 F2 87 BO 2123 J ERROSB 
206Z2 * 2124 * 
1815 38 02 2864 2063 TBN IND, SKEND ERROR END IF 2125 S- mr re rn en te re ee ee en eee ne een ee econ 
1681S F2 10 D2 2664 JT ERROT SEER ER PROGRESS 2226 *€ DOCR FAILED TG LGAD CORRECTLY 
2065 * 2127 # 
LBIC £2 87 11 2666 j XEGO2 iBAS OC iF 2888 24F2 2128 ERROZ MYC MSGA4+32(323 ,EMO2N SETUP ERROR MESSAGE 
2067 # LBAB F2 B87 CC 2129 3 ERRGOZA 
IBLF 38 62 28E4 2088 XEQGI TBN INGsSKEND SKIP FF a os 2120 * ; 
1L23 F2 10 CA 2043 aT XEQO2° SEEK IN PROGRESS ‘ 2131 $-------—~-~ = +--+ ce a ee ees 
2076 * 2132 4 DDDR FAILED TG LOAD CORRECTLY 
1826 OC OO i82D 1812 2071 MYC s+7( LP eTIOBSY41 ERRGR END IF 2133 % 
iB2C Ci 00 18F7 2072 TIO ERROG »*-* STILL SEEK BuSY : 1BAE OC LF 2868 24F2 2134 ERROS HVC MSGA#32(32),E6O2N SETUP ERROR MESSAGE 
2073 * LBB% OC O8 28AlL 24F8 2135 mvc MSGAt¢9(9},EMO3N 
183G OC O02 292C 284C 2074 XEQO2 YC WORKN(31.TI#3S ENITIALIZE TIMER 2138 ¢ 
2075 * : 168A F3 C4 02 2137 ERROBZA SIG X2O2* oX*C4* DISABLE 3360 INTERRUPTS 
1B36 SE O02 292 280F 2076 KEQ64 ALC WORKNI3: PL INCREMENT TIKER 18BD 30 C5 2928 2138 SNS SNSeMeCse SENSE ATTACHRENT STATUS 
1B3C 5O AO ICL? 2077 BOL ERROO ERROR END IF ATTACHMENT 2239 & 
1840 C1 C2 i836 2078 Tic XEQ04,X*C2* BUSY FAILS TG GO OFF ‘ I8Cl 28 OF 29278 2149 TBN SNS -BETT BRANCH FF 
2079 * 18C5 F2 10 77 2141 JT ERROC ADAPTER CHECK 
1844 30 C6 2910 2080 SNS = RDDCR oX* C65 SENSE DDCR 2142 # ae 
1B48 30 C4 2912 2081 SNS  RDDDR.X*C4S SENSE DODR 18C8 CO B87 1535 2143 3 RETRY GO TOCATTEMPT ERROR RECOVERY 
2082 * 2144 © 
184C OF 02 292C 280F 2083 XEQ03 ALC WORKNGI3} SFL ERROR END IF EXPECTED DY 4S Bai a a re ee eee ean eee cee een 
1652 CO AO icg38 2084 BOL ERRIO INTERRUPTS FAIL TO GCCUR t 2146 *& SED HUNG IN REJECTION LOOF 
2085 = 2147 * 
1856 €1 C4 1F42 2086 TIG DASDI,X*c4s GO TO INTERRUPT SUBR IF > ENDING 18CC OC 4F 28E2 28E3 2148 ERROS MVC MSGN( 80) eMSGN4i CLEAR MESSAGE AREA 
2087 * 1BDZ OC LE 2887 251A 2149 MVC MS GA431L(31),EMNOSN SETUP ERROR HESSAGE 
LBSA 39 O06 2864 2088 TBF END » OPENC+ SKEND BRANCH IF 1808 F2 87 42 2256 J ERROGA 
185E CO $0 1B4C 2089 BF XEQO3 INTERRUPT STILL EXPECTED 2151 # 
2090 * : 2152 tenn mewn a ee 
1B62 38 20 28E4 2091 TBN END ZENTERR BRANCH IF ERROR 2153 4 UNIT CHECK GR NOT READY PRIOR TO SIO 
1866 CO 10 1026 2092 BT ERR XX DETECTED IN ENTERRUPT RTN 2154 ¢ 
2693 * . 1808 OC 20 2866 2548 2155 ERRGS MVC MSGAt46146) »-EMOSN SETUP ERROR MESSAGE 
186A 35 01 290C 2094 L TODTR -XR1i SAVE iBEl CO 87 1026 2156 B ERRXX 
1B6E 1C 09 2926 09 2095 MVC RDDCFN,9(1G,xR1)} RESIDUAL DDCF 2157 ¢ 
2096 * : 2158 ¢-~--2--. 2s Gowan ates fon esi alana hinds co eine a ows a es ec ewes lew pice ata eater asasat ein er tec eee erei. 
1B73 OD 01 296C 2910 2097 Ctc IDOCR(2),RDO0CR GO TO ERROR END IF 2159 & ATTACHMENT DID NOT GO BUSY AFTER $10 
2879 CO O1 1CE3 2098 BNE ERRLT RESICUAL DOCR ES INCORRECT _ 2260 * atyoes 
2099 * 1BES OC 29 28C2 2572 2161 ERROS MVC = MSG A442 (4623, EMOGN SETUP ERROR HESSAGE 
1B70 30 CO 28E7 2100 SNS SWS ,0 = AMOP * SENSE DATA SWS 18E8 F2 87 OF 2162 J ERROBA 
1881 3D 682 28E4 2101 CLl LINKIDsX*825 «© LINK * AND GO TO AMOP IF 2163 © 
1885 CO 81 201C 2102 BE AMOPLK * *g2¢ © SWS 1 & 2 CONTAIN ¢82¢ } 21 OG Ca ee re rn ee. enero ane a a a 
2103 * 165 & EEK COMMAND DID NOT SET SEEK Y 
1B89 CO 87 0000 2104 XEQX 8 *—* RETURN TD CALLING ROUTINE es ‘ er BEY BEL Seto cet us 
2105 * ; IBEE OC 28 28C1L 2598 2167 ERROT MVC MSGA*41(41},EMO7N SETUP ERROR MESSAGE 
18F4 F2 87 06 2168 J ERROBA 
2169 * 
; 2170 %~-—--~--~—-———— ~~ + er em ae 
2171 * SEEK BUSY WITH NO SEEK IN PROGRESS 
2172 * 
1QF7 OC 2C 28C5 25C8 2173 ERROS MVC MSGA+45(45) ,EMOBN SETUP ERROR MESSAGE 
2174 @ 
fr 
oe eee OSNOV75 LOMART6 O1OCT76 PROG £2 C12-3 DATE 23AUG75 OSNOV7S LOHART6 OLOCT76 PROG ID c12-3 


827827 827872 $71931 PAGE 21 EC NG. 827785 827827 827872 571931 PAGE 21a 
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C123 


IBFD 
1003 
1co7 
iCOA 
1€10 


1014 


1038 


1C3F 
1045 


1C4B 
1C51 


1054 
1C5A 


1C5E 
1064 


1C68 
1C6E 


1C 74 
1c78 


1CT7E 
1084 
1C88 
icsc 
1C90 
1094 


DATE 
EC NBe 


1C35. 


3340 FUNCTIGN TESTS — OD 


oC 
39 
F2 
OF 
co 


F2 


Oc 


30 
30 


38 
co 


co 


oc 
co 


oc 
oc 


oc 
F2 


oc 
co 


oc 
co 


Oc 
oc 


3C 
oc 
oc 
31 
30 
3c 
3A 


co 


Ol 
06 
10 
o1 
20 


8? 


28 


cé 
C4% 


1E 
87 


4F 
hl 


ol 
87 


18 
87 


Za 
87 


4F 
3F 


00 


16 
ol 
C7 
c7 
30 
01 


87 


ERR LOC OBSECT CODE 


292C 
28E4 
OA 

292C 
1C03 


06 


28C1 


2910 


2912 


2928 


2928 
1C3F 


1535 


28B7 
1535 


28E2 
28 AA 


292C 
20 


2881 
1535 


28C3 
1535 


28E2 
2808 


2970 
2S7C 


2967 
2870 
2969 
296D 
284 


1535 


23AUG75 


827785 
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4247603 16M MAINTENANCE DIAGNUSTIC PROGRAM PART NO. 4247603 
PAGE : 22 : PAGE 22A 
12 C123 3340 FUNCTION TESTS = MOD 12 
ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
280B 2175 ERROBA MYC WUORKN(2),NULLS INITIALIZE TIMER COUNT 2243 * 
2176 # 2244 Be mn mm mn mn nn en en en ren ea ee ee ee ee eee come 
2177 ERKOB8B TBF IND, SPEND+SKEND LONP UNTIL 2245 *# EXPECTED OP END INTERRUPT DID NOT OCCUR 
2178 JT ERROBC COUNTER OVERFLOKS 2246 * 
280F 2179 ALC WORAN(25 2P1 OR ALL EXPECTED 1098 £1 C4 1CB5 2247 ERRIO TIO ERR12.X*C4? BRANCH IF INTERRUPT PENDING 
2180 BNOL ERROSB INTERRUPTS HAVE OCCURRED 2248 # 
2181 * 1C9C 38 04 28E4 2249 TBN IND, OPEND BRANCH IF NO OP END 
2182 ERROBC J ERROGA 1CAO F2 30 09 2250 JF ERRIL INTERRUPT OUTSTANDING 
2183 % 2251 
2B Bm mem wr ea a nc a a a ne nn 1CA3 CC 17 28BO 26BE 2252 MVC MSGA4¢24(24) ,EMLON SETUP ERROR MESSAGE 
2185 * ATTACHMENT BUSY FAILED TO GSO OFF 2253 % 
2186 % 1CAS F2 87 7A 2254 J ERRXX 
25F1 2187 ERROS MVC MSGA4+41441)-EMO9N SETUP ERROR MESSAGE 2255 * 
2183 * 2256 Fawn mae rn ee ee ee ee ee ae ee ee et ee eon en ee eon me et ene erase nats eee 
2189 ERROSA SNS  RDDCR,X*CéE SENSE DDCR 2257 + EXPECTED SEEK COMPLETE INTERRUPT DIL NOT GCCUR 
2190 SNS  RDODR»xX*C4? SENSE ODDR 2258 * 
2191 * 1CAC OC 1E 2887 26DD 2259 ERRLL MVC MSGA¢31{31},EMLIN SETUP ERROR MESSAGE 
2192 ERROOB SNS SNS,X*C5°* SENSE ADAPTER STATUS LCBZ £2 B87 72 2260 d ERRXX 
2193 * 2261 >» 
2194 TBN SNS+BIT7 BRANCH IF 2262 Bama a nn ee ne en rr nn com en cane ns ence ceeene 
2195 BT ERROC ADAPTER CHECK 2263 * INTERRUPT PENDING, BUT INTERRUPT DIO NOT OCCUR 
2196 * 2264 & 
2197 B RETRY GO TO ATTEMPT RECOVERY 1C85 OC 28 28C4 2709 2265 ERRIZ MYC MSGA+44(44),EM12N SETUP ERROR KRESSAGE 
2198 * 1C8B F2 87 68 2266 J ERRXX i 
2199 *---~—-~-~-------—~~—~-— ~~ - +--+ 2267 * 
2200 * DRIVE X UNIT CHECK OR NO-OP STATUS SFG Bicrb tet ceneesccu soa ea eo eos ee utd Gaeta bales eae 
2201 * 2269 * EXPECTED SCAN EQUAL DID NOT OCCUR 
2610 2202 ERROA MVC MSGA4+31031),EMOAN SETUP ERROR MESSAGE 2270 * 
2203 B RETRY GO TO ATTEMPT RECOVERY 2CBE OC 25 28BE 272F 227: ERRILS ¥.°C MSGA+38(38),EM13N SETUP ERROR MESSAGE 
2204 * 1CC4 F2 87 SF 2272 J ERRXX 
2205 Ferm nnn te err rn mm mma mec rw rma am ean ae ae wa er ae em am a a ate an me 2273 © 
2206 * ADAPTER CHECK Fhe a a i ee 
2207 * 2275 * EXPECTED SCAN HIT OID NOT OCCUR 
28E3 2208 ERROC MVC MSGN(80),MSGNEL CLEAR MESSAGE AREA 2276 # 
2622 2209 MVC MSGA418(18),EMOCN SETUP ERROR MESSAGE 1CC7 OC 29 28C2 2759 2277 ERRI4S MVC MSGA442(42),EM14N SETUP ERROR KESSAGE 
2210 * 1CCD F2 87 56 2278 oud ERRXX ean ot aya 
2928 2211 MVC = =WORKN(2-3-,SNS - SAVE SENSE BYTES AND i a = 2279 °¢ Bee ae 
2212 _d ERROFA GO TO BUILD FMT 3 SENSE DAT DIG0 Bean ween ae ee ee eee ee oe eee eee Lee 
2213 * 2281 * UNEXPECTED SCAN HIT CONDITION 
2214 $---- ~~ ee 2282 * — 
2215 * UNEXPECTED INTERRUPT 1CO00 OC 27 28CO 2781 2283 ERR15S MVC MSGA4+40(40) ,9EMISN SETUP ERROR MESSAGE 
2216 * 1CD6 F2 87 4D 2284 J ERRXX 
263B 2217 ERROD MVC WMSGA+25(25),EMOON SETUP ERROR MESSAGE 2285 * 
2218 8 RETRY GO TO ATTEMPT RECOVERY SI Ab Sheen Sate ee Sa eee che eee see sree ae sccet ence enesceee 
2219 * 2287 * INCORRECT RESIDUAL DDDR 
2220 Benn nn nnn en nnn en nnn te nnn nnn emer ene ne nomen enn een nme mon 2288 * 
2221 * ADAPTER SENSE BYTES DO NOT INDICATE CAUSE OF INTERRUPT 1CD9 OC 18 2884 279D 2289 ERR16 MVC MSGA+28(28) ,EM1ON SETUP ERROR MESSAGE 
2222 * 1CDF CO 87 1535 2290 B RETRY GO TO ATTEMPT RECOVERY 
2666 2223 ERROE MVC = MSGA# 43143) gEMOEN SETUP ERROR MESSAGE 229) * 
2224 B RETRY GO TO ATTEMPT RETOVERY 2292 Bonn wn ep ee ee ee ee en ee en 
2225 * 2293 * INCORRECT RESIDUAL DOCR 
2226 Benn - - ne ee ee ene 2294 * 
2227 * ADAPTER CHECK ON READ DIAGNOSTIC SENSE COMMAND 1CE3 CC 18 2884 279D 2295 EPRI7 MVC MSGA+28(28),EMLON SETUP ERROR MESSAGE 
2228 * 1CE9 OC 08 28AL 27A6 2296 MVC MSGAS909) ¢EMLTN - ‘of : : 
2853 2229 ERROF MVC MSGN(80} , MSGN41 CLEAR MESSAGE AREA 1CEF CO 87 1535 2297 8 RETRY GO TO ATTEMPT RECOVERY 
26A6 2230 MVC MSGA+64(64) sEMOFN SETUP ERROR MESSAGE 2298 * 
eee Z2DQ mr re i ere nee ere ene nw cee Sm a rm a ee A nm enn a man a mae 
2232 ERROFA MMVI DGSNS+423,0 CLEAR READ 2300 + INCORRECT RESIOUAL DOCF 
297D 2233 MYC DGSNS422(23} ,DGSNS423 DIAG SENSE DATA AREA 2301 * 
2234 ® 1CF3 OC 18 28R% 279D 2302 ERRi8 MVC MSGA+28(28),EN16N SETUP ERROR MESSAGE 
292C 2235 MVC =OGSNS4#12),WORKN BUILD 1CF9 OC O8 28Al 27AF 2303 MVC MSGA4+9(9),EMLEN 
2236 LIQ SNS23,X*C7* FORMAT 3 1CFF CO 87 1535 2304 B RETRY GO TO ATTEMPT RECOVERY 
2237 SNS  DGSNS43_X*C7® DIAGNOSTIC 2305 
2238 MVI  OGSNS+7,X*30° SENSE DATA 2306 Baa a = + a ee enn mmm 
2239 * 2397 * INCORRECT RESIDUAL ODDF 
2240 SBN XND,SNSAVL SET SENSE DATA AVAILABLE IND- 2308 * 
2241 * 1003 OC 18 2884 279D 2309 ERR? MVC MSGA+2B8(28),EMLON SETUP ERROK MESSAGE 
2242 B RETRY GO YO ATTEMPT RECOVERY 1009 OC 08 28Al 27B8 2310 MVC MSGA+9(9) ,EMLON 
OSNOV75 LOMAR 76 010C T76 PROG 1D C12~3 DATE 23AUGT5 OSNOV75 LOMAR 76 OLOCT 76 PROG ID Cl2-3 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C123 
ERR LOC 


i DOF 


1013 
1D19 


1D1C 
i022 


1026 


iD29 
1020 


1030 
1036 


1D39 


103D 
1041 


L045 
1045 


1D4F 
1054 
1D58 


1058 
1060 


1D64 


1068 
1D6C 
1070 


1074 
1078 
LOVE 


1082 
1086 


1D8A 
LO8E 
1D91 


1D95 
1b99 


1D9D 
LDA3 
1DA9 
1DA0 
1081 
“1085 


DATE 
EC NO. 


3340 FUNCTIUN TESTS - MOD 12 


OBJECT CODE 


CO 87 1535 


oc 
F2 


oc 
co 


F3 


38 
F2 


OD 
F2 


30 


38 
co 


oc 
Cl 


2c 
39 
F2 


2c 
3A 


cl 


co 
31 
co 


30 
OD 
co 


38 
co 


co 
F3 
co 


38 
co 
oc 
OE 


co 
Cl 


30 
38 


19 
87 


13 
87 


C4 


20 
10 


01 
Ol 


c5 


ol 
10 


00 
00 


00 
oc 
10 


00 
Ol 


c2 


87 
C4 
87 


C4 
01 
01 


80 
10 


87 
00 
87 


80 
10 


02 
02 
AO 
C2 


cs 
Ol 


28B2 27D2 


OA 


28AC 
1535 


02 


2854 
OD 


2928 
04 


2928 


2928 
IC3F 


104C 
1058 


1055 
2927 
66 


108F 
1D &F 


1C17 


1FBS 
2843 
200E 


292C 
292C 
IBAE 


28E4 
1880 


1FB5 
O7 
200E£ 


28E4 
1B9C 


292C 
292C 
1E02 
10A3 


292C 
292¢ 


23AUG75 


827785 


2TEs 


2802 


LAF4S 


04 


02 


2843 


284C 


2 80F 


OSNOV7S 
827827 


ADDR STMT 


2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
z321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 

2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
234] 

2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 

2352 
2353 
2354 
2355 
2356 
2357 
2356 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 


SOURCE STATEMENT 


x 


* 
ERRXXA 


% 


* 
ERRXXB 


x 


* 


* 


SIOSNS 


* 


* 
* 
ERRXXF 


* 
ERRXXC 


LOMARTE 
827872 


8 


sid 


TBN 
JT 


CLC 
JNE 


SNS 


TBN 


+ 
i 


RVC 
T1a 


MVC 
TSE 
JT 


MVC 
SBN 


10 


5 
Lid 
8 


SNS 
CLC 
BNE 


TBN 
BT 
B 
S10 
B 


TBN 
3T 


MVC 
ALC 
BOL 
TIO 


SNS 
TBN 


O1OCT7é6 
571931 


RETRY 


PART NO. 
PAGE 


UNEXPECTED SCAN EQUAL CONDITION 


MSGA#25(26) ,EMLAN 
ERRXX 
WRITE INHIPITED 


MSGA+20{ 20) »,EMZ20N 
RETRY 


COMPLETE ERRGR PROCESSING 


X*02% x* C4? 


IND, ENTERR 
ERRXXA 


SNS(2) sNULLS 
ERRXXA 


SNS, X'C5® 


SNS sBIT7 
ERROC 


#4+7(1)},TIOROY+) 
ERRXXB,%-*& 


*+6,UCKMSK(1,XR2) 
SNS-1 »*-* 
ERRXXD 


STOSNS#1,DRVAOR(1,XR2) 
STOSNS+#+1,B1T7 


ERROO,X*C2! 


SAVRST 
OGSNSa,X*C4et 
RSTOR 


WORKN »X*C 48 
WORKN(2),D0GSNS@ 
ERRO3 


INO,HUNG 
ERROO 


SAVR ST 
X*o7? .*-* 
RSTOR 


IND, HUNG 
ERROL 


WORKN( 3), TIM3S 
WORKN(3),P1 
ERRXXG 
ERRXXF»X*C2* 


WORKN,X*C5¢ 
WORKN,BET?7 


Ci23 


ERR LOC OBJECT COVE 


3340 FUNCTION TESTS — MOD 12 


GO TO ATTEMPT RECOVERY 10B9 CO 10 1C68 
1DBD 3A O01 28E4 
10C1 38 20 28E4 

SETUP ERROR MESSAGE 10C5 co 90 1535 
10C9 OC 4F 26&2 
1OCF 38 10 28&4 
1003 CO °O 10F2 

SETUP ERROR MESSAGE 

GO TO ATTEMPT RECOVERY 1007 BD C2 06 
1DDA CTO O1 1C355 
1DDE 30 80 2966 
1DE2 CO 0% 1C35 
LDE6 30 OZ 2967 

DISABLE 3340 INTERRUPTS EDEA CO O1 1C€35 

BRANCH ITF INTERRUPT 1BcE CO 87 DIC 

DETECTED ERROR CONDITION 
IDF2 39 14 2928 
BRANCH IF SENSE BYTES 1DF6 39 OF 2927 
HAVE ALREADY BEFN RETRIEVED IDFA CO 10 1C5E 
SENSE ADAPTER STATUS IDFE CO B7 1054 
BRANCH IF LEO¢ 30 C5 292C 
ADAPTER CHECK 1E06 38 G1 292€ 
1£0a CO 10 1C68 

GO TO READ DIAGNOSSIC 

SENSE DATA IF ORV NOT READY LEOE CO B87 iC17 

BYPASS READ 

DIAGNOSTIC SENSE 
IF NO UNIT CHECK 
BUILO READ 
DIAGNGSTIC SENSE COMMAND 

BRANCH IF ATTACHMENT BUSY 

GO TO STORE RESTART ADOR 

LOAD DODR TO SENSE AREA ADOR 

GO TO RESTORE LOCATIGW O 

BY ASS READ 

DIAGNOSTIC SENSE 
IF INCORRECT DODR LOAD 
BYPASS REACG DIAGNOSTIC 
SENSE ITF LIO IS REJECTED 

GO TO STORE RESTART ACOR 

READ DIAGNOSTIC SENSE DATA 

GO TO RESTORE LOCATION O 

BRANCH IF SIO 

HAS REJECTED 

INITIALIZE TIMER 

INCREMENT TIMER 

ERROR END IF ATTACHMENT 

BUSY FAILED TO GO OFF 
BRANCH IF READ 
DIAGNOSTIC SENSE 
PROG iD. Ci2-3 DATE 23AUG75 
PAGE 23 EC ND. 827785 
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23 


ADOR STHT 


2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
239% 
2392 
2393 
2394 
2395 
2396 
2397 
23°8 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 


28E3 


O5NO0V75 
827827 


SOURCE STATEMENT 


+ 


* 
ERRXXD 


* 


* 


+ 
x 
ERRXXE 
& 
* 


ERR XXG 


* 


LOMARTE 
827872 


BT 
SBN 


TBN 
BF 


MVC 


TBN 
BF 


CLI 
BNE 
CLI 
BNE 
cil 
BNE 


TRF 
TBF 
BT 


SNS 
TBN 
5T 


O1OCT76 


571931 


ERROF 
IND,» SNSAVL 


IND, INTED RK 
RETRY 


MSGN(8O},MSGN¢1 


TINO,»ORVERR 
ERRXKE 


Ql sXR2) 9 X9023 
ERROA 
DGSNS,X*a0?* 
ERROA 

DG SNS#1,X"02¢ 
ERROA 


ERR2O 

SNS» BIT34¢BIT5 
SNS-1;X*OF® 
ERROE 

ERROD 

WORKN, X°C5* 
WORKN,BIT7 
ERROF 


ERROS 


4247603 
23A 


FART NO. 
PAGE 


ENDED IN ADAPTER CHECK 
SET SENSE DATA AVAILABLE IND 


GO TO ATTEMPT RECOVERY IF 
NOT INTERRUPT DETECTED ERROR 


CLEAR MESSAGE PRINT AREA 


BRANCH IF 
NOT UNIT CHECK 
Go 70 


UNIT CHECK 
ERROR PROCESSING 
UNLESS wATTE COMMAND 
REJECT WITH WR INHIBIT 


WRITE INHIBITED ERROR 
BRANCH ITF 
NO INTERRUPT 
BITS IN ADAPTER STATUS 
UNEXPECTED INTERRUPT ERRGR 
BRANCH IF READ 
DIAGNOSTIC SENSE 
ENDED IN ADAPTOR CHECK 


ATTACHMENT BUSY FAILED TO GO OF 


PROG IC 
PAGE 


C12-3 
23A 


IBM MAINTENANCE OLAGNOSTIC PROGRAM 


C123 


ERR LOC OBJECT CODE 


1El2 
1E14 


LE1C 
1E20 


1E25 
1E29 
LE2A 
LE2B 
LE2D 


LE2F 
1E33 
1E34 
1E35 


LE37 


1E3D 
1E4&2 
1E48 
LESE 


LE5S4 
1E58 
1E59 
LE5B 


1E5D 
LE61 
LE62 
1E64 


LES6 


LEGA 
LEGE 
LEGF 
LE7L 


1E73 
LETT 
1E78 
LE7A 


LETC 
LEBG 
1E81] 
1E83 


1E85 
1E89 
LEBA 
LEBB 
1&8D 
LE93 
1E97 


DATE 
FC NG. 


A ; 
3340 FUNCTION TESTS - MOD 12 


Oc 
oc 


co 
03 
LAFD 
28580 


37 


CO 87 
G2 
2928 
2885 
3c C9 
co 8&7 
02 


290C 
28BD 


CO 87 
02 

290E 
28C2 


CO 87 
OA 

231€ 
2807 


Co 87 
81 

50 

28E2 
OC 4F 
3C 09 
CO 87 


23AUG7 
827785 


iF41 
2898 


290C¢ 
2926 


O21A 


O21A 


28E2 
2894 
2893 
28A3 
28A9 


O2Z1E 


O2iE 


2888 


O21E 


O21E 


O21A 


28E2 
2888 


O21E 


5 


24A3 


09 


28E3 


ol 

28FO 
28F7 
28FC 


28E3 


ADDR 


1E29 
LE2A 
1E2C 
LE2E 


1£ 33 
1E34 
1E36 


LE56 
LE5A 
LE5C 


LE61 
1E€63 
1E65 


LE6E 
iE70 
LET2 


LE77 
LET9 
LE7B 


1E 80 
LEB2 
1E84 


1E89 
1EBA 
LES8Cc 


. OSNOV7S 
827827 


PART NO. 
PAGE 


CREEK EHEE KEKE EERE SLEEK ERE KAS EAS REEL EKA TRSELEEHRARSEREREERKESSREE RAT 


* 


ERROR MESSAGE PRINT SUBROUTINE * 


Pd 


RRR RAKES EASES ERS AEE ARSE SKK SETHLATKSACARSERARSEASASEAESREERES 


ERRPX*+3,ARR 
MSGA(6) 9 ERXXN 


TDOCR »XRi 
RDDCFN,9(20>XR1) 


PRINT 
XL1°C28 
FLi* eo? 
AL2 (MSGN) 
AL 2(0HLTO1?} 


PRINT 

XL1°81¢ 

AL 1(MSGO8N-MSG084+1} 
AL2 (MSGO8N) 


MSGN( 80) »MSGN+1 


MSG+L sORVI1LSXR23 
MSG+8(5) sCMD 
MSG*26E73 CYL 
MSG+22(55,HD 


UNPACK 
qhie3e 
AL2 (31042) 
AL2(0 486429) 


UNPACK 
FLi°2s 

AL2{ SNS) 
AL2 (MSG434} 


MSG+37,C®T? 


UNP ACK 
TLL& 2? 
AL2CIDOCR} 
AL2 (MSG4+42} 


UNPACK 
TL1e2é 
AL2(IBODR) 
AL2(MSG+47} 


UNPACK 
FL2 °10° 
AL2(IDOCFN} 
ALZ2(MSG6+68) 


PRINT 

XLT*are 

TLR sor 
AL2UMSGN) 
MSGN(80) »MSGN4+2 
MSG+37,C*R? 


UNPACK 


STHT SOURCE STATEMENT 
2412 

2413 * 

2414 * 

2415 * 

2416 

2417 * 

2418 ERRPRT ST 
2419 

2420 MVC 
24e1 & 

2422 L 
2423 MYC 
2424 & 

2425 B 
2426 DC 
2427 oc 
2428 DC 
2429 OC 
2430 * 

2431 ERRPOL B 
2432 DC 
2433 Oc 
2434 DC 
2435 *& 

2436 aVC 
2437 * 

2438 MYC 
2439 MYC 
2440 AVC 
2441] MYC 
24642 % 

2443 8 
2464 DC 
2445 oc 
2446 OC 
2447 & 

2448 8 
2449 OC 
2450 oC 
2451 DC 
2452 & 

2253 AVI 
2454 % 

2455 8 
2456 DC 
2457 DC 
2458 DC 
2459 & 

2460 B 
2461 DC 
2462 DC 
2463 OC 
2464 * 

2465 8 
2456 DC 
24867 oC 
2468 dC 
2469 & 

2470 8 
2471 oC 
2472 BC 
2473 DC 
2474 & 

2475 AVC 
2476 % 

2477 AVE 
2478 & 

2479 8 
LOMAR 76 GiOcC TTS 
627872 571931 


SAVE RETURN ADDRESS 
COMPLETE FIRST PRINT LINE 


RETRIEVE 
RESIDUAL ODCF 


PRINT 
FIRST LINE 


QF ERROR MESSAGE 


PRINT 
SECOND LINE 
OF ERROR HESSAGE 


CLEAR MESSAGE AREA 


MOVE DRV NUMBER 190 ERRGR MSG 
MOVE COMMAND NAME TG ERR MSG 


MOVE CYLINDER ADDR TO ERROR SG 
MOVE HEAD ADDRESS TG ERRGR MSG 
UNP ACK 
$i0 COMMAND - 
TO MESSAGE AREA 
UNP ACK 


ADATTER SENSE BYTES 
TO MESSAGE AREA 


SINITIAL® INDICATOR TO MSG AREA 
UNP ACK 
INITIAL DDCR 
¥O MESSAGE AREA 


UNP ACK 
INITIAL DOOR 
TG MESSAGE AREA 


UNP ACK 
INITIAL DDOCF 


TG MESSAGE AREA 


PRINT 
THIRO LINE oO” 
ERAOR MESSAGE 


CLEAR MESSAGE AREA 


*RESTDUAL® IND TG MESSAGE AREA 
UNP ACK 
PROG ID C1l2=+3 
PAGE 24 


C123 
ERR LOC 


1E96 
1E9C 
LEGE 


LEAG 
1EA4% 
LEAS 
LEA? 


LEAS 
LEAD 
1EAE 
1EB0 


1EB2 
1EBE 
LE87 
LEBS 


LEBR 
AEBE 


LECL 
RECS 
LEC6é 
LECa 


LECA 
LECE 
LECE 
1&0} 


LEDS 
LED? 
LEDs 
LEDS 


1ED6 
LEOF 
LEED 
1EEL 


LEES 
LEE? 


LEEA 


LEFO 
LEF¢ 
LEFS 
LEFS 


LEFS8 
LEFC 
REFO 
LEFE 


1LFOO 
LFO4 
1FO5 
LFO? 


1FOS 
LFOD 
LFOE 
1FiO 


1Fi2 


DATE 
EC NO. 


3340 FUNCTION TESTS — MOD 12 


OBJECT CODE 


02 
2910 
2880 


co 87 
B2 

2912 
28C2 


Co 87 
GA 

2926 
2807 


co 87 
82 

59 
28E2 


33 80 
F2 96 


co 87 
04 

2930 
23€5 


cG 87 
we 

2934 
2407 


co 87 
81 
22 
2365 


co 87 
82 
22 
2407 


38 O08 
F2 90 


OC 4F 


Co 87 
81 
1A 
22AC 


co 87 
82 
35 
2331 


co 87 
04 

2969 
289A 


cG 87 
04 

296D 
2843 


co 87? 


234UGT 
827785 


O21E 


O2LE 


O21A 


28E5 
22 


O21E 


O21E 


O21A 


O21A 


28E4 
a4 


28E2 


O21A 


O21A 


O21E 


OZ1E 


O21E 


5 


28E3 


ADOR 


1E9B 
1€9D 
LEOF 


LEAS 
LEAS 
1EA8 


LEAD 
LEAF 
LEBL 


LEBS 
1E87 
1EB9 


wecS 
1ECT 
LEC9 


LECE 
LEDO 
1€62 


1E07 
1E08 
AEDA 


LEDOF 
1EEO 
LEE2 


LEF4 
LEFS 
1EF7 


1LEFC 
1EFD 
LEFF 


1FO4 
1FO6 
1F08 


LFOD 
LFOF 
LFLi 


OSNOVTS 
827827 
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& 


STMT 


2480 
248i 

2482 

2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 

2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 

2502 
2503 
2504 
2505 
2506 
2507 
2508 
2502 
2510 
2511 

2512 
2543 
2514 
2515 
2326 
2517 
2516 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
25343 
2524 
2545 
2546 
2547 


SOURCE STATEMENT 


x 
ERRPO2 


2 


+ 


LOMA: 76 
627872 


oC 
oC 
OC 


8 

OC 
be 
oc 


8 

OC 
oc 
DC 


B 

oc 
DC 
oc 


TEN 
SF 


) 

oC 
oc 
DC 


B 

oc 
oc 
DC 


8 

boc 
oC 
dC 


8 

oc 
DC 
bC 


TBN 
JF 


ave 


B 

oc 
oC 
DC 


B 

DC 
OC 
oc 


B 

DC 
DC 
oc 


8 

oC 
oc 
oc 


OLOCTTS 
571931 


IL1°2¢ 
AL2(RDOCR) 
AL2 (MSG+42) 


UNPACK 
TL1°2¢ 
AL2(RDOOR} 
AL2(MSG6447) 


UNO ACK 
ILieyo# 
AL2(ROOCEFN) 
AL2(MSG+68) 


PRINT 
ML2°82¢ 
TLi*eos 
AL 2(MSGN) 


IND2 -ODOFER 
ERRPO2 


UNP ATK 
TLice4e 
ALZCEMP) 
AL2 (MSGI5N? 


UNPACK 
TLpese 
ALZUACT) 

AL 2° MSG1I6N) 


PRINT 

XLieBié 
ALLIMSGISN~NSGIS41)5 
AL2(MSGI5Ni 


PRINT 

XLitsre 

ALL (ASGI6ON~MSGIOFL 9 
AL 2(MSG16N} 


TNO», SNSAYL 
ERRPX 


MSGN(80)-HSGNe} 


PRENT 

AL1*S1° 

AL1 (HSGOON-HSGO94i 5 
AL2(MSGCON? 


PRINT 

XLL®Bre 
AL1(MSCOBN-MSGOB¢ 2 } 
AL 2CNSGOBN) 


UNPACK 

TL 1&&8 
AL2(OGSNS+43)} 
AL2 (ASG6+7} 


UNPACK 
TLi%4€ 
AL2(DGSNS¢7) 
AL 2¢MSG416) 


UNP ACK 





PART NO. 4247603 
PAGE 26A 
RESTOUAL DOCR 
TO MESSAGE AREA 
UNPACK 
RESTOVAL ODOR 
TS HESSAGE AREA 
UNPACK 
RESTOUAL BDC 
TO BRESSAGE AREA 
FRING 
FOURTH Liaé OF 03 
ERROR RESSAGE 
03 
SUAP TF NO 03 
KESTOUAL DODF ERROR 03 
03 
UN ACK 03 
EXPECTED 03 
RESTOUAL DDOF 03 
03 
Q3 
UNP ACK 63 
ACTUAL 33 
RESIDUAL DODF 63 
03 
03 
PRINT 03 
EXPECTED 03 
RESIDUAL DODF O3 
03 
02 
PRINT 03 
ACTUAL 03 
RESIOUAL DDDF 03 
03 
BRANCH ITF NO READ DIAGNOSTIC 03 
SENSE CATA FS AVAILABLE 
CLEAR MESSAGE AREA 
PRINT 
SEMSE DATA 
HEADING LIKE 
PRINT 
SENSE DATA 
HEaOTNG LENE 
UNPACK 4 BYTES OF 
READ DIAGNOSTIC SENSE 
DATA TO BESSAGE AREA 
UMPACK & BYTES OF 
READ GIAGNGSTIC SENSE 
CATA TO MESSAGE AREA 
UNPACK & BYTES GF 
PROG 1D Cl2-3 
PAGE 24a 





e 


I8M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247603 18m MAINTENANCE DIAGNOSTIC 2ROGRAM PART NO.j 4247603 
PAGE 25 ' PAGE 254 
C123 3340 FUNCTION TESTS - MOD 12 C123 3340 FUNCTION TESTS - MOD 12 
ERR LOC OBJECT COOE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1F lp 04 1F16 2548 OC IL1°*4@ READ ODUTAGNOSTIC SENSE 2575 SHEL ERE SSRAESSCLARE SKATERS SHESSSRSERASSKRS FARASHASEKKAKFSSEKSLSAKS SAK SERESSHE SLE LES 
LEL? 2971 1F18 2549 DC AL2 (OGSNS¢4i21} DATA TO MESSAGE AREA 2576 # 
1F19 2BAC LFLA 2550 DC AL2€4SG6425} 2577 # 3340 DEVICE END INTERRUPT SUBROUTINE * 
2551 * 2578 * * 
1F 1B co 87 OZ1E 2552 B UNPACK UNPACK 4 BYTES OF 2579 MHKSSSHASESERS CAE SS SLICK SOSHKSS KAT SS SSRRSSARKEES SS SERYREKS ESAS STRESSES RSS 
LFLE 64 LELF 2553 oc FELe4e READ DIAGNOSTIC SENSE 2580 + 
1E20 2975 LF21 2554 DC ALZ2(DGSNS#15} DATA TO MESSAGE AREA 1Ff42 34 08 1FB4 2581 DASOI St DASDIX#3¢ARR SAVE RETURN ADDRESS 
LF 22 2885 LEZ 2555 oc AL2(MSG*34) 1F46 34 02 1FBO 2582 st DASOX2¢3sr72 SAVE INDEX REGISTER 2 
2556 * 2583 # 
1F24 CM 87 O2Z1E 2557 B UNPACK UNPACK 4 BYTES OF LF4A 36 C5 2928 2584 SNS ss SNS, X'CS#* SENSE ADAPTER STATUS 
LFE28 04 1FZ28 2558 Dc IL1#ae READ DIAGNOSTIC SENSE 2585 * 
1F29 2379 LF2A 2559 Dc AL2 {DGSNS419) DATA TO MESSAGE AREA 1F4E 38 O1 2928 2586 TBN SNSeBRIT? BRANCH IF 
1F2B 28B8E 1F2C 2560 oc AL2(#SG+43) 1F52 F2 10 4A 2587 JT DaSDO4 ADAPTER CHECK 
2561 * 2588 * 
1F20 CO 87 O21E 2562 B UNPACK UNPACK 4 BYTES OF 1F55 35 O02 2901 2589 L AORP TR, XR2 SETUP POINTER TU 
1LF31 04 1F31 2563 DC ILit4? READ DIAGNOSTIC SENSE 1659 BS O02 O1 2590 L 14 ¢XRZ2$,XR2 DRIVE DEPENDENT WORK AREA 
1F32 297D 1F33 2564 oc AL2(9GSNS#23} DATA TO BESSAGE AREA 2591 * 
1F34 28C7 1F35 2565 BC AL2¢MSG*52} 1F5C 38 10 2928 2592 TBN SNS »BIT3 BRANCH IF 
2566 * 1F6C 38 04 28E4 2593 TBM IND, OPEND CXPECTED OP END 
1f36 CO 87 G21A 2567 B PRINT PRINT 1664 F2 10 iC 2554 JT BASDOL INTERRUPT OCCURRED 
1F3A 82 163A 2568 oc XL 1°82 LAST LINE OF 2595 = 
1&38 50 1F3B8 2569 pc ILEta@oe ERROR MESSAGE LF67 2C 00 1LF6D 03 2596 MVC #469 SKMSKL15XR2) GET SK INTRP MASK FROM DRY AREA 
LF3C 2862 1F30 2570 oc ALZ(MSGN) 1f#6C 38 OC 2927 2597 TBN SNS~1,%-# BRANCH IF 
2571 * 1F70 28 02 28&4 2598 TBN IND,» SKEND INTERRUPT IS 
1F3E CO 87 0000 2572 ERRPX B a RETURN TG CALLING ROUTINE 1&7% F2 90 28 2569 JF DASDOS NOT EXPECTED 
2573 * 2600 * 
1-77 ZC OO LFAC OS 26901 MYC DAS00642 »SKRSTE1,XR2) PREPARE ¥O RESET SEEK ENTERRUPT 
1F7C 3B 02 28E4 2602 SBF IND ¢ SKERND RESET SEEK INTRP EXPECTED IND 
1f80 F? 87 08 2603 J DASDO2 GO 1G TEST FOR UNIT CHECK 
2604 * 
1F83 3C 04 LFAC 2605 DASDOL “VI DASD0642 »X#04? PREPARE TO RESET OP END INTRP 
1F57 38 04 28E4 2606 SBF IND, OPEND RESET OP END EXPECTED ENDICATOR 
2607 * 
LFSB 2C 00 1F91L 04 26C8 GASDO2 MVC *46,UCKMSK{1,XR2) GET UNIT CK MASK FROM ORV AREA 
1F90 39 GO 2927 2609 TBF SNS- ly t-* BRANCH IF 
1F94 39 CB 2928 2610 TBF SNS, BIT4 UNIT CHECK OR 
1F98 F2 10 OF 2611 JT BASDO6 NO-OP STATUS 
2612 * 
1F9B 3A 10 284 2613 DASOO3 SBN IND, ORVERR SET DRIVE ERROR INDICATOR 
2614 * , 
1F9F 3A 20 2864 2615 DASDO4 SBN INDs INTERR SET ANY ERROR INDICATOR 
2616 * 
1FA3 F3 C4 TE 2617 DASDOS SIO X®TEtsxX*C4! RESET AND DISABLE INTERRUPTS 
1FA6 CO 87 1FAD 2618 B DASDX2 GO TO RESTORE INDEX REG 
2619 # 
1FAA F3 C4 00 2620 DASDO06 SIO -#,X*C4! RESET INTERRUPT 
2621 * 
1FAD C2 02 0000 2622 DASDX2 LA %—%4XR2 RESTORE INDEX REGISTER 2 
2623 * 
1fB1 CO B87 0000 2624 DASDIX 8B e+ RETURN TO CALLING PROGRAM 
2625 * 
oe ate ee pone ye O10CT76 PROG ID C12-3 DATE 23AUG75 OSNCQV75 LOMAR 76 O10CT76 PROG ID C12-3 
: 827872 571931 PAGE 25 €C NO. 827785 827827 827872 571931 PAGE 25a 
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4247603 IBM MAINTENANCE DIAGNOSTIC PROGRAM 4 PART NOo 4247603 
PAGE 26 PAGE 26A 
C123 3340 FUNCTION TESTS - HOD 12 C123 3340 FUNCTION TESTS - MOD 12 
ERR LOC OBJECT CODE AODR STMT SOURCE STATEMENT ERR LOS OBJECT CODE ADOR STMT SCURCE STATEMENT 
2627 REREEE SIERRA ALES ASRS KEE RSS SR EAKAEAKELETARERERSRRASEARERSERSEEEEE 2686 PESSASSSTSTEE SATE SSKEESOHSSES AIRE SSKSESRARKSFACTHHASSHRATHIRORRSSSOSRORE 
2628 * SAVE RESTART SUBROUTINE * 2687 * , * 
2629 * * 2688 * INTERFACE TO ADAPTER MANUAL OPERATIONS PROGRAM (SECTION C19} @ 
2630 * THIS SUBRONTINE PLACES A RESTART ADDRESS IN LOC 00 - 03 * 2689 *& * 
2631 * IN CASE OF A REJECTION LOOP ON A "LIO* OR *SIO® INSTRUCTION. * 2690 SSSSKECEESTSESEAESSSSSSSASHKASSSSKASLHEKSASKSASASASSALTTEAE KRAVE SE SESS 
2632 * IT ALSO SAVES THE ADDRESS FOLLOWING THE *LIO* OR *SIQ° % 2691 *% 
2633 * AND INDEX REGISTERS 1 & 2. % 201C 34 08 2071 2692 AMOPLK ST AMOPK43,ARR SAVE RETURN ADORESS 
2634 * BRANCH TO *SAVRST® IMMEDIATELY PRIOR TO THE *LIO®? OR *SIO*. ¥ 2693 * 
2635 # BRANCH TO *RSTOR*® AFTER THE *“LIO? OR *SIO* TO RESTORE * 2020 38 01 6200 2694 TBN SBYTE 5, SSW2F RETURN TO CALLENG ROUTINE 
2636 * LOC 00 - 03. * 2024 £2 90 47 2695 JF AMOPX IF SENSE SWITCH 2F IS NOT ON 
2637 FRR ERERARRAERE EEA SER SE ESE SERERKESERATESHSARERKELASRE SE SEREEKEREE 2696 2% 
2638 * 2027 34 01 2069 2697 ST AMOPX143,XR} SAVE INDEX REGISTER } 
LFBS 34 08 1FFQ9 2639 SAVRST ST SAYRSX4+3,ARR SAVE RETURN ADDRESS 2028 34 02 2060 2698 st AMOPX243,XR2 SAVE INDEX REGISTER 2 
1FB9 34 O01 2009 2640 ST RSTXR1#3_XR1 SAVE XR1 AND XR2 2699 * 
1EBD 34 02 2005 2641 ST RSTXR243, XR2 FOR RESTART 202F OC 18 OA39 OA18 2700 MYC SVPFC(25) eCOM-1 SAVE SECTION PREFACE 
2642 * 2701 #* 
1FCL 35 O1 LFF9 2643 iL SAVRSX43 XR) LOAD ADDRESS OF *LIG* OR *Si108 2035 OD O1 OALE 2057 2702 CLC AMOPID(2),C€19 GO TO LOAD SECTION C19 
2644 * 2038 F2 01 G9 2703 JNE AMOPLD IF NOT ALREADY IN MAIN STG 
LFC5 4D 00 OO LAFB 2645 CLC} 3=—s_s« OW XR1LDZSTO IS INSTRUCTION A *S10°? 2704 & 
LFCA F2 01 06 2646 JNE SAVRSA JUMP IF NOT Z203E OD O1 4001 2057 2705 CLE AMOP4+1(2).C19 GO TO EXECUTE SECTION C19 
2647 * 2044 F2 81 1B 2706 JE AMOPGO IF ALREADY IN HAIN STORAGE 
1FCD 02 91 03 2648 LA 30eXR1),XR1 ADJUST TO ADDRESS AFTER *5S10? 2707 * 
1FDO F2 87 OB 2649 J SAVRSB GO TO STORE ADDRESS 2047 CO 87 O2Z1A 2708 AMOPLD 8 PRINT PRINT MESSAGE 
om 2650 & 206B 46 204B 2709 DC XLL*468 ®LOADING SECTION C19° 
1FD3 4D 00 00 LAGE 2651 SAVRSA CLC Oe XR1}sLI0 IS INSTRUCTION A *LEoe 204C 13 204C 2710 DC ALL (MSGO2N-MSGO2¢1 ? 
1FD8 F2 O01 C7 2652 JNE SAVRSC GO IF NOT 204D 2148 204€ 2711 oc AL2¢MSGO2N} 
2653 * 204F C°00 2050 2712 oc AL2CtHLTOO} 
1FOB D2 O01 04 2654 LA 4(9XRL) XR1 ADJUST TO ADORESS AFTER *LIG® 2713 * 
1FDE 34 01 2000 2655 SAVRSB ST RSTAX#3 oXRE STORE RETURN FROM RESTART 2051 CO 37 O22A 2714 B LOAD LOAD SECTION Ci? 
2656 * 2055 04 2055 2715 DC XL1°048 
1FE2 3B 80 2864 2657 SAVRSC SBF IND» HUNG RESET HANG INDICATOR 2056 0019 2057 2716 C19 oc XLZ2*0Ci9® 
LFE6 OC 03 2927C 0003 2658 MYC WORKN(4) 53 STORE CONTENTS OF LOC 00 = 03 2717 ¢ 
1FEC OC 03 0003 LFFD 2659 YC 314) eRSTBR STORE RESTART IN LOC 00 - 03 2058 CO 87 O21A 2728 8 PRINT PRINT MESSAGE 
2660 * 205C 46 205C 2719 BC XL1°46? *SECTION C19 READY® 
LFF2 35 O1 2009 2661 £ RSTXRL*3,XR1 RESTORE XR1 205D il 205D 2720 DC ALL (4SGO3N-4SG034L 3 
1FF6 CO 87 0000 2662 SAVRSX 8 t~% RETURN TO CALLING ROUTINE 205E 218C 205F 2721 DC AL2(HSGO3N) 
2663 2060 C106 2061 2722 oC AL2(HLYOO} 
2663 2723 * ; 
LFFA CO 87 LEFE 2664 B RSTRY THIS IS MOVED TO LOC 00 - 03 2062 CO 87 4002 2726 AMOPGO 28 ANOPs2 EXECUTE AMOP 
1FFN 2665 RSTBR EQU #-} FOR RESTART 2725 * 
2666 2066 C2 01 0000 2726 AMOPX1 LA $3, XRL RESTORE 
2666 206A C2 02 0000 2727 aMOPX2 LA %—% 6 XR2 INDEX REGISTERS 
2667 EREREE REAR REE EEA RER AER EHS EE EAEREE EA SEKERESSSAEERSEERSARERRSERAKK SER 2728 #* : 
2668 * ENTER HERE ON A RESTART FOLLOWING A *SIO* OR *LEGe * 206E CO 87 C000 2729 AMOPX 8 Stam % RETURN TO CALLING ROUTINE 
2669 * WUNG IN A REJECTION “LOOP * 2730 * 
2670 REREERE EAE SES EERE EERE EERE RARE EKER EERE SAKES SEHR ERE EERE SER 
2671 % 
1FFE 3A 80 28E4 2672 RSTRT SBN  ~——IND, HUNG SET HANG INDICATOR 
2002 C2 02 0000 2673 RSTXR2 LA H— ye XRZ RESTORE XR2 AFTER RESTART 
2006 C2 01 0000 2674 RSTXRI LA t—% > XRL RESTORE XR1 AFTER RESTART 
2C0A CO 87 0000 2675 RSTAX 8 t-% RETURN AFTER RESTART 
2676 
2676 
2677 SRRRSRSEERSEAERE ERASE LES REK ES TRE SSKERA SEARS SER EHKEEAALSERARSEHSE SRERE SEE 
2678 * ENTER HERE TO RESTORE LOC 00 - 03 IF *SIO* OR *LIOe * 
2679 * DID NOT HANG * 
2680 RERRER ENERESESE SEES ERE RE RE SERS EASE SEGRE RERE REE EEREEEASESE REESE ESSE RERTES 
2681 #* 
200E 34 08 2018 2682 RSTOR ST RSTORX+3,ARR SAVE RETURN ADDRESS 
2012 OC 03 0003 292C 2683 MVC 3(4),WORKN RESTORE LOC 00 - 903 
2018 CO 87 0000 2684 RSTORX 8B a-% RETURN TO CALLING ROUTINE 
DATE 23AUG75 O5NOV75 19MAR 76 O10CT76 PROG ID C12-3 DATE 23AUG75 OSNOVT5 LOMART6 CLOCT76 PROG ID Cl2~3 
EC NO. 827785 827827 827872 571931 PAGE 26 EC NO. 827785 827827 PAGE 26A 


827872 


 S7iS3h 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C123 


ERR LOC OBJECT CODE 


2072 
2076 
207A 


207E 
2084 


2087 
206D 


2090 
2094 
2095 
2096 
2098 


209A 
20A0 


20A4 
2045 


20AT. 


20A8 
ZOAF 


2083 


DATE 
Ec #0. 


3340 FUNCTION TESTS — MOD 12 


34 
34 


GD 
F2 
OD 
F2 


cG 
46 
13 


08 


02 


Ol 
ol 


01 
81 


eT 


2198 
C100 


oc 


co 
04 


18 


&7 


oc17 


co 


C2 
C2 


co 


87 


Q1 
02 


87 


20B6 
2GAE 
2082 
OA1IC 
6CO1l 
i7 


Q21A 


CA39 


Q22A 


6002 


o0o0co 
0000 


0000 


23AUG7TS 
827785 | 


ADDR 


20A6 


.2CA6 


2094 
2095 
2097 
2099 


OA18 


20Ak4 
20A6 


OSNOV75 
827827 


STMT 


2732 
2733 * 
2734 & 
2735 * 
2736 
2737 * 
2738 MPL 
2739 

2740 

2741 * 
2742 

2743 

2744 # 
2745 

2746 

2747 # 
2748 LORLD 
2749 

2750 

2751 

2752 

2753 * 
2754 

2755 * 
2756 

2757 

2758 C17 
2759 © 
2760 LORGS 
2761 * 
2762 MPLX1 
2763 MPLX2 
2764 * 
2765 MPLX 
2756 * 


LOMART6 
827872 





SOURCE STATEMENT 





PART NO. 
PAGE 


SEREEASTHKSESERSKEKE SK EKKERSSEK IK SEKSERSALESSSASAKSSESESSEKSTKASSAAASLEK AETHER 


INTERFACE TO MICROCODE LOADER PROGRAM (SECTION C17} 


LA 
LA 


8 


O1OCT76 


571931 


MPLX4+3,ARR 
MPLX143,XRL 
MPLX24+36XRZ 


LDRID(2),C1L7 
LORLO 


LDR+1(23,Ci7 
LORGO 


PRINT 
XL2°46* 


AL1UMSGOLN-MSGOi¢1} 


AL 2(MSGOIN} 
AL2 (HLTOO) 


SVPFC (253 ,COM-1 
LGAD 

XL1i®G4& 
AL2°OC1i78 

LBDR+2 


#-%,XR1 
B~ eXRZ 


ts 


HESSRKKAKLESSREKSEISKSEKHKEAKKSEKKAKES SEKASSERAKMRERMSELASSKSSRESTESSRSESEE ORES 


C123 


SAVE RETURN ADDRESS 2087 
SAVE INDEX REGISTER 2 20BB 
SAVE INDEX REGISTER 2 208F 
GO TO LOAD LGADER 20C3 
iF NOT ALREADY IN STG 
20C7 
BRANCH IF SECTION C17 
IS ALREADY IN MAIN STORAGE 20CB 
2CCF 
PRINT MESSAGE 2Cd3 
LOADING SECTIGN C17 2008 
20DA 
200F 
20E3 
SAVE SECTION PREFACE 20E6 
Z20E9 
LOAD SECTION Ci7 
Z0ED 
20F3 
GO TO SECTION C17? 20F7 
20FB 
RESTORE Z20FE 
INDEX REGISTERS 2104 
RETURN TO CALLING ROUTINE 2108 
210€ 
2110 
2114 
2118 
211C 
2122 
2126 
212A 
PROG ID €12-3 DATE 
PAGE 27 EC NO. 


34 
34 
34 


co 


3C 
38 
F2 
3C 
1c 
31 
02 


7D 
co 


30 
3e 
F2 
ca 
C2 
co 


31 
31 


0D 


C2 
C2 


co 


028 
02 
87 
ol 


00 
£0 
30 
04 


~ 
w- 


01 
FF 
01 


O1 


1) 
Ol 
so 
Ol 
20 


Ol 
ol 
20 


cs 
c5 


FF 


01 
02 


87 


3340 FUNCTION 


ERR LOC OBJECT CODE 


2126 
2125 
2129 


212E 
2840 


2861 
OA19 
04 

2561 


292C 
292C 
02 
00 
2004 


292C 


2928 
29268 
OA 

252E 
20F3 


E5SF6 
280F 
210C 


2878 
285E 


211¢ 


0000 
0000 


0000 


23AUG75 


827785 


ate TBM MAINTENANCE DIAGNOSTIC PROGRAM 


ADDR STRT 


TESTS —- MOD 22 


SOURCE STATEMENT 


PART 
PAGE 


nNOe 


4247653 


<7A 


PRERESISS SS GESAKELSESEKRSASGAMHHA SEK SESSSE SOESSSAESESRESSRERKERASSERERERS 


3340 ATTACHMENT SYSTEM RESET SUBROUTINE 


= 
2 
= 


SSRFSLSESS HOSS SLSTSS SSS SSHARSLKSSRISKERIRSSTSSASLHSKESEHSELERESRSCSISASSERE 


2768 
2769 * 
2770 # 
2771) * 
2772 
2773 * 
2774 SYSRST ST 
2775 ST 
2776 ST 
ZT? & 
2778 ss) 
2779 
2780 LA 
278i * 
2782 MV I 
2763 TBN 
2784 JF 
2f@s MVE 
2786 *% 

Q1 2787 &STLP HVE 
2788 iio 
2789 LA 
2790 Cil 
2791 BNE 
2792 * 

2 80F 27933 KVCT 
2794 % 
2795 SNSLP SNS 
2796 TBH 
2797 JF 

280F 2798 ALC 
2799 BNOL 
2800 
2801 DELAY tA 
2802 DLYLP A 
2803 BNOL 
2804 # 
2805 L10 
2806 LIo 
2807 

211C 2808 CLC 
2809 * 
2810 RSTX1 LA 
2811 RSTX2 LA 
2812 * 
2813 RSTX 8 
2814 * 

OSNOV75 19OMAR76 OLOCTT6 

827827 827872 571931 


RSTK¢ 3, ARR 
RSTKXLS35—XR? 
RSTX243 5XRZ 


REGRST 
SVPSEQoXRE 


KO 
COM,ADRSTP 
RSTLe 
KReX*O56F 


WORKNGZi she oXRI} 
WORKN, X?*C5® 
Z2tsXRLIVEKRI 
O(eXREPSX* FEF 
RSTLP 


WORKNIZ) 9 PL 


SNS, K°CS# 
SNS BIT? 
DELAY 
WORKN( 2), P2 
SNSLP 


~6666 oXR1 
P1sXR1 
OLYLP 


CEMODE .x*cse 
SVPREQeX*C5# 


*(256) 9% 


t-¢.XR1 
%—# oXR2 


o—% 


SAVE RETURN ADDRESS 
SAVE INDEX REGISTER 1 
SAVE INDEX REGISTER 2 


RESET ATTACHMENT REGISTERS 
POINT TO SVP CONTRGL STRING 


PRESERVE MICu0- 
PROCESSOR AODRESS STOP 
SETUP DURING EXECUTION 
OF AMOP (SECTION C19} 


EXECUTE 
SIMULATED SYSTER 
RESET SVP INTERFACE 
CONTROL SEQUENCE 


SETUP TIKBER COUNT 
LOOP UNTIL 
MICRO-PROCESSOR 


STARTS OR COUNTER 
OVERFLOWS 


DELAY 
102 MSEC 


SET CE MODE 
INDICATORS 
800 USEC DELAY 


RESTORE 
INDEX REGISTERS 


RETURN TO CALLING ROUTINE 


PROG IO 
PAGE 


Ci2-3 


2Ta 





TBM MAINTENANCE DIAGNOSTIC PROGRAM 


C123 


ERR LOC OBJECT CODE 


212E 
2132 


2136 
213A 
213€ 
2142 
2146 


214A 
214E 


2152 


2156 
215B 


215F 
2164 


2168 
216C 
2170 
2174 


2177 
217A 


217E 
2182 


DATE 
EC NO. 


3340 FUNCTION TESTS - MOD 12 


34 
34 


C2 
31 
31 
31 
31 


3C 
3i 


31 
1c 
Ic 
31 
31 
31 
31 
02 


7D 
co 


C2 
co 


08 
Ok 


Oi 
C5 
c5 
C5 
cs 


00 
cs 


C5 


00 
cS 


06 
C5 
cs 
cs 
01 


FF 
1 


01 
87 


2185 
2181 


287E 
2867 
2869 
286B 
286D 


286E 
2B6F 


2873 


2B6E 
286F 


2870 
2871 


2875 
2877 
2879 
02 


00 
214A 


0000 
0000 


23AUGTS 


827785 


ADDR STMT 


SOURCE STATEMENT 





PART NO. 
PAGE 


Ci23 


2816 RESSERSEESR CASA SERS CASH SEAEREASE HE RENE RESET ALG RHORERERORSORERERREREES 

2817 + 

2818 + 3340 ATTACHMENT REGISTER RESET SUBROUTINE 

2819 *& 

2820 AESERERE SES SRSERES SO SERESAESS ESSERE TERE HOR ATTERRREFRRKEESOASEEERERESS 

282] * 

2822 REGRST sT REGX4+3-ARR SAVE RETURN ADDRESS 

2823 ST REGX143,XR1 SAVE INDEX REGISTER 1 2186 
2824 * 2i8E 

. LA EXTBL ,XRI POINT TO REGISTER ADOR TABLE 2156 
826 

2827 LIO K04,X*C5# HALT MICRO-PROCESSOR 

2828 tro K034.x"C5* RESET MICRO-PROCESSOR CLOCK 2199 
2629 i110 KRO24,X*C58 SET SERVICE MODE 21Al 

2830 * 21a9 

2831 LIO Cex*C5* X00 -=-> OP REG C 

2832 * 

2833 REGLP MVI CR~-1,0 21AC 

2834 L190 CReX*C5* X*00* --> OP REG CR 2184 

2835 * 218C 

2836 Lio LEXTZ,X*C58# R4&-RT --> EXTERNAL ZONE 

2837 # 

00 2638 MVC CR-1,001,XR1) 2180 
2839- LIo CReX*C5* EXT REG ADDR --> OP REG CR 21¢€5 
2840 * 21C0 

ol 2841 MVC Y-Lsl( 1 .XR1) 2105 
2842 Lo Y,xX*cse EXT REG DATA --> OP REG Y 210D 
2843 *& 21€5 
2844 LIO LEXTAR.X*C5# R3-R7T --> EXT ADOR REG (EXTAR) 

2845 i gs) LALUD,.X*C58¢ Y REG --> A REG --> D REG 

2846 Lid LEXT,X*C5* D REG --> EXTERNAL REG 2157 

2847 21EF 

2848 LA 20 eXR1) oXR1 ADVANCE TABLE POINTER 21F7 

2849 * 21FF 

2850 CLI O(eXRL},X* FFE LGOP UNTIL ALL 

2851 BNE REGLP REGS HAVE BEEN RESET 

2852 * . 2200 

2853 REGX1 LA *-3,XR] RESTORE ENDEX REG 1 2208 

2854 REGX B $—-% RETURN TO CALLING ROUTINE 2210 

2855 € 2218 
2220 
2228 
2230 
2232 
223A 
2242 
224A 
224E 
2256 
225E 
2266 
226E 
2276 
227E 
227F 
2287 
228F 
2293 
2298 
22A3 
22AB 

OSNOVTS LOMARTE clocT7é PROG ID C12-3 DATE 

827827 827872 571931 PAGE 28 EC NO. 





ERR LUC OBJECT CODE 


D3D6C1C4&C9D05C740 
E2C5C3E3C9D60540 
C3FLFT 


0305C1C4&C9D5C 740 
E2C5C3E3C9D60540 
C3FLFS 


E2C5C3E2C9060540 
C3FILF940D9C5C1C4 
E8 


C9D5E5C 1D3C9C440 
E2CSE3E3C905C 746 
DECES0E2D5E240F2 
EGE 2S0F 1 FL6OOFLF2 
4C0D60950F 1C160F 1 
C248 


D9C5C 306E 5C 5D9C5 
©440C1C6E3C50940 
E740D9CSE309C9C5 


E2 


C3C1D0570E34009C5 
E2E3CID9E34004C9 
C30906D7D9D6C3C5 
E2E2D609406040€3 
C5E2E3C9D5C740E3 
C50904C 9D5€ 1E3C5 
C440 


07€509D4C105¢€505 
E340C509D9406049 
DSCSE3D9E840C6C1 
C903C5C4 


C4£D9E540C3D4C440 
4040C 3£ 803404040 
404008C440404040 
E2C9D640404040E2 
D5E 2404040404004 
C4C30940C4C4C4D9 
406 
CéC6C3C3C3C3C8C8 
C8C8D9D9D02D3C403 
C403D5D05 


BD9C5C1IC440C4C9L 1 
C705D06E2E3C9C340 
E2C5D05E2C540C4C1 
E3C1 


23 AUG7T5 
827785 


ADOR 


2186 
2198 


2199 
21AB 


21AC 
218C 


2180 


21E6 


ZleT7 
2iFF 


2200 
2231 


2232 
224D 


224E 


227€ 


2292 


2293 
22AC 


O5nGV75 
827627 


A2w71603 tou MATNTENANCE DIAGNOSTIC PROGRAM 


2340 FUNCTION TESYS = MOD 12 


STMT 


2857 

2858 
2859 
2860 
2861 

2862 

2863 
2864 

2864 

2864 
2865 

2866 
2867 
2867 
2867 
2868 
2869 
2270 
2870 
2870 
2871 
2872 
2873 
2873 
2873 
2873 
2873 
2873 
2874 
2875 
2876 
2876 
2876 
2876 
2677 
2878 
2879 
2879 
2879 
2879 
2879 
2879 
2879 
2880 
2881 
2882 
288. 
2882 
2882 
2883 
2884 
2885 
2885 
2885 
2885 
2885 
2885 
2885 
2886 
2886 
2886 
2887 
2888 
2882 
2889 
2889 
2869 
2890 


FART 
PAGE 


247603 
28A 


MO. 


SOURCE STATEMENT 


SEPSS ESSE SHORTS ESSA TH ORSOHSES SRS OE EDEN ESSE RATZ USE EES CE RESS ORES EESOOSSE 


% 
a 
x 


VESESESSSSEEERE SORE STRESS HETORS SOR HTETRSSORDS DECREE USSNES TEESE OSATEES 


% 
*SGOl 
MSGO1N 


& 


*SG02 
MSGO2N 


= 
MSGO3 
MSGO3N 


s 


MSG04 
MSGO4N 


= 


MSGO05 
HSGOSN 


& 


MSG06 
MSGO6N 


= 
SGO7 
MSGOTN 


4SG08 


HSGO8N 


x 


®SG09 
MSGO9ON 


e 


19MAR 76 
827872 


EQU 
oC 


EQU 
oC 


EQU 
oC 


EQU 


oc 


€Qu 
OC 


EQU 
oc 


EQU 
oc 


EQU 
DBC 


€QU 
oC 


O10CT76 
571931 


rs 
PRINT MESSAGES * 
% 


€ 
CLIS*LOADING SECTION C17° 


e 
CLIO*LOADING SECTION C19¢ 





s 
CLI7*SECTION C19 READY® 


= 
CL42°ENVALID SETTING OF SNS SHS 11-12 GR LA-1B.° G2 


& 
CL2Z5*RECOVERED AFTER X RETRIES® 


= 
CLSO*CAN®®T RESTART MICROPROCESSOR - TESTING TERMINATED! 


e 
CL28* PERMANENT ERR —- RETRY FAILED® 


& ‘ 
CL49°DRV CMO CYL HD Sfio SNS ooce oDDR * 
CL20 * FFCCCCHHHHRRKL DL OL NN ® 
& 
CL26*READ DIAGNOSTIC SENSE DATA* 
PROG ID C12-3 
PAGE 238A 





IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C123 


ERR LOC 


22A0 
2265 
2280 
22c5 
22C0 
22ce 
22D9 
2208 
22E0 
Z2€6 
22F0 
22F8 


22F0 
2305 
2300 
2315 
2318 
2320 
2326 
2330 


2332 
2334 
2342 
234A 


22506 
2358 
2360 
2368 


236D 
2375 
2376 
2385 


238A 
2392 
239A 
23A2 


23A7 
23AF 
2387 
23BF 


23C4 
23CC 
2304 
23D 
23&4 


23E6 
23E€ 
23F6 
23FE 
2406 


DATE 
EC WQ. 


OBJECT CODE 


E2C5D3C5C 3634004 
DIC SESC 545E3D640 
C2CS4Q0ETE7TETETET 
ETETETETETETETET 
£7 

4046 
EZD5SEZ240E2E6 E240 
FIC1L&é60FIC2Z40E2C5 
D3C5C 3E340C4D9C9 
ESCSE2Z4CF1L60F2Z40 
DEC 5EZ2D7C5C3E3C9 
E5C 503€ 848 


FOF O60 6CE060FDF3 
“OF OF 460 606060FO 
FITSCFOFS606060690 
FIFi40 

FLIF 2606C6060FiF5 
40F LFS60606060F1 
FS40F2F060606060 
F2F3 


C5D9D9060D940C0306 
C&C 5496050606060 
$060506060696060 
G040C1C3E7TET 


C4D09C9E5C540C3C8 
CSC3OZE2Z40E2E3C1 
E36 4E 24060506060 
GOSC4OETEF 


C40440E 2C 5D 8E 405 
D5C 3C540C30605E3 
D906€6034060606660 
606040E 7E7 


D3D6C1C44CEZE6C9 
E3C 3C840E2E3C1E3 
E4E 2406040506060 
S06C4S0E7E7 


C1C3C3C5SEZE240C3 
D605E 309D60340E2 
E3C1lE3E4E2406060 
606040ETET 


CSETOTCSC3E3C5C4 
SCDSCS5E2COC4 ESC] 
D340C4C4C4C 64040 
SO40E7ETETETETET 
ETE? 


C1C3E3E4C 1034040 
GOD9ICSE2CIC4E4CI1 
D34004C 40 4064040 
SOSOETEFETETETET 
E7TE7 


Z3AUG75 
827785 


OS5NOV? 
827827 


3340 FUNCTION TESTS - MOD 12 


se IBM MAINTENANCE DIAGNOSTIC PROGRAM 
5 


PART NG. 
PAGE 
C123 
ADDR STMT SOURCE STATEMENT ERR LOC 
22AD 2891 MSGOA EQU 2404 
22CD 2892 MSGOAB OC CL33"SELECT DRIVE TO BE ¥XXXXXKXKXXKKX! 03 
2892 240F 
2892 2414 
2892 24193 
2892 241£ 
22CF 2893 DC cLo2" ¢ a3 2423 
22FC 2894 MSGOAN DC CL45°SNS SHS 1A-1G SELECT ORIVES i-2 RESPECTIVELY.* 9 0? 2423 
2894 2420 
2894 243 
2894 2437 
2894 2463C 
2894 244) 
2695 * 2446 
22FD 2896 MSGOB EQU) # 2448 
2317 2897 DC CL27*?00----03 04-~---907 O8----i1 5 2450 
2897 2455 
2897 2458 
2897 245F 
2331 2898 MSGOBN OC CL26°1L2-~--— 15 1L6----19 20----235 2464 
2898 2469 
2898 2466 
2898 2473 
2899 03 2a78 
2332 2900 MSGIO EQU # o3 2470 
234F 2901 MSGION DC CLZO*ERRGR CODE ----~------~-.. ACXKE 43 2482 
2901 242A 
2901 2430 
2901 2498 
2902 * 03 
2350 2903 MS¢11 EQU # G3 
236C 2904 MSGiIN DC CL29°DRIVE CHECKS STATUS ------ xxe o3 249E 
2904 
2904 
2904 2484 
2905 * 03 
2360 2906 MS612 EQU 0 # 03 
2289 2907 MSGL2N OC CL29°DM SEQUENCE CONTROL -~---—~ xxe 03 246AC 
2907 2464 
2907 24BC 
2907 2404 
2908 * G3 24CC 
238A 2909 MSG13 EQU) os a3 
23A6 2910 MSGI3N oc CL29°LGAD SWITCH STATUS ~~----~ XX! G3 
€910 24D4 
2910 2408 
2916 24E3 
291i # 03 24EB 
23A7 2912 MSG14 EGU « 03 
23C3 2913 4SGL4N DE CL2S*ACCESS CONTROL STATUS ~--- xx: 93 
2913 24F3 
2913 24F8 
2914 
2914 % 03 
23C4 2915 MSG15 EQU 03 24FC 
23E5 2916 MSGISN DC CL34*EXPECTED RESIDUAL DDDF XXKAXKXXKE a3 2504 
2916 2506 
2914 
2916 
£911 * 02 2516 
23E6 2918 MSG16 EQU 03 2522 
2407 2919 MSGI6N OC CL34*ACTUAL RESTOUAL DUCE XXXXXXNKXS 63 2528 
2919 2533 
2919 253B 
2919 2543 
2919 
2920 * 
5 LOMAR 76 OLOCT 76 PROG Ie £22-3 DATE 
827872 571931 PAGE 23 EC NO. 


OBJECT CODE 
FOFOFOSIFOLOFO 


DICSC3CIDS 
E2C5C5D240 
DSC4&CBLCICS 
B6SC4C8Ci ds) 
PoC 4D9F 006 
D9C&CAD2C4 
O9C4C4&C7D5 
O0SC4D20440 
CICSE5O02C4 
D9C4D3UECT 
OICSEZD5E2 
DeC4C9D703 
E6O9C8CIC5 
E6D9C8C1D6 
ESD9DSF 006 
E6DSC3D2C4E 
E6D9C3C3C4 
F6D9D9C 5D 
£6D902C440 
E2C3Ci05c5 
F2C3C1D5C8 
£2C30509C5 
E2C3D0509C8 
C9OSCIESC9C1DACY 
ESC 5C44B4040 
ESC5E2E 305044840 
404040404040 


C5D0°0940F 2FQ 


FOF046604003C 906 


FOF 1406040C 1LE3E3 
C1C3CBU4C505E340 
CZESEZE8406GE3C9 
0660406 709C SC6eDe 
SCE3D64CE2C9D6 


FOF 24080400 4C4C3 
0940C04C9C44605D6 
£340D0306C1C440C3 
D&D9D9C 5C 3E 3D3E8 


FOF 3406640C4C4C4 
D9 


FOF 4406040E2CSD6 
“CC 8E4D5C 7400955 
4009C561C5C3E3C9 
D60540D306046D7 


FOF5S4O06040C40G5E5 
+ODSD6E34¢009C+E8 
SO0D6D940E4D5C9E3 
40C2024060E3C9ODE 
66400709090460940 
E3D640E2C906 


23AUGTS 
82TTES 


OSNOVT 
827827 


ADDR 
246E 


2413 
2428 
24D 
2422 
2427 
242E 
2432 
24358 
2438 
2440 
2445 
244A 
244F 
2454 
2459 
245E 
2463 
2468 
2400 
24&T2 
2477 
2470 
246i 


2&8F 
2490 
249E 
2443 


2+AhS 
24AB 


24AC 
2402 


2403 
24F 2 


24F3 
24FB 


4F 
251A 


2518 
2548 


2549 


5 


3340 FUNCTIGN TESTS = MOD 12 


PART 
PAGE 


NQ« 4247663 


Z9A 


CL 7*O06/0008 CYL AND HD FEELD INITEALIZER 
CLS*RECAL® 
CLS*SEEK °* 
CLS*RONAE? 
CLS *R DHA? 
CLS? RDROGE 
CLS*ROCKDE 
CLS °*RODGHS 
CLS*ROKOD ¢ 
CLS*ROVKD® 
CLS *ROLOGE 
CLS*ROSNS® 
CLS*ROTPL? 
CLS FWRHAES 
CLS ®&NRHAO? 
CLS* wRAOHe 
CLS * wRCKDE 
CLS "wRCCD® 
CLS*WRREPE 
CLS*HRKD & 
CLS° SCANE& 
Ci5* SCANHt 
CLS *SCNHRE® 
CiL.S* SCNRHS 
CLLS*INITIALIZED, 6 03 


CLI4* TESTED. * 03 
= 
CLOTERR 208 


% 
CL6"00 —- LIGe 


+ 
Ci39°O ~ ATTACHMENT BUSY -TIO- PRIOR YO Sipe 


& 
Ci32°02 - DOCR OO NOT LoaD CORRECTLY® 


* 
CL9°03 ~ DDDKR® 


x 
CL31°04 — SIO HUNG IN REJECTION iLooPre 


* 
CL46705 ~ ORV NGF RDY OR UNIT CK ~TIO- PRIOR TO Sioe 


PROG ID 


STAT SOURCE STATEMENT 
2921 REZERG Geo 
2922 # 

2923 MRECAL DC 
22924 MSEEK OC 
2925 MRDHAE Hc 
2926 MROHAD oC 
2927 PRDROOD c 
292R MRDOCKD dS 
2929 MROOGN DC 
29390 HROKD OC 
293i MROVKD dc 
2932 KRROLOG OC 
2933 MRDSNS oC 
29346 MRDIPL iC 
2935 MWRHAE oc 
2936 RBWRHAG oC 
2937 FAWRROD oc 
2936 BHRCKD DC 
2939 MWRCOO Dc 
2940 lL RREDP o¢ 
294) MERKD OC 
2942 HSCANE boc 
2943 MSCANH o¢c 
2944 MSCNRE Cc 
2945 RASTNRH De 
2946 WINIT DC 
2946 

2947 MTEST ac 
2947 

2948 * 

2949 EMXX FOU 
2950 ERXXN OC 
295] 4 

2952 EMOO EQU 
2953 EMGON oC 
2954 #& 

2955 ExOL EQu 
2956 EROIN oc 
2554 

2956 

2956 

2955 

2957 * 

Z9EB EMOZ EQU 
29F9 EmMO2K DC 
2359 

2959 

29592 

2960 & 

296) ERG3 ECU 
2962 EMOBN DC 
2962 

2963 ¢ 

2964 EMO4G ESuU 
2965 EMOSN DC 
2965 

2965 

2965 

2°66 

2967? EROS EQ 
2968 EMOSN BC 
29686 

2968 

2968 

2968 

2968 

2°69 & 

29790 EM0EG EQU 
LOMARTY OLOCT7S 
B2T8T2 571931 


Clé-3 


PAGE 294 








IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247603 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247603 
PAGE 30 PAGE 304 
€123° +3340 FUNCTION TESTS - OD 12 C123 3340 FUNCTION TESTS - MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CUDE ADOR STMT SOURCE STATEMENT 
2549 FOF6406040E2C9D6 2572 2971 EMO6N oC CL42*06 = SIO DID NOT SET ATTACHMENT 8USY -TIO-®* 26A7 F1F0406040D50640 26B8E 2999 EMION DC CL24°10 - NO OP END INTERRUPT? 
2551 40C4C9C440D506E3 2971 26AF D&D7“CC5D5C440CE 2999 
2559 S0E2C5E340C1E3E3 2971 2687 D5E3CS5D9D9E4D7E3 2999 
2561 C1C3C8D4C5D5E340 2971 3000 ¢ 
2569 C2E4E2E84060E3C9 2971 . 26BF 300) EM11 EQU 
2571 D660 2971 26BF F1F 1406040050640 260D 3002 EMLIN oc CL31°11 — NO SEEK COMPLETE INTERRUPT? 
2972 * 26C7 €2C5C50240C3D6D4 3002 
2573 2973 EMO7 EGU * 26CF 2703C5E3C540C905 3002 
2573 FOF7T406040E2C5C5 2598 2974 EMOTN oc CL41'07 ~ SEEK CMD DID NOT SET SEEK BUSY -TIO~8 2607 E3SCSDIDIESDTE3 3002 
257B 024063040440C4C9 2974 3003 * 
2583 C440D5D6E 340E2C65 2974 26DE 3004 EM12 EQU # 
258B £340£2C5C50240C2 2974 26DE F1F2406040C6C103 2709 3005 EM12N oC CL 44°12 - FALSE INTERRUPT PENDING -TIO- CONDITION? 
2593 E4E2E84060E3C9D6 2974 26E6 £2C540C9D5E3C5D9 3005 
259B 60 2974 26EE DIE4D7E34007C5D5 3005 
2975 * 26F6 C4C9D5C74060E3C9 3005 
259C 2976 EMOB EQU) & 26FE 066040C3D605C4C9 3005 
259C FOF8406040E2C5C5 25C8 2977 EMOBN oc CL45°08 - SEEK BUSY -TIO- WITH NO SEEK IN PROGRESS? 2706 €3C9D6D5 3005 
25A4 0240C2E4E2E84060 2977 3006 * 
25AC E3C9D66040E6C9E3 2977 270A 3007 EM13 EQU  * 
25B4 C840D50640E2C5C5S 2977 270A FLF3406040C5E7TD7 272F 3008 LM13N DC Ci 38°23 ~ EXPECTED SCAN EQUAL DID NBT CCCURT 
25B8C D240C9D540D7D9D6 2977 2712 C5C3E3C5C440F2C3 3008 
25C4 CTD9C5E2E2 2977 2714 CLDS40C5DB8E4C103 3008 
2978 * 2722 40C4C9C440D035D6E3 3008 
25C9 2979 EMCO —EQU) * 272A 40D6C 3C3E4D9 3008 
2509 FOF9406040C1E3E3 25FL 2980 EMOON oc CL41°69 ~ ATTACHMENT BUSY -TIO- DID NOT GO OFF? 3009 2 
2501 C1C3C8D4C505£340 290 2730 3010 EM146 €QU # 
2509 C2E4E2E84060E3C9 2980 2730 FLF4406040C5ETDT 2759 3011 EMI1GN DC CL42°14 - EXPECTED SCAN HIT -TIO— OFO NOT ocCcUR? 
25E1 066040C4C9C440D5 2980 2738 £5C 3€3C5C4460E2C3 3011 
25E9 D6E340C 7D640D6C6 2980 2740 C1D540C8C9E34060 30)1 
25F1 C6 "2980 2748 £3C9D66040C4C9C4 3011 
2981 # 2750 40D5D6E 340D6C3C3 3011 
25F2 2982 EMOA EQU 2758 €4D9 3011 
25F2 FOC1406040E405C9 2610 2983 EMOAN DC CL31°OA — UNIT CHECK OR NO-OP STATUS® 3012 ¢ 
25FA €340C3C8C5C3D240 2983 275A 3013 EM1L5 EQU  «@ 
2602 D60940D5D660D6D7 2983 275A F1F5406040E405C5 2781 3014 EMILSN OC CL40°L5S — "NEXPECTED SCAN HIT -—T1Q-— CONDITION? 
260A 40E2E3C 1E3ZE4E2 2983 2762 £7D7C5C3E3C5C440 3014 
2984 * 276A E2C03C1D540C8C9E3 30146 
2611 2985 EMOC EQU)* 2772 4060E 3C9D66040C3 3014 
2611 FOC3406040C1C4C1 2622 2986 EMOCN OC CLY8*OC — ADAPTER CHECK? 277A D6D5C4C9E3C906D5 3014 
2619 O7E3C50940C3C8C5 2986 : 3015 * 
2621 C3D2 2986 2782 3016 EM16 $$EQU 2 
2987 * 2782 F1F6406040C4C4C4% 279D 3017 EMLON DC CL28°26 — DDDR RESLOUAL INCORRECT? 
2623 2988 EMOD EQU) * 278A DI40D9CS5E2COC4ES 3017 
2623 FOC4406040E4D5C5 2638 2989 EMODN OC CiL25*OD ~ UNEXPECTED INTERRUPT ® 2792 €1D0340CS05C306D9 3017 
262B ETD7C5C3E3C5C440 2989 279A DSCSC3E3 3017 
2633 COD5E3C5D9D9E4D7 2989 3018 * 
263B £3 2989 279E 3019 EM17 —QU 
2990 * 279E F1F74G66040C4C4C3 2786 3020 EMLTN OC CL9°17 — DDCR® 
263C 2991 EMOE EQU) ¢ 27A6 D9 3020 
263C FOC54C6040C9D5E3 2666 2992 EMOEN DC CL43°OE — INTERRUPT WITH NO INTERRUPT BIT IN SNS® 3021 * 
2644 C5DIDIE4SDTE340E6 2992 27AT 3022 EM18 —QU oe 
264C C9E3C840D50640C9 2992 27A7 F1F8406040C4C4C3 27AF 3023 EMIEN DC CL9*18 = DDCr? 
2654 DSE3C5D9DSE4D7E3 2992 27AF CS 3023 
265C 40C 2C 9E 340090540 2992 3024 * 
2664 E2D5£2 2992 27B0 3025 EN19 EQU) ft 
2993 * 2780 F1F9406040C4C4C4 27B8 3026 EMLON DC CL9O29 — DDDE® 
2667 2996 EMOF EQu + 27B8 Cé 3026 
2667 F0C6406040C1C4C1 268F 2995 DC CL41°OF ~ ADAPTER CK ON RD DIAG SNS AFTER ORY © 3027 + 
266F 07E3C50940C30240 2995 2789 3028 EMLA EQU «# 
2677 D6054009C440C4C9 2995 2789 F1C1406040E4D5C5 27D2 3029 EMLAN DC CL26*LA —- UNEXPECTED SCAN EQUAL ® 
267F C1C740E2D5E24001 2995 27C1 ETD7C5C3E3C5C440 3929 
2687 C6E3C5D940C4D9E5 2995 27C9 £2C03C10540C5SD8E4 3029 
268F 40 2995 2701 C103 3029 
2690 E4D5C9E340C30240 2646 2996 EMOFN OC CL22°UNIT CK OR NO-OP STATUS? 3030 * 
2698 06D940D050660D6D7 2996 2703 3031 EM20 EQu _ 
26A0 40EZE3CLEZE4E2 2996 2703 F2F0406040E6D9C9 27E6 3032 EM20N oc CLZ20°20 — WRITE INHIBITED* 
2997 * 2708 €3C540C9D5C8C9C2 3032 
26A7 2998 EM10 EQU* 27E€3 CS9E3C5C4 ; 3032 
DATE 23AUG75 OSNOV75 LSMAR 76 010CT76 PROG ID C12-3DATE 23AUG75 OSNOV7TS LOMART5 OLOCT76 PROG ID Ci2-3 


EC NO. 827785 827827 827872 571931 PAGE 30 EC NOj 827785 827827 827872 571931 PAGE 30A 








IBM MAINTENANCE DIAGNOSTIC PROGRAN pee NO. 
C123 3340 FUNCTION TESTS — MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
3033 * 
27ET 3034 EM30 EQU * 
27E7 CSDODOGOFZFOFZET C7EE 3035 EM30A oc CLOSB®ERR 203X® 
27EF 406040D9C5C1C440 2801 3036 EM30N oc CL19® ~- READ IPL FAILURE® 
27F7 €9070340C 6C1C 9D3 3036 
27FF E4D9C5 3036 
3037 * 
DATE 23AUG75 OSNOVT5 19MAR 76 010CT76 PROS ID 
EC NG. 827785 827827 827872 571931 PAGE 


4247603 1BM MAINTENANCE DIAGNOSTIC PROGRAM 
31 


03 
03 


C12-3 
31 


C123 3340 FUNCTION TESTS - MOD 12 


ERR LOC OBJECT CODE 


2802 
280A 


280C 


2800 
2810 
2812 
2814 
2816 
281A 
281€ 
2820 
2822 
2824 
2828 
282A 
282C 
282E 


2830 
2832 
2836 


283A 


283E 
2841 


2842 
2844 


2846 
2848 


264A 


284D 
284F 
2851 
2853 
2855 
2857 
2859 
2853 
2850 
285F 
2861 
2862 
2863 
2865 


2 866 


DATE 
EC NO. 


ADDR 
0000000000000000 2808 
0000 
Fl 280¢ 
000001 280F 
0002 2811 
0003 2813 
0004 2815 
00000005 2819 
00000008 2810 
000A 281F 
0014 2821 
0050 2823 
00000100 2827 
015D 2829 
0280 2828 
04 AF 2820 
OF FC 282F 
FrFF 2831 
FFFFEFFF 2835 
TTT7FFAA 2839 

283A 

2830 
0003E8 2840 
00 2841 
2966 2843 
2839 2845 
2368 2847 
2878 2849 
FE6000 284C 

284D 
0008 284E 
000A 2850 
BFOB 2852 
020F 2854 
SBOE 2856 
O80E 2858 
8802 285A 
2009 285C 
0003 285E 
O00E 2860 
00 2861 
02 2862 
000 2864 
FF 2865 
8802 2867 
23AUG75  —- OSNOV75 
827785 827827 


PART NO. 4247693 
PAGE 31A 





STMT SQURCE STATEMENT 
3039 SESELSESAKSCSSSSSSKSL SS HAS SS RE RSIS HSE SA SAE CSE SCKARKASTRECKS SE VAKSELERKSRKEERE 
3040 * = 
3041 * CONSTANTS AND RESERVED STORAGE AREAS + 
3042 & A 
3043 SCH ERESESESESSHSETEEHES EERE SSSAOLEAESREREESSHESEREESRERCHEERRERAROERESREE 
3044 * 

3045 * CONSTANTS 

3046 * 

3047 NULLS DC LOXL1°00" 

3047 

3048 + 

3049 91 oc CLifie 

3050 * 

3051 Ph OC IL3*1¢ 

3052 P2 - oc IL2*2¢ 

3053 #3 oc IL2¢3° 03 
3054 P4 DC IL2°4# 

3055 PS oC IL@*5¢ 

3056 P8 DC 1L4°8¢ 

3057 Plu DC 1L2*10° 03 
3058 P20 DC IL2°208 

3059 P80 oc IL2°608 02 
3060 P256 oc IL4*256¢ 

3061 P349 oc 1L2*349° 

3062 P640 DC 1L2*640* 03 
3063 P1200 DC 1L2°11998 

3064 P4092 DC 1L2*40928 03 
3065 * 

3066 Nl OC IL2*-18 

3067 * 

3068 FFPIN DC GXLL* FF? SCAN TEST MASK 

3069 #* 

3070 WCPTN oC XL4*7777FFAAS WORST CASE TEST PATTERN 

3071 * 

3072 PATRN EQU) ® 

3073 DS XL4 TEST PATTERN TEMPORARY STORAGE 

3074 * 

3075 DC 1L3*1000° INTERVAL TIMER INITIAL VALUE 

3076 INTVL OC IL1*08 

3077 * 

3078 DGSNSS OC AL2(DGSNS) ADOR OF RD DIAG SENSE AREA 

3079 WCPTN@ OC AL2(WCPTN) ADOR OF WORST CASE TEST PATTERN 03 
3080 + 

3081 DOCR DC AL2(DOCF) INITIAL DOCR INITIALIZATION VALUE 
3032 ODDR oc AL2(DDDF) INITIAL DODR INITIALIZATION VALUE 
3083 ¢ 

3084 TIM3S DC XL3*FE60008 INITIAL VALUE FOR 3 SECONC TIMER 
3085 « 

3086 Fam nnn cn nn ne eee eee ee 
3087 3 SVP INTERFACE CONTKOL BYTES 

3088 * 

3089 SVPSEQ EQU. * SYSTEM RESET SVP CONTROL STRING 

3090 DC XL2*0008° X*00" ——> OP REG C 

3091 OC XL2°COOA® X*00* --> CP REG CR 

3092 DC XL2°BFOB® INDEX VALUE (8F) -=> OP REG Y 

3093 DC XL2*O20F¢ OP REG Y --> & REG -=-> D REG 

3094 DC XL2® 8BOE® D REG --> INDEX REG 

3095 oc XL 2° OB80E° SERVICE ACCESS CYCLE 

3096 OC XL2*°8802¢ RESET SERVICE MODE 

3097 OC XL2*2009¢ SYS RESET FLAG --> x REG 

3098 SVPREQ 0 XL 2*0003° SET SVP REQUEST 

3099 OC XL2*OCOE* EXECUTE FIRST MICRO~INSTRUCTION 
3100 K DC XLE*008 RESTORE K REG 

3101 DC XL1#02¢ 

3102 RUNMP OC XL2°OO0E® START MICROPROCESSOR 

3103 DC XLL°FFE ENL SVP STRING 

3104 * 

3105 K04 OC XL2*°8802° HALT MICROPROCESSOR 

LOMAR.6 OLOCT76 PROG ID C12-3 
627872 571931 PAGE 31A 





IBM MAINTENANCE DIAGNOSTIC PROGRAM 


(C123 
ERR LOC 


2868 
286A 
z86c 
286E 
2870 
2872 
2874 
2876 
2878 
287A 
287TC 


287E 
2880 
2882 
2884 
2886 
2888 
268A 
288C 
286E 
2899 
2892 


2853 
2899 
28E3 


28E4 
28E5 


28E6 


28E8 
7 BEC 
28Fi 
28F8 


28FD 
28FF 


2900 


2902 


2908 
2900 


290F 
2911 


2913 


2910 


2927 


DATE 
EC NO. 


3340 FUNCTION TESTS ~- MOD i2 


OBJECT CODE ADDR 
9802 2869 
ABO2 2868 
06008 286D 
000A 2867 
000B 2871 
010C 2873 
000C 2875 
020F 2877 
020D 2879 
C809 2878 
0002 287D 
287E 
2080 2387F 
2000 2881 
2-00 2883 
3300 2885 
2500 2887 
238F 2889 
2300 288B 
2780 288D 
2700 288F 
3F00 2891 
FF 2892 
2893 
2898 
28E2 
00 2863 
00 28E4 
00 28E5 
28E7 
28E6 
28EB 
28F0 
28F7 
28FC. 
28FE 
28FF 
2901 
2902 
290A 
290C 
290E 
2910 
2912 
2913 
291C 
2910 
2926 
2928 
2929 
23AUGTS OSNOV7S 
827785 827827 


KL2*9802° 
AL2*ABO2& 
XL2°0008°? 
XL2°OO04® 
XL2°O000B* 
XL 2*O10C? 
X¥L2°00CC?® 
XL2°O20F* 
XL 2*020B8 


AL2°C809?. 


XL2°*0002° 


& 
XL2°20868 
XL2* 20008 
XL 2*2FQ6° 
XL2*3300° 
XL2*2500° 
XL 2°*238F° 
XL2°2300° 
XL2'27808 
XL2*2700& 
XL2°*3F008 
XLL°FFS 


PART NOe 
PAGE 32 


RESET MICROPROCESSOR CLOCK 
StT SERVICE MODE 

X#Q0% ~—> GP REG C 

X*00* ==> OP REG CR 

X*00* ==> OP REG Y 

R4-R7 ~-> EXTERNAL ZONE REG 
R3-R7T =--> EXT ADDR REG (CEXTAR) 
Y REG --> A REG ~-> G REG 

D REG --> EXTERNAL REG 

CE MODE INDICATORS --> X REG 
SENSE ERRGk BYTES 


ATTACHHENT 
EXTERNAL 
REGISTER 
ADDRESS 
FABLE 


COMMON INDICATORS AND WORK AREAS 


& 
CL6 
CL74 
XL2* 00° 


XLZ'08 
XL2°0° 


XL2 
SwWS-1 


XL4& 


CLS 
CLT 
CLS 


RL2 
cil 


XL2 


% 
XL9O 


XL2 
XL2 


XL2 
XL2 


* 
XiL10 


* 
XL10 


XL2 


& 


STMT SOURCE STATEMENT 
3106 K034 DC 
3107 KO24 ole 
3108 C oC 
3109 CR oC 
3110 Y DC 
3111 LEXTZ DC 
3112 LEXTAR oc 
3113 LALUD DC 
3114 LEXT OC 
3115 CEMODE BC 
3115 3NS23 DC 
3117 * 

3118 EXTBL EQU 
3119 FIR DC 
3120 OC 
3121 SCN DC 
3122 OXC oC 
3123 FIG DC 
3124 DST DC 
3125 DC 
3126 FHF DC 
3127 DC 
3128 SBO DC 
3129 pc 
2130 * 

3131 

3132 * 

3133 * 

3134 MSG EQU 
3135 MSGA OS 
3136 MSGN DS 
3137 oc 
3138 # 

3139 IND DC 
3140 IND2 oc 
3141 *% 

3142 SHS DS 
3143 LINKID EQU 
3144 & 

31465 SSwsv DS 
3146 &% 

3147 CMD BS 
3148 CYL OS 
3149 HD DS 
3150 * 
3151 LPCNT OS 
3152 ERRCNT DS 
3153 *% 

3154 ADRPTR ODS 
3155 * 

.3156 AORTBL £QU 
3157 DS 
3158 * 

3159 IDDCR DS 
3160 IDDDR DS 
3161 * 

3162 RDDCR DS 
3163 RDDDR OS 
3164 *# 

3165 IDDCF eGJ 
3166 IDDCFN OS 
3167 * 

3168 RDOCF EQU 
3169 RDDCFN DS 
3170 * 

3171 SNS DS 
3172 * 

3173 WORK EQU 
19MART6 O10CT 76 
827872 571931 


ERROR MESSAGE 
BUFFER AREA 


PROGRAM INDICATORS 
PROGRAM INDICATORS 03 


DATA SWS SENSE AREA 
SWS 1 & 2 CONTAIN AMOP LINK CONTROL 


SECTION SENSE SWITCH STORAGE 
COMMAND NARE 


CURRENT CYLENDER ADDRESS 
CURRENT HEAD ADDRESS 


$3/3340 
$3/3340 


ROUTINE LOOP COUNTER 
ERROR RETRY COUNTER 


DRIVE SELECTION POINTER 


DRIVE SELECTION TASLE 


INITIAL DBCR VALUE 
INITIAL ODOR VALUE 


RESIDUAL DDCR VALUE 
RESIDUAL ODDR VALUE 


INITIAL DOCF 


RESIOUAL DDCF 


3340 ADAPTER SENSE INFO 


GENERAL PURPOSE 


PROG ID Ci2-3 
PAGE 32 


C123 


ERR LOC OBJECT CODE 


2929 


2920 
2931 
2935 
2936 
2937 
2938 
2939 


2934 


2938 
293C 


2930 
293E 
293F 


2940 
2941 


2942 


2946 
2947 
2949 
2948 
294C 
294D 
294F 


2950 


2951 
2952 


2953 
2954 
2955 


2956 
2957 


2958 


295C 
2950 
295F 
2961 
2962 
2963 
2965 


DATE 
EC NO. 


60060000 
o000ccc00 
00 
60 
00 
60 
oo 


80 


Fl 
co 


08 


&0 


00 


F2 
cs8 


04 
40 
20 


 23AUGTS 


827785 


ADDR 
292C 


2930 
2934 
2935 
2936 
2937 
2938 
2939 


293A 


293A 
293A 


2938 
293C 


293D 
293€ 
293F 


2940 
2941 


2945 


2946 
2948 
294A 
2948 
294C 
294E 
294F 


2950 
2950 


2951 
2952 


2953 
2954 
2955 


2956 
2957 


2958 


295C 
295E 
2960 
2961 
2982 
2964 
2965 


2966 


OSNOV75 
827627 


4247603 IBM MAINTENANCE DIAGNOSTIC PROGRAM 


3340 FUNCTION TESTS - MOD 12 


Bi a nce cam are cee cor ce re oe ee a Oe ee ae oe re a cs oe eee oo oe en eee ae a ec ame re oe ce ee ee re ee ee ee oe ee ee ee ee ee 





4247803 


PART NOY 

PAGE 328 
HORK AREA 

03 
EXPECTED REST CUAL DOUF 03 
ACTUAL RESTOVAL O 03 
ERROR CODE 03 
TAGI3 03 
FAGS3 03 
TAG23 03 
TAGB3 03 


START OF ORY DEPENDENT WORK AREAS 





DRIVE 1 INDICATORS AND WORK AREAS 


START OF DREVE 1 WORK BREA 
DREVE DEPENDENT ENMOICATORS 


DRIVE NUMBER 
ORIVE ADORESS 


SEEK COMPLETE INTERRUPT MASK 
UNIT CHECK MASK 
SEEK COMPLETE INTERRUPT RESET R BYTE 


$10 Q BYTE 
S10 R BYTE 


CURRENT PHYSICAL ACCESS POSITION 


FLAG VALUE 
CYLINOER ADORESS 
HEAD ADDRESS 
RECORD NUMBER 
KEY LENGTH 

DATA LENGTH 
MUMBER OF RECORDS 


De ee cee ne a ow ee eee een ene cae eae ce a ee EE OO a EE ee EN OE AN SE NRE LO RO SS RD ee me 


ORIVE 2 INDICATORS AND WORK AREAS 


STMT SOURCE STATEHERT 

3174 WORKN DS XL& 
3175 © 

2176 EXP oC XLG*O6 
3177 ACT oC KL&#08 
3178 CODE oc XL1*O° 
3179 TAGI3 DC XLEL*O8 
3180 TAG43 DC XL21*O8 
318i TAG23 DC XL Leos 
3182 TAG83 oC KLI®OF® 
3183 * 

3184 ORVEK EQU = 

3185 

3186 

3187 * 

3188 ORVWKi EQU ® 

3189 

31°90 DINO OC xi 12008 
3191 & 

3192 ORV oC cLitre 
3193 OP JADR DC xL21°CO* 
3194 * 

3195 SKMSK oc XL1°OB? 
3196 UCKMSK DC XL1°*8O! 
3197 SKRST OC XL 1°40* 
3198 ® 

3199 Q oS XL 
3200 R OS XL 
3201 

3202 PA cS XL4 
3203 * 

3204 Fr OS XL1 
3205 CC ' DOS XL2 
3206 HH OS XL2 
3207 RR DS Xtl 
3208 KL OS XL1I 
3209 OL os xL2 
3210 NN DS XL1 
3211 # 

3212 

3213 © 

3214 * 

3215 ORVEK] EQU * 

3216 * 

3217 DIND2 DC xL21°00° 
3218 * 

3219 DRV2 DC cils2é 
3220 DRVAD2 OC XL1°CB® 
3221 *® 

3222 SKASK2 dC XL1°04? 
3223 UCKKS2 oc XL1°40° 
3224 SKRST2 OC xXL1°20° 
3225 * 

3226 Q2 DS Xul 
3227 R2 oS Xil 
3228 * 

3229 PA2 oS XL& 
3230 * 

3231 FF2 OS xXtl 
3232 CC2 DS XL2 
3233 HH2 DS XL2 
3234 RR2 DS Xi1 
3235 KL2 DS XtL1l 
3236 DL2 BS XL2 
3237 NN2 OS XL1 
3238 # 

3239 

3240 * 

3241 OGSNS EQU * 
IOMARTS O10CTTS6 

827872 571931 


START OF DRIVE 2 HORK AREA 
DRIVE DEPENDENT INOICATORS 


DRIVE NUMBER 
DRIVE ADDRESS 


SEEK COMPLETE INTERRUPT MASK 
UNIT CHECK MASK 
SEEK COMPLETE INTERRUPT RESET R BYTE 


SIO Q BYTE 
SIO R BYTE 


CURRENT PHYSICAL ACCESS POSITION 


FLAG VALUE 
CYLINDER ADDRESS 
HEAD ADDRESS 
RECORD NUMBER 

KEY LENGTH 

DATA LENGTH 
NUMBER OF RECORDS 








3340 SUBSYSTEM SENSE DATA 


PROG ID Cl2=-3 
PAGE 32A 











IBM MAINTENANCE DIAGNOSTIC PRGGRAM ; PART NO. 4247603 IB™ MAINTENANCE DIAGNOSTIC PROGRAM PART NGe 4247603 
PAGE 33 PAGE 33A 
C123 3340 FUNCTION TESTS - MOD 12 €i23 3340 FUNCTION TESTS - MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LUC OBJECT CODE ADDR STMT SOURCE STATEMENT 
2966 297D 3242 DS XL24 280D Si83FDFFS5CCO0O 2813 3310 oc XL7*S1B83FDFF5C0000" 03 
3243 * 03 2814 S283FCFF5CO300 281A 33i: pc XL 7*5283FCFFSCO3008 03 
3244 Bonn nn nn nn nnn nnn nnn nnn nnn nn en enn nen ee ne e+ 03 2818 5383FCFF5CO200 2821 3312 oC XL7°S383FCFF5CO2008 02 
3245 * AC CODE TABLE c3 3313 + 03 
3246 * 03 2822 62837FFF600G00 2828 3314 BC XL7* 0283 7FFF60C000° 03 
297E 3247 ACTABL EQU * 03 2829 60837FFF608000 282F 3315 oc XL7*60837FFF 608000! 03 
Z97TE B283EFFFOGO000 2984 3248 oc XL7° 8283EFFFOOO000! 93 2836 6183FFFF&40000 2836 3316 OC XL7*61B3FFFF640600! 03 
2985 8383E7FFOO18CO 2988 3249 oC XL7*8383E7FFOOLECOt 03 2837 6183FFFF680000 2830 23i7 oc XL7°6183FFFF680000° 03 
298C SOS 26 2rF e015 00 eo as of Ata oreoe coc tacg: 03 2B3E S1B83FFFFECO000 2864 3318 DC XL7*6183FFFF6COOCG? 03 
2993 8583ELFFO01000 5 x i c3 3319 2 03 
299A 8683EOFFO0L300 29AC 3252 OC XL7* BO83EOFF 0013008 03 2845 O983FFFFE700000 2848 3320 oc XL7*0983FFFF70G000° 03 
29A1 S781EOFFGZ21200 29A7 3253 DC XL7* 8781 £0FFO21200° 03 264C O983FFFF74C000 2852 3321 BC XL7°0983FFFF740000¢ 03 
2948 B881ACFFOU1200 29AE 3254 oc XL7® 8881 AOFFOD1200° C3 2853 O983FFFF780000 2859 3322 oc XL7°0983FFFF 7800008 03 
29AF 89812GFF005200 2985 3255 DC XL 7°898120FF005200* 53 = 285A 7183FDFF7£0000 2860 3323 OC XL7*7183FDFF7CO000® 03 
oc Bre eececcene ce a8 ee Or ORtiGReLcoesocs Be 2862 7285FDFF7COZ00 2867 3324 oc XL7" 7283FOFFYCO200¢ 93 
F m 
29C4 9883FF7FO40080 29CA 3258 DC =—-_—s XL 7" G8B3FF7FO400808 03 3325 03 
29CB 9S83FF5F040020 2903 3259 pc XL7°9983FF5F04002Ct 53 
2902 GA83FF4F040010 29D8 3260 DC XL7*9A83FF4FO400108 : 03 
2909 SBO3FF4F840000 29DF 3261 DC XL7° 9BO3FF4F 8400008 03 
29E0 9CO3FF4F040000 29E6 3262 oc XL7* 9CO3FF4F040000* 03 
29E7 8183FFFFO80C00 29ED 3263 DC Xi7*8i83FFFFO80000' 03 
29EE 9183FDFFOCOCO0 29F4 3264 Dc XL7*9133FDFFOCO000* 03 
29F5 9283F5FFOCOAOO 29FB 3265 oc XL7*9283F SFFOCOAGOS 03 
29FC 9381F5FFOEOZ00 2A02 3266 DC XL7"9381F5FFOE0200° 03 
ZAO3 S481E5FFOCO2Z00 2A09 3267 DC xXL7*9481E5FFOCO200° 03 
2AOA O581E5FFOC1200 2A10 3268 oc XL7* 9581E5FFOCi200° 03 
3269 * 03 
2A11 1883FFFF100000 2A17 3270 DC XL7* 1883FFFF100000° 03 
2A18 O983FFFF140600 2A1E 3271 oc XL7°0983FFFF140000° 03 
2A1F O983FFFF180000 2A25 3272 Dc XL7*0983FFFF180000° 03 
2A26 1LI83DFFF1CO000 §=©2A2C 3273 Dc XL7*1183DFFFICOO00® 03 
2A2D 1283DDFF1C2000 2433 3274 DC XL7*1283DDFF1C2000° 03 
2434 1383CDFF1C3200 243A 3275 DC XL7*1383CDFF1C3200! 03 
2A3B 1483C5FF1C2200 2A41 3276 oc XL7°1483C5FF1C2200° 03 
2442 1583CLFFIC2A00 2448 3277 oc XL7*1583C1FFIC2A00¢ 03 
2449 16C3C1FF9CZE00 2A4F 3278 Dc XL7*1603C1FF SC2E008 03 
2450 1703C1FFOC2E00 2A56 3279 DC XL7*1703C 1FFOC2E00* 03 
3280 * 03 
2A57 O983FFFF200000 2A5D 3281 oc XL7* 0983FFFF200000° 03 
2A5E O983FFFF240000 2A64 3282 DC XL7*0983FFFF240000° 03 
2A65 0983FFFF280000 2A6B 3283 OC XLT*0983FFFF280000° 03 
2A6C 2183DFFF2C0000 2A72 3286 pc XL7°2183DFFF2C0000° 03 
2A73 2283D7FF2C2000 2A79 3285 DC XL7*2283D7FF2C2000° 03 
257A 2383D3FF2C2800 2A80 3286 DC XL7¢2383D3FF2C2800* 03 
ZA81 2483D2FF2C2CO0 2A87 3287 oc XL7*248302FF2C2C00° 03 
2488 268302FF2C2D00 2A8E 3288 DC XL7* 2683D2FF2C2D00* 03 
3289 + . 
2A8F O883FFFF300000 2a95 3290 DC XL7*0883FFFF300000°¢ 03 
2A96 O983FFFF340000 2A9C 3291 DC XL7* 0983FFFF340000° 03 " 
2A9D O983FFFF380000 2AA3 3292 oC XL 7" O983FFFF 380000" G3 
2AA% 3183DF5°53C0000 2AAA 3293 DC XL7°3183DFFF3C000C® 03 
2AAB 3283D7FF3C2000 2AB1 3294 DC XL7"3283D7FF3C2000¢ 03 
2AB2 3383D3FF3C2800 . 2A88 3295 Dc XL7"3383D3FF3C2800¢ 03 
2AB9 3483D2FF3C2C90 2ABF 3296 pc XL7°348302FF3C2CO0° 03 
2ACO 3583D2FF3C2D00 2AC6 3297 oC XL7"3583D2FF3C2000 03 
3298 * 
2AC7 O983FFFF400000 2ACD 3299 oc XL7*°0983FFFF400000° 03 
Z2ACE O983FFFF440000 2AD4 3300 oC XLT" OS83FFFF440000° 03 
ZADS O983FFFF480000 2ADB 3301 pc XL7* OSB3FFFF480000° 03 
Z2ADC 4183FDFF4CO000 2AE2 3302 vc XL7"4183FDFF4C0000' 03 
2AE3 4283F5FF4COA00 2AE9 3303 DC XL7"4283F5FF4COA00? 03 
2AEA 4383ES5FF4C0200 2AFO 3304 pc XL7*4383E5FF4C0200° 03 
ZAFL 4483E5FF4C1200 2AF? 3305 DC XL 7°4483ESFF4C1200¢ 03 
3306 * 
2AF8 OAS3FFFF500C00 2AFE 3307 DC XL7*OA83FFFF500000° o3 
2AFF O983FFFF540000 2805 3308 oc XL7*0983FFFF540000° 03 
2806 0983FFFF580000  2B0C 3309 c XL7*OS83FFFF580000° 03 
DATE 23AUG75 os 
cc Nes RST Tae ee eo aeee ee PROG 1D C12-3 DATE 23AUG75 OSNOV75 19MART6 010CT 76 PROG ID C12-3 
PAGE 33 EC NO. 827785 827627 827872 571931 PAGE -33A 





IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 4247603 Jem MAINTENANCE | 
DIA 


PAGE 34A 


C123 3340 FUNCTION TESTS -— MOD 12 C123 3346 FUNCTION TESTS - OD 12 





ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
a. . 334G SHERESHESERSEHSE SES SSTESSSSARRELSTES TESS HAASE HS SASSSSSHSSSESERERAESHSAKES 
eon mmm cm oe enn ener oa a 3345 * - * 
3329 # e 
2B88 3330 ORG 52,0 ##% PROGRAM MAINTENANCE NOTE x 03 ep _ SYMBOL DEFINITIONS : 
3331 * CDOCF AND DDOF MUST START 3348 FESS SSSESS EASE RISSSSASSSSSESSHSROSS SHEASSSS ALEK SASHES SSASSS SACRE SHE 
3332 ; ON EVEN ADDRESS BOUNDARY aaaGi is 
3 % 
2B68 3334 DDCF EQU) DDCF AREA age ¢ repens 
BESE seu eee HS. UXETG 0001 3352 XR1 equ  xtoRe INDEX REGISTER 1 
@ e 
2878 3337 [DOF EQU ODDF AREA 0002 33 XR2 EQU  xX*02 INDEX REGISTER 2 
28758 3B77 ee * DS 4096XL1 a5 0004 3355 PSR EQU X+048 PROGRAM STATUS REGISTER 
tc 
eas sake SRG. <KiPEERMpeGeRENEe “PLAC -FEAUERMUNROaWERE . 0008 ds ARR EQU X08 CURRENT LEVEL ADDRESS RECALL REG 
ooen WHERE MICRO-CODE RESIDES 03 0020 3358 PIAR EQU  x*208 PROGRAM LEVEL INSTRUCTION ADOR REG 
3342 % O3 3359 * 
3360 9m ~ nme rn nw a a ee ee + ee eee 
3361 * COMMON SENSE SWITCHES 
3362 * 
0004 3363 S.WOS EQU X04 USE ALTERNATE PRINTER (2277 CRT) 
3364 © 
9965 @5<4 552555 5ee ese eee eee ceeeee eee ete renee eneeen sions. 
3366 * SECTION SENSE SWITCHES 
3367 3 
0040 3368 SSH1L £QU xX*GO® INHIBIY TESTING ON DISK DRIVE 1 
0020 3369 SSH12 EQU  x*208 INHIBIT TESTING ON DISK DRIVE 2 
3370 # 
0020 3371 SSWIA EQU  Xx*z08 USE DRIVE 1 ONLY 
0010 3372 SSHIB EQU  x*10° USE DRIVE 2 GHLY 
3373 4 
0040 3376 Sfw2) EQU X*408 INHIBIT WRITE TESTING ON DRIVE 1 
0020 3375 SSk22 EQU X20 “YNHIBIT WRITE TESTING ON DRIVE 2 
3376 
0001 3377 SSW2F EQU xX*O18 ENABLE AMOP (SECTION C19) 
3378 = 
BD 1S: a i eh ee 
3380 « MESSAGE / HALT IDENTIFIERS 
3381 * ° 
C100 3382 HiTOO EQU xX*C100° NO HALT 
C101 3383 HLTOL EQU  X®C1O1* COMMON 3340 ERROR HALT 
CiE2 3384 HLTE2 EQU X*C1E2* SSW 11-12 OR 14-18 INVALID 02 
ClE% 3385 HLTES EQU X*ClES* SELECT DRIVE TO BE INITEALIZED 
3386 * 
RSET Wemee nme a neamee be wees eel ieedehewe nese cate cee eee 
3388 * COMMON PROGRAM INDICATORS (IND) 
3389 * 
0080 3390 HUNG EQU  _x*B0° HANG CONDITION OCCURRED 
0040 3391 HLTSW EQU X#408° ERROR HALT AFTER TESTING ALL DRIVES 
0020 3392 INTERR EQU  x*208 ERROR DETECTEO IN 3340 INTERRUPT RIN 
0010 3393 DRVERR EQU  x®*10° UNIT CHECK DETECTED IN INTRP RIN 
0008 3394 TIDERR £QU  xX*OB8* 410 INTRP PEMDING FAILED 
0004 3395 OPEND EQU X°04? OP END INTERRUPT EXPECTED 
0002 3396 SKEND EQU xX*O2° SEEK COMPLETE ITERRUPT EXPECTED 
0001 3397 SNSAVL EQU x®*Ol® READ SENSE DATA AVAILABLE 
3398 
S399: Ws Sa ee in eet eas aes eee eee eee eags 
3400 * COMMON PROGRAM INDICATORS (END2) 03 
3401 ¢ 03 
0080 3402 DDDFER E£QU xeBoF RESIDUAL DODF ERROR INDCATOR 03 
9G03 Pasa sos ss aie a ae eee eee --- 
3404 * DRIVE DEPENDENT INDICATORS (DINO? 
3405 * 
0080 3405 CEDM EQU x*80° CE DATA MOOULE MOUNTED 
0040 3407 LPSW EQU  X*40? DRIVE LOOP INDICATOR 
0020 3468 HAEDEF OU x#208 . DEFECTIVE EVEN HOME ADDRESS 
0010 3409 HADDEF EU x*1LO5 DEFECTIVE ODO HOME ADDRESS 
0008 3410 NOWR EQU  x*GBt INHIBIT #RITE TES7 ING 
0001 3411 SW EGU xP Ole GENERAL PURPOSE PROGRAM INDECATOR 
DATE Z3AUGTS OSNOVTS 19MARTE C1lBCT7sS PROG ID Ci2-3 pate PRAUETS CaNaovers ISMARTS OLGCTTS PROG 76 CiZ2-3 
EC NO. 827785 827827 827872 S7iC31 PAGE 34 e¢ ND. BoTTas 827827 B27872 571931 PAGE ASA 
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C123 


ERR LOC OBJECT CODE 


DATE 
EC NO. 


23AUG75 
827785 


O5NOV7 
827827 


ADDR 


0086 
0020 
0001 


0940 
0010 
0008 
0004 
0002 
o00c1 


0208 
020° 
C204 
0206 
0Z0C 
8200 


G212 
0216 
O21A 
OZLE 
0222 
C22k 


0232 


4009 
6C00 


ooBs 
oDRee 
2883 


FFFF 


5 


3340 FUNCTION TESTS - MOD 12 


C223 


SYMBOL 


ABEND 
ACT 

AC TABL 
ADRPTR 
AGRSTP 
ADRTBL 
aMoP 

&£MOPGO 
AMOPID 
AMCPLD 
AMGPLE 
AHOP SW 
AWMOPX 
AMOPXI 
AROPX2 


é 


O3 CYL 

03012 

O3 C17 

03 C19 

03 DASDI 
DASDIX 
DASDX2 
DASCOL 
DASDO2 
DASDO3 
DASDO4 
DASDOS 
DASDO6 
COCF 
POCR 
DOOF 


DODFER 
OCOR 
DELAY 
DGSENS 


2-2 CATE 


PART NO- 
PAGE 
STMT SOURCE STATEMENT 
3412 * 
3413 %------------~-- +--+ + + ee ee en een ene nen eee 
3414 # 3340 PROGRAM COMMUNICATION AREA (COM) INDICATORS 
3415 * 
3416 ADRSTP EQU X*BOF MICROPRGCESSOR ADDR STOP ENABLED 
3417 MPLFLG EQU x*20" MECRO-PROGRAM LOADED 
3418 AMOPSW EQU XO. AMOP IN EXECUTION INOICATOR 
3419 * 
3420 #---~-~-~—--~~-~-------------~---------- ronan ean n ene no e+ = ++ 
3421 * BIT POSITION SYMBOLS 
3422 * 
3423 BIT1 fou xt4ot 
3424 BIT EQU = x*108 
3425 BITS EQU =x 8088 
3426 BITS EQU = XPOFE 
3427 BITE EQU  xtaQ2t 
3428 BIT? EQU = x#OL® 
3429 * 
3430 #--~----~-~~~~-—-- ~~ - +--+ ee ee 
3431 * DCP SECTIGN REFERENCE TABLE 
2432 
3433 SBYTEQ EGU x*G208° COMMON SENSE SH#ITCHES 00-07 
3434 SEYTER EGU x*0209% COMMON SENSE SWITCHES 08-0F 
3435 SBYTE2 EGU xXx*O20A! SECTICN SENSE SKETCHES 10-17 
3436 SBYTE3 EQU x*O208t SECTION SENSE SMITCHES 18-16 
3437 SBYTES EQU  x?0z0C° SECTION SENSE SWITCHES 20-27 
3438 SBYTES f£0U  x*O20D8 SECTION SENSE SWITCHES 23-26 
3439 % 
3440 TEST EOU =—- XFOZL2" CHECK CE CONSOLE SKITCHES 
B4&1 LINK EQU = x? 226! LINK 7G NEXY ROUTINE GR SECTIGN 
3442 PRINT EQU -XTOZEAS PRINT A MESSAGE 
3443 UNPACK EQU X*OZiEF UNPACK DATA - HEX TO EBCDIC 
3444 HALT EGU X°O223? HALT AND DISPLAY HALT EDENTIFIER 
3445 LOAD EQU  x*G22Aa° LOAD NEXT SECTION GR RECORD 
3446 
3447 UTAB Eou  x*9232" DCP UDT TABLE 
3448 # 
3449 #---~----- ~~~ re an ee nn 
3450 + OTHER REFERENCES EXTERNAL TO THIS SECTION 
345; * 
3452 AMGP EQU =. K® 4000" ADAPTER MANUAL GPERATIONS PROGRAK 
3453 LOR EQU =X EC O08 3340 MICROCODE LGADER PGK - MOD 1 
3454 + 
3455 Bea en ee ee ne ee ee ee 
3456 MISCELLANEQUS 
3457 € 
3458 PTR EQU  ROSHS3 POINTER 1 
3459 PTR2 EGU ROSH#S PGIN-ER 2 
3460 DLY256 EGU SCN DELAY COUNT FOR 256 MILLI-SEC 
3461 * 
3462 END 
19MART6 OLOCT 76 PROG ID Ci 
827872 571931 PAGE 


35 EC NO. 





neon ace MAINTENANCE DIAGNOSTIC PROGRAM 


2340 FUNCTION TESTS ~ MOD i2 


~4 


bod OPP LO b> Yr Ol YO wD > b> Pp 


PPO PR bw OOOO OO pw PW py Pp P 


PPP PPrPrrPrrrrprprp yy PP 


rPrPrn 


LEN Vv 


004 
004 
COL 
002 
001 
eo) 
O01 
004 
COZ 
C04 
004 
0Ci 
004 
004 
oc4 
001 


004 


004 
C03 
GGs 
004 
O03 
003 
ool 
ool 
ool 
692 
O01 
ool 


002 
002 
062 
oo] 
002 
005 


601 
o0% 
002 
007 
001 
602 
002 
004 
004 
004 
004 
G05 
004 
004 
003 
003 
001i 
002 
001 


ool 
002 
004 
001 


23AUGT 
827785 


ALUE 


1560 
2934 
297E 
2901 
0080 
2902 
4060 
2962 
OALE 
2047 
201€ 
000i 
2G06E 
2066 
206A 
6608 


1492 
i3C8 
LBFE 
442A 
144¢ 
1474 
GO46 
0910 
sooe 
0004 
9062 
Ce0i 


2860 
2948 
295E 
0689 
2878 
25F0 


2935 
GALY 
286F 
23F7 
o0ce 
20A8 
2057 
LF42 
EFBL 
1F AD 
1F83 
1F 8B 
LFSB 
1F9F 
1FA3 
lFAA 
2668 
2847 
2878 


0080 
2849 
2108 
2966 


5 


DOEFN 


i427 
3177 
3247 
3254 
34&i& 
3156 
3452 
272% 
0032 
2708 
2692 
3418 
2729 
2726 
2727 
3354 


1225 


1228 
L234 
1252 
i271 
1286 
1306 
3423 
3424 
2425 
3426 
2427 
3426 


3198 
3205 
3232 
3406 
BiLS 
3147 


3178 
0026 
3109 
3148 
G007 
2758 
2716 
2581 
2624 
2622 
2605 
2608 
2613 
2615 
2617 
2620 
3334 
3081 
3337 


3402 
3082 
2801 
3241 


O5NOV75 
827827 


REFERENCES 

1422 

0232% 6306 

1128 

1289¢ 1337 

2783 

1008 i697 

2765 2724 

2706 

2702 

2703 

4237 614600 

1236 

2692¢ 2695 

2697 

26984 

1225 14469 

L777?) 61769 

i$S3 2418 

005i 0085 

0804 6857 

12322 i389 

1372 

1304 

i258 1287 

12730 «(1262 

1293 

O610 0622 

LizZ4 24996 

2610 

1407 2936 

1758 

0622 68S 

2343 2378 

2831 

i519% 

1405 1496 

2031 1035 

1451*% 1469s 

RTSit 1807 

1155* i152 

O¢90a* 1236 

28332 2834 

24587 1473% 

2742 2725 

2702 2705 

2008 2086 

2581* 

2582¢ 2618 

2594 

2603 

2587 2599 

2601% 2605% 

3081 

1249 1368 

0565* 0566 

O672% 0687 

3C0$2 

0233 0303 

0918 0951 

2797 

3124 1125 

2238* 2392 
19MA? T6 
827872 


CROSS-~REFERERCE 


0612¢ O507¢ 2509 

1345¢ 13508 2589 

1254 288 2349 

2066 2202 

1466 1542 1561 

2865 1825 1854 

2581 2639 2682 

Giz! Oi56 260 

100% 1093 

G68i G704 G62 

2592 

2460 

0684 O710 O711 

2407 2586 2798 

1766 

1242 2805 

L551% 1563% i591 
1827* 18562 i968% 
1239 1432¢ 2760 

2828% 2839 

1478& 4526% 2440 

2611 

0566* 0567*% 06014 
0692 G707 07508 
0413 6508 2499 

0966 1250 1369 

1130 1231 1132 

2395 2539 2544 

Oi0CTT6 

571931 


1589 
1866 
2692 
Gz67 


0786 


1621% 
18995 


2754 


0663 
0751 


1133 
2549 


PART NO. 4247803 
1 -~PAGE 35A 
1619 1642 1663 L702 1734 1748 
1@¢7 3909 1922 26544 1956 1968 
2728 2774 2822 
0339 0375 0447 G550 0668 9735 
2118 1407 1416 2140 2196 2338 
1644% 1665% 1704 17367 17508 1779s 
19114 1923® 1946% 1956% 2439 
2783 
056% 0664% 0665* 0666% 0667% 0672 
O751% 0752 0753 0765 0780 1040% 
2002* 2232% 2233 2233* 2235% 2237% 
2554 2559 2564 3078 
PROG ID C12-3 
PAGE 35A 
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PAGE 36 * PAGE BAA 
C123 3340 FUNCTION TESTS - MOD 12 
C123 3340 FUNCTION TESTS -— OD 12 
CROSS-REFERENCE CROSS RECERENEE 
~ SYR F REFER 
SYMBOL T LEN VALUE DEFN REFERENCES SARGE ST REN VALUE: “DEEN ret enees 
EM16 A OOL 2782 3016 
Sa A 002 2843 3078 1115 2354 2358 eo 
Oran A 001 293A 3190 C278 0343 0382 0454 0815 1264% 1269* 1279% 1284% 1306* 1387 13884 oles : aae aoe oats 2289 2295 2302 2309 i 
pe lep aa tees aR tee 1405* 1490 1760* EML7N & 009 27A6 3020 2296 
DL A 002 294€ 3209 0223 0299 0403 1039% 1061* 1576% 1601 1608 1633% 1680 1687 17094 Ele becaciesac Jagos eos 
1798* 1814 1841 1882 : €419 A 001 2780 3025 
DLYLP A 004 210C 2802 2803 -EM1LON A 009 2788 3026 2316 
DLY256 A 002 2883 3460 0939 —EM20 A OO] 2703 3031 
DL2 A 002 2964 3236 EM20N A 020 27£6 3032 2322 
DRV A 001 293B 3192 2438 ‘EM30 A OO} 27ET 3034 0978 
DRVADR A CO1 293C 3193 1117 1986 1988 1989 2348 EM30A A O08 27EE 3035 0909* 0949% 0964* 0969* 6971 
DRVAD2 A 001 2952 3220 EM30N A019 2801 3036 0978 0979 
DRVERR C 001 0010 3393 1375 2388 2613 -ERKCNT A 001 28FF 3152 1247* 1325 1328 1335* 1402 1413% 1415 14232 
DRVWK A col 293A 31384 0038 é ERRPRT A 004 1£12 2418 1403 . 
DRVWKL A 001 293A 3188 1260 ERRPX A 004 1F3E 2572 2418% 2523 
DRYWK2 A 001 2950 3215 1275 ERRPOL A 004 1E2F 2431 
DRV2 A 001 2951 3219 , ERRPC2 A 004 1E£3 2522 2500 
DST A 002 2889 3124 : ERRXX A 003 1026 2328 2011 2092 2156 2254 2260 2266 2272 2278 2284 2317 
DXC A 002 2885 3122 -ERRXXA A 00% 103D 2338 2331 2334 
Dl A OOL 280C 3049 1413 1478 1483 1526 1531 : ERRXXB A 00S 1058 2348 2342 
EMXX A 001 249E 2949 ERRXXC A 004 1081 2377 
EMXXN A 006 24A3 2950 2420 ERRXXD A 004 I1D0C1l 2383 2346 
EMOA A 001 25F2 2982 ERRXXE A 004 1DF2 2400 2389 
EMOAN A 031 2610 2983 2202 ERRXXF A 006 12BA3 2373 2375 
£MOC A O01 2611 2985 ; _ERRXXG A 004 1£02 2406 2374 
EMOCN A 018 2622 2986 2209 ERROA A 006 1€35 2202 2392 2394 2396 
EMOD A COL 2623 2988 ERROC A 0Ow 1C3F 2208 2141 2195 2339 
EMODN A 025 2638 2989 2217 -ERROD A 006 1€54 2217 2404 
EMOE A OOl 263C 2992 ERROE A 006 1IC5E 2223 2402 
EMOEN A 043 2666 2992 2223 ERROF A 006 1€68 2229 2379 2408 
EMOF A O0Ol 2667 2994 > ERROFA A 00% 1€74 2232 #2212 
EMOFN A 023 2686 2996 2230 ERROO A 00& 188D 2115 2020 2027 2362 
EMOO A GOL 24A4 2952 ERROl A 006 189C 2122 2013 2369 
EMOON A COS 24AB 2953 2116 7 §ERROZ A 006 1IBAS 2128 2033 
EMO1 A 0Ol 24AC 2956 , ERRO3 A 006 IBAE 2134 2036 2359 
EMOIN A 039 2402 2956 2122 ERRO3A A 003 1BBA 2137 2129 
FMO2 A 001 2403 2958 'ERROG A 006 18CC 2148 2056 
EMO2N A 032 24F2 2959 2128 2134 ERROS A 006 18DB 2155 2049 
EMO3 A 001 24F3 2961 ERRO6 A 006 1BE5 2161 2059 
EMO3N A 009 24FB 2962 2135 >ERROT A 006 I1BEE 2167 2064 
EM04 A OOL 24FC 2964 ERROB A 006 18F7 2173 2072 
EMO4N A 031 252A 2965 2115 2149 ERROBA A 006 IBFD 2175 2162 2168 
EMOS A OOL 25138 2967 'ERROBB A 00% 1C03 2177 2180 
EMOSN A 046 2548 2968 2155 ERROBC A 003 1014 2182 2178 
EM0O6 A001 2549 2970 ERROO A 006 1C17 2187 2077 2352 2410 
EMO6N A 042 2572 2971 2161 1 ERROOA A 004 1C1D 2189 2150 2182 
EMO? A 001 2573 2973 ERROOB A 004 1C25 2192 2117 2123 
EMO7N A 041 2598 2974 2167 ERR1LA A 006 1013 2316 0763 0778 
EMOS A OOL 259C 2976 }ERR1O A 004 10698 2247 2084 
EMO8N A 045 25C€8 2977 2173 ERR1?} A 006 1CAC 2259 2250 
EMO9 A OO1L 25C9 2979 ERRi2 A O06 1CB5 2265 2247 
EMOSN A 041 25F1l 2980 2187 /ERRI3 A 006 ICBE 2271 0611 0623 9682 90705 
EMIA- A 001 2789 3028 ERR14 A 006 ICC? 2277 0608 0620 0679 0702 0760 O775 
EM1AN A 026 2722 3029 2316 ERRL5 A 006 1CD0 2283 0573 O561 0589 0597 ’ 
FM10 A OCl 26A7 2998 ERR16 A006 1CD9 2289 1537 1582 1612 1693 1725 i767 1818 1845 1888 1935 
EMLON A 024 26BE 2999 2252 ERRIi7T A 006 1CE3 2295 2098 
EMLL A001 26BF 3001 . . ERRI8 A 006 1CF3 2302 022% 0300 0404 1540 1573 1602 1679 168% 1720 41722 «+LT7O 1815 
EM1LIN A 031 26DD 3002 2259 1842 1883 
EM1L2 A 001 26DE 3004 ERR1G A 006 1003 2309 0235 0312 0415 0510 0688 0693 0708 0766 07681 
EML2N A 044 2709 30095 2265 ERR20 A 006 LDIC 2322 2398 
EM13. A 001 270A 3007 EXP A 004 2930 3176 0231% 03072 0411% 0506* 2504 
E413N A 038 272F 3008 2271 EXTBL A GOL 287E 3118 2825 
EM1é & GOl 2730 3010 FASID A OC2 O0A20 0033 
EM14N A 042 2759 3011 2277? : FF A O0O1 2646 3204 
EM15 A O08 275A 3013 FFPVTN A OO1l 2835 3068 0687 0692 07685 
EMI5N A 040 2781 3014 2283 
: DATE 23AUGT5 OSNOVTS LSMARTS C1QCT76 PROG 10 C12-3 
DATE 23AUGTS5 O5NOV75 19MAR 76 OLOCT76 PROG ID Ci2-3 
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ean aca PART NO. 4247603 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247603 
IBM MAINTENANCE DIAGNOSTIC PROGRAM pace as PAGE 37A 
; a . 
C123. 3340 FUNCTION TESTS — MOD 12 . C123 3340 FUNCTION TESTS - MOD 12 . 
CROSS-REFERENCE CROSS-REFERENCE 
SYMBOL T LEN VALUE OEFN REFERENCES SYMBOL T LEN VALUE DEFN REFERENCES 
FF2 A OOL 295C 3231 a MRDROO A 005 2427 2927 1591 
FHF A 002 288D 3126 MRDSNS A 005 2445 2933 4750 
FIG A 002 2887 3123 PRDVKD A 005 2438 2931 1704 
FT A 002 287F 3119 MRECAL A 005 2413 2923 145i 
HAEDEF C 001 0620 3408 MSCANE A 005 2672 2942 1911 
HALT C001 0222 3444 0982 1019 1310 1208 1301 1358 1434 MSCANH A 005 2477 2943 1923 
HAGDEF C 001 0010 3409 MSCHRE A O05 247C 2944 1946 
HD A 005 28FC 3149 1459% 1474 1483* 1531* 2441 MSCNRH A 005 aut eee ae 
* 1542 1797% MSEEK A 005 2418 
ae : ooe eaeo a245 ere: ° SG A 001 2893 31346 2438% 2439% 24408 2441 2646 2451 2453% 2458 2463 2468 24778 2482 
HLTE2 C 0021 C1E2 3384 1299 1302 2487 2492 2540 2545 2550 2555 2560 2565 
HLTE4 C O0lL CLE4 3385 1017 1020 1108 1111 MSGA A 006 2898 3135 2115* 2116*% 2122# 2128% 21348 2135% 21498 21558 2161% 2167% 2173% 21878 
HLTSH C 001 0040 3391 1355 1361 1424 2202* 22098 2217% 2223% 2230€ 2252¢ 22598 22658 2271% 2277% 2283% 22a¢% 
HLTOO C GOL C100 3382 2Ti2 2722 2752 22958 2256% 2302% 2303% 2309% 2316% 23168 23228 2420% 
HLTOL C 901 C€iGi 3383 0980 0983 1286 1209 i359 1435 2429 SGN & 074 28£2 3136 1997 L98S7% 2148 2168* 2208 2208 2229 2229% 2386 23862 2428 3436 
HUNG C O0O1 9080 3396 0921 0928 2019 2026 2055 2361 2368 2657 2672 2436* 2673 2475 2475% 2497 2525 2525 2570 
IOOCF A 001 2913 3265 M5GOA A OOl 22A0 2891 1015 1106 
IDDCFN & 010 291C 3166 1539 1769 1992% 2467 MSGOAS A 633 220D 2892 1102. 
IDDCR A OO2 290C 3159 O172* 1249%* 1368* 1994 2016 2032 2694 2097 2422 2457 MSGOAN A 045 2Z2FC 2894 2G15 1016 1106 1107 
IDDDR A 002 290€ 3160 0060% O173* 0226 C0241 0242* 0302 C317 O318* 0406 0421 0422* 0468 MSGCB A OOl 22FD 2894 2534 
0476%* 0482% 0498 0669 0684 O710 O711* 31053 1250* 1369% 1536 L575 MSGOBN A 026 2331 28°98 2524 2535 
1606 3685 1724 i757 1762 #1817 1844 1887 1934 2023 2035 2462 MSGOlL A GCl 2186 2863 2750 
Ind A O0l 2864 3139 OSZ21 0928 1245% 1355 13618 1374* 1375* 1424% 2010 2619 2026 2041 MSGOiIN A G19 2198 2864 2750 2752 
2046* 2047* 2055 2063 2068 2088 2091 2177 2240% 2249 2320 7362 MSGG2 & 001 2199 2866 2716 
2368 2381* 2383 2388 2522 2593 2598 2602* 2606* 2613* 2615% 2657% MSGO2N A O19 21AB 2867 2710 27Li 
2672% MSGO3 A 001 21AC 2869 2720 
ING2 & 001 28E5 3146 0233%* 0309% 0413% 0508* 1246* 2499 MSGO3N A O17 21B8C 2870 2720 2721 
INTERR C GOl 0020 3392 1375 2010 2091 2330 2383 2615 MSGO& A LOL 2218D 2872 1297 
INTVE A GOl 2841 3076 MSGO4N A042 21E6 2873 1297 3298 
K A 0C1 2861 3100 1311 1380 2782% 2785* MSGOS A O01 21E? 2875 1328 1332 
KL A 001 294C 3208 1607 1686 MSGO5N A 025 21FF 2876 1332 1333 
KL2 A 001 2962 3235 MSGO6 A OOL 2200 2878 1429 
K024 A 002 286B 3207 2829 MSGO6N A C50 2231 2879 1429 1430 
KO034 A CO2 2869 3106 2828 MSGO7? A OO1L 2232 2881 1420 
K04 A 002 2867 3105 2827 MSGC7N & 028 224D 2882 1420 1421 
LALUD A 002 2877 3113 2845 MSGO8 A OOL 224€ 2884 2433 
LDR C 001 6C00 3453 2745 2760 MSGO8N A 020 2292 2886 2433 2434 
LORGO A 004 20A7 2760 2746 MSGC9 A OOlL 2293 2888. 2529 
LORIN A 0O2 OAIC 0031 2742 MSGOON A 026 22AC 2889 2529 2530 
LORLOD A 004 2090 2748 2743 MSGi0 A 001 2332 2900 1184 
LEAT A&A 002 2879 3114 2846 MSGLON A 030 234F 2901 1160 1184 1185 
LEXTAR A 0O2 2875 3112 2844 MSG11 A 001 2350 2903 1190 
LEXTZ A GO2 2873 3111 2836 MSGLIN A 029 236C 2904 1165 2196 1291 
LINK C€ 001 0216 3441. 0070 0106 0141 0185 0252 0326 0360 0432 0534 0633 0719 79; MSG12 A OOl 2360 2906 1195 
0839 0891 MSGL2N A 029 2389 2907 1170 22195 L295 
LINKID A 002 28E6 3143 1399 2005 2101 MSGL3 A OOl 238A 2909 2200 
LEO A 004 ASE 2016 2651 MSGI13N A 029 23A6 2910 1175 1200 1201 
LOAD C 001 022A 3445 0988 1079 1213 1437 2714 2756 MSG14 A 001 23A7? 2912 1205 
LOOP A O06 1L4EE 1368 0068 0104 0139 0183 0250 0324 0430 0532 0631 0717 G789 oO889 MSGi4N A 029 23C3 2913 1180 1205 1206 
1075 1347 1416 MSG15 A O0Ol 23C4 2915 2514 
LOOPX A 004 1532 1391 1228% MSG15N A 034 23E£5 2916 2505 2514 2515 
LPCNT A OO2 28FE 3151 0049* 0067* 0265* 0323* 0646* 0716* 0855* 0870 0887* 0888 MSG16 A O0O1 23E6 2918 2519 
LPSw C 001 0040 3407 1306 1387 1388 i465 MSGI6N A 034 2407 2919 2516 2519 2520 
MINIT A014 248F 2946 MTEST & 014 2490 2947 1102 
MPL & 004 2072 2738 0986 1240 MWRCCD A 005 2463 2939 1856 
MPLFLG C 001 0020 3417 0908 1239 1432 MHRCKD A 005 245€ 2938 1827 
MPLX A 004 2083 2765 2738* MWRHAE & 005 244F 2935 1779 
MPLX1 A 004 20AB 2762 2739% MWRHAD A 005 2454 2936 1791 
MPLX2 A 004 20AF 2763 274G6% ; MWRKD A 005 2660 2941 1899 
MRDCKD A 005 242C 2928 1621 MWRREP A 00S 2468 2940 1868 
MROOGN A 005 2431 2929 1644 MWRROO A COS 2459 2937 1807 , 
MROHAE A 005 2410 2925 1551 Ni & 001 294F 3210 1456* 1501* 1568* 1597% 1626% 1649* 1672% 1676 1688 17134 1717 1796* 
MROHAC A 005 2422 2926 1563 1854* 1838 1839* 1875* 1879 1880* 1930% 1992 1995 
MRDKD A 005 2436 2930 1665 NORMN A 004 11E6 0988 0906 
MRDLOG A 005 2440 2932 1736 NOWR C001 0008 3410 0278 0343 0382 0454 0815 1269 1264 


DATE 23AUG75 OSNOV75 19MAR76 O10CT76 PROG 1D C12-3 DATE 23AUG75 OSNOVTS 1OMAR 76 O1LOCTT76 PROG ID Cl2-3 
EC NO. 827785 827827 827872 571931 
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C123 3340 FUNCTION TESTS — MOD 12 C123 
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3340 FUNCTION TESTS - MOD 12 


CROSS-REFERENCE CROSS~REFERENCE 


SYMEOL LEN VALUE DEFN REFERENCES . ' SYMBOL T LEN VALUE DEFN REFERENCES 


NULLS 001 2808 3047 0667 0852 1040 1308 1377 1456 1501 12568 1626 1709 1796 1999 RDROOX A 004 1730 1614 1589* 1619% 1628 1635*% 1642 1651 1656» 


2000 2002 2175 2333 ROSNS A&A 004 1862 1748 0057 0062 0090 0126 O161 0205 O272 O©O347 GO380 0452 0555 0653 . 


T 
A 
NXDRV A 003 1496 1323 C065 0099 0134 C178 0245 0279 0321 0344 0358 0383 0425 0455 0740 0809 0862 1025 
0527 0625 0714 0783 0816 0837 0883 1070 1425 1496 ROSNSA A 004 1884 1762 1743 1759 
NXDRYX A 004 14EA 1363 1229% 1356 RDSNSX A 004 18A3. 1772 1734% 1748% 
NXDO1l A 004 14B2 1337 1326 RDVKD A 004 17FD 1702 0833 
NXDO02 A 004 14CA 1349 1340 RDVKDX A 004 1847 1729 1702® 1712 1727% 
N1 A 002 2831 3066 1476 1481 1524 1529 1688 RECAL A 004 1597 1449 0055 0089 0125 0160 020 0271 0346 0379 0451 0554 0652 0739 
OPEND C 001 0004 3395 1374 2041 2046 2088 2177 2249 2593 2606 0808 0861 1024 
ORIENT A 004 1A29 1968 0213 0218 0283 0288 0294 0563 0575 0583 0591 0599 0613 0661 REGLP A 004 2144 2833 2851 
‘ 0695 0748 0768 REGRST A 004 212E 2822 0915 0974 2778 
ORINTX A 004 1A39 1974 1968* REGX A 004 2182 2854 2822 
PA A 004 2945 3202 1542# 1572 1797 . REGX1 A 004 217€ 2853 28238 
PATRN A 001 283A 3072 0547# 0548* 0567 0627 0627* 0628* 0630 0732% 0733 0752 0785 0785* RELOAD A 006 110C 0985 0972 
0786* 0788 = RETRY A 003 1535 1396 2143 2197 2203 2218 2224 2242 27290 2297 2304 2311 2323 2384 
PA2 A 0C4 2958 3229 REZERO A 007 240E 2921 1458 1459 1473 1474 
PFC A 002 OA07 0020 QR A 001 2948 3207 1596* 1604* 1629% 1652% 1671® 1676 1683% 1712* 1717* 1721 1833% 1838* 
PIAR C001 0020 3358 1874* 1879* 1885* 1929% 
PID A 002 OAO1L 0016 0854 0985 RR2 A OOl 2961 3234 
PRINT C€ 001 O21A 3442 0976 1013 110% 1182 1288 1193 1198 1203 1295 1330 1418 1427 RSTAX A 004 200A 2675 2655¢ 
2425 2431 2470 2494 2512 2517 2527 2532 2567 2708 2718 2748 RSTBR A O01] 1FFD 2665 2659 
PSR C 001 0004 3355 RSTLP A 005 20DA 2787 2784 2791 
PTRL A006 ODB9 3458 0485* 0494*% 0504 0515% RSTOR A O0C4 200E 2682 0919 0926 2017 2024 2053 2355 2366 
PTR2 A 006 ODBB 3459 0494 0498* 0499% 0505 0517# RSTORX A 004 2018 2684 2682* 
PL A003 280F 3051 0067 O1C1 0136 0180 0247 0323 0427 0519 0529 0716 0887 1933 RSTRT A OU® FFE 2672 2664 
0941 1072 1504 1635 1656 1971 2076 2083 2179 2373 2793 2798 RSTX A 00% 212A 2813 2774% 
2802 RSTXRi ° 004 2006 2674 2640% 2661 
P10 A 002 281F 3057 0522 RSTXR2 A 004 2002 2673 26418 
21200 A 002 2820 2063 0952 RSTXL A004 2122 2810 2775* 
P2 A 002 2811 3052 1695 1727 1847 1890 1937 . RSTX2 A 004 2126 2811 2776% 
P20 A 002 2821 3058 1513 1516 RIN A 001 0A03 0018 
P256 A 004 2827 3060 0223 0299 0403 0476 0482 1054 1061 RTNOA A 001 O€20 0543 0443 
P3 A 002 2813 3053 0499 RINOB A O01 OEE3 0642 0545 
P349 A 002 2829 3061 087% RINOC A OC1l OFAA 0728 0644 
P4 A 002 2815 3054 0238 0314 0418 0473 0515 0517 1058 RTNOD A 001 1049 0800 0730 
P4092 A 002 282F 3064 0469 RINOE A 001 1092 0848 0802 
PS A 004 2819 3055 RTNOF A 001 1103 0900 0850 
P640 A 002 2828 3062 0496 RTNO] A 001 CA3A 2045 0020 
P8 A 004 2810 3056 1039 1798 | RTNO2 A 001 OAT4 0079 0047 
pac A 002 2823 3059 0955 RTNO3 A OOL OABL 0115 0081 
Q A 001 2940 3199 1453* 1498* 1553* 1565* 1593* 1623* 1646% 1667* 1706* 1738* 1752* 1781* - RTNO&4 A 001 OAEA 0150 0117 
. 1793* 1809* 1829% 1858* 1870* 1901% 1913* 1925* 1948* 1960* 2038 2043 RINOS A 001 0838 ©194 0152 
2391 RTNO6 A 001 OBC4 0261 0196 
02 A001 2956 3226 . RTNO7? A OO1 OCS5D 0335 0263 
R A 001 2941 3200 1454% 1499% 1554* 1566* 1594* 1624% 1647 1668 1707*# 1739* 1753* 1782% RTNO8 & 001 0C93 0369 0337 
1794* 1810 1830* 1859* 1871* 1902* 1914* 1926* 1949# 1961* 1985 RTNO9 A 001 0028 0441 0371 
RDCKD A004 1741 1619 0169 0215 0220 0285 0296 0393 0400 0461 0822 1046 1067 RTNLO A OO1 11€B 0998 0902 
RDOCF A OOl 291D 3168 0238* 0314* 0418* 1572 1601 1633 1678 1680 1719 1721 1814. 1841 RTN11 A 001 12A5 1089 1000 
1882 RUNMP A 002 2864 3102 1312 1381 
RDDCEN A010 2926 3169 1539 1769 2095* 2423* 2491 ROA A 006 OF24 0547 
RDDCR A 002 2910 3162 1999* 2029 2032 2080* 2097 2189* 2461 ROAA & 004 O£36 0554 
RDDDR A 002 2912 3163 0944% 0946 0958 0961 0966 1536 1581 1611 1692 1724 1766 1817 ROAB A 004 O£45 0561 0551 
1844 1887 1934 2000* 2030 2035 2081* 2190*% 2486 ROAB1 A 004 OEAT7 0610 0607 
RDDGN A 0C4 1771 1642 ROAB2 A 004 OEC1 0622 0619 
RDHAE A 004 16AD 1549 0091 0097 0132 O167 0211 0281 0353 0389 0561 0659 0746 0818 ROAC A 006 OECD 0627 0552 
0868 9881 ROB A 004 OEET 0646 
RDOHAG A 004 16CO 1561 0175 0356 ROBA A 004 OEF3 0652 
RDHAOA A 005 16D0 1568 1556 ROBB A004 OFO2 0659 0649 O712— 
RDHAOX A 004 16FB 1584 1549* 1561% ROBBL A 004 OF33 0674 0670 
ROXKD A004 LT9A 1663 0487 ROBB2 A 004 OF42 0681 6678 
ROKDA A 004 17AA 1670 1904 ROBB3 A 006 OFSE 0692 0685 
RDKDB A 003 1706 1686 1689 ROBB4 A 004 OF68 0695 0690 
RDKDX A 0046 17F9 1697 1663 1670 1695+ 1897¢% ROBBS A 004 OFTA 0704 0701 
RDLOG A 004 1848 1734 6058 0063 ROBE A 006 OFSC 0716 0650 
RDROO A 004 16FF 1589 0176 105i ROC A 006 OFAE 0732 
RDROOA A 005 1719 1601 1637 1658 ROCA A 004 OFCO 0739 
DATE 23AUG75 OSNOV7S 19MAR 76 O1GCT76 PROG ID. C12=3 DATE 23AUGTS O5NOVTS LOMSR76 C1OCT 76 PROG ID ee 
EC NO. 2827785 827827 827872 571931 PAGE 38 EC NO. 827785 827827 827872 571931 PAGE 2H 
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PAGE 3¢ PAGE 39A 
C123 3340 FUNCTION TESTS — MOD 12 C123 3340 FUNCTION TESTS ~ MCD 12 
CROSS-REFERENCE CROSS-REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES SYMBOL T LEN VALUE DEFN REFERENCES 
ROCB A 004 OGFCF 0746 0736 RODE & 001 O695 0488 0484* 0491 O512 O0522% 0524 
ROCBL A 004 COFFE 0762 0759 ROSF A 005 ODS? 0471 0474 
ROCB2 A 004 101D 0777 0774 RO9G A 004 OD9i 6487 0525 
ROCC A 006 1033 0785 0737 ROSH A 0C6 ODBE 6501 C52G 3658 3459 
ROD A C04 104D 0804 ROSi' A 006 ODEC 0517 0513 
RODA A 004 1055 6808 RGSS & 006 ODA& 0496 C492 
RODB 4&4 003 1664 0815 0805 RO9K & 004 ODDF 0512 0502 
RODC A 004 108€ 0839 c80s ROSL & 066 OPCB 0506 0504% 
ROE A 006 1096 0852 ROOM -& O06 ODD! 0507 05058 
ROEA A 004 10AC O86i R1LO A 004 2LILEF 1062 1022 
ROEAL A CO2 10BA 0866 0852 6871 6885% RIOA & 004 LIFB 2008 2605 
ROEB A 004 10BF o0870 0858 R1CB A 004 1219 1024 1009 
ROEBL A 005 10C9 0872 0875 R10BL A OOL 1225 1028 1002% 1072% 1074 
ROEB2 A COZ ILI0E2 O879 OS71* O872% O873* OS74& O865 R1LO0E] & GOS 1268 1056 105¢ 
ROEC A 006 1CEB 0885 0859 RIGF & 006 128€ 1072 2066 
ROFA & 006 1155 0933 0235 R11 A 004 12A9 1093 1il3 
ROFB A004 1188 0951 C947 RIEA A 00% 1205 ELIS 1094 1095 1098 
KOFC & 004 21C1 O97] O959 0962 0967 RiiB A 004 12F& 1228 
RGFD A&A 004 1163 0937 0922 6929 0934 RLIM A GOB 12FE 1230 
RGOFE A 006 26D 0941 0942 RLIP A OO& 1325 1141 LLi327e 
ROL A 004 OA3E 0049 R120 A 006 1329 i842 1238¢ 
ROLA A&A G04 CASE 0057 Ces2 RLIR A 004 1320 1142 Ri3¢6 
ROLE A 006 CA66 0667 0053 RLIS A O0GS 1347 LESS S84 
RG2 A 004 GAT7TB 0083 R11T & COB 1310 1kLdS 1253 
RO2ZA A G04 OA84 0089 0086 RI1ZU A GOS «2389 LZR 1126 E66 
poeet : ao; ee gos gos" GIOL® 0193 RLLV & 003 I2E2 1120 ALI7® LEiee 
, j R2 A061 2957 3227 
ae ‘ sos one? ore Pa SAYRSA A OUS iFD2 2651 2646 
) SAVRSB & OL% IFDE 2655 44 
ROZAL & 001 CaCD 0129 O119® 01368 9138 SAVRSC & O04 IFE2 2657 Sees 
Rone : oe pave ore 0123 SAVRST A 006 FBS 2639 OF17 0924 2015 Z02Z 2051 2353 2364 
ROSA A 004 OCAFA 0160 SEvGe Ok cen ae 
RO4B =A 004% C802 0163 Cis? SBYTE} c 061 G209 3444 
ae : ae oe nice Been G180% C182 SBYIE2 C GOL 020A 3435 6905 8257 L272 
ae Ree ase ae is SBYTE3 € OOL O208 3436 C904 $LOTT® 2ZLi® 1256 1272 
Baek. Bone. huey ieoee SPYTES C OCL 020C 3437 1266 1281 
ROSE A 004 850 0207 0261 ae ; oe Best ies age eet eee 
nee < co ee nat ood 0247* 0249 SCANE & 004 1989 1909 O569 0674 
Neca coe. (eee eee noe SCANK A 004 LS9CD 192i OS77 05603 G755 
ee ae aot esas Boas SCANHA A 904 19DD 1928 1916 1952 1963 
DGs6-c va Gods eee eee oe SCANHX 2 094 19FD 1939 iSOS* LEZlt 1928 1937% 19442 19568 
ae Roe cocee. ccs : SCN & 002 2883 3221 2466 c 
aGck:. CMgbe Shack ee SCNRE A G04 1A0L 1944 0585 G6s7 
BOGE hoe Geeta bets Aen dae SCNRH & 004 2LALS 1956 6592 6615 O770 
RO6BL A 004 CBE2 O2e85 ‘ SEEK 8004 1588 1466 6093 0128 0163 0207 027% 6349 0385 0457 0557 0855 OF42 Geli 
RO6B2 A005 OCI7F 0304 0315 ee ee ee 
DSC UasOU6. “Olen. Oae4 Bos SEEKA A 004 1680 1534 1462 1530 
ROkO- “Avees OC ae"-osie ace SEEKX A GO% 1649 1546 1449¢ 1519% 
ROTA” och OOa. (oC ce ~ once naze S10 A 063 LAFB 2652 LESS 1986*% 2445 2645 
R078: 4004 OCeR. .05ce Baal SIOSNS & 003 I1D8E 2365 2348% 2349% 
eae i 06s. Gear. Songs SKEND C€ DOL 0002 3396 137% 2047 2063 2068 2688 2177 2598 2662 
RODA. “GGoe Oia: ose SKMSK A O01 2930 3195 2596 
ROBB A 003 OCAB 0382 0376 Ras deat es ithe a 
RO8El A COL OCBE 0386 0373% 0427% 0429 ese ee aoe! eeu 
ROBB2 A 004 OCC1 0393 0423 Reese coe, eae” “eees ‘ 
| ROBES: A008 OCDE oon oie SKOGO A 006 15DA 1476 1479 
| & a 
ROBO. “A006. “bic. 0437 Saas SKOOA A GO6 L5ED 148i 1477 2484 
RO8D A CO3 OCFO 0417 0409 Cee ate: heuer, aoe po 
Apes AcObk:° ODSC: bas SKOL & 003 161A 1498 1491 
ROSA A 004 0038 0451 Pee. ee eee Bou oe 
ROSE. A 003 0Ds0 -0464 Géae SKO3 A O0O& 1645 1513 LST 
ROC A006 OFOE Of29 aan Soe: koebe ice? aoe. ed 
ROOD : . : = aoe ae 
& COl CD48 0458 0445% 0529% 0531 SKO&G A 006 167h 1529 L525 1532 
DATE 23AUGT ~ : 7 
ce Ne. psaeeee ey ree ee PROS 1D Ci2~3 DATE 23AUG75 CSNOVTS 19MAR 76 GLOC F76 PROG ID C1zZ~2 
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PAGE GOA 
C123 3340 FUNCTION TESTS - MOD 12 | + 123-336 FUNCTION TESTS - MOD 12. * 
EROSSAREFERENEE CROSS-REFERENCE 

SURE Ok: TREN VALUE. (DERN: “cREREREREES | SYMBOL T LEN VALUE DEFN = REFERENCES 
SNS A 002-2928 «43171 «= 0610 -:0622:-«-8B1_ «0704 «=20762-—«:O7T7T:=—«:1308* 1377* 1407 1410 2138* 2140 

2192% 2194 2211 2333 2336* 2338. 2345 2400 2401 2450 2584 2586 peas ; ee oe Sate ee 

2592 2597 2669 2610 2795* 2796 © XRLE = C :OOL 0001 3352 0226" 0228 0232 0237 0237* 0302 0304 0308 0313 0313% 0406" 0408 
SHS RAE ORs NOOR 2220. (ast: S2enk! 228d eer 0412 0417 0417% C468" O%71 0472 0472% 0854% 0855 0870* 0872 0951* 
SNSLP A 004 20F3 2795 2799 0952* 0953 0955* 0956 1053* 1056 1057 1057* 11289 1137 1138 1139 
SNS23. A 002 287D 3116 2236 1145 1148 1151 1151 1155 1226* 1228 1229 1231 12318 1232 12548 
SSWSV A 004 28EB 3145 1252 1371 1261 1262 1262* 1276 1277 1277* 1286 1288% 1289 1290 1292 1337 
SSWOS C 001 0604 3363 7 | 1339 1342 1344 1346% 1365 1349% 1350 1351 1467* 1471 1486 1495 
SSWIA C001 0020 3371 1271 7 | 1503 1809 1509% 1510 1512 1515 1515* 1519 1522 1575% 1576 1578 
SSW1B C901 0010 3372 6904 1256 1578* 1579 1606% 1607# 1606* 1609 1828* 1629 1651 1652 1670* 1671 
SSW1i C 001 0040 3368 0905 1257 1672 1685* 1686* 1687* 1691 1711 1712 1713 1757* 1758 1762 1763 
SSW12 C001 0020 3369 1272 1763 1764 1832% 1833 1834 1873* 1874 1875 19284 1929 1930 1970 
SSW2F C 001 0001 3377 2694 1971® 1994* 1995 2094* 2095 2422* 2422 2640 2643% 2645 2648 2668 
oane) C200). (603). ete 6266 2651 2654 2654* 2655 2661*% 26744 2697 2726* 2739 2762* 2775 2780% 
pobed “C0CE i 00eO oars weer 2787 2789 2789% 2790 2801* 2802¢ 2810% 2823 2825% 2536 2841 2848 
SVPFC A 025 0A39 0035 2700# 2754¢% Sainkoccaco: cease 
SVPREG A 002 285E 3098 1032 1036 1243 2806 XR2 COOL 0002 3353 0033 0223 0278 0299 0343 0332 0403 0454 0815 1039 1061 1117 
SVPSEQ A 001 2840 3089 1310 1379 2760 1200® 1261 1264 1269 1275% 1276 1279 1284 1290% 1306 1342¢ 1351 
SW C 001 0001 3411 3 3 1387 1388 1405 1453 1454 1456 14690 14698 1499 1501 1519 1520 
SWS A002 28E7 3142 1398* 2004% 2100% 3143 1542 1542 1553 1554 1565 1566 1568 1572 1576 1593 1594 1596 
SYSRST A 004 2087 2774 1408 1597 1601 1604 1607 18608 1623 1624 1626 1629 1633 1646 1647 
TAGI3, A OOL 2936 3179 1133% 1279 1649 1652 1667 1668 1672 1672 1676 1676 1680 1683 1686 1687 
TAGES oh 00d. Tepes sh Orel. ieee 1688 1706 i707 1709 1712 1713 1717 «1712 1721 «1738 1739 1752 
TAG43 A 001 2937 3180 = 1131% 1169 1753 1760 1781 1782 1793 1794 1796 1797 1797 #1798 1809 1810 
PAGED. pelo eee STee Rea eee | 1814 1829 1830 1833 1834 1838 1838 1839 1841 1858 1859 1870 
Peo eee ee ee eee 1871 1874 1875 1879 1879 1880 1882 1885 1901 1902 1913 1914 
DS RCO eee Slee Reh VAN 2 . 1925 1926 1929 1930 1948 1949 1960 1961 1985 1986 1988 1989 
ice eee one : 1992 1995 2038 2043 2344 2348 2391 2438 2582 2589% 2590 2590% 
TODS, O08 201T, 20GE- « BSBSF RO 20*: 2020. 1008 | 2596 2601 2608 2622* 2641 26738 2698 2727# 2740 2763% 2776 28114 
FIDERRSE <001 0008" 339% Y A002 2871 3110 2841% 2842 
TIORDY A 004 1AF3 2049 1988% 2039 2044 2341 
UCKMSK A 001 293E 3196 2344 2608 TOTAL STATEMENTS FLAGGED IN THIS ASSEMBLY = 0 
UCKMS2 A 001 2954 3223 a3 
UDTO A003 OAOL 0023 
UDTL A 003 OAOF 0024 ; 
UNPACK C 001 O21E 3443 L157 1162 1167 1172 1177 2443 2448 2455 2460 2465 2479 2484 

2489 2502 2507 2537 2542 2547 2552 2557 2562 
UTAB C001 0232 3447 0985 
WCPTN A 004 2839 3070 0228 0231 0304 0307 0408 0411 0471 0547 0665 0666 0707 0732 

0780 1056 3079 
WCPTNa A 002 2845 3079 0485 
WORK A O01 2929 3173 1471# 1476 1481% 1486 1488% 1493* 1503% 1506* 1507 1507* 1513 1516% 

1520 1522® 1524# 1529# 
KORKN & 004 292C 3174 0469% 04734 0496* 0519* 0931% 0933 0937% 0939* 0941* 0946 0953% 0556s 

0958 0961 1054* 1058* 1135% 1141* 1142 1143 1148 1225* 1226 14664 

1467 1579% 1581 1609# 1611 1691* 1692 1764* 1766 2074% 2076* 2083+ 

2175% 2179* 2211* 2235 2357* 2358 2371" 2373* 2377% 2378 2406* 2407 

2658 2683 2787* 2788 2793* 2798 
WRCCD A 00% 194A 1854 
WRCKD A 004 1906 1825 © 0290 0396 0464 0825 1042 1063 
WRCKDA A 004 1916 1832 1861 
WRCKDX A 004 1946 1849  1825* 1832 1847* 1854* 
WRHAE A 004 1847 1777 2033 
WRHAO A004 188A 1789 0355 1037 
WRHAGA A 005 18CA 1796 1784 
WRKD A 00% 19A5 1897 0478 
WRREP A 004 195E 1866 0829 
WRREPX A 004 19Al 1892 1866* 1873 1890+ 
WRKOO A 004 18DB 1805 0391 0820 104.9 
WRROOA A 00% 18EB 1812 i800 
WRROOX A 004 1902 1820 1777# 1789* 1805+ 
XEQ A004 1A3D 1983 1534 1570 i599 1631 1654 1674 1715 1741 1755 1812 1836 1877 

1932 
XEOX A004 1889 2104 1983% 
XEQO1 A 004 1B81F 2068 2061 
XEQO2 A 006 1830 2074 2066 2069 
DATE  23AUG75 OSNOV75 I9MAR7T6 -O10CT76 PROG. ID eis? DATE 23AUG75 OS5NOV75 19MAR76 010CT76. | PROG 10 C12-3 
EC NO. 827785 827827 827872 571931 PAGE id EC NO. 827785 827827 825872 571931 | PASE 4OA 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248217 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 
PAGE 1? PAGE 1A 
O0D62 3340 CE DISk EDITOR MOD 12 0062 3340 CE DISK EDITOR MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC CBJECT CODE ADDR STMT SOURCE STATEMENT 
2% LAST CHG 2:04:22: 76 ' 66 * 3. SET SWITCH 17 TO USE 3741 AS INPUT. * 
3 DECK 4 67 * 4&e SET SWITCH 18 TO USE THE 1442 AS INPUT. * 
4 SEu oO ; 68 * 5. SET SWITCH LA TO USE THE MFCU AS INPUT. * 
0000 5 STARTX START O : 69 ® 6. 5471 IS THE INPUT DEVICE IF SSW 17- 18+ OR 1A IS NOT ON * 
6 TREP 70 # * 
OA00 7 ORG x*oaoo? JT] CREEKS EREEERE REESE SESEREEEESEREEESEEESES SER EESE SESE SE SES SEEERSEEES SE ESE 
OA0O0 8 EDIT EQu * 72 
0A 03 9 RNUM EQU #43 72 
10 ERA SHERERRARERERE REVERSE SSSR AKS EASY SEEKER KSEE ASSES E SEK REE EEHESEERS 72 
41 * SECTION PREFACE oi Tz SCHHERETERESESES ERE EE SEARERES SERS OHSS SESE SEER ERE TA SEREHE SHE SERS ST ESE AEE ES 
l2 * 2 7% * * 
OA0O DD62 OAOL 13 DC XL2*OD62° 75 # SELECT DISK ODRIVE, AND INPUT DEVICE * 
OAO2Z OO 0A02 14 Oc XLL*00* SECTION FLAGS t Te & * 
OA03 O02 0AG3 15 ONE oc xL1°O1¢ ROUTINE NO. 77 & t Tc. * 
OAOS OCOO OA05 16 OC xXt2*00* RESERVED : TE COSCKTHSEHESESEEE SHEERS OSES SESS ERE SSS FE OE SEREEEEEREHEERSEESEEESEEESESETED 
OA06 0899 OAC? 1? oc AL2(EDITA) ADDRESS OF FIRST ROUTINE PREFIX } 0890 79 SETOSK EGU * 
oAdB 0600 OA09 18 oc AL2(*- 4%) ADDRESS OF ERROR RECORDING TABLE OB9D 38 80 0233 80 TEN UTAB¢1-X* 80° IF NOT RUNNING FROM DISK, SET 
OAOA €14000 OA OC 19 oC XL3*CL4000* : OBAL F2 10 08 81 JT +11 SVPREQ LATCH (ALLOWS USAGE OF 12 
OAa0D £00000 OAOF 20 x5203 CC xL_3"EOOCdO® OBAS 31 CS 2611 82 Lid XREGsX*C5* MBYTE DATA MODULE) 
OA16 £11000 OA1L2 21 X1403 CC Xt3*E11000° OBAB 31 C5 2813 83 tio SVPREQG,X*C5® 
22 2 s OBAC 38 01 0200 8&4 TBN SWITCH 34 SSW2F IF SSW 2F IS ON, WE HAVE BEEN 
23 EHERESSOEEEESS SEES SERESSESE CESSES SETHE TC EERTERS EKER E SEE ESeseseTeeE! oBBO F2 10 18 85 JT EDITAA CALLED BY SsFET7e CMLTA 
2% , 8& & CONFIGURATOR PROGRAM.) 
24 oee3 CO 87 O2Z1A 87 5 PRINT PRINT *SELECT SSW OPTIONS® 
CGA1L3 CA14 25 STATE OS xi2 ' OBBT 42 OBB? 88 oC XL1°42° FLAGS 
OALS 26 SAVIOB £QU 2 oess 59 O8E8 89 oc AL LESTRIMS—STRTMB) LENGTH 
OALS 27 PRIBF €EQU SaviI0B . OBBS 309F OBBA 90 oc AL2(STRIMS) MESSAGE ADDRESS 
OA1L5 OATS 28 SAVIO OS XL96 , OBBB FFFO oaec 91 oc XL2°FFFO® 
29 O68D CO 87 O2Z1A 92 8 PRINT PRINT ‘*SELECT INPUT DEVICE® 
OA80 30 ORG x*OAs0* ORCL 06 OBC1 93 oc xLi*06¢ FLAGS 
OA80 3i READIN EWU e ' OBC2 43 OBC2 94 oc ALLESTRYA-STRT AB) LENGTH 
OBU4 32 ORG READING 132 CeC3 30E2 OBC 95 pc ALZ(STRTA) MESSAGE ADDRESS 
33 oBc5s CO 87 G222 96 8 HALT TO OCP HALT 
OBC4 404040404040 0809 34 BLNK cc CL6* . OBC9 FFFO OBCA 97 oc XL2°*FFFO? HALT 10 
0609 35 06828 EQU e-} $8 
OBOA OBSF 36 DSGSNS2 DS XL 86 98 ; 
0860 37 OGSNSB EQU s : oecB CO 87 0212 99 EDITAA 6 TEST GO READ CONSOLE SWITCHES 
0860 OB7T 38 DGSNS1 OS XL24 OBCF CO 87 234F 100 8 SELORV TO SEL DISK ORIVE RIN 
39 : CBO3 38 FF 2AA0 101 SBF ACOFLG,X*FF* TURN OFF ADC MODE SWITCH 
40 # SUBROUTINE TO SET OISK DATA FIELD TO X*00* ; OBDT 38 FF 2AA2 1602 SBF FAI7T4S1,X*FF® TURN OFF 3741 FLAGS 
41 @ OB0B C2 01 4800 103 LA ODDF,XR1 
OB78 34 O08 O89 42 SETTO ST SE TTOR*¢ 3,ARR SAVE RETURN ADDRESS OBDF 38 10 O20B8 104 TBN ShITCHEel,SSW1B SSwlB 1S ON, GO TO $ADL 
OB7C 3C 00 48FF 43 MVE OCDF+4¢255,0 ZERO OUT ODCF FEELO ‘ OBE3 CO 10 0023 105 BT GET2 
OB8O0 OC FE 48FE 48FF 44 “vC DODF4254(255),000F +255 106 
OB86 CO 87 OCOO 45 SETTOR B e-*% RETURN TO CALLER : 106 
46 ’ OBE7 38 O1 0200 107 TEN SWI TCH+ 3 SSW2F IF SSW 2F IS ONs GET RECORD FROM FE7 
OBBA 34 08 OB98 47 SETG ST SETORS3,ARR STORE RETURN ADDRESS OBEB F2 90 04 108 JF AAOT OTHERWISE. GO CN AS USUAL 
OBBE 7C 00 FF 48 MVI 2550 eXR1) 20 ZERO UUT DOLF OBEE 3C OF 2A48 109 MVE NODS+1,X*Q7* CONTT DO ANY PRINTING ON 5471 
oB9i SC FE FE FF 49 MVC 25402555 XR1) 42550 e XR) , 110 
0895 CO 87 000d 50 SETOR B s-% RETURN TO CALLER OBF2 CO 87 2A2F 111 AAQ? B PRINT 1 GO DISPLAY MESSGAGE 
51 ; OBF4S O01 OBF6 1ll2 Oc XL1*#OL° 
51 b+ OBF7 26 OBF7 113 oC ALL(MENUL-MENULA) 
51 OBFS 3109 OBFO9 124 oC ALZ(MENULJ MSGe SELECT GPTION (CONTROL CARD) 
51 \ OBFA CO 87 2A2F 115 B PRINT1 PRINT 
52 * ROUTINE PREFACE ; OBFE O1 OBFE 116 DC XL1L ‘O18 FLAG 
53 OBFF 28 OBFF i17 oc ALLCMENULI-MENULB) MESSAGE LENGTH 
OB99 Ol 0899 54 EDITA OC XL1*OL? ROUTINE NUMBER : Oocoo 3201 OcOlL 118 oc AL2(MENULL) MESSAGE ADORESS 
OBSA 00 OB9SA 55 oc XL1L*008& ROUTINE FLAGS ? OCO2 CO 87? 2A2F 119 8 PRINTL PRENT 
0698 FFFF OoBSC 56 MINUSI DC XL2°*FFFF® ADDRESS OF NEXT ROUTINE 0co6é Ol Ocd06§ 1206 oC XLL'OL® FLAG 
57 : OcO7 28 Ooco?y 1l2lk oc ALL(MENUL2-MENUIC} MESSAGE LENGTH 
58 EREEEEEERERREAEREES ESSE RERERE EEE EERE RTAEERERERE SOBA RARERE TERE RES aR ERE! OCO8 3229 Ooco9 i22 DC AL2(HENUL2) MESSAGE ADERESS 
59 * x OCOA CO 87 2A2F 123 B PRINTL PRINT 
60 * OPERATING INSTRUCTIONS * OCOE O1 OCOE 124 OC xt1l'o1?* FLAG 
6l * x! OCOF 28 OC OF 125 OC ALL(MENUL3-MENULG) MESSAGE LENGTH 
62 * AT THE FIRST HALT, SET THE FOLLOWING SWITCHES, * o0c10 3251 OcilL 126 OC AL2(MENUL3) MESSAGE ADDRESS 
63 * * 0C12 CO BT 2A2F 127 B PRINT1 PRINT 
64 *€ 1. SET NO SWITCHES TO RUN ON DRIVE 1. x! 0c16 O1 0C16 128 DC XLL*O1® FLAG 
65 * 2 SET SWITCH 22 TG RUN ON ORIVE 2. * OC1? 28 Oc1l? 129 DC ALLOMENUL4-MENULE) MESSAGE LENGTH 
, 
DATE 29 AUG75 220ECT5 30APR 76 PROG ID CD6-2 DATE 29AUGT75 22DECT5 30 APRT6 PROG ID DD6-2 
EC NO. 827804 827836 571872 PAGE 1 EC NO. 827804 571872 PAGE 1A 








i 


IBM MAINTENANCE DIAGNOSTIC PROGRAM . PART NOe 4248217 Ibi MAINTENANCE OIAGNOSTIC PROGRAM PART NOc 4248217 


PAGE z PAGE 2A 
D062 3340 CE DISK EDITOR MOD i2 j0d62 3340 CE DISK EDITOR MOD 12 
ERR LOC OBJECT CODE ADDR STMT SQURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
0C18 3279 oci¢g 130 OC ALZ(MENUI4$ MESSAGE ADDRESS } 155 EHKEE ERABSEEHRE EERE SEAS REESE PHEERELREREE LEE ER ERLE SES EEE AERTS SESE EE EEE SE 
OCLA CO 87 2A2F 431 B PRINTL PRINTF 156 # * 
OCLE O02 OCLE 32 oc XL1®OL® FLAG 157 # CHECK FOR $ /* 4& OR c * 
OC1lF 28 OClF 133 oC ALL CMENULS-MENULF) MESSAGE LENGTH } 158 * * 
O0C20. 32Al CC2i 0 «0134 oc ALZ2(MENULS3 MESSAGE ADDRESS 259 * 
OC22 CO BT 2A2F 135 B PRINTL PRINT 160 * * 
6026 O1 OC2& 136 oC XLTDIOL§ FLAG i 161i AM ERAEEEKELER ALES ESSER EARES CELA SSE AEERE AEE SAAS ASRS SARE ERLE EE EE EEA EES 
OC27 28 OC27 137 oc ALL(MENULO-MENULG? MESSAGE LENGTH 162 
0£28 32C9 oc29 138 oc AL2¢MENULS? MESSAGE ADDRESS OCSE BD 55 OS 163 RTRN CLE GEeXR2$ 502 S® DOES COLUMN 1 CONTAIN A $? 
oC2A CG 87 2A2F _ 139 B PRINTI PRINT : GCS51i F2 BL 5k 164 JE ADDTST BRANCH IF YES 
OCZE O1 OCZE 240 oc XLEPOLE FLAG 6054 BO 61 G6 165 CLi OE, XR2b TEE DOES COLUMN 1 CONTAIN A SLASH? 
OC2F 28 OC2F 141 DC ALI{MENUL7—MENULH? MESSAGE LENGTH OC5? F2 62 OD 166 JNE FLAGS JUMP LF ONG 
OC 30 32F1 OC3zi 142 oC AL2Z€MENUL?: MESSAGE ADDRESS ' OCSA BD 30 O21 167 CLE L1¢eXRZ},C#E° COES COLUMN 2 CONTAIN A & ? 
O0C32 CO 87 2A2F ; 143 B PRINTL PRINT 0C5D CO 81 OCBF 468 BE LENKE IE YES EXET FROGRAM 
O0C36 02 0036 144 OC XL1*G2° FLAG , COC6L BD 5C GE 269 Cit LESXRZ}2CPES DOES COLUMN 2 CONTAIN & © F 
OC37 283 OC37 145 oC AL] (MENULS-MENULIP MESSAGE LENGTH ; C0C64 F2 81 34 i7a JE PAUSE TO PROGRAM HALT IF YES 
0C38 3319 oc 39 146 oC ALZ{MENULS } MESSAGE ADDRESS OC6? LIL FLAGS EQU = 
OC3A CO 8? ZA2F 147 B PRINTS PRINT MSG OCS? CO BT Z2A2F E72 8 FRINTL GO DISPLAY MESSGAGE 
OC3E 96 OC3E 348 DC XLi*0s6§ FLAG i OC6B GS OC6B 373 DC XLi?G6® FLAG 
OC3F 14 OC 3F 2498 oc ALLEMBRDY-KBRDVB} LENGTH 5Cb6C 27 OCSC 24 pc ALLEMCTL-MCTLB} LENGTH 
oC40 3029 océ1 150 oc &L ZiKBRDY} ADDRESS : oC6D 35FT OC6E i175 OC AL ZUMECTLY MSGe INVALID CONTROL CARD 
OC42 CO BF 2749 L5] GETL 8 RECORD READ A RECORD ; OC6F 3C FG 2443 176 HAVE FADD, C&O® RESET 374] FORCED ADD FLAG 
OC46 AD SF 5SF 66 152 cic 95196, ,XR2} 79645 KR23 CHECK FGR BLANK RETORD OC73 38 FG Z27F5 L?? TAN USECRT,xX*FO® IS CART EN USE, DON?T PRINTSHALT 
OC4A CO Bl OC4&2 153 BE GETL LF BLANK THEN READ NEXY CARL ‘ OCT? CGO LG OC&2 178 BT GET GG GET CONTROL CARD AGAIN 
7 OC78 CO BY B2LA i7s 3B PRINT NO; PRENT ERROR. 
OTTFE 46 OC TF isd DC XL2*#468 FLAGS 
Oc8ksG 14 ocso isl DC ILi*20° LENGTH 
; OCBL 3275 oC82 i182 DC AL2 CERRO} AODRESS OF LAST PRINT CHARACTER> 
oC83 FFEO 0C84 i83 DC XLZ2°EFEO® MESSAGE IDENTIFICATION 
; ocBs CO BF 6222 L84 5 HALT 7G DCP ERROR HALT 
' OC89 FFEO OC8A 185 pc XL2°FFEO® HALT ID 
OC88 CO B87 OBF2 186 & AAQT 
i87 
i OC8F 2188 LINKM EQU # 
OoceF CO 87 2A2F 189 8 PRINTL GO DISPLAY MESSGAGE 
o0c93s Gé& 0c93 199 DC XL2°O6*? FLAG 
} oc9é 1t2 ocs4 i91 dC ALLCTERM-TERMB} 
0c95 3046 oc96§ 192 DC ALZ(TERS) MSG. CPERATION TERMINATED 
\ ocg7 CO 87 0216 193 B LINK TERMINATE 
194 
OCc9B CO B87 G222 295 PAUSE 8B HALT TO OCP ERRGR HALT 
OCOF FFE OCAG i96 DC XL2°FFEL® HALT 10 
} OCAL CO 87 OB8CB 197 B EDITAA RESTART PROGRAM 
198 
OCA5 199 ADDTST EQU = 
} =ocas BD CL OL 200 CLE  UsXR20,C%A* 
OCA8 F2 6&2 68 201 JE SETADD 
OCAB BD OS O01 202 CLE 1¢,XR2),C°R® R IN COL. 2 ? 
OC AE F2 01 07 203 JNE TRI 
OCBL 2&0 40 04 204 cLi &(—eXR2),C* & MAKE SURE COLUMN 5 NOT BLANK 
OCB CO Gi 1614 205 BNE REPPGA 
i OCBB BD C1 02 2803 206 TFE cLe 2426 XR2) eFIGCON DO COLUMNS 2-7 = CONFIG? 
OCBD CO 82 1097 207 BE CFGPGM IF YES. GO TO CONFIGURE ROUTINE 
OCC1 80 O01 O2 2BF6 208 CLC 2(2-XR2) -DEL CO CGLUMNS 2-3 =*DE® 
} Occe F2 O1 O07 209 JNE TL IF YES, CONTINUE 
OCcC9 BD 40 04 210 Cur &loXR20eC® ° MAKE SURE COLe 5 NOT BLANK 
occc CO O01 1606 2h) BNE DELPGM 
} occo BD D3 O1 Zi2 TL CLE 1€,XR2),C°L® 
OcD3 CO 81 LB4F 213 BE LSTPGM Ie YES 0O A LEST. 
OCD7 8D 01 O2 2805 214 cic 2(2-XR2)5CMPCON 1S iT COMPRESS? 
+ ~=ocnc co 81 1069 215 BE CMPPGM 
OCEO 80 O1 O2 28F8 216 CLC 2§2—9XR2)_0U 
‘ OCE5 F2 01 O07 217 JNE DE 
OCCE8 BD 40 04 218 cil 4&{yXR2),C* § BAKE SURE COL 5 I$ BLANK 
OCEB CO 81 1877 219 BE DSKDUP 
, OCEF CO 87 2h2F 220 DE 8 PRINTL ; GO DISPLAY MESSGAGE 
; OCF3 06 OCF3 221 oc Xt1*06* FLAG 
OCF4 27? OCF&4 222 oc ALLUMCTL-MCTLB) LENGTH 
5 
Ore fy auGTs 2eUECTS Z0APR TS PROG ID CD6-2 DATE 29AUG75 220EC75 ZOAPRT6 PROG 10 006-2 
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PAGE 3 PAGE 3A 
CD62 33460 CE DISK EDITOR MOD 12 DD62 3340 CE DISK EDITOR MOD 12 
ERR LOC OBYVECT COE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
OCFS 35F7 OCF& 223 DC ALZEMCTLS MSGe INVALID CONTROL CARD GD8S OC 00 ODS? 2E7E 2&6 MVC CLE2*+2053 X74 INLTEALIZE COMPARE INSTRUCTION 
OCF? 38 FO 27F5 224 TBN USECRT, XPF OF 1S 547L EN USE eDONST PRINT/HALT 287 
OCFB CG 10 OC4&2 225 8T GETE GO GET CONTROL CARD AGAIN OD8F OF OO GDS? GANS 288 LoceP7y ALT CLLZ¢2¢1)_, ONE INCREMENT POINTER 
OCFF CO &7 B21l4 226 B PRINT KRONE OF THE ABOVE, GG PRINT ERRUR. 00e5 BD 40 06 289 CLI? CLE #—-6!,X¥RZ9,C* * IS FIELD BLANK 
0003 Cé& 0003 227 oC XLEfCa? FLAGS 0098 CO 8k 1500 296 BE INVSCO TO INVALIO SYS TST HOR 
Opes is 9004 228 oc L1e2ié LENGTH cDesc Ob O08 ODT 27EE 291 cic CLE2e2i35780 1S COUNTER =86 
ODOS 317E CDGG 22% ere ALZ(ERRZ} ACCRESS OF LAST PRINT CHARACTER. OCA2Z2 CO Oi COBF 292 BNE LOGPT 
ODO? FFE2 oo08 2206 oc XLZ*FEEZE PESSAGE LTDENTIFEICATEON OD4s6 3C GF 2A90D 293 MVE SC DOF Gs, K OF ° SET SYSTEM TEST MODULE FLAG 
obos CO 8? S222 231 £ HALT ¥G DCP ERROK HALT 29% 
o0C0 FFE? GDGE 232 OC KXL2°FFEZ* HALT §FD COAR 2¢5 CCNTES& EQU * 
CDOF CO 87 OBF2 233 B AAO? ODAA 2C SF GAT& SF 296 MYC SAVIDI963, S50 _XR23 SAVE INFO FOR YTOC 
234 GCDOAF 26 03 ZATK SB 297 MYC SAVETOLG be FLO eXR2) SAVE ID FOR LATER COMPARE 
235 KARAS REEEREHERERERE SESE REE SESE SSL SRST ASSL SRE SSSCSES SSS RAT SL ESE SS SST HS IHS oDpB4 8& GZ SA 2B16 298 CLE GSOC3eXRZ} oF FA IS if LOADER? 
236 ERSREMOKEATEEESSERRAEERRA SE KES SHS GEMS SSE SHE KSEE SH SEA KEL ST RES HLS SPS RSRE RES COES Co Si Ltié6 299 BE ADODFFA Ta LGADER SEEK RIN 
237? 8% se oDpBee 8D O02 SA 2B2F 206 crc GOC3sARZ3,F FS ES (T LOADER? 
238 %% $ ADS eas coc2 F2 Gi 6B 30% ANE CONTE} TO LOADER SEEK RTK 
239 %% 38 oncs 3¢€ FF 2ae8 302 MY I NWRTFG, XeFE ® OCON®T BRITE IW ¥TOC 
240 2% ADD PRUGRAM DECK UR DECKS TO CE DATA MODULE $e CDCS OC O46 2648 2BLS 363 avC ODCFEM(S Ee CBHIT2 SET CONTROL FIELB 
FSi &B ee! ODCE F2 &F 3% 304 J CONTB2 
2&2 SHARK TKS LES SKS SSS FHSS TL SKSPESTSHSSS SASS SESSA SL SKS SSHRERSRELKH SHH HESS T GE OocDe eo CS o3 2826 265 CONTE L CLE 3(4&.,KR2!},D0TAHDR is if DATA DECK? 
243 SASERDERHETTRSELSS HSKHSESSERSGSSHOCISSS SESE SHS ASSES SRP HSH T SASSI SHH TE FESE S FS CoD? Fz Gi is 306 JNE CK 
244 ODDA 20 O3 28DA 56 307 MVC LSTDCOLS} »-860,XR2} SAVE # OF LAST DATA CarRD 
244 GOLF 3C OF ZASF 308 KYi DF LAG, X* OFF 
244% ODE3 8D DF? 52 30¢ cul G2 XRZET TPE IS 17 PROG DATA DECK? 
0013 CO 8f 242F 245 SETADD B PRINTL GG DISPLAY FESSGAGE ODES F2 GL 0% 310 JNE CK RO, DON®T SET FLAG 
ODL? 06 ODL? 246 oC XL LPOG ODES 3C OF 2498 31Li mv PFLAG, X*OF® SET PROG DATA DECK FLAG 
OO18 26 OD1B 24? OC ALI {(#ADD-HADDBS 312 
O019 3618 COLA 248 Dc AL Z( ADD) MSGe ALO ILLEGAL [F OW S47L ODED CO 8? $210 313 CKA 8 CPUPG CHECK IF CPU MODULE 
OCDIiB 38 FO 27F5 249 TEN USECKT eX SFOS TF USING S4PESRETURN TO START ODF i 314 DCPCTE EQU z 
ODLF CO 10 OC&2Z 250 BT GET) ODFi CO BF 226% 315 8 ROFAS READ FAS SECTOR 
. 253 316 
251i oOFS5 OC OL 2A60 2272 ai? HVC ¥VIOC#{L2) ,FASINE STORE # GF RECORDS IN WIOC 
252 SHHSHEESRSEAABHS ELE SRAGHSSEHHATES ORS TSS AUESSSESLO HSH HS EHTS SESH SESSS SESE OcCFB oc G4 2 BAS 2F7OF 338 HVC NAS€5),FASINB< & STORE NEXT AVAIL SECTOR 
253 # eo} OFO)L OC O04 2448 Z2BA5 aig BVC DUCFM(55eNAS SEY DDCF FORK SEER 
254 * CHECK FUR HEADER CARD AND FYPE UF DECK = 320 
255 SSHSLLGERRSRLASREKESORERK GS EKAHRASESSHKSE ASOT EHF EEE SHY GRHKTSSFSSEAE SHE SSLSSSS SS 420 
256 ; 32k TRAE SERS ESHESEPKEDEA ESSERE KRKHT SRI SSS SEK SHEA THERE SKRKS KSA HHT ETH SEL EES 
256 322 * THES SECTION READS 48 CARTS AT A TIME, CHECKS THEM, AND a 
256 : 323 * BRANCHES TO A WRETE ROUTINE. = 
OD22 CO B87 2749 257 GET2 é RECORD READ LSF RECORE ? 324 ¢ s 
OO027T AD SF 5F 6G 258 CL¢c 951(96;,XR21-960,XR2 | CHECK FCR BLANK CARD 325 ERS REEEEEKE SEES EHEERHSS SSIS SRS GOOKA EES HEGRE SESS SER ELERS SKE KLASSE SH RSET 
OD2B CO 81 0023 259 BE GET2 READ ANOTHER CARO IF BLANK 326 
260 } 326 
ODb2& 261 RTRN2 EQU ® OEO? 327 CONTBZ EQU * 
OD2F 3A OF Z2AAD 262 SBN ADDFLG-A*OF ® TURN ON ADD MOUCE SWITCH OEG?® 32C OO 2BSA 328 VI YTEM-5,.0 ZERG S¥STEM YEST FLAG 
0D33 OF 06 2480 2AA0 263 SLC OCPFG(71,0CPFG ZER GUT DCPFGeCFLAGENRK TF Ge NART » PFLAG O£FOB OC Gl 2898 2847 329 mC SC TRE2) eZERG ZERG SECTOR LENGTH FIELD 
0039 OC 06 30FO 313F 264 MVC ADMSG4¢6(7),ADDEC PREPARE PRINT FIELD TO PRINT CELL 66 36 2808 2ADB 430 AZ SEQCTRI4G}S 6 DLE} INITIALIZE SEQ CIR 
OD3F 2C 14 3110 IF 265 wAVC AUMSG4 384210) p3L6¢X82) PROGRAM ADCED AT END GF ROUTINE CEL7 3C GE 2800 331 MVE RCTRel INITIAL {ZE RECGRO COUNTER 
0044 2C LF 3138 3F 266 MVC ADMSG+78(32),630¢XR2} “A 332 
267 O€1B 6C SF DF SF 333 MVC 2234 96¢XR29495¢ sXR2Z) 
0049 38 OF Z2AAA 268 TBN CPUFG .X* OF ® If& CPU MODULE JUST READ, THEN CHECK OELF 6C SF 5SF SF 334 MYC 95 (96eXR1L 95950 2XR2 1 MOVE 2ND OODF FIELD IN 
0040 CO 10 1210 269 BT CP UPG IF THIS ITS CPU KPODULE OEF23 36 Gi 2677 335 A X256_XR1 INCREMENT POINTER TG NEXT FIELS 
270 CEZ7 F2 &7 C8 336 J LooPl 
0051 04 30 2BOB 2A04 271 ZAZ SEQCTR(I4) .DO(1) INITEALIZE SEQUENCE COUNTER 337 
2te2 } OE2ZA C2 01 4800 338 ~.GOP2 LA DDOF »XRL INITEALIZE XR 
OD57 BD OL OC 2AEE 273 CLC = =1 2124 XR255PN iS TY A HEADER CARD? OEZE 3C 00 2800 339 MY¥E RCTRsC INITIALIZE RECORD COUNTER TO ~1 
oosc CO O01 1454 27% BNE TSTDCP TO ERRGR PTN 346 
0060 3C FO 2AA43 275 MMVI FADD,C*O® RESET 3741 FORCED ADO FLAG : O£32 CO BF 2749 341 LCOPL B ECORD READ A CARD RECORD 
0D64 8D O03 SF 2AD4 276 CLC 95(4,XR2Z}.dD0 IS HEADER CARD SEQ #=0? 442 
0D69 CO Oi 1541 277 BNE =INVSEQ PRINT ERROR IF NOT _ 0636 AD 5F SF 66 343 CLO = 95696, XR23,96(,XRZ2 1S IT A BLANK CARO? 
oped BD 4 00 278 Cut Of eXR2) CME 1S fF & TAP DECK? f OE3ZA CO BL OF 322 344 SE LGGP2 iF SG, FLUSH IT 
OD70 F2 O1 O07 279 JNE #410 SKIP TF NOT 345 
OD73 3C FO 2A9F 280 MVE DFLAG,X* FOS SET FLAG FOR TAP DECK OE3E 3D OC 2A9F 346 CLI DFLAG.O 1S EY DATA DECK OR TAP DECK? 
OD77 F2 87 30 281 J CONTES CCN* T CHECK FCR SYSTEM TEST OF42 F2 01 6E 247 SNE CONTA? IF ¥T ZS, DONT CHECK TEXT CARO 
OD7A 8D 05 50 0809 282 CLC BC (65 XK235 BLNK ARE COL*S 75-81 BLANK? 348 
OD7F F2 81 28 283 JE CONTE6 IF SO SKI® OUT OF ROUTINE OF4S BU EZ 60 349 CLI Of ,XRZH,C*S! iS 17 AN *5*® CARG? 
0082 BD 40 4A 284 Citi T4(,XR295C* * 1S COLUMN 75 BLANK? : O&48 F2 OL OA 350 JNE #413 YF NOT, SKIP THIS SECTION 
0085 CO OL 1500 28s BNE INVSCD BRANCH TO INVALID Sy¥S TEST HOR CE4B 06 30 2808 2A08 $1 AZ SEQCTRE4) -DECG?} INCREMENT SEQ # COUNTER 
j 
DATE 29AUG75 220ECT75 30APRT6 PRUG ID DD&-2 DATE 29AUGTS 220ECTS 3O0APRT6 PROG ID 0D6-2 
EC NOw 827804 827836 571872 PAGE 3 on NGO. 6827804 627836 571872 PAGE 3A 
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PAGE 4 PAGE 4A 
0D62 3340 CE DISK EDITOR MOD 12 0062 3340 CE DISK EDITOR MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
OESi CO B87 OE32 352 B LOOP} READ ANGTHER CARD G20 KHRSKSEAHKESE EE LEKSEK SRE EAREAKE REE KSKE REE RHE ERECEE KS SEERA E ESE SKE KEKE SEES 
353 421 * THIS SECTION WRITES DECKS GN THE DISK. * 
OE55 BD 09 00 354 CLI OC eXR2}2C*RE 3S IT A REP CARD? , O22 HHECKREKEEEEESEE KEE SECESSHE ETRE ESHESE RECESS REE EAEESEHUEAE AEH ES KE EMERERE 
OF58 F2 O1 15 355 JNE CONTE2 IF SO, CONVERT ET TO A TEXT RCRL 423 
O£5B BD 40 01 356 cul Al yXR2V9C® & IF COLUMN 2 OR 7 ARE NOT BLANK 423 
OESE CO O1 1153 357 BNE REPERR THE CARD IS IN ERROR OF33 3C FF 2A9E 424 LWRITE MVI LWRT »X* FFE SET LAST RECORD FLAG 
O£62 BD 40 06 358 CLI GleXRZ00C® * OF37 3B O1 2AA2 425 SBF F3741,xX"OL® RESET 3741 ACC FLAG 
O£65 CO Ol 1153 359 BNE REPERR OF3B 6C SF SF 5F 426 MVC 95696eXR1) 6950 eXR2) WRITE END CARD IMAGE ON PACK 
0£69 CO &7 202E 360 B CONVRT CONVRT TEXY CARD OF3F 4C 7F FF 3726 427 MYC MSGBGN¢LENGTH-ENDROU (L ENGTH-ENDROU, XR1} oLENGTH-1 
O£6D F2 87 AS 361 J LOOPS 428 
362 429 * THE ABOVE INSTRUCTION ADOS THE END CARD ROUTINE 
O£70 BD 5C 00 363 CONTE2 CLI Ol gXR2} CPE IS §T & COMMENT CARD? 430 % INTO THE LAST HALF OF THE END CARDe 
OE73 CO Bl 12Fi 364 BE ASTRK GO HANDLE IT 43} 
OE77? 8D 03 03 2AFA 365 CLE BIS sXR29¢SSWIED IS ITF A SS CARD? OFS% OC 00 2BAF 2800 432 WRITE MVC ODCKLLD,RCTR SEY # OF RECORDS TO WRITE 
OETC F2 OL OB 366 JNE NOTSS& JUMP {fF NOT OF4& CO B87 2336 433 8 bINRW wRETE N RECGROS 
OETF 328 FF 2AA0 367 TBN DCPFG,X®FFE iF IF 15 DCP THEN GO #400 IY Ih ITS OF4E 40 OF 4E 434 oc XL2°6O8 BRITE FLAG 
CE83 CO 10 1319 368 BT DCPCDL SPECEAL RECURD. OFeF 4800 GF50 435 DG ALZCDDDF) @ OF DDOF 
OE87 F2 87 BF 369 J £CORS CTHERHISE ALO IT NORMALLY OF51 2BAG OFS2 436 oC ALZ2{DDCFB} @ OF OOCE 
OE8A BD 03 03 2AFE 370 NOTSSH CLE 344,XR2},UDTID 1S iT A UBT CARD? &37 
OCEBF CO B81 13F5 371 BE DCPCO3 GO KANDLE IT OFS3 OF C1 2898 23805 438 ALC SCTRE2} RETR INCREMENT SECTOR COUNTER 
O£93 8D 03 03 2AEE 372 cLc 304_,X22) .CPUIDZ IS EY A CPU CARD? OF59 OF OL 2698 9ac2 433 ALC SCTRE2),ONE ADJUST TO CORRECT VALUE 
CE98 CO BL 1410 373 BE DCPCDS GG HANDLE FT 440 
OESC 8D OF OF 2AFS 374 CLO = P48e XK29-2CHNID IS IT A ¢f CHAIN CARD OFSFE CGO 8TF 2198 &&h g STPFLD STEP DDCE TO NEXT SECTOR 
GOFAL CO 8L 1383 375 BE DCPCO2 GC HANDLE {7 OF 63 2BAB OFS64 442 DE ALZ2EDDCEM} @ OF RIGHT #OST BYTE 
376 &&3 
O£A5 BD C5 CO 377 CLi Oi eXRZ}CTES IS ITF AN END CARD? OF65 3D FFE 2A9€ ad Cli LWRT,X* FEE 1S LAST BRITE FLAG SET? 
CEAB CO 81 OF 33 378 BE LWRITE GO 10 LAST BRITE RUUT ENE OF6S CO O1 GE2ZA 4&5 BE £002 READ ANOTHER RECORD IF ROT 
379 446 
OFAC BD £3 00 380 cul Ol oKR2) eC °F? PS TT A TEXT CARD? 446 
OEAF CO OL 1521 381 BRE INVCD SINCE THAT 1S THE OLY THING LEFT, 446 
382 # [F ET TSN®T & TEXT CARO iT IS INVALID he &s & 
OEB3 3D FO 2A9F 383 CONTA? Cil DFLAG» X*FO8 iS ET 3 TAP DECK? 446 
OEB7 F2 01 09 384 INE #412 SKIP Te NOT 445 
OCEBA 8D 01 O1 2AESB 385 Cec V¢2—XR2) ME S$ af A far ENC CARD? qi F PKESCRESEEEESE SESE CEES SESERSES EERE SSE SEAS SLES SSK SSKKERE KRESS HHR ETHER EKESS 
CEBF CO 81 0F33 386 BE LHRITE wRETE FOR THE LAST .EHE 448 % SCAN VTOC AND OVERKRITE OLD PROGRAMS * 
287 GQ SPSSSCESRSESKEAE SATE KOSS CESS EKRES SSS YE RERSCESSRELSIRHRSS SAKE SKSLSRERETSE 
OEC3 3D OF 2A9F 388 CLI OFLAG.X*®OF® IS iv & DATA CECK &50 
CEC? F2 O1 1D 389 JNE SEQCHK THEN SKIP THE SEG #@ CHECK 456 
CECA 2D 03 2ADA 5F 390 CLC LSTDOCLE4), 95% oXR2ZI 2S ET THE LAST CARD IN THE DATA DCK? OF6D 3D Fr 2A98 451 cul NHRTFGe XS FFE 1S NO WRETE FLAG SET? 
OECF CO 01 CEE? 391 BNE SE QCHK GO TO LAST WRITE ROUTINE OF7L CO BL 1626 452 BE FASHR THEN WRETE IY EN FAS BREA 
OFD3 30 OF 2A9A 392 CLI PFLAG, X*OF® 1S EF PROGe CATA CECK? 453 
OLD? CO O1 OF33 393 BNE LRREITE NO, GO TO LAST WRITE ROUTINE OF75 OC 04 2891 28a5 &54 RTRNE MYO YTINB+L&O53 »NAS MOWE IM DISK LOCATION 
O£DB 3D O02 2AAC 394 cul CDLOR2,2 £S ET UNCOMPRESSED DECK? OF7B OC 04 2845 2BAB 455 MYC NAS (53 ,DDCFEM UPDATE NEXT AVAIL SECTOR 
OEDF CO O01 OF33 395 ENE LYRITE NC, GG TG LAST WRITE ROUTINE 4&5 
OFE3 3A FO 249A 396 SBN = PFLAG, X* FO® SET ON LAST PROG DATA CARD FLAG OF81l CO B? GB78 &57 B SETTS SET DDDOF FIELD TQ 95 
397 458 
GEE? 8D 03 SF 2808 398 SEQCHK CLC 95(4¢XR2),SEQCTR COMPARE SEQ #°S UF85 OD OL 2ABS 2B&F 459 cL VTOC#(2) eZERO {S THES FIRST ENTRY? 
OFEC CO O01 154i 399 BNE INVSEQ If NOT =, GO PRINT ERROR OF8B CO BL LLZB 4 &O BE NYRT GO TO NEW RTN WRITE 
OEFO 8D 03 5B 2ACA 400 CLC 9314,XR2}-SAVEID iS ED SAME AS ON HEADER CARD? 461 
OFFS CO O01 1572 401 BNE INVID IF NOT=, GO PRINT ERROR 461 
402 OFBF OC 02 OF9C 2aCc9d 462 MVC PRGID2(3),SAVELD-1 WOVE IN PROGRAM ID 
OEF9 06 30 2808 2ADB 403 Al SEQCTR(I4) ,01L 61} INCREMENT SEQUENCE COUNTER OF 95 CO 87 227A 463 8B SCNYTC SCAN WTOC 
404 OF99 00 OF 9S 464 FLAG2 OC ILL°0? FLAG 
OEFF 3D 00 2A9F 405 CLI OFLAG,O IF NOT A DATA OR TAP DECK THEN OFSA ETETET OF9C 465 PRGID2 DC CL3eXxx! PROGRAM TO SCAN FOR 
OFO3 F2 81 O07 406 JE NOTDAT COMPRESS IT 46 
OFO6 36 OF 2A9A 407 YBN PFLAG,X*°OF? iF NOT A PROG DATA DECK THEN OFSD 3D 00 0F99 467 CLL FLAG2,0 1f THERE IS NOT A SCAN HIT, GO TO 
OFOA F2 90 OC 408 JF LOOP4 SKIP COMPRESS OFAL F2 81 13 468 JE NR WRT NRWRE 
OFOD CO 87 1F59 409 NOTDAT B CMPRSi COMPRESS TEXT CARD GFAS 3C O00 2BAF 469 MVE DDCF,O SET TO 1 RECORD 
OFLL 30 FF 2A9A 410 cui PFLAG »X* FFE PROG DATA DECK LAST CARD? OFA8 OC O02 4806 2801 476 mvc DODE+63}»,QLD CVERWRITE WITH "GOLD? 
OFL5 CO 81 OF33 411 BE LWRITE YES, GO TG END CARD ROUTINE OFAE CO 87 239¢ 471 3B wi NRW WRITE ON DISK 
412 OFB2 40 OFB2 472 DC XL1L#40° WRITE FLAG 
OF19 6C SF SF 5F 413 LOGPS MVC 95954XR1}5956eXR2) MOVE CARD RECORD INTO DISK kRITE RCD OFB3 4800 OFB4 473 cc AL2(DDDF} @ OF DDDF 
OFLD 32D 2F 2B0D 414 CLI RCTIR, 4? IS RCTR = MAXREC OFBS 2BA6 OFS8& 474 DC AL2(DOCFB} @ OF GOCF 
OFZ21 CO 81 OF 44 415 BE WRITE IF SO,GO WRITE 48 RECORDS 475 a 
OF25 OF 00 2B0D0 0AQ3 416 ALC RCTR(1)50NE INCREMENT COUNTER OFB7 CO BT 227A ae anv = eyo ae yToc TO END 
OF2B 36 O1 2B77 417 A X256_XR1 INCREMENT POINTER OFBB 00 OFBB 477 FL i 
OF2F CO 87 0F32 418 B LooP i READ ANOTHER RECORD OFBC 5C5C5C OFBE 478 oc CLBZtexxe ADDRESS GF NO PROGRAMS (SCAN TO 
419 479 % THE ENDS 
DATE 29AUGT5 22DECT5 30APRT6 PROG ID DD6-2 DATE 29AUGTS 22DEC75 ZOAPRT6 PROG ID DD6-2 
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PAGE 5. PAGE 5A 
N62 3340 CE OISK EDITOR MOD l2 D062 3340 CE DISK EDITOR MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
OFBF 30 00 OFBB 80 Cil FLAG3,0 IS IT SCAN HIT? 1LO8F OC 04 2891 2843 546 MYC VT IMB414(5),C3HO SET uP VTOC IMAGE 
OFC3 CO 81 15CD 481 EE SCNERR GO TO ERROR RIN 1095 OC 04 2BAB 2839 547 MVC DDOCFM(5),C3H164 
482 1098 F2 87 60 548 J CCNTCS 
OFC? OC O02 2889 OASF 483 MVC VTIMB+6(03) -IDL QC SET FO IN YTOC 54¢ 
OFCO OC 00 2888 OATO 4 84 MVC VTIME+8(1},1IDLOC+1 SET LEVEL IN vTOC 10SE 550 OCPU EQU * 
OFO3 3D OO 2A9D 485 Crl SCOFG,0 SvS TEST MOOULE? 109E C2 01 4800 $51 LA COOF,XR21 LOAD XRi 
OFD7 F2 81 09 486 JE CONTCS JUMP IF NOT 10A2 OC 0&4 2BAB 2B3E 552 MYC DOCFM(5),C3H165 PREPARE DOCF TO READ CPU VTOC 
487 10A8 3C CO 2B4F 553 MVE DOCF,0 
OFDA CO 87 0226 488 8 PACK TO DCP PACK RIN: SET SYS TEST FLAG 554 
OFDE 92 OFDE «89 BC TLR eat LENGTH 10AC CO 87 239C 555 B WINRH READ CPU VTOC 
OFDF OAGE OFEC 490 DC AL2(10L0C-1) SGURCE 1080 80 1080 556 OC xtLi*so* READ FLAG 
OFEIL 2B9A OFE2 491 oc AL2(VTIM=5} LENGTH 10B1 4800 1082 557 oc AL2¢(DODF) 
492 1083 2BA6 10B4 558 DC AL2(00CFB) 
OFE3 OC 1C 481C 2B9F 493 CONTCS AVC ODDF4¢28(29) eVEIM MOVE ¥TOC IMAGE 559 
OFES OC SF 480F OATS &94 MYC ODDF 4223196) ,SAVID POVE HEADER CARD IMAGE 1055 39 OF 2AA4B 569 TBF FSFTCPU,XIOF?® HAS CPU ALREADY BEEN WRITTEN? 
495 } 1089 F2 10 2A 561 JT CCNTOS IF SO, JUMP 
OFEF 3C 01 2BAF 496 WRIVIC MV] DOCF,1 WRITE 2 RECORCES S&2 
OFF3 3C 00 49FF 497 avi DODF 1#255-0 SEY 2ND DODF FIELG TG 0 10BC CO 8&7 OBBA 563 B SETO SET ODDE TO 0 
OFFF OC FE 49FE 49FF &98 MYC CODF14+254(255}, ODDF 14255 ' 10C0 4C O1 15 OAO3 564 MYC 2142 5XR1),0NE INITIALIZE SECTOR & 
439 10C5 4C 03 03 2B80 §65 MYC 3(4,_XR1} »,ACTO INITIALIZE CPU VTOC TO WHAT IT 
OFFD CO 87 239C 500 8 WINRW BRITE 2 RECURDS GN DISK LOCA 4C€ O2 O06 2AhED 566 MYC 64 3-XRLIeCPUILOZ<-21 SHOULD BE 
L00i 40 1OOL 501 oc XLi°408 WRITE FLAG 10CF 4C 6O O&8 2ACTA S&7 MYC 8(1-eXRLEsSAVETD PUT IN LEVEL 
1092 4800 1003 502 OC Ai2(OD0F? @ OF DODDF 1004 4C 0&6 O£ 2868 568 MVE 14(5,¢XR1L) ,CCHOSE PUT IN CCHHR 
1004 2BA& 1005 503 oc AL2¢DD0CFB) @ OF DOCF 1009 46C 14 9F 3220 563 MYC 159¢€21,5X81),ADKSG4+38 INSERT PN E& EC FIELD 
504 ‘ 1ODE 4C if BF 3138 57¢ AVC 191(032,yXR1},ADMSG4#78 INSERT COMMENT FIELD 
1006 OF O1 2AB0 GAD3 505 ALC VTOC#¢2} ,GNE INCREMENT #@ OF VTUC ENTRIES 10€3 F2 87 O& 572k J nCPUVT SKIP TO PREPARE TO WRITE 
100C OC 0} 2272 2AB0 506 MYC FASENE (23 »¥TOCK ®CVE EN # OF VTOC ENTRItS In FAS 572 
1012 OC 04% 226F 2BA5S 507 MYC FES INF-3055 ¢NAS MOVE EIN NEW NAS TN FAS i 10E6 4E 01 15 OAG3 573 CONTDS ALc 21¢42,XR1}),0NE UPDATE # OF SECTORS 
1018 CO 8&7 2242 508 6 WREAS 574 
101C CO 87 12Aa 509 B CONTCS PRINT A BRESSAGE LOEB 3C OO 2BAF 575 WCPUVT AVE COCE,.O *RITE 1 RECOURG 
510 : LOEF F2 87 2C S76 J hiT 3 GO WRITE RECORD 
510 10F2 OC 0% 2B91 28612 577 QFFA MYC VTIMB4+14(5) ,FFALOC SET UP VTOC EMAGE 
SL] CeCe ES ERE SEHERSEHKERELE SEES EES EEL ARTA ERA UEEE EE FEE RKRESL SESH HEE SESS 10OF8 OC O04 2BAB 2B2F 578 MYC CLUCFM(5),C32H162 
512 * RECUORC SPECIAL MODULES IN VTOC FOPMAT IN FAS a} 57¢ 
SL2 FHSS SSKSELHES OAH SH ESTES SE KEEESEEES SEES ESTER SESH ERE CS HSER HKEREESSEES ETRE 1OFE 3C OO 2BAF 580 CONTC3 MVI OOCF,0O SET UP REST OF DDCF FLD 
514 1102 OC 02 2889 2&CS 582 MVC VTIMB+ 603) ,SAVETO~-1 FILL IN ID 
514 ' 1108 OC OO 2B8B 2ACA 582 MYC VT IMB+8( 1) .SAVEID FILL IN LEVEL 
1020 30 FF 2AA0 515 FASHR CLI DCPFG,X*FF® 1S 17 OCP MODULE? 583 
1024 Fe 81 2€ 516 JE eoce 1I0E— CO 87 OB78 584 8 SETTO SET DODF TO ZERO 
1027 38 OF 2AAA 517 TEN CPUFG,.X* OF & 1S 31 CPU DATA MODULE : lll2 0C 1C 481C 28SF 585 MVC CODF+28( 29) .VIIM MOVE IMAGE IN DODF FIELD 
1028 F2 10 70 518 JT OCcPu THEN GO HANDLE IT 1118 OC SF 48DF CATS 586 MYC OCOF4223(965},SAVID MOVE IN HEADER CARD IMAGE 
102E OD O2 OAG6F 2816 519 CLc 1OL0C(3) FFA 1S IT FEA MUDULE? 587 
1034 F2 81 BB 520 JE QFFA ' 1LIE CO BF 239C 588 WRT3 B WINRW wRITE VTOC INFO 
1037 OD O2 OAGF 2B19 521 CLC ICLOC(3),FFB 1S 1T LOADER MOCULE? ll22 40 l1l22 589 DC XLi*40* WRITE FLAG 
1030 F2 81 04 $22 JE QFFB 1123 4800 1124 596 DC AL2(DODF) @ GF ODDF 
1040 CO 87 OF75 523 B RIRNL IF NONE OF THE ABOVE, RETURN ' 1125 2BA6 1126 591 OC AL2(ODCFB) a@ OF ODCE 
524 : 1127 CO 87 L2AA 592 B CONTCS PRINT A MESSAGE 
1044 OC 04 2B91 2825 525 OFFB M¥C VT EMB¢14(5),C3H172 SET UP vTOC IMAGE 593 
104A OC 04 2BAB 2834 526 MVC DDCFM(5)+C3H1L63 } 593 
1050 F2 87 AB 527 J CONTC3 5923 
528 593 
1053 38 FF 2A9C 529 QDCP TBN CPUDFG,X*FF® HAVE BOTH A UDT AND CPU RECD BEEN ' SGQ HERS AARKEEA RARE REARS MEEK ESAS RRA KASERES KE RKLRS RS SREKE SESE RAK LAK SSMS 
1057 CO 90 1599 530 BF OCPERR ENTERED? IF NOT GO PRINT ERROR 595 2 ACD THE FIRST PROGRAM TC A VIRGIN PACK x 
531 SOG CREP ERRERKAEA TE KEE KRHA AEEE CRESTS SHEARER ERERS EERE EERE SEAKKAA SEAS EKES EEE SH 
1058 OC 03 20C6 2852 532 MYC PNAS~1(41,C3H1L5 SET UP SUBRUUTINE PARAMETERS TO ’ SOT 
1061 3C 05 20C7 533 AVE PNAS,;5 MOVE THE SSW,UDT,// CHAIN AND 597 
1065 OC 03 2B8A4 2852 534 MVC NAS-1(4},C3H15 CPU RECGRDS 1126 OC O2 2889 CA6F 598 NWRT MVC VIEME+6(3},TOL0C SET UP 1D FOR 1ST VTOC RECORD 
106” 3C O1 ZBAS 535 MVE NAS ¢] : 1131 OC OC 2688 CATO 599 AC VIIMB+8(1},70L.0C4) Put EN LEVEL 
LO6F OC O1 2BCF 2508 536 &YC SEC THUS) 9 K4 SEY # OF RECTDS TOG MOVE 1137 OC O& 2891 2848 600 MVC VTJIMB4+1405) ,C4HOR] PUT DISK ADSWESS IN 
537 1130 OC 04 2BAB 2B4D 601 MVC OCCFMI5},C2HCR} SET UP DDCF FEELD 
1075 CO 87 20C8 538 8 RwWRTAN TO SUERTN TO MOVE RECTOS 1143 0C 1C 481C 28°F 602 MYC DODF¢28(29),VTIM SET uP vV1IOC FIELD 
539 1149 OC SF 480F OAT4 603 MVE DODF4+223(96},SAVID 
1079 OC O04 20CT 226F 540 MVC PNAS(S}) pFASINB+8 SET UP SUBRTN PAR* RS TO MUVE CCP 114F CO 87 GFEF &04 B WRIVIC 
LOTF OC 04 2BAS 2843 541 MYC WAS (5),C3HO PROGRAM TO FENAL RESTING PLACE } 605 
1085 OC 01 2BCF 2898 542 MVC SECT#(2),SCTR 605 
943 605 
10868 CO 87 20C8 544 B RWRITN TO SUBRTN TO MQVE RECTDS } 605 
545 606 EKER RSSEREE EKER EREREAAKAKEEEAARERS EASE AT RREK ARES ERLE KL EEK EEAEKRRSE KK 
} 
DATE 29AUGT5 22DEC75 3Z0APR 76 PROG ID DD&—2 DATE 29AUGT5 22DEC75 30APR76 PROG I0 DO6-2 
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PAGE 6 PAGE 6A 
0062 3340 CE DISK EDITOR MOD 12 bbe? 3340 CE DISK EDETOR MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
607 * REP CARD ERROR HANDLING ROUTINE + 1104 665 END2 EQU # 
608 RE ERERAEEEKERAESSHREKLENER ASR AKEEEES SASS SHAE LSRRES SEK STARK SKS EASE KSEE AS L104 38 OF 2AAA 666 TBN CPUFG, X*°OF® 1S IT A CPU-MEM MODULE? 
609 1108 F2 10 12 667 JT CONT G4 THEN PUT IN CPU DDCF 
609 ; 668 
1153 CO 87 O21A 610 REPERR & PRINT PRINT "ERROR IN REP CARD? L1DB OC 04 2BAB 2861 669 MVC DOCFMC5) »FFALOC LOAD ODCEF 
LL57 C2 LIS? 611 DC XL1*C28 FLAG LIEL 3C 00 2BAF 670 MVI  DDCF.O 
1158 22 1158 612 DC ALLCERRS-ERRSB) LENGTH } L1ES 36 FO 2AAA 671 SBF CPUFG,»X*FO® TURN OFF FFA MODE IF IT IS ON 
1159 2EBA LISA 613 Dc AL2(ERR5} ADDRESS OF MESSAGE L1E9 F2 87 OA 672 J WRTZ 
L256 FFES LI5C 614 pc XL2°FFES® ID 673 
615 j LIEC OC 04 2BAB 2866 674 CONTGS MVC ODCFM(5),CMIDLC MOVE IN DOCF FIELO TO WRITE DATA 
Li5D CO 87 2ATT 616 B PRINT2 PRINT CARD I KAGE LIF2 3C OO 2BAF 675 MVE DDCFE.O iN NEXT CPU LOCATION 
6lF &76 
1161 CO 8? 0222 618 B HALT TQ OCP HALT } LIFS CO 87 239C 677 WRTZ2 8B WINRK WRITE RECORD ON DISK 
1165 FFES 1166 619 pc XL2°FFES®* 1D LIFA 40 LEA 6678 DC XLi%4oe FLAG 
620 ‘ LEFB 4806 LIFC 679 pc AL 2(DDDF} @ OF DDOF 
1167 CO 87 0E32 621 8 LOGP1 i LIFD 2BAs LIFE 686 DC AL2(DDCFB} @ OF DOCF 
622 681 
622 : LIFE CO 8? 2198 682 B STPFELD INCREMENT CONTROL FLELG 
622 F 1203 ZB66 1204 683 BC ALZ2(CMEOLCH 
$22 684 
622 1205 CO &7 1026 685 & FASHR ENTER ¥VTOC LEKE RECORD 
622 } 686 
$22 686 
622 &86 
423 ‘eed eicdecasabndsesencciei dias dea ewentea ee ee eenseas se claaiieeeeet 686 
624 * ADD CPU-MEMGRY OR FFA CARD DELKS * 1209 CO 87 C21A S87 STP2 6 PRINT PRINT "TOG HANY CARDS§ 
625 Ae RRRASSELE ERE EREE KSEE SAR EER ARS RSE RSRERES HARE SRE KL RE RKE SKEET RES ERSTE USES 1200 C6 1206 6066 BE oc ZXEESCSE FLAG 
526 120 2F 120 689 Bo ALL(ERRS-ERRESB? LENGTH 
626 L20F 2086 1216 469C De ALZCERRB? ADDRESS 
116B 627 ADDFFA EQU #® iZ121 FFES 1212 691 Dc XLZ°FFEBE 20 
L168 34 FO 2AAA 628 SBR CPUFE.X*FGE SEY FLAG FOR FFA MODE &92 
629 1213 CO &7 0222 693 & HALT TC DOP HALT RIN 
LL6F 630 ADDCPU EQU *® L2L7 FFES 1218 694 oC XL2°FFEBS FLAG 
631 I 695 
L16F C2 01 4800 632 LA DDOF 2 XR2 LOAD XRI 1219 CO 8&7 OC8F 696 B LENKM 
1173 04 30 2808 ZAOB 633 ZAZ  SEGCTRO4},D101} INITIALIZE SEQUENCE COUNTER 697 
L179 OC OL 2277 2847 634 MVC TEMP3(25-ZERO ZERO OUT POINTER } 697 
635 697 
LLTF CO 87 2749 636 GETS 8B RECGRD READ A RECORD 697 
637 t 698 RREHFREEEEASRESESES ELREERESERSEE SS EALES HSS ESTE RE RE SARE SES RET AEE REE EES 
1183 8D C5 00 638 CLE O€9XR23,C°E® iS IT aN END CARD? 699 * CPU % MEMORY SECTION * 
1186 F2 81 4B 639 JE END2 760 * THES SECTION PREPARES THE MODULE TO BE ALEED %* 
1189 8D E3 06 6406 CLI Ola XRZIeC PTE IS 17 A TEXT CARD? ' 7OL * TQ THE PACK. * 
218c CO O1 1521 641 BNE IN¥CD GO TS INVALID CARD RIN 7Oe2 SRAAE TRESS TRASH A LESTER RES ERES SS SESS SS SELES ELE LER SST ER AHRSH HHS RHA T STEAKS 
642 703 
L190 8D 03 5F 2B0E8 643 CLO = 9504, XR2} e SEQCIR DOES SEQUENCE # MATCH THE EXPECTED , 703 
L195 CO OL 1542 644 BNE  INVSEQ SEQUENCE #7? i2iD 704 CPUPG EQU) # 
L199 8D 03 SB 2ACA 645 CLO =. 91. 04» XRZ} -SAVEED CGES ID MATCH EXPECTED 107 121D 34 G& 1Z2A9 705 St CPUPGR+3,ARR SAVE RETURN ADDRESS IN CASE NOT 
LL9OE CO O1 1572 646 ENE  INVID } : 7o6 * CPU-MEM MODULE 
64T 1221 BD FO 58 707 CLE 8B eXkZ}5C°GO? iF HIGH ORDER BYTE OF MODULE NOT 
LIA2 06 30 Z80R 2ADB 648 AZ SEQCTRIG) -DLELI INCREMENT SEQUENCE COUNTER 122¢ £2 Gi 78 708 JNE END2 ZERQ THEN NOT CPU MODULE 
LLAS CO 87 1F59 649 B CMPRSL COMPRESS DATA } 70S 
650 1227 3C FO 2AA3 TiO AVE FADDeC*O® RESET 3741 FORCED ADD FLAG 
L1AC 3C 00 GAG 651 MVE READEN,O ZERO OUT HIGH GRDER BYTE 1228 38 OF 2AA8 7Li TEN  FSTCPU,XIOFS IS THIS THE SECOND MODULE? 
652 ; 122F 38 OF 2AAB Fi2 SBF EO ESTCPU,KPOF® TURN GFF FLAG 
L1BO O€ GL Z277 OABL 653 ALC  TEMP3(2}-READINGL INCREMENT POINTER 1233 F2 90 G6 713 JF CONTGL IF NOT SECOND MGDULE», THEN JUMP 
11B6 OF OL 2277 OA03 654 ALC TEMP3¢2),0NE ADSUST IT 714 
lleC OD O1 2277 2877 655 CLO TEMP3421.X256 IS POINTER TOO HIGH } 1236 OC 04 2B66 2870 718 MVC CMEDLC(5},CLHCRI SET TG WRITE REST OF MODULES 
LiC2 F2 84 44 656 JH STP2 IF IT IS PRINT ERROR TAG 
657 123C 80 OL OC 2AE6 FLT CONTGL CLO = 12¢2¢XR2)ePR IS IT A HEADER CARD? 
LI1C5 6C 41 41 45 658 MVC = 65 (66 g KR1 94 H9 Ey XR2Z) STRIP GFF LENGTH AND ADDRESS AND } 1241 F2 61 14 718 JE CONTG2 iF NOT DON®T RESET SEQ # COUNTER 
659 * AQD TO CONTENTS GF SECTOR 719 
11iC9 36 C1 OA81 660 A READIN+1,XR1 INCREMENT FIELD POINTER 1244 OC O1 2277 2647 720 MVC TEMP3E2)-ZERO ZERO OUT BYTE COUNTER 
L1CD 0? O1 O01 661 LA L(oXR1L}sXR1 ADJUST IT ; 124A 06 30 2808 2408 721 AZ SEQCTRI4},DL EL} INCREMENT CARD SEG # CTR 
662 1250 C2 01 4800 722 LA DDOF, XR1 RESET POINTER 
1100 CO 87 LLTF 663 B GETS IF NOT READ MORE 1254 CO 87 1183 723 8 GET54+4 ENTER CARD READ MODE, SKIPPENC READ- 
664 I 724 * ING THE FIRST CARD. 
664 1258 CO 87 0226 725 CONTG2 B PACK 
| ) 
DATE 29 AUGTS 22DEC75 3OAPRT76 PROG ID CD6—-2 DATE 29AUG7T5 220ECT5S 30APRT6 PROG IG DD6&~2 
EC NOw 827804 827836 571872 PAGE 6 ye NO. 827804 827836 571872 PAGE oA 
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PAGE 7) PAGE TA 
OD62 3240 CE DISK EDITOR MOD 12 pee 3340 CE DISK EDITOR MOOD 12 
ERR LGC OBJECT CODE ADOR STMT SGURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
125C 02 125€ 726 DC Itl*2¢ LENGTH } TB KEKEKREKERERESAK SEK EKRESEREE SEEK SERSEARAERERERES REA SHEARS SESRERKERSEETLERAVETHERR 
1250 OADA 125E 727 oc AL 2(READIN+¢ 90) SGURCE 784 * THIS SECTION HANDLES COMMENT AND OCP CARDS * 
125F 2805 1260 728 DC AL2(CMID) DESTINATION 785 * * 
729 } TEGQ ERESERKEREEESEEREE SERS EARAEEEEE ESTER RAREEEEKEKESEREDREE IS EEKEEAKASERAEES 
1261 30 00 2BD5 730 CLI CMID,X*DO® SEE IF LOW ORDER BYTES ARE IN THE 787 
1265 F2 82 3A 721 JL END3 RANGE X*DO*-X*F5*®. IF SG, IT IS A ‘ 787 
1268 3D F5 2805 732 CLE CMID,X*F5* CPU-MEMORY MODULE. > 12Fl 788 ASTRK = EQU + 
126C F2 84 33 733 JH END3 : 12F1 8D 03 SF 0809 789 CLC 95 (49XR2) 5 BLNK IS THERE A SEQUENCE #7? 
734 12F6 F2 81 18 790 JE CONTAS IF NOT SKIP CHECK 
126F 3A OF 2AAA 735 SBN CPUFG,X*OF® SET CPU FLAG 12F9 8D 03 5B 2ACA 791 CLC 91(4—9XR2},SAVEID IS ID SAME AS HEADER CARD 
736 12FE CO O21 1572 792 BNE INVIO GO HANOLE IT 
1273 04 30 2808 2AD4 737 ZAZ SEQCTR(4},0001) RESET SEQUENCE # COUTER . 1302 8D 03 SF 2808 793 CLC 95(4,XR2) ,SEQCTR ARE SEQ #*S EQUAL? 
1279 8D O03 5SF 2B0B 738 CLC 95 (4_,XR2Z2)-SEQCTR IS SEQUENCE # CTR =0? } 1307 CO O1 1541 794 BNE INVSEQ IF NGT PRINT ERROR 
127E CO O01 1541 7139 BNE INVSEQ IF NOT GO TO ERROR HANDLING RIN 1308 06 30 2808 2ADB 795 AZ SEQCTR(4);59101) INCREMENT SEQCTR 
1282 2C SF OATS 5SF 740 MVC SAVID(.96)595( _XR2) SAVE HEADER CARD IMAGE 796 
1287 2C O03 2ACA 5B 741 Mv¥C SAVEID(4),910¢XR2) SAVE I0 ) 1311 6C SF 5SF SF 797 CONTAS MVC 95(96_,XR1),950,XR2) LOAD DODDF 
742 1315 CO 87 OFI9 798 8 LooP4 
128C 80 O1 SA 2AD6 743 CLC 90(2_ XR2)},DD0 IS THIS THE FIRST CPU MODULE? \ 799 
1291 F2 Cl OA 744 JNE CONT G3 JUMP IF NOT r 1319 3C 08 2B8F 800 DCPCDI MMVI DDCFSM,8 SET TO OPERATE CN RECORD 8 
1294 3A OF 2AAB 745 SBN FSTCPU, X* OF* SET FIRST MODULE FLAG 1310 38 FO 24A0 801 TBN DCPFGs,X*FO® IF AODING SSW TO OCP THEN DOESTROY 
1298 OC 04 2866 286B 746 MVC CMIOLC( 5) ,COHO048 SET DDCF TO WRITE FIRST MODULE 1321 F2 10 08 802 JT PRWR OLD ONE. 
747 *# iN CYt O,HD O,REC 48 1326 8D 01 O05 OBOS 803 CLC 502, XR2),.BLNK IF FIELD IS BLANK THEN DESTROY 
148 1329 F2 01 O7 804 JNE NBLNK EXISTING ONE 
129E CO 87 116F 749 CONTG3 B ADDCPU TO ADD CPU PROGRAM TO PACK 132C 6C 5f SF SF 805 PRWR MVC 95(96yXR1) » 950 »XR2) MOVE IN NEW RECORD AND GO WRITE IT 
750 } 1330 F2 87 Fb 206 J WRTL 
12A2 3B OF 2AAA 751 END3 SBF CPUFG.X*OF®* RESET CPU FLAG 807 
12A6 CO 87 0000 752 CPUPGR B *-* RETURN TO CALLER ‘ 1333 34 O01 1347 808 NBLNK ST TMADR,XR1 STORE xRrl 
753 > 1337 OC 03 2BBE 2852 809 MVC DDCF SM—-104) ,C3H1L5 READ IN EXISTING SS® RECORD 
753 1330 3C 0O 28C3 810 MVI ODOCFS,0 
753 1341 CO 87 239C 811 B WINRW 
753 } 1345 80 1345 812 DC XL1*8o* READ FLAG 
753 1346 0000 1347 813 TMADR DC AL2(*-#)} 
753 1348 2BBA 1349 814 oC AL2(COCFSB) 
753 , 815 
753 134A 40 02 O2 2AFA 816 cCLe 2(3,XR1),SSWID 
F544 ERRESKSEKSEHRAKKKSKKSSERSRSERESSERHESEEK SHEE SAE KERR KSEKRSKKERSEKREKHKSESESERSE SEES 134F CO Ol 132C 817 BNE PRWR LY THEN WRITE NEW GONE 
755 * PRINT INFG GN PROGRAM ADDED AND QUIT OR = 1353 C2 02 OA82 818 LA READIN+2 »XR2 INITIALIZE REGISTERS 
756 * GET READY TO ADD ANOTHER PROGRAM * 1357 D2 O1 02 819 LA 2teXR1},XR1L : 
757 SEFESRAERESEE EE SS ELE SEVETER ES SAESERLE SESE SE SERELESAEAES SEE SSESS SESE SETS 135A D2 Ol O21 820 LA 10,XR1)—-XR1 SCAN TG END OF RECORD 
758 é 1350 70 40 01 B21 Cui 14,XR1),C* * If NOT BLANK, DO AGAIN 
758 1360 CO 01 135A 822 BNE *-6 
12AA OCD OL 30FD 2AE6 759 CONTCS CLC ADMSG4+19(2)..PN IS MESSAGE TO BE PRINTED VALIL? % 1364 7C 6B Ql 823 tCOPS MVE L(eXRY}LC*,* ADD COMMA 
1280 F2 01 18 760 JNE GET3-4 IF NOT, THEN DON?T PRINT IT : 1367 D2 01 03 824 LA 302XR1),XR1 INCREMENT POINTERS 
761 136A E2 02 03 825 LA 30 —eXR2)_ XR] 
1283 OC O02 30F4 2AC9 762 MVC A0MSG4+10(3) ,SAVEID-1 MOVE ID INTG PRINT FIELD 136D 6C O01 0O OO 826 MVC O02eXR1)-400-¢XR2) MOVE IN NEW SSW 
1289 3C $0 30F5 763 AY I ACMSG4+11,C*-* INSERT - 1371 8D 6B Ol 827 CLI 1(,XR2),C*,¢# IF NEXT CHARACTER IS A COMMA, 
1280 OC O00 30F6 ZACA 764 MVC ADMSG412(1),SAVEID MOVE LEVEL # INTG PRINT FIELD 1374 CO 81 1364 828 BE LOOPS THEN OGN*'T QUIT 
12C3 CoO 87 O2Z1A 765 B PRINT PRINT *"ADDED~-~- XXX ETC.* 829 
12c? 02 12C7 766 oc xL1*'o02°* FLAG } 1378 35 O1 1347 830 L TMADR, XR} RESTORE REGISTERS 
12C8 4F 12C8 767 OC AL1(CADMSGE-ADMSG) LENGTH 137C C2 02 OA80 831 LA READIN, XR2 
12C9 3138 12CA 768 DC AL2( ADMSGE~1) ACDRESS ) 1380 F2 87 Ab 832 J WRTL GO WRITE RECORD 
769 833 
$2C8 C2 O1 4600 770 LA ‘DDDF,xAR1 1383 3C O7 2BBF 834 DCPCD2 MVI DOCFSM,7 WRITE INFO IN RECORD 7 
12CF CO 87 2749 771 ~*+GET3 B RECORD READ A RECORD 1387 7C 40 FF 835 MVI 2550 eXR1),C® 8 BLANK OUT 
1203 AD SF SF 60 772 CLC 95(696sXR2),96(,XR2) IS IT A BLANK RECORD? b 1384 5C FE FE FF 836 MVC 25402554XR192255(,XR1} ENTERE OODF 
1207 CO 81 12cF 773 BE GET3 THEN FLUSH IT 138E BD E2 09 837 CLI 9(-XR2},C*S* DO COL*S 10-12=*STO*? 
774 1391 F2 81 95 838 JE WRT] GG WRITE IT 
12D8@ 368 OF 2AAD 775 SBF ACDFLULG, X* OF * TURN GFF ADD SWITCH ) 839 
122F BO 612 00 TT6 Cul OUexR2),-C*7* IF IT IS A *§/" GR A *$* THEN GG TG 1394 6C OB OB OB 840 RVC 11412 ,XR1),110_,XR2) MOVE IN CARD IHAGE OF // CHAIN 
l2t2 CO $3 OC4E 777 BE RTRN SECTIGN THAT HANDLES CONTROL CARDS 1398 34 O1 1430 841 ST TEMADR ¢ X21 SAVE XR1 IN GRDER TO RESTORE IT 
izte et $8 00 778 Cul O(,XR2),C*8$* } 139C 3C 02 2BEA 842 MVI ICTRe2 PREPARE TO KEAD IN 2 CARDS 
1269 CO Al OC4E 779 BE RTARN 843 
120 CO of OO2F 780 8 RTRN2 IF NOT, ASSUME IT IS A HEADER CARO 13A0 4D 02 OB 2ADE 844 CLC 1103, XR1},048 iS IT A 48 IMAGE CHAIN? 
781 *® AND GG HANDLE IT F 13A5 F2 81 OD 845 JE GETT IF 17 IS, JUMP 
782 13A8 4D O2 OB 2AE1 846 Cie 11(3,XR1),0120 If NOT =120 THEN ERROR 
762 13AD CO 01 15A0 847 BNE CHNERR 
782 ) 848 . 
782 138: 3C OS 2BEA 849 MVI ICTR-5S PREPARE TO READ IN 5 CARDS 
: 3 
DATE 29AUGTS 22utc7s JO APRTO PROG ID OD&S-2 DATE 29AUGT75 22D0EC75 30APRT76 PROG Iv Cvé<-2 
EC NOW 827604 827836 $71872 PAGE 7 eee NOw. 827804 827836 571872 PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 42482171BM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248217 
PAGE 8 PAGE BA 
DD62 3340 CE DISK EDITOR MOD 12 0D62 3340 CE DISK EDITOR MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
13B5 CO 87 2A2F 850 GETT 8 PRINTL OCISPLY "ENTER CHAIN IMAGE «ee? 1459 F2 81 12 914 JE HDRDCP 
1389 06 1389 851 oc XL1°06¢ FLAS 915 
13BA 26 138A 852 oc ALLE MENU4S—MENUSB) LENGTH 145C 38 O1 O20A 916 TBN SWITCH, SSW17 CHECK IF USING 3741 
138B 3435 13BC 853 oc AL2EMENU4) MESSAGE ADDRESS 1460 F2 90 96 917 JE INVHDR INVALID HEADER NOT FROM 3741 
138D CO 87 2749 854 g RECORD READ A RECORD 1463 30 FO 2483 918 CLI FADD,CfOt CHECK FOR FORCED ADD 
855 1467 CO 01 OCé6? 919 BNE FLAGS INVALID CONTROL RECORD 
13C1 3C 30 2BEB 856 MVI LCTR,48 SET LGOP COUNTER 1466 F2 81 8B 920 JE INVHDR INVALID HEADER RECORD 
13C5 BD 40 00 857 LOGP30 CLI OL eXR23560% & iS IT A BLANK CHARACTER? 146E 3C FO 2AA3 921 HORDCP MVI FADD,C*Ot RESET 3741 FORCED ADD FLAG 
13C8 CO 81 15AD 858 BE CHNERR IF SQ GO PRINT ERRCR 1472 2C 02 2AC9 3E 922 MYC SAVEID-103},6205XR2) SAVE DCP ID FOR FUTURE COMPARES 
L3CC €2 02 OL 859 LA 1(yXR2}_xXR2 INCREMENT ADDRESS POINTER 1477 2C 00 2ACA 3B 923 MVC SAVELOC2RD 5596 5XR2) 
13CF OF OO 2BEB 0A03 880 SLC LC TROL} ONE DECREMENT CCUNTER 147C 3C FF 2AaG 924 MVE DCPFG,X#FF¢ SET OCP FLAG 
1305 CO O21 13C5 861 BNZ LOOP 30 IF NOT EQUAL TO ZERO, 00 GVER 1480 2C 14 OA34& 34 925 MVC S AVEDB4+310215552(,XR2} ADJUST PN & EC FIELDS 
1309 C2 02 OA8O 862 LA RE ADIN, XR2 INITIALIZE XR2 1485 OC 1F OAS4 315F 926 MYC SAVIDB+63(32) ,0CPP INSERT COMMENT FIELD 
863 148B 2C 14 3116 34 927 MYC ADMSG4+38(21)},52(,XR2} GO THE SAME FOR THE MESSAGE 
1300 6C 2F 38 2F 864 MYC 59(48,XR1L}3 647i _XR2? MOVE IN CHAIN ERAGE CARD 2490 OC LF 3138 3155 928 MVC ADMSG+78(325-DCPP PRINTED AT END OF OPERATION 
13€1 D2 G1 30 865 LA 4B ye XRL}eXR1 INCREMENT POINTER 929 
1364 OF 00 2BEA OAG3 846 SLC IC TROL}, ONE DECREMENT COUNTER 1496 3C 04 2B5EA 930 RVI ICTR,4 SEY UP LOOP COUNTER 
13EA CO O1 1385 B67 BNZ GETT IF NOT O, READ ANOTHER KECOKL 149A CO 87 OBBA 931 LOGPIS 5B SETO SET DDDF Ta oO 
868 1496 36 O1 2877 932 A X256yXR1 ENCREMENT FIELD POINTER 
13EE 35 O1 1435 869 L TE MADR » XR2 RESTORE POINTER TO OREGINAL PLUS. 1442 OF 00 25EA CAD3 933 SiC IC TR(1),0NE DECREMENT COUNTER 
13F2 Fe 8T 34 870 J WRT} GO &RITE RECORD 14A8 CO 01 149A $34 BNZ LOOP Lg TAKE BRANCH IF CTR NOT O 
871 935 
13F5 BD 40 03 872 DCPCD3 CLI 3¢oXR23 Ce ¢ IS IF & UDTX RECORD? 14AC OC 03 2BAA 2852 $36 MYC DOCFEM-144) .C3H15 SET UP DDCFE FIELD 
13F8 F2 81 OB 873 JE DCPCNS IF NOT; THEN SKIP 14B2 3C 05 2BAB 937 MY I ODCEM.5S 
13FB 38 FO 2A9C 874 TBN CPUDFG,X*® FOS HAS A UDT RCD ALREADY BEEN ENTERED? 1486 3C 03 2B4F 938 VE DDCF,3 
13FF CO 10 1£10 875 BT ud TXP IF SO-e THEN ACO UDTX RECORD 939 
1403 £2 87 3A 876 J DCPCN2 OTHERWESE CONTINUE PROCESSING 168A CO B87 239€ 940 B RINR® WRITE & RECGRDS OF S 
877 LSEE 46 L4BE 941 oC XL1°408 WRITE FLAG 
1406 8D 0: 95 2807 878 DCPCNS CLC 5€2+XR2}-HIENID IS LOADER fO=tCit 14BF 4800 14C0 942 DC AL2(DODF} 
1408 F2 O1 32 879 JNE DCPCN2 14C 2BA6 14602 943 oC AL2(DDCFB) 
L40E 6C SF SF 5F 680 MVC 956965 XRE} 795! —XR2) WRITE UT RECORD 944 
1412 3C O06 2BBF 6C1 NVI DDCESHes& wRITE AT RECs 6 1403 3C 05 2BEA 945 MVE ICTR;5 INITIALIZE COUNTER 
1416 3A FO 2A9C 882 SBN CPUDFG yX*F OF SET FLAG SAYING UDT IS ENTERED 14C? €2 O01 4860 946 LA DDDF.xR1 INITIALIZE ADDRESS POINTER 
L41LA F2 87 OC 883 J BRTL GO BRITE RECORD 14C8 CO 87 2749 947 10083 86 RECORD REAC NEXT RECORD 
884 L4CF OF O00 2BEA OA03 948 SLC ICTR{1L} ONE INCREMENT COUNTER 
141D 6C SF SF SF 885 DCPCD4 AVC 95(96,XR1} 954 ,XR2} wRITE CPU RECORD 1405 CO 01 L4&CE $49 BNZ LOGP3 IF NOT READ ANOTHER RECORD 
1421 3C 05 28BF 886 MVE OLCESM,5 PRITE AT REC. 5 1409 30 FF 2AA0 3590 MY I DCPEG,X EFF? SET OCP FLAG 
1425 3A OF 2A9C 887 SBN CFUDFG,XtOFre SET FLAG SAYING CPU RED ES ENTEXED 1400 CO 87 2749 951 GETS 8 RECORD GET NEXT RECORD 
888 14E1 CO 8&7 LESS 952 B CMPRSI CCHKPRESS RECORD 
1429 OC 03 ZBBE 2852 869 BRTI MYC DDCESM- 164) ,C3H15 SET DOCFE TO WRITE 1 RECORD 16E5 BD 62 02 353 CLE 20—¢XRZb 92 IS ADDRESS < 2007 
142 3c 00 283 #90 Mv? DOCES.9 16—E8 CO O01 24DD 956 BNE GETS GET ANOTHER RECORD IF IF 3S 
891 14EC 2% 63 2808 5F 955 ZAZ SEQCTRO4} 6 9544—XR2} INITIALIZE TO CURRENT SEQUENCE 
1433 34 O1 163D 892 ST TE MADR, XRE SEi DDDF PARAMETER 956 
893 L4FE 3C FE 2896 957 MVE NWREEGe XT FFE SET NO WRITE ON VTOC FLAG 
1437 CO 87 239C B94 8 WIKRE WRITE 2 RECORD AT C3H15Rx 14F5 CO 87 ODER 958 B DCPCTL THEN TAKE THIS JUMP 
1438 40 143B 895 DC KLE*408 WRITE FLAS o5¢ 
L43C 0000 143D 896 TEMADR DC AL ef t-#} a@ OF DDDF FIELD 259 
143E 2B8BA 143F e997 oc AL2(DOCFSB3) 2 OF DDCF FIELD 9593 
ROA 359 ‘ 
31440 38 OF ZAAE pies DOPCN? TBN CFEIGFES. X*OF# ¥S THIS $COREIS GPTION? GEO SHSESKSESKAASEAERS HAAR RSREAE RES ERERKSREKSE SERS SSARERALRESL HSE STAPERE RHE ARRS 
1444 CO 10 LFOS 900 BY CFRTRN iF SO RETURN YO iT Sol * THIS SECTION HANDLES ERRORS IN CARDS * 
1448 38 FO 27AASD eck TEN DLPFG.XtFOF iF FROB €RES. FHEN GG TO *RIRNAE Gl KERRERSEKEERREKE LE SESE ERE KER TERHEKARSRASARSKAERHKASHSESETHES IAS SAE KREGER 
144 CO 90 1707 $02 BE RTRNBA $63 
1450 CO 87 O£32 903 B iLQGP} GTHERWISE RETURN TO READING CARDS G63 a 
904 * IN € ADD 14F9 CO 87 O214 964 INVHDR B PRENT PRINT "INVALIO HEADER CARDS 
905 14FD C6 L4FD 869965 oC XLitC6? FLAG 
905 LGFE 32 14FE $64 Dc ALILERR3-ERR 3B} LENGTH 
gos 14FF 2057 1600 967 £ ALZCERRS} ADDRESS 
905 1501 FEES 2502 968 DC XL2°FFE 4 id 
QOG FEKSHHAESREAERAEAR RE ERE RAKAARE SASSER RKC ERE SAKES ERRARSHKAREKSAER SKE RES 15032 CO 87? G222 969 B HALT TO BCP HLT RTN 
907 < THES SECTION TESTS TO SEE FF THIS IS * L507? FFE3 1508 970 pc XL2* FEES? iD 
908 * A DCP DECK, AND IF IT IS, IT PREPARES * 1509 CO 87 O5CB 97} B EDITAA RETURN 
09 * it EA ‘ * 972 
ei * te ee * 1500 CO 87 OZEA 973 TNYSCD B PRINT PRINT "INVALID SYS TST HOR CARD® 
SLL Fee SKE RAEE ELE REEK ERG RAK AK RELA SHAS SEEK SA KE KAARSRAAASESHAREKSKERE KS SHH ES iSil ¢é 15il G74 DC XLI* Cb? FLAG 
gle 1512 1F 1512 975 DC AL LL ERRS~ERR4SB) LENGTH 
912 _ 1513 2F56 1514 976 DC ALZCERRS} ADDRESS 
1454 8D O02 3E 2B1C 913 TSTOCP CLC 6263¢XR2),DCPR ED iS IT A DCP MODULE? 1515 FFES 1516 9377 DC XL2° FFES? FLAS 
DATS 29AUGT7T5 22DECTS ZOAPRT6& PROG ID DD6—-2 DATE 29 AUG75 22DECT75 Z0APRT6 PROG 1D oLé~2 
EC NO. 827804 827836 571872 PAGE 8 EC NOw. 827804 827836 571872 PAGE SA 
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278 E HALT 

379 DC XL2SFFEGS 

9BO & EDETAS 

$83 

Sel 

982 ENVED  & PRINY 

983 oC KLL&c2é 

S84 LC ALL GC ERRS~ERKSBE 
265 aC ALZFLERRSS 

286 ot XLZ°PFES® 

987 8 PRENT@ 

SEB 

SBS 6 RALT 

990 bo RL 2° FRESE 

991 

99zZ cud CRUFG, O 

893 BE LOOP: 

994 8 Gtts 

995 

995 

996 THVSEQ AYE ERROATSI SIS ESARZI 
997 ev ERROC14) »SEGCTR 
996 

999 & PRENT 

1000 DC KLIt Cot 

100] DC ALICERRGE-ERR GB} 
1002 uC ALZCERRE} 

1063 oc XL2°FFEG® 

1004 & HALT 

i005 5G ALZ*FF EGE 

L006 
10G7 CLC SEQCTRKI4);,0C6 
1008 BE GE¥2 

1009 

1010 CLI CPUFG,0O 

1011 BE LGOP1 

1012 B GETS 

1013 

1023 

1013 

1013 

1014 INVID MYC ERRTA(435914 9XR2} 
1015 MYC EKR7(4 3, SAVETD 
1016 

1017 & PRINT 

1018 CC xL1i*ce® 

1019 DC ALI CERRT-ERRTB} 
1029 DC ALZ(ERRT} 

102i oc XL2°FFETS 

1022 & HALT 

1023 DC XL2°FFET* 

1024 

1025 Cli CPUFG.O 

1026 BE LOGP? 

1e27 & GETS 

1026 

1028 

1029 DCPERR B PRINT 

1030 DC XLI*C6® 

1031 cc ALLCERRLO-ERR1IOB) 
1032 DC AL2Z(ERRIO) 

1033 DC XL2°FFEAS 

1034 
1035 6 HALT 

1036 oC XL2*FFEAP 

1037 

1038 e EDITAA 

1039 

ZOAPR T6 
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PART 
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4248217 
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NO. 


1040 CHNERR EB PRINT PRINT ®ERRGR IN CHAIN RECORD? 

1041 OC XL1®cC2* FLAG 

1G6é2 oc ALICERREB-ERREBB) LENGTH 

1043 CC AL 2¢ERREB} MESSAGE ADDRESS 

10% oC XL2°FFEBS 1d 

L065 

1044 8 PRINT2 PRINT CARD IMAGE 

LO&? 

148 TEI CFIGEGrsATCEE RETURK TO CUNFIGURE PROGRAM? 

10469 BY CERT FE SO, RETUKN 

2o5¢€ £ HALT QTHERWISE HALT AND TERMINATE 

LOS] OG XLZPFFEBE RALT £0 

1052 & LOoPL TERBINATE SECTEON 

LOSS 

i053 

LOS2 

1083 

105 SCRERR & PRERNT PRINT “SCAN ERROR=- RETRY? 

1055 oC XLIi*C6® 

LO56 Dt ALLE SCERR~SCERRB) 

1057 DC ALZESCERR} 

1058 dC XL2°FFEDBE 

1659 B HALT HALT = ED 

iG40 DC XL2°*FFED® 

1661 B %~& 

LOGzZ 

ROG? 

1662 

1062 

L062 

1062 

1062 

1062 

10863 BESEKESRTKATARKEEKKHKERKSLSSKSKSERSEKS EKER SKE KKK REKAE STREAK RREK SHER KS EH 
10466 RKSESC KEK SSYSEEKSEKESSESA VERSE EKEESSRERKESSASEARESKEARCERKESCSSE EKE SAE SKEKRE SPH AK GES 
1065 *#% $OEL a 
1066 *% ee 
LOST ** THIS PART OF THE PROGRAM DELETES PROGRAPS ON THE CE DATA ae 
1066 #¢ MODULE eS 
1069 #% ey 
1076 BKEBRSRSSSEA SERS SKS RKEKK KEK EA EHKK KAT SE RE RSECKKA SERS RHEE KKK RH SCH AKSESE ERS SES 
LOFL EGCREEGHASSSSKEKKEKEK SS RAEKKLEA SHE GREG SERSS ASEH S SE CE MES LEK REESE KE SL EK ESLER E CEH 
LOPE. 

1O772 

OTS DELL EQU % ENTRY POINT FOR $DEL 

1074 

1075 SBF DELFG,X*OFr?® RESET S$DEL FLAG 

LO7S Buf AOMSG+11,C5-# SEF UP MESSAGE TO PRENT 

LOTT KC AOHSG+607),FPGHMDEL 

1078 «VC ACMSG+38( 21} 5158¢0,XARLE 

fOTS MYC ADCMSG* 781322 yk 914 _,XR1} 

LO8G 

iG] B PRINT PRINT ©XKX DELETED?® 

1082 oC XL1L®&02° FLAG 

1a63 GC ALLCADMSGE~-ADMSE) LENGTH 

LO84 DC ALZ2¢ADMSGE-1} MESSAGE ACODKESS 

1085 

LVEE& DOELS|S cul Tig XR29,C0%,° 1S THERE ANGTHER PRGK TO DELETE? 
L662 ENE EDETAA fF NOY. THEN QUET 

LUSS& LA 44 6XRZ9 -KRZ INCREMENT XR2 FO HANDLE NEXT PGM 
1086¢ 

1089 

1090 DELFGM EQU e 

ic¢gi SEN CELFG,X*OF®* SEF DELETE FLAG 

L092 MVC SAVE TID—103346(¢XR2Z) SAVE 3D OF PROGRAM 10 Ec DELETED 
19093 

1993 

1093 

2G RPRT6 PROG ED OD6-2 
S7T1872 PAGE 9A 
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IBM MAINTENANCE DLAGNOSTIC PROGRAM PART NO. 

PAGE 10 « 
DD62 3340 CE DISK EDITOR MOD 12 DD62 
ERR LUC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC 

1094 ERRKCEREERERERARERREEHESEERRER SS ERS ESSE EEEE AREA DODDS S RARE RES EEKEEE ES ERE} 

1095 RHKSKHKKKSEKKES RES SE KKK SHERSKS SRK SE HERSEK SEKEKA SER SAKSE TEKS KRERKSSHESE KEKE KEKSE SS 

1096 ** SREP os 1622 

1097 + ee 1687 

1098 *# THIS PART GF THE PRUGRAM ADDS REP, SSW, AND COMMENT RECORDS et 16BD 

1099 ** TO ANY PROGRAM ALREADY ON THE 3340 CE DATA MODULE. +e 

1100 #* ex - 16C3 

L1OL EKKKKKKAKESEKKERRRK GR BKKK KE EERK KKK KE KEES SSSR CRSEHKHK SS EEKKSSRTE KS SEK SEKA HERS 

1102 DSRNA GATE CREE CIS EEEE SS ESTA ERS ESATO O TTS cy ge eT re rey 

1103 

1103 

1103 

1103 } 

1614 1104 REPPGM EQU # 
1614 3C 00 2A9E 1105 MVE LHRT-O ZERO LAST WRITE FLAG 
1618 38 OF 2AAD 1106 SBN ADDFLG,xX°0F® SET FLAG TO RECORD CARD IMAGE IN } 

L1O7 # DISK FIELD 16C7? 
161€ C2 01 4800 1108 LA DDDF . XR} LCAD XRE 16CB 
1620 2C 06 34568 06 1109 MVC REPWHOC 7) »6¢¢XR2} AND SAVE AREA 
1625 2C 06 3644 06 2110 MVC  REPRHL(7) 560 yXR2} MOVE IN REP PROGRAM ID 
1624 2C O02 1669 06 W121 MVC = PRGID(3} 66% 9XR2} MCVE PROGRAM ID INTO DISPLAY AREA L6CF 
L62F 38 OF 2BFO L112 TBR =DELFG, xt OF® IN SDEL MODE? 16D3 
1633 CO 10 1788 1113 BT RPCNT? 1f SG; THEN SKie 16D4 

Lli4é : 16D5 
1637 8D 02 Co 2BiC L115 CLC 603,XRZ},DCPID 1S ID *FFFE®? ; 16D7 
163C F2 O1 23 LIL6 JNE  RPCRTL TF NOT SKIP NEXT SECTION LODE 

LLi? 16DC 
163F OC C4 ZBAB 2839 iis AVG DOCEM(5).C3H1L46 SET CONTROL FIELD FGR OCP YTOC 3 1600 
1645 3€ OO ZBAF LLig Av I DOCF,0 FOR 1 RECORD L6DF 
1649 CO 87 239¢ 1120 B WENRE REAC DCP VTGC 16E3 
1640 80 164D 1:2} DC XiLesoe READ FLAG , oleES 
L64E 4800 164F L1ZZ cc ALZ2¢DODF} 16£5 
1650 2RA6 1651 1123 CC AL2¢DDCCB} : 16E7 

1124 - 46EB 
1652 4D 02 06 2B1C i2s Cee 6{3,XR1}.DCPID 1S DCP ON THIS DATA MODULE? LSEC 
1657 CO Oi 1820 1126 BNE  PGNTF LF NOT PRINT SG. 16ED 
165B 3C OF 2AA0 hL27 wVi DCPFG.X° OF? SET DCP FLAG } L6OEF 
L65F F2 87 10 1128 J RPCNT2 16F3 

1129 16F4 
1662 CO 87 227A 2130 RPCNTI & SCNVTC SCAN VTOC FOR PROGRAM TO REP 16F5 
1666 00 L666 LIZ! FLAG OC pL. ieoe BYTE TG TELL RESULTS OF SCAN 167 
1667 DIC9CS 1669 L132 PRGIC OC CL3°*PiD® PROGRAM ID LOFB 

Lis ) 16FC 
166A 30 00 1666 1136 cul FLAG ,O I& SCAN HIT. CON'T TAKE BRANCH 16FD 
166£ CO BL 1820 2135 gE PONTE 16FF 

1136 $ = 1703 
1672 1C SE OATS DE LIB? RPCNTZ MYC SAWVEDC SO} ¢2230,X%R1} SAVi HEADER CARD IMAGE 1706 
L677 1C 1C 269F IC 4438 YC VEIME 2G} e250 eAREE L705 
L67C OF OL 26Ct 2898 3139 MYC «= SECT @EZE WI EMb OQ] STON # OF SECTURS b 
1682 32 GF 2aA0 2140 cut OCLPEG xX OF® iS DCP FLAG SET? 1707 
1686 F2 Ok 29 ELGE JNE RPCNTS SKIP NEXT SECTON IF FT IS NOT 

L242 b 1768 
1689 OC O1 2088 28CF £14} weve TEMPEG2),SECTE SET NUMBER GF RECEDS TU SKIP L7CE 
LOBE CF OL 20886 OAO3 L146 suc TEMP Tt) ONE AUGUST IF 
1695 OC 0% 2BC9 2843 Lies RVG = DECET HO S93 6S BHO rul CONTROL FEELO TO DCP ADDRESS } L712 
1698 3 OO 28CD 1146 my DOCKET .O 1725 

Lie? ' 1718 
169° CO 87 2198 2146 LOUrPS & STPELL ENCREMONY CONTROL FIELD f 1718 
1643 28C9 1684 1149 uc ALZCCUCET MD CONTRUL FEEL O ADDRESS LTE 
16A5 OF O1 2088 GAD3 ESO ste TEPER LEI E SONNE LECeEPENT COUNTER . 1723 
L6AB CO O1 169% ELSE bu? LOOPS tt “Ol ZERO Ol TT AGAIN : 1726 
16AF F2 87 15 Lise d RRONTS 172A 

1153 : 172D 

£153 ¥ 1731 

Rio3 

11564 POSEEOREHSESOEECESER ORES SOEEE DOES EEEPOESESESSSEESEESSHOE OHSS HSTEREL ESSE 1735 

1165 © MOVE PRE RAM TO bad Uf PACK AND STREP OFF bab CARL * 1738 

1356 POSEOE EERE HE DESC OOSEESERERESESHOOESOHOESOHEHEOEESSEES HEROS HSESHAEESES ESSE 173C 

} 
DATE 29AUGT75 22LECT7S JOAPHTE PRUG 10 DD6-7 DATE 
EC NO. 8278046 827836 STLGTZ PAGE 10) 6EC NO}. 
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F2 
38 
F2 
3C 
co 


cs 
Bi 
Sc 
61 
O3 
Ol 
OF 
90 
04 
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1600 
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1157 

1157 

1158 RPCNT3 MVC PNAS(5)614(_XR1? SET UP TWO DDCF FIELDS TO TRANSFER 
1159 MVC = NAS (5) »FASINB*8 

1160 SLC SECT#H(2) ONE 

1161 

1162 B RWRTN MOVE PROGRAM TO END OF PACK 
1163 

1163 

1163 

1163 

1164 HRERKEKCERKKKS SE KKEEESREKKKCTKSERERSGH KSI RERKKAKEKT SE CKESKHKE KEKE SERRE KLE HSE 
1165 # HANDLE REP ENTRIES * 
1166 SKEERKESREKREDEEKE SSE ESHME KEKE KKK KAS SSE SKKESEKSESKERSEAKKKS KEK SK SLEKHKS KEKE 
1167 

i167 

1168 RPCKTS MYI KRT#.0 SET NN FIELD 76 6 

1169 La DODF »XRL LOAD XR1 

1170 

L17L RYRNZ EGU # 

1172 B PRINTL DISPLAY MESSAGE "ENTER REPS* 
1173 DC XLLEOLS FLAG 

1174 OC ALLUMENUSI-MENU5B} LENGTH 

1175 pc AL2{MENUSL) MESSAGE ADDRESS 

1176 B PRINTL DISPLAY MESSAGE *ENTER REPS® 
il?? OC XLT‘OLt FLAG 

1178 oc AL] €MENU53-—MENUSD} LENGTH 

1179 oC AL2UMENUS3) MESSAGE ADDRESS 

1180 B PRINTL DISPLAY MESSAGE ®ENTER REPS® 
L281 po XL1fO18 FLAG 

1182 BC AL1(MENU54—MENUSE} LENGTH 

i283 Dc ALZ(MENUS4} MESSAGE ADDRESS 

1184 B PRINTL UISPLAY MESSAGE ®ENTER REPS®* 
1185 DC XLL°OL® FLAG 

1186 DC AL LUMENUSS~MENUDSE LENGTH 

1187 BC AL2(MENU55) MESSAGE ADDRESS 

1188 B PRINTI DISPLAY MESSAGE *ENTER REPS* 
1189 DC XLLEOL® FLAG 

1190 BC ALL (MENUS6—MENUSG) LENGTH 

LG] oc AL2{MENU56} MESSAGE ADDRESS 

1192 B PRINTL DISPLAY MESSAGE °ENTER REPS 
1193 pc XL1°O18 FLAG 

1194 pc ALL(MENUS7-MENUSH} LENGTH 

1195 oc AL2 (MENUST) MESSAGE ADDRESS 

1196 5 PRINTI CISPLAY MESSAGE *ENTER REPS® 
1197 DC XL1*06 FLAG 

1198 pc ALL (MENUS8 —MENUS Ti LENGTH 

1199 DC AL2(MENUS8) KESSAGE ADDRESS 

1206 

1201 RTRN3A B RECGRD READ A RECORD 

1202 

1203 CLI Ole XRZbeCEXE HAS AN X BEEN ENTERED? 

1204 BE EDITAA IF SO, DON'T REP PROGRAM 

1205 

1206 CLE Of, XRZ)yCPE® 1S 1T AN END RECORD? 

i207 JE ENDRP 

1208 CLE O€,;XR2),C8#! iS IT A COMMENT CARD? 

1209 JE CONTE3 

1216 CLO} —-3. 4 4p XR2b2SSHKID 1S IT A SS CARD? 

1211 JNE -NSSW JUMP IF NOT 

i212 TBN DCPFG,X*0FF IF REP~ING DCP, THEN ADD IT TO 
1213 JF CONTF3 SPECIAL RECORD 

1214 MVE DDCFSM54 

1215 B DCPCD1+4 

1216 

L217 NSSW CLE O04 eXRZDGC*RE IS IT A REP CARD? 

1218 BNE  INVCD2 CONVERT REP CARD TO TEXT CARO 
1219 CLI BL eXR2Z)eC* * COLUMN 2 BLANK? 

3OAPRT6 PROG ID DDE=2 
571872 PAGE 10A 








IRM MAELNTENANCE DLAGNOSTIC PROGRAK PART NC. 4248217 IBM MAINTENANCE DIAGNOSTIC "ROGRAK PART NO« 4248217 
PAGE it PAGE LA 
DDS&2 3340 CE DISK EDIGR 400 12 DDéZ 3340 CE OISK EDITOR HOD 2 
ERR LOC GEJECT CODE AODR STMT SGURCE STATEMENT ERR LOC QBIECT CODE ADDR STMT SGURCE STATEMERT 
1?73F CO OF 1ese 1220 BNE Inveol Ie NOT, GG TO INVALID CARD 1285 
L743 BO 40 0& 122k CLI SE eXRZILCE & COLUMN 6 BLANK? 17Fi CO 87 2274 28 B SCRYTC GG TO END OF VTOC RECORD 
1746 £GO OL 19880 12Z2 BNE YNYCO) if NGT GG TG INVALID C&RO 17FS 96 LTFS i287 oC RELOF FLAG €NGY USED) 
1223 LTF& §$CSC8C L7FS@ 1288 OC CL Zt esas SPECIAL CHARACTER SIGNALLING GO TS 
Rees cli ZeeKR2ESCF® ° TF COL*S. 3 GR &@ ARE BLANK, 128¢ # END OF ¥TOC 
B225 BE INVEDL YHEN IY 1S AN ENVALID CARD LTFO 30 Gi ZBAF 1296 MY & DOCK yi SEY NN FIELD TO BRITE TRO RECPBS 
L226 Che FioMRZEe Ee ¢ i2o} 
R227 BE PNVCDY L7FD CO BT OB78 1292 RPCNTE & SETTO SET FIELD TO x*cas 
t22e 1804, OC FF 4SFF 48FF i292 myc DODE 1+ 255 (256) DOF E255 ZERG GUT SECOND WRITE FIELD 
1229 8 CONVRY CORVERT REP CARO TO TEXT CARD 1807 OC Lf “81 28SF L296 ra DODE+ 28029) .¥TIS SEY UP VIOC RECORD 
1230 CONTF3 AVE SSE 96, HRI} 29S, XRZ? WOVE ff CARD [MAGE L806 OC 5F 48DF O4%4 LZSt MY¥C DDDFESZ230S62eSAVID 
223k 296 
176G OF OG 2BCD GA03 L2az ALC WRTWCLE . ONE LNCREMENYT WRITES L6iz CQ BP? 239 L297 B HINR® weETE NEY VTOC 
L766 36 OL 2877 1233 A X256_XR4 TNOREMENT TO NEXT RECO L8i7? 46 1817 L298 Oc XL L° 40° HRETE FLAG 
176A CO BT 2AZF 1234 & PRENTL PRENT MSG Leie «80d LSkS 1299 BC AL2(DDOFE 
LFGE G& L76E 1.35 De XiL2&oae FLAG LBLA 2BAG LG@iB 1366 HC AL ZCDOCFEB} 
L?GE ef L?SF 1236 DC AL L{REPWHI-MENUSC} LENGTH 136i 
L770 36446 L771 i237 oc ALZEREPRHL MSG fENTER NEXT REPS 181C CO 8% OBCB 1302 B EDITAA RETURN TO MAIN OPTION MENU 
1772 CG 87 L707 1238 8 RIRNSA READ ANGTHER RECORD 1303 
1239 303 
1239 1303 
1239 i303 
L240 RK AK ARE ERE S ER ERRE LAR EK SAEED A SSA SAKES SRR ERL RHEE STH E EEE RE ALES ERESE } 304 RWHEREPRRURAKA RS REKS KAKA AK SSESSS KL CRHESSRARKEARASGKARSK PERAK ECKS AVS RR EK KH RS SEHK 
124) * PUT IN END CARD AND UPOATE vTOC * 1305 * HANDLE PROGRAM NGF FOUND, X ENTRY, AND INYALEO CARD % 
12462 RREKSARRAKKEKEASRASERRGERLA KSEE KK KK ELE SRESREKES GSR S ESTES HEEAKK ES SSE SRESEE 1306 MKAKREAARSRE SARAH EASA EKRSKE EK EKRES ES SS RK CESK EHC KS SSR SA RELE SEAR SERS SESS S 
1243 1307 
1243 1307 
i?776 7C C5 00 1244 ENDRP MVI Oe XRLE SC EF CREATE END RECORD 1620 OC 02 B1AT 1669S 1308 PGNTF MVC MSGO2~12(31+ORGID MOVE IN ED OF PROGRAM NOT FOUND 
L779 4C TF FF 3726 1245 MYC MSGBGN¢L ENGTH-ENDROU(L ENGTH-ENDROUe XR1? LENGTH 1 1826 CO 87 O21A 1309 B PRENT PRINT *PROGRAM NOT FOUND ® 
L77E OF G1 2898 2BCD 1246 ALC VTIMB4+21(2) «WRT# UPDATE # GF VTOC ENTRIES 182A 06 182A 1310 DC XL1'06* FLAG 
1247 1828 17 1828 1311 - pe ILL°23¢ LENGTH 
1248 * MOVE IN END CARD ROUTINE FOR bce Le2C 3183 1820 1312 DC AL2(HSGO2} 
1784 CO 8T 239C 1249 B WENRE WRITE ENC PECORE GN DISK 1313 
L788 40 1788 1250 DC XLLP4oe BRITE FLAG 182E 38 OF Z2BFO 1314 TEN DELFG.X*OF® IS LT IN THE DELETE MODE? 
1789 4800 178A 1251 DC AL2(DDDF) 1832 CO 10 1601 1315 BT DEL2 IF YES, THEN CHECK IF ANOTHER 
178B 28C4 178C 1252 oC AL2¢DDCFTB} 1316 # PROGRAM TO DELETE 
1253 1836 CO 87 GCBCB L317 B EDITAA 
1780 CO 87 219B 1254 B STPFLD INCREMENT WRITE DEOCF 1318 
L792 28C9 17$2 1255 oc AL2(DDCFTM} 1318 
1256 183A 3C 00 28CD 1319 XHANDOL HVI WRT#.O ONLY WRITE THE END CARD 
1793 3D OF 2AA0 1257 CLI OCPFG, X® OF ® IS DCP FLAG SET? 183E C2 02 4800 1320 LA DDOF,XR1L LOAD XR 
L797 F2 O% OB 1258 JNE RPCNTS JUMP TF NOT 1842 CO 87 OBBA 1322 8 SETO SET DDDF TO O 
179A 3C OO 2BAF 1259 MVE DOC, 0 SET TO WRITE GNE RECORD 1846 OC 04 2BC9 2BD4 1322 MVC DDCFTM( 5) ,XLOC LGAD DOCF FIELD WITH NEXT SECTOR 
L79E 3C 00 2AA0 1260 MVE DCPFG,0 RESET OCP FLAG 184C CO 8&7 1776 1323 8 ENDRP 
L7A2 F2 8F 5B 126} J RPCNT6 GO WRITE ¥TOC RECORD 1324 
1262 1850 CO 87 2AZF L325 INVCDE 8 PRINTL CISPLAY INVALID CARD ENTERED 
1TAS OF OL 2272 OA03 1263 RPCNTS ALC FASINE (23 » ONE 1854 06 185% 1326 oc XL1L&aet FLAG 
L7AB OC 04 2B91 226F L264 MVC VIIMBS1405},FASINB+@ UPDATE ADDRESS OF FIKST ENTRY 185% 26 1855 1327 DC ALI CERMST-~ERMS 7B} MESSAGE LENGTH 
17B1 OC 04 226F 2BC9 1265 MYC FAST NB+8(5).,D0C FIM UPDATE NEXT AVAIL ADDR IN FAS 1856 2E98 1857 L22& oc AL? CERMST) 
1787 CO BY 2242 1266 5 WREAS WRITE FAS SECTGR $32¢9 
1267 1858 38 FO 2TFS 1220 i BN USECRTs X*EGS If S472 TN USE THER DON'T PRINT 
L7EB OC O02 L7C8 345B 1268 RECNT? MYC PRGOIDL¢ 3#yREPWHO SCAN FOR OLD VYOC ENTRY 185C F2 iO 14 133) $T BE1 HESSAGE 
L7C1 CO 87 227A 1269 & SCAVTC TG SCAN UTOC SUBRT £332 
17C5 00 L7CS 1270 FLAGE DEC ILieae LOSE CO 8? GZLA 4333 & PRINT PRINT INVALIO CARD IN SREP 
L7C& 404046 17C& 1271 PRGIDBL OC CL3® ¢ 10 GF PROGRAM 70 SCAN FUK 4862 C2 1663 1334 uC XLECCZE FLAG 
17C9 OC O04 3OF6 4808 1272 MYC ADMSG+ L215) 5DDDF+8 MOVE EN 1D AND LEVEL INTO PRINT FLD 1864 22 1864 1335 BC ALE (LAR S~ERKSBD LENGTH 
L7CF 30 00 i7C5 bers CLE FLAGI.LC If FLAG =O THEN PROGRAM NCL FOUND L665 2£E4 1666 is3é OC AL ZEERRD} KESSAGE ALDRESS 
1702 F2 81 4A 1274 JE PONTE L867 FEES 1868 1337 EC KELQVER ESS id 
L706 OC Q2 4806 2801 L275 MVC DODF+6€3),OL6 CVERWRITE VIGO ENTRY WITH ULES EARS 
rer EEOe GN OE ened i338 5 PRINT2 PRINT RECORD EMAGE 
170C 3C OO ZBAF 1277 MVE ODCFE.O ZERG NN FEELD 1240 
L7EQ CO 87 239¢ 1278 8 RERNRW wRITE OLD ¥TOC ENTRY 1860 CO &T 0222 134] 8 HALT ¥O COP HALT RIK 
i7TES 40 LTES 1279 pc XLL*408 WRETE FLAG 187i FFES L872 1342 OC XLZ°FFES® ay 
LTES 4F006 L7E6 1280 DC 6: 2¢D0DF} a OF DODF reas 
LTE? 2BA6 LTE8B 1281 cc ALZ2(DOCFB} a GF DDCF 1873 CO 87 LTGT 134% BBL 6 RTRRBZA GO READ & RECORD 
1282 
L7E9 38 OF 2BFO 1283 TEN DELFG.X*OF* IS THIS $DEL PROGRAM? 
R7EO CO 10 15EL 1284 BT DELL IF SG, RETURN TO DELETE OPTIGN 
DAIE 29AUGT5 22DECT5 ZOAPRTE PROG ID DO6—2 DATE 29AUGT5 Z2DECTS 3Z0APRT6 PROG Ff 066~2 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 42428217 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOs 6248217 
PAGE 12 PAGE 12A 
0062 3340 CE DISK EDITOR M00 12 Doe2 3340 CE DISK EDITOR MOD 12 
ERR LGC GBJECT COCE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1346 seeacunnesensenetenss0eeeetsEEEs0GeEEEE OS ESESEEESEEEEESESE EES TEASE 193B 3c 00 2397 1410 MVi OUTREC+2,0 ZERO Gut CYL SEC OF ALT TRACK FLO 
1347 Teer ce taeeedsedteheessPEREESEEES EERE LESSEE SES SEES ENTS OES S ESE 1411 & 
1346 ** ¢ouePe et 1412 * SEE IF CYLINDER O HEAD 2 1S DEFECTIVES SEE WHAT 
1349 ** THIS OPTION CUP*S THE CONTENTS OF A 3340 CE DATA *% 1413 * IS IN GUTREC AFTER READ OF 1 RECORD 
135C *# PODULE ONTO ANOTHER INITLALIZED DATA MODULE. = 1414 # 
1351 ** +> 193F OC 04 26AB 2B5C 1415 MYC DDCF MCS) »COH2RI 
1352 oF ccc cui cad aausweaseekewa ves eee stein tlie stance ees ee: 1945 3C 00 2 BAF 1416 RVI DOCFE,6 
1353 Tee RLatesseaSeTa se dESEESEREERSTEESEEES ESSER SREEESSSREST TESS LESS 1949 co 87 239C 1417 B WINKW - 
1354 194D 80 1940 1418 DC XL1°80* 
1354 194E 4800 194F 1419 oc AL 2(DDDF} 
1eF7 3C O02 2BEA 1355 DSKDUP MVI ICTRse2 RESET COUNTER 1950 23A6 1951 1420 pc AL2(DOCFB} 
1356 1421 # 
L878 OC OO 2BEE 2BEF 1357 LQOP1O MVC FRORVHUL}, TODRVE POVE CONTENTS TO CORRECT PLACE 1422 * NOW READ IN THE RECORD TO BE MOOIFIED 
188i 3C OO 2BEF 1356 MVE TODRV#>.O CLEAR FIELD 1423 * 
1885 BD C4 O05 1359 CLi 5t,XR2},C°D® 1S FIRST CHARACTER A D? 1952 0C 04 2BAB 2857 1424 MYC DDCFM(5}-¢COHO2T SET UP ADORESS TG READ 
1888 CO O1 19685 1360 BNE DUPERR 1958 3C 00 2BAF 1425 HI ODCF ,0 READ 1 RECORD 
168C BD FL 06 1361 cLi (oe XR2Fe CFL? IS EY DRIVE 1? 195C CO 8F 239C 1426 B WENRW READ A RECORD 
18eF F2 O01 04 1362 JNE e+ 7 SKieP TF NOT 1960 80 1960 1427 oc Ki1°80° 
1892 3c CO 2BEF 1363 MVE TODR Ve, DRE SET FIELD 1961 4800 1962 1428 bc AL2(SD0F} 
1896 BD F2 06 1364 CLE Oly XR29 60% 2* ES FT DRIVE 2? 1963 2BA6 1964 1429 c AL2(DDCFS} 
1899 CO G1 1885 1365 BNE TeEstl IF NOE PRINT ERROR 1430 
1890 3C C@ 2BEF 1366 MVE TODRV#-DR2 SET FIELD 1965 30 00 2397 143% CLi QUTREC+2 <0 SEE ITE SUBRT SEEKED 70 ALT TRACK 
18AL BD FS 06 1367 cL 6(eXR2}-C*3® IS £F DREVE 37 1969 CO OL 19C2 1432 BNE CALCAD 
1BA& F2 G1 04% 1368 ENE x27? SKIP RF NOY 296D 3C CL 4820 1433 MY E DDDFt32e1 SET ADDRESSES EN UCODE TG NORMAL 
YAY 3C DO 26EF 1369 BYE TODRVE DR SET FIELD 1972 3¢ 00 #822 1434 HVE DOOF? 34,0 FoR 12 M BYTE 
LSaB 80 F4& O06 1379 cLi GEE XRZE eT PSF IS IT DRIVE 4? 1975 3D OC 1832 1435 CLI NOFiL2Z,0 DON’T OVERLAY FOR 70 M BYTE iF 
1BAE F2 01 04 137) JNE x27 SKIP ITF NOT 1979 F2 BL GB 1436 JE WRTKEC FLAG OFF 
ESBE 3C 08 2BEF 1372 MV TODRV4 DRS 1S7C 3C OG 4626 1437 MY E DODF+ 32,0 SET ADDRESSES IN UCODE TO NORMAL 
1685 30 00 2eEF 1373 TESTi CLE TODR¥ #56 HAS IT BEEN SET? 1989 3C 04 4822 21438 MVE ODDF + 34.4 FOR 70 M BYTE 
18&e CO Bl 1985 1374 BE DUPERR rf NOT GO PRINT ERRGR $639 
137% 198% 3C OO ZBAF 1460 wRTREC MVE DDCF,.0 wWRETE 1 RECORD 
1375 3988 CO 87 239C L44h 6 WINRE 
1375 39BC &0 198C i682 oc XL1*4O° 
1880 OF 00 2BEA CAOS 1376 SLE ICTRELS » ORE HAVE WE GONE THROUGH THe LOOP TRiCk? 19aD 480C 1G98E 1443 oo AL2¢DCODF} 
183 F2 81 OC L377 JZ DUPROC THEN CONTINUE PROCESS LQBE ZBAG 1996 14446 oc AL2(DDCFBI 
18C4 AC O1 04 06 1378 MYC &L2eXR23 666 eXR2]) SAVE DRIVE # 1445 * 
BCA AC O1 06 Of 1379 MYC GED—eXRZ} HE EXRZ} PUT IN NEXT ORIVE @ TS PE COMPARED 1446 * WRLTE RECORDS ON CYL Os HD Of, REG®S 25-29 AT 
LACE CO B7 187B 1386 6 LOoFLO RETURN TO DETERMINE DRIVE # 1447 ¢ CYL 0, HD O RECS 33-376 
1381 1448 = 
L381 1992 CC 03 20C6 2856 1449 AYE PNAS-1{4},COHOZ7-1 SET UP SUBRT PARAMETERS 
1802 0D 00 2BEF 2BEE 2382 DUPROC CLC TODRVEEL)D »FRORVE ARE FROM ANC TO FIELDS EQUAL? 1997 OC G2 2BA& 20C6 1450 MYC NAS-144) + PNAS<1 
1808 F2 81 DA 1383 JE DUPERR 1960 3€ 05 2BCF 1253 MVE SECT# 2S 
eps 3c OG 1832 1384 MVE NOT12-6 RESEY FLAG WOT 12 BYTE FLAG LSAL 30 19 20C7 1452 MVE PNAS>s 25 
LSOF OC 00 234E 2BEE 1385 MVC DREVEAC LE -FRORVE CHECK SIZE OF FROM OATA MODULE 19A5 3C 21 28A5 4453 MVE NAS » 33 
18E5 2€ 00 2F9A 04 1386 MVC SZERRCC LE. 46 eXR2E 39A9 CO 87 20C8 1454 B RWRTN TO WRITE SUBROUTINE 
LBEA CO BT 25E2 1387 6 SNS24 DIAGNOSTIC READ ROUTINE 1455 
1BEE 39 03 0862 1388 TSF OBYTEZ -X* 03° JUMP EF NOT 12 4M BYTE 1SAD CO 87 234F 1456 B SELDRY SET DRIVER VIA SSwWEsS 
1eF2 co 90 LB3T 1389 BF SIZERt+4 1981 CO 87 OBLB 1457 B EDETSA RETURN TG BAIN OPTIGN MENU 
1390 44528 
18F6 OC 00 234E 2BEF 1392 m¥C DRIVER L}+TOORVE CHECK SIZE GF TO DATA MODULE 3458 
{EEC 2C 00 ZFSA 06 1392 MVC SZERRC{ 14,60 ¢XR2} 1985 CG 87 0214 1459 DUPERR B PRENTY PRINT &ENVELS CHARACTERS IN DUP FLDE 
39G1i CO 87 25€2 1393 8B SNS2& DIAGNGSYEC READ RQUTINE 1989 C& L9BS 14606 oc XLL*CE6é FLAG : 
1905 39 03 OB&2 1394 TBF DEYTEZ «X*03° IF BITS NOT OFF GO TO ERROR 49BA 35 LOBA 1461 OC ALLiLERRO-ERROB? LENGTH 
1909 CC 90 1B33 13995 BF SIZER 1SBB 2DB6é 19BC 2462 oC ALZ2(ERRG) MESSAGE ADDRESS 
19Gu OC 03 213F 2B47 1396 fy STPSCT(4}) eC4HORIE-2 pup GUT TG CYL 4 HEAD Q 1980 FFE? 1SBE 21463 DC XL2°FFES® io 
1923 OC 03 2138 2B56 4397 RY STRSCT (4) pCOHOZ TE SET SECTOR TO START DUPPING AT 1464 
3919 CO 87 2140 1398 6 RORY CGO OG THE DUP IN 'STPSCT®& 19B£ CO 87 OBCB 1465 B EDITAA RETURN TO MAIN OPTION MENU 
1399 1465 * 
191D CO B87 22G1 1400 8 RDF AS READ FAS TG SEE HOR FAR TQ DUP 1467 % FIRST CALCULATE 3340 LOGICAL FROM SYS/3 LOGECAL 
2°21 3C 30 226F 1401 AVE FASEINDt &.48 SET UP RECORE FIELD SO HEAD ES 1468 * 
L402 # ALWAYS INCREMENTED 19C3 3D OO 1832 1469 CALCAD CLE NOFL2,6 if IT IS 12 # BYTE PACK THEN JUMP 
2925 CO 87 2198 1403 B STPFLD INCREMENT TU NEXT HEAD 19C7 £2 82 6D 1470 JE CAL1L2 
1929 226F 192A 1404 pc AL2Z(EASENB+ 8) REGHT END ACDRESS i9sca OC O11 2ABS 2B47 1471 MVC wORK{23-ZERO 
1405 19D0 OC O1 ZAB8 2397 1472 MYC CL3¢€2) pQUTRECH2 GET SYS/3 LOGICAL CY¥i 
1928 & 03 2138 2847. 14G6 MVC STRSCT C44, C4HORI-i SET SECTOR TO START DUPPING AT 1906 OC 01 2ABA 2399 1473 MVC HL3(23),QUTRECt+% GET S¥S/3 LOGICAL HEAD 
1931 OC Os 213F 226€ 1407 MYC STPSCT(4) sFASINBE+ 7 SET *STpsct® FO LAST TRACK OuP*tD 190C 3C 28 2AC6 147% MV I COUNT. 40 
1937 CO 87 2140 1408 B ROWRT 60 DuP IT 19£0 CE Ch 2AB6 2AB8 1475 MULT40 ALC HORKE2) CLS MULTIPLY CL3 BY 40 
1409 19E6 OF O00 2ACE 0 A03 1476 SLC COUNT(1) »ONE 
DATE 29AUG75 220ECT5 3ZOAPR76 PROG ID DD6-2 DATE 29AUGT5 22DECT5 3O0APRT6 PRUS ID DD 6-2 
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PAGE i3 PAGE L3A 
DD&62 3340 CE DISK EDITOR “OD 12 BD62 3346 CE DISK EDITOR MGD 12 
ERR LOC OBJECT CODE ADDR STMY SJURCE STATEMENT ERR LOC GESECT COCE ADDR STMT SOURCE STATEMENT 
18SEC CO Gk 19€0 L477 BNZ RULT4O RADL CO O02 LABF 1545 ENL BYD2 
L478 14D5 CE Gl 2AB6G 2ACE 1846 SKDYG2Z ALC WORK (25 > COUNT ADD QUOTIENT TO CiL3#i0 
LOFO OF OL Z2ABE ZABA 1479 ALC WORK (25 HLS NOW ADG ZERL3} TQ CLS ; LADS OC G1 2A8CG 2486 £547 MYC CPREIZ) ¢ BORK SAVE 3340 PHYSICAL CYLINDER 
19F6 GE OL 2ABG ZABA i686 ALC WORK (2) ¢HLS , 1548 % 
L481] i549 % EF REMAENDER OF ABOVE DEVISTON ES OO, HPW = OF 
L462 * DIVIDE ABGVE BY L2 i550 © LF REMAENDER ES by HPR = 2. 
1483 # 1551 * 
L9FC OC OL ZACE 2847 1484 MYC COUNTOC2: »ZERG LAE BC O00 2kC2 3552 HY E HPReO 
PAO2 OO Gi 2ABE ZEES 1485 CLe WORK UZ) eX22 LF LESS THAN 32, DON'T DIVIDE LTAES 3D OG 2ABA 1553 cul HL3<8 
2408 Fe G2 03 £466 JAE. OGVi2 : LAES F2 81 04 1554 JE ke 7 
LA0B F2 BT 16 L487 J SXDLZ BAEC 30 G2 2ACE 4555 BY I HP ie Z 
PAGE OF OL 2A8& 2BES L486 OFVisZ See WORK (29 4XLZ 1556 
2A14 GE OL 2AC6 OAOB L489 ALS COUNT (2), ONE ’ S557 + HOW CYLENDER VALUE SUST BE CONVERTED TO ONE BYTE FORMAT 
LALA OD OL ZABG 2BE3 2490 cL WORK OZ) eX22 1358 & FORMAT 23 AS FOLLOWS: 
Lh2G CO G2 LAGE E492 DiVaig ; 1659 4 
L424 OC OL 2ABC 2ACG L492 CLWE2E COUNT {INTEGER PARE TS 2346 LOGICAL CY¥L : 560 ® CARSAY---CONTAENS CYLENDERS OG-FF 
1A2& OC OF 2&BE 2486 1493 Hi wide? «WORK REMAINDER FS 3340 LOGICAL HEAD RE6k ® HARSAW--BITS 6 i 2 3 & & & 7 
149% % 2 o i 6 §<-HEAS VALUES=>f 
L405 & NOW CALCULATE 33460 PHYSICAL FROM 2346 LOGICAL ; 
2496 & BITS & AND Z ARE ALWAYS © 
E4O7 & FIRST, DEVIDE CLR BY 2 Sly 2 ©S 1 ONLY HHEN CY¥i ES GREATER THAN AS FRE 
LA3G CC GL PACE ZB4? 1492 MVC COUNT(2!,ZERO LAFO Of OC 24B3 ZACC ave CARSAVELE CPE 
TAS& OC OE 2ABE 2ABC L499 BYE RORKi gE Che LAFE 38 40 ZAB4 SEF HARSAV, KEG OE 
LA3C OD O1 2486 Z8D7 4500 CLO WORK E 2D KS IF LESS THAN 2 DON?T DIVIDE LAFA OD 0} 2ACG ZAC: CLO CPHEZIe CKER iS CYL GREATER THAN X*QOFF® 
L&&2 Fe C2 O38 EEO JME DHL ¥oeS ECO Fz 84% OF Jif HERE 
L445 FE 8F 1é E802 - 380% £2 BF O4 Bs; x F 
£68 OF OF FABB 28D? E83 DLYO? Ste LBGG BA 40 2ABS S88 HARSAV XP 4GE iF SG. S&T BIT 1 ON 
O& OL 2AC6 GAGS E504 ALS 
OF OG: 2A66 2807 15605 GLO ZBOA GE G3 GARG ZACS MN HAR SAY FHPR 
CO O2 LAS L506 BNL pivoez LEIO 325 30 ZAR4 SEF BARSAY, KF LDF 
LbOT LBi& 30 OF ZAC? cit HP, XE OFF PS 3340 HD GREATER THAN fOF® F 
PASE OC OL 2ACO 2 ACE 1568 SKDOZ KYE CPROEZ) ep COUNT 324G PHYSICAL CYL ES PNTEGER L618 F2 84 O23 J 
3569 * PART OF “AroVO fa, CULAT PON LERB Fe &F 04 J 
1516 * ; IBLE 2A 16 2A54% SEN EE SO, SET BiT 3 ON 
L5i2 & REMAINDES OF ABOVE CALCULATION ITS NOw BULTIPLIEO BY i2 
k5Sig2 © LB22 GF OC 4820 ZAGS MVE UPDATE MICROCODE WITH ALF CYvae 
L864 3C OC ZATE 1523 MVE COUNT »i2Z 1828 OC OC 4822 2484 AYE AND HEAD 
LAGS OC O1 2AC% 284T L514 MVC HP#E2bYy ZERO LBZE CO BF i984 8 WREREC GO WRITE THE RECSRO ON DATA MODULE 
RAGE OE OL 2ACZ ZAG 1515 BULTL2 ALC HPWE 2), BORK 
LA7T& OF 90 2ACE OAGS 15kE& Sic COUNTCIi},0NE ; E 
LATA CO OF LAGE LS? BNZ MUL TL2 i ROUTINE SANOLING WRONG DATA MODULE SIZE 
i518 # 2 
1519 * ADO Hiw TO ABOVE 1G GEY 3340 PHYSICAL HEAD VALUE B32 06 L832 24 DC ELEFOE 
i520 * 12323 3C FF 1832 i «VI NOFL2.~ Xt FFE 
RATE OE OL 2AC2 SABE 52a ALG HPHE SE es HLA 1837 34 G& 186E i ST SEZERR+3,ARR STORE RETURN ACDRESS 
1484 F2 BF 49 1522 J FIANCAL , 1638 CO 8ST G2ta BS a PRINT PRINT "DATA MODULE SEIZE WOT 12 cae ?® 
1523 # LB3F Cé IB3F 159 BC ALL &Co?* 
1524 *& FOLLOWING IS USED TO CALCULATE PHYSICAL HEAD AND CYL : 1B40 $9 3840 F592 DC ALLE SZERR~SZERRB)} 
1525 * FOR i2 “BYTE CE DATA MODULES : 1842 2FOO 1842 1593 DBC ALZCSZTERRE 
1526 % 1B43 FFEF 1B4&4 LS9G DC XLZ°SFFERFS 
LAS? 1527 CALLZ EGU x 1595 
LAB? OC OL 2ABE 2847 1528 AVC WORK IZ YZERO 1845 CO B87 G222 2596 B HALT HALT EF 
ABCD OC O1 2AB8 2397 1529 MYC CL3¢02) ,GUTREC+2 GET S¥S/3 LOGICAL Crt , 1849 FFEF IB4A 2597 DC KL2Z°FFEFE® 
LA93 OC OL 2ABA 2399 1530 MVC HL 3(2) ,QUTREC +4 GET SYS/3 LOUGICLA HEAD 1B48 CO 8? Gcoga 1598 SIZERR B Siw ae 
1A99 3C OA 2AC6 1531 MVE COUNT,10 159¢ 
ASD OF O1 2ABG 2A58 2532 MULTIO ALC WORK €2} »CL3 PULTIPLY BY 1¢ 2539 
LAA3 OF OO 2AC6E 0OAO3 1533 SLC COUNT( 2) ,ONE 1593 
YAL9 CO O1 LASD 1534 BNZ MULT1LO I 1599 
1535 # 1599 
1536 * DIVIDE SYS/3 LOGICAL HEAD VALUE BY 2 159¢ 
1537 # ! 1599 
YAAD OC “1 2AC6 2847 1538 MYC COUNT (2),ZERO 1599 
1AB3 0D O1 2ABA 2BD7 1539 cic HL 3(2) 5X2 LOO0 FHKE EEKEKAEER SEG ERE SEA TE LAR KS RSE SERRA HEKSE KERALA ALKA TSEC SL SAE R KEK eH 
LABO F2 92 C2 1540 URL Dv62 } LOO} FSEEKKALEAAEERERERARERLE EES EEREKSESEERHRKE ERK KEKE SSERELEESSRESARESK KK RR 
l1ABC F2 87 16 1541 J SK DVO2 1602 +# $LST a 
LABF OF O01 2ABA 2807 1542 DvO2 SLC HL302) ¢X2 , 1603 #* THIS OFTION LISTS THE PROGRAMS ON THE 3340 CE Bm 
LACS OF OL 2AT6 OADB 1543 ALC CGUNT( 2) ,ONE : 1604 4% DATA MODULE -. % 
1ACB OD O01 2ABA 2807 1544 CLC HL3 (2) 5X2 1605 *% *e 
’ 
DATE 29AUGT5 22DEC75 Z0APRT76 PROG ID DD6-2 DATE 29AUGTS 220EC7T5 30APR76 PROG ID 006-2 
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PAGE 14 | PAGE 14A 
DD62 3340 CE DISk EDITOR MOD 12 ,O062 3340 CE DISK EDITOR “CD 12 
ERR LOC OBJECT CGDE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
1L6CE EEK RAE EERE REE EEE ERR EK ERK E ESR EAR EERE EA KHKAAE RSS EKE SER SEES ES 1673 
1607 REKKKSLASASAKEKKKGSSSSKRERSKAEKESKSSSEKCHEKKKREKTARS KEE RECESS HKEKKKKRKEKSESEH 10613 OF OO 2BEC OAO03 1674 SLC KCTR(1L} ONE 1S THIS THE SECOND TIME? 
1608 1€19 OC 02 2CiT 2ACA 1675 MVC VTOC1#13),TEMPS SAVE # OF VTOC ENTRIES LEFT 
1608 1C1lF CO 81 1048 1676 BZ STCNT IF SG,» THEN BRANCH 
1B4F 1609 LSTPGM EQU + 1677 
LE4F 38 O02 OCAOF 1610 TBN X5203,xX*028 IS PRINTER 132 PRINT POSITION 1€23 3¢€ O1 2BED 1678 MVI MCTRel FORCE SUBRT "LSTRDO* TO USE NEW DDCF 
1853 F2 10 17 1631 JT LSPGA1 JUMP LF YES 1€27 OC 04 2BAB 2B2F 1679 MVC DDCFM(5},C3H1 62 SET UP DDOCF FOR FAS VTOC 
1856 38 20 OAL1L 1612 TEN X1403-1,X*20° 1S 1T THE 1403 PRINTER 1C2D 3C 60 OASA 1680 MVE PRTGBFt69,C8—* INSERT DASH IN CASE IT WAS DESTROYED 
1854 F2 10 10 1613 JT LSPGM1 JUMP IF YES 1C31 CO 87 1897 1681 B LOOP L2 GO READ THE RECORDS 
1B85D 3c O01 189C 1614 Mv I LOPLZA+1,X*OL® SET COUNTER TG 1 IF NOT } 1682 
L861 3C O1 1808 1615 MVI LSCNT2¢1,.X°O1® SET CGUNT Tu i 1682 
1865 3C 40 187C L616 MVI LSPGLAT1,X*°4&0°8 SET TO BLANK 1682 
1869 3C 40 1680 1617 MVE LSPG1LB4isX* 40F SET FO BLANK , 1683 * 
186D 3C 40 OAg3 1618 LSPGM1 MVI PRIBFt126+C* § BLANK OUT PRINT 1684 * SUBRGUTINE TO READ 48 RECGRDS OF VTOC AT A TIME AND 
IB7i OC 7D OA92 OAI3 1619 MYC PRTBF*LZ5°¢126).PRIBFA+1 26 BUFFER ; 1685 * ADJUST THE ADDRESS POINTER FOR THE MAIN PROGRAM 
1B77 3C 60 GALS 1620 MVI PRIBFE3,Ce-8 INSERT t 1486 * 
IB75 3C 60 OASA 162k LSPGLA BVI PRIBFt69,C-& DASHES 1687 
1622 * MYC PRIBFA64(33 AST INSERT DIVIDER ; ic35 34 08 1049 1688 u.STRD ST LSTRORS3, ARR SAVE RETURN ADDRESS 
1B7F 3C 48 GAS4 1623 LSPGIB MYVI PRIBF463,C* of ; 1039 GF OC ZBED OADZ 1689 SLC MCTREL) ONE DECREBENYT COUNTER 
1624 1C3F F2 B81 08 1696 JZ LSTRORe4 
16883 3C GO 2EED 625 AVI MCTRe i USE NE DDOCF FIELD EN SUBRT fLSTRD®E ; 1042 36 OL 2B7T Lesh A X2565XKR] INCR XR1L IF NGT READING NEW TRACK 
iBa? 04 G2 Z2ACA 2AE4 1626 ZAz TEMPS 633 ¢MAXPGM(31 SET TEMP VTCC#H TO MAX # GF ENTRIES ! 1046 CC 87? OGoG 1692 LSTADR 8 Xm x RETURN TO CALLERS 
iBeb Cc 04 2BAB 2840 1627 MYC DDOCF MES} .C ZHOR] SET DOCF TO READ ¥TIGC 1693 
1893 3C O2 2BEC 1628 LSPGM2 MYT KCTR<Z ENETEALIZE COUNTER ; 1C4A 3C 30 2B8ED 1694 MVE HCTR. 48 RESTORE COUNTER 
162S ; 1C4E 3C 2F 2BAF 1665 MVE DOCE »47? SEY NN FIELD ¥G READ 4&8 RECORDS 
18697 C2 02 OALS 3630 LOOPIZ2 4a PRIBF »XR2 INEFTIALEZE ADDRESS POINTER 1652 C2 CL 4800 1696 LA DODF », XRi REINITFIALIZE XR1 
Leese 3C O2 2BEB 1631 LOPIiZA MVI LCTRe 2 INITIALIZE COUNTER 169? 
1632 } 1€56 CO 87 239¢ 1698 B WI NRW READ 48 RECORDS GF vTOCc 
IB9F CO 8&7 iC35 1633 LSCNT1 5 LSTRD READ NEXT RECORD in vTOC 1C5A 80 105h 1699 Dc XLLEBCE READ FLAG 
1BA3 4D 02 Q2 287F 1634 oLc 203,XRLE,ACTO-2 ARE COL®S 3-3 "ACT?? . i1C58 4860 1C5C 1706 DC AL 2?&DODFE 
1BA8 F2 O1 2F 1635 JNE LSCNT2 TE NOT, QUIT LISTING PRUGRAMS ; 125D 2BAa6 1C5E 1L?7OL Dc AL2¢(DDCFa} 
1636 RTOZ 
1BAB O7 20 2ACTA 2ADB 1637 Sz TEMP 503) ,D0L013 DECREMENT # OF VTOC CNTPRIES LEFT : ICSE CO 87 219B 1703 & STPFLD INCREPBENT DDCF 
1638 1063 2BAB 164 1704 De AL2{(O0CFM) 
1BB1 4D 02 036 2B01 1639 CLE 6(35XR1)-0L0 IS IT AN GLO ENTRY? iC6S CO 8F 1C4é 1765 B LSTAoR 
1BB6 CO 61 1LBSF 1640 BE LSCNT1L READ ANOTHER ENTRY EF IF IS L706 
1641 } 1796 
1BBA 9C Q2 O02 G6 1642 MVC 243¢XR2)-60 XRF PUT IN ID FIELD 1706 
IBBE 9C 00 64 O08 1643 MVC &(1,XR2) 681 XRL} PUT LEVEL INTO PRINT FIELDS ‘ 1706 
IBC2 9C 14 iA SF 1644 MVC 26(121,XR23,1591-XR1) MOVE PN & EC INTO PRINT FIELD F 1706 
16C6 9C IF 3C BF 1645 MVC 60(32,XR2),1910,XR13 MOVE COMMENT AREA INTO PRINT FIELD 1706 
1646 L706 
168CA OF OO 2BEB 0A03 1647 SLC LCTR(L) ONE DECREMENT CCUNTER } 1706 
1800 F2 81 1C 1648 J2 LSCNT3 GO PRENT IF READ 2 KECORGS L707 KEK AREA EARS KEKE RE EKARERHK SLE SSEREREKKKKSKSERSSESKKERSSHKERTLHL STKE HS 
E03 E2 o2 4&2 1649 LA 6605XRZ) oXR2 INCREMENT XR2 EVvOs8 REKRKEKRHKEEEEKES SKE RERKEKAREKS SHER HS HSSE SS SERSEKE TRE SSE SHASSSSESE ESR SSK HEHE ESSE 
LBC6 CO BF LBSF 1650 B LSCNT1 READ 2ND RECORD } 1709 ** $CMP ee 
1651 i7v7io % THIS OPTION REMOVES ALL *OLO® ENTRIES FROM THE ¥TOC #6 
1BLA 30 O2 2BES8 1652 LSCNT2 CLI LCTRs2 LCTR=2 L7ii ** AND THEIR CORRESPONDING PROGRAM AREAS. oe 
RBOE F2 Bi 22 1653 JE LSTCON THEN DON®T PRINT AT ALL } L712 #% ge 
LEEL 30 40 OAQ3 1654 MVI PRIBF+1266C® & TF ONE RECORG HAS BEEN READ B&EFGRE L714 RX#RERRERES RHEE HEEL EERE REEER EE SR EERES ESET EERATEL DHSS ETE EHLRESHSIS TES ESE 
IRES OC 3C OADZ OAG3Z 1655 MYC PRIEF*1 251615) -PRTBFZ126 REACHING END OF VTOC, THEN PRINT LULG ERERSASESELERERKARE SEEK ESRESHATE SSRSL STS ASE SSK SSSSE SEHK SS HSEAHSS SS HO SESS 
IBEB 3C OF 2A%é 1656 MVI -LWRTX*OF® IT } 1715 
1657 1715 
EEF CO BF O214 1658 LSCNT3 B PRINT PRINT LIST FEELD 1716 
1BF3 0} 1BF3 1659 oc XLi*OLt FLAG ; L716 
1eFS TF 16F& 1660 pc Liti27e LENGTH 1C69 L7i? CHPPGM EQU * 
16FS 0493 BFE 1661 oC ALZ2¢PRTBF41263 MESSAGE ADDRESS 1c6¢ C2 01 4800 1718 LA DOOF ,XR1 
1662 } 1C60 OC 02 2ABO 2847 E7LS MVC VTOC#(2},ZERO PREPARE BUFFER FOR FAS SECTOR 
LBt7 3D OF ZAGE 1663 cli LWRT,xX*OF® IS THIS THE LAST RECGRDO? 1CT3 O04 O02 2CiT? 2ac4% 172c ZAZ VTOCL 8035 >4AXPGH( 3} PREPARE PRiteT BUFFER 
LOFB 34 00 2A9t 166% MMVI LWRT,d 1C79 OC 04 28AB 2B4D 1721 MYC DOCFM(5) .C2HORL StY uP COCKE To SCAN FOR FERSE 
‘1BFE CO 01 1897 1665 BNE  LUOP12 IF NOT, THEN READ SOME MORE } 1722 
1666 IC?7F 3€ OO 2BAF 1723 L00P5 KVE ODcFe 0 UPERATE ON UNE RECORD 
¥CO3 CO B87 OZIA 1667 ULSTCON B PRINT SPACE 2 LINES 1€83 CO 87 239C 1724 B wWINR RE aD A vVICC RECORD 
ico? i> 1CO7 16€8 oC AL iei2é } 1C87 80 1c87? 1725 oc xLitso* READ FLAG 
1669 1€88 4600 1C89 1726 oc AL2(D00F} 
1COE 38 C2 2ELb 1670 TBN LCTRexX*02° O2,° I1C8A 2846 1C8B 1727 CC ALZ2¢DOCFB) 
1C0C F2 10 04 1671 ut $e7 o2) 1728 
1CO# 30 40 CASA 1oTe MVI PRILF4O9,Ce® ¢ 02 1C8C 40 O02 O06 2B01 1729 CLC 6(3,.xXn1%,O0L0 1S THIS AN *OLBD® ENTRY? 
) 
DATE 29 auc?s 22uULCTS IC APRT6 PROG 1D DD6-2 DATE 29AUG675 22DEC 75 BOAPRT6 | PAVG 16 DUb=< 
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ADOR STMT SOURCE STATEMENT 
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1cC6& 
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DC 
DC 
ALC 
SZ 


DC 


MVC 
MVC 
MVC 
eB 


5 


CMCNT1L 


2(3,XR1),ACTO-1 
STCNT 


vt OC#(2),GNE 
VTOC1i#(3),D1(1) 


STPFLO 
AL2(DDCFM) 


LOOPS 


NAS (525 140,XR1) 
DOCFRM(5),DDCFM 
OCCFR,O 


STPFLD 
AL2(DDCFRM} 


ODCFR.O 
WINRW 

XL1° 80° 
AL2(0D0F} 
AL2 (DOCFRB?) 


203eXR1),ACTO“1 
ENCKP] 


6(3,XR1)-eOLD 
LOOP16& 


SECT#£2)¢210,5XR1L) 
PNAS (525140 ¢XR1) 
14(056XR1),NAS 


DOCF,0 
WINRW 
XL1®46° 
AL2(DDDF) 
AL2¢€DOCFB) 


¥VTOC#(2).,GNE 
VTOCi#(3),0101) 


STPFLD 
AL2(DDCFM) 


RWRIN 


NAS15) ,DDCFIM 
LOOP16 


DCCF,0 
SETTO 
WINRW 
XL1°408 
AL2¢ODDF) 
AL2(00CFB) 


FASINE+8(5) »NAS 
FASINF(2)-.VIGC# 
FASINB+2(3),FAS 
WREAS 


RDF AS 


; 


PART 0. 
PAGE 15 
, 0D62 
§ 
ERR Loc 
JUMP OUT OF SEARCH ROUTINE 104C 
1S THIS THE ENO OF THE VTOGC? 1052 
GO PRINT MESSAGE 1056 
INCREMENT VTOC COUNT i059 
CECREMENT PRINT BUFFER 1050 
1060 
STEP CONTROL FIELD 
1066 
1D6A 
RETURN TO READ ANOTHER RECORD 
106C 
SET UP NEXT AVAILABLE SECTOR 1070 
SET UP NAS IN VTGC 1074 
INITIALIZE CONTROL FIELO 
107A 
STEP CONTROL FIELD LOVE 
: 1080 
OPERATE ON CNE RECORD : 1D84& 
READ NEXT ENTRY 1087 
READ FLAG : 
, 1D8B8 
108F 
7 1090 
REACHED THE END GF VTOC? ; 1091 
IF SO PRINT MESSAGE 
1093 


IS IT AN *OLD® ENTRY? 
THEN GO READ ANOTHER RECORD 


STORE HOW MANY SECTORS TO MUVE 
STORE WHERE TO FIND PROGRAM 
HOVE IN NEW PROSRAM LOCATION ADORESS 


} 
WRITE VTOC ENTRY 
WRITE FLAG } 
} 
INCREMENT NUMBER OF ¥TOC ENTKIES 
CECREMENT PRINT BUFFER : 
STEP VIGC LOCATION POINTER 
TO READ-WRITE RIN WHERE PROGRAM IS 1097 
MOVED 1098 
UPDATE NEXT AVAILABLE SECTOR FIeLD #? 
RETURN 1D9F 
: 1DA5 
: 1DAB 
ZERO OUT RECORD BIYE 1DAF 
SET DDDF 10 0 ; 1083 
WRITE RECORD OF O'S TO SIGNIFY EGR ? 
WRITE FLAG 1DB9 
* 
1080 
1DC1 
SET UP NEW FAS SECTOR : 1DC2 
103 
10C5 
WRITE NEW FAS SECTOR ; 1D0C9 
: LOCA 
READ FAS RECORD LDCB 
} 
PROG ID GL6-2 DATE 
PAGE 15 EC NO. 


we 


3340 CE DISK EDITOR 


OBJECT CODE 


04 


30 
F2 


3D 
F2 
06 


co 


40 


22 
02 


ol 
81 
40 


87 


226F 


co 


3c 
06 


co 


87 


30 
31 


87 


226F 


30 
F2 
co 


co 
06 
4C 


22 
02 
87 


87 


2044 


co 


29AUGT5 
827804 


87 


2C3B 2AD4 


226C 
32 


226F 
10 
2038 2ADE. 


2198 


1052 


22 6F 
2C3B 2ADE 


2198 


226C 
04 
1D70 


O21A 


OBCB 


2AAE 
4800 


20C6 
2BA4 
20C7 
2BA5 
2BCF 


2852 
2852 


2B08 
20C8 


2A2F 


2A2F 


sen ceu ty Tem MAINTENANCE DIAGNOSTIC PROGRAM 


MOD 12 


ADOR STMT SOURCE STATEMENT 


1068 


LDTF 


1D SF 
1090 
1092 


1097 


10C1 
10C2 
10C4 


10C9 
10CA 
LOCC 


22DEC75 
827836 


PART NO. 
PAGE 


4248217 
15A 


1796 ZAZ SPACE #(5),D0(1) ZERO Out # GF SECTORS LEFT BUFFER 
1797 

1798 LOOP18 CLI FASINM—3 434 IS CYt #= 347 

1799 JNL STP3 THEN QUIT AND PRINT 

1800 

1801 Cul FASINMs)] IS REC # = 1 

1802 JE CMCNT4 IF SO, THEN JUMP 

1803 AZ SPACEH(5),0101) INCREMENT # OF SECTS LEFT 

1804 

1805 8 STPFLD INCREMENT FIELD 

1806 oc AL2(FASINSG) 

1807 

1808 B LGOP18 DO 1T AGAIN 

1809S 

1810 CMCNT4 MVI FASTIN, 48 SET TO LAST RECORD 

18il AZ SPACE# (5) .048(2) INCREMENT SECTORS LEFT BY 48 

18k2 

1813 8 STPFLO INCREMENT FIELD 

1814 oC AL2Z(FASINM) 

1815 

1626 CLI FAS INH- 3934 REACHED CYL 34? 

18i7 JAIL STP3 

1818 B CHCNT4 DO IT AGAIN 

1819 

1826 STP3 8 PRINT PRINT ©XX VTOC ENTREES LEFT coo!* 
1821 oC XL1i*06¢ FLAG 

L822 oC AL 1(VMSG-VMSGB) LENGTH 

1623 pc ALZ(VMSG) MESSAGE ADDRESS 

1824 

1825 B ELITAA RETURN FO AIN OPTION MENU 

1826 

1826 

1826 

1826 

1826 

1826 

1826 

1826 

YE27 SHEERS SS SEES EHS RK EE SHSHEKEKELESHKESSE LE SAA KESTER KKE EK KEKSERKEKSE SESS ERHKCS ETH 
1828 REKTKAKLKRKEK RET E SKE ARES KE SHE SSS SSS SAKE EASES HSS EHAKTS SREP HRS KRERSE 
1829 ¥**% tCONFIG e% 
1830 +% THIS GPTION ALLOWS NEW UDT»CPU. OR // CHAEN ENTRIES ee 
1831 ** TO RE MADE TO THE DIAGNCSTIC CONTROL PROGRAM. ee 
1832 #**® ox 
1833 REKHHRTESHAS RSE REAK ARES HK ESRES EES EKEHERELEE SEK RHEE THESE TAT SE KEKE HS SHES 
18634 KHKKEERTHERKEKEN TEER ERE SSA SS ESHPTRSHES SSI KEKRSTKSKKS EES KKSEK ERE SE KEKE REE SHES 
1835 

1835 

1836 CFGPGHM EQU * 

1837 SBN CFIGFG,X*OF® SET CONFIGURE FLAG 

1838 LA DOOF » XR1 1CAD ADDRESS POINTER 

1839 

1840 MVC PNAS-—1(04),C3H15 SET UP PARAMETERS FOR SUBROUTINE 
1842 MYC NAS-1(4) ,C3H15 RWRTN, TO MOVE CCP RECOKDS 10 

1842 MVI PNAS,1 TEMPORARY DISK LOCATION 

1843 4VI NAS:5 

1844 MYC SECTH(2) »X4& 

1845 

1846 B RWRTN MOVE RECORDS ON OISK 

1847 

1848 CFRT B PRINTL DISPLY *CONFIGURE ENTRIES ® 

1849 DC XL1°O1° FLAG 

1850 oc AL1L(MENU2-MENU2 B) MESSAGE LENGTH 

18521 oC AL2(MENU2) WESSAGE ADDRESS 

1852 e PRINTL DISPLY CONFIGURE ENTRIES® 

1853 DC XLL OLe FLAG 

1854 OC AL T(MEN22-MENU2C) MESSAGE LENGTH 

1855 oC AL2Z(MEN22) MESSAGE ADDRESS 

ZOAPRT76 PROG ID 0D6-2 
571872 PAGE 154 





0D62 
ERR LOC 


10C0 
1001 
' 10D2 
1003 
1605 
1009 
10DA 
1008 
1000 
iDel 
10E2 
10E3 
LOES 
1DE9 
1DEA 
1DEB 


1DED 


1OF1 
1OF4 
10F8 
10F8 


LOFF 
LEO4 
1E08 
1€08 
LEOF 
LEl2 
1E16 
LE1L9 


1E1LD 
1€21 
1LE24 
LE2A 
LE2E 


1E32 
LE36 
LE37 
1639 


1E358 
LESF 
1E42 
LE46 
LE4e? 
LE4aCc 
LE4F 
1€52 
LES55 
LE58 
1€5C 


i £60 
1E63 
LE66 
1£69 


DATE 
. EC NO 





3340 CE DISK EDITOR 


oB JECT CODE 


CO 87 2A2F 
01 

28 
338F 
co 87 
Ql 

28 
3367 
CO 87 
01 

30 
33E7 
co 87 
06 

28 
340F 


2A2F 


2A2F 


2A2F 


CO 87 2749 
00 
1-28 
00 


1F28 


EW 
81 
c5 
81 


BD 
co 
80 
co 


O7 
8l 
C3 
81 
E4 
oi 
40 
81 


O7 2AF& 
1383 

00 

1410 

00 

iF 30 

03 

13F5 


8D 
co 
BD 
co 
BD 
co 
BD 
co 


34 
E2 
oc 
3C 
3c 


Ol 
02 
03 
06 
00 


1E38 
03 

2BBE 
2BBF 
26C3 


2B52 


co 87 239C 
80 
0000 


2BBA 


35 
D2 
6D 
F2 
7c 
D2 
7D 
F2 
7D 
ca 
co 


01 
ol 
01 
01 
E7 
Ol 
40 
81 
68 
Pl 
87 


1£ 38 
03 
02 
03 
OL 
OL 
00 
OB 
00 
1E42 
1E4Cc 


02 


0? 
40 
81 
6B 


ol 
00 
Ob 
oo 


E2 
BO 
F2 
BO 


Z29AUGT5 
827804 


ADDR 


1DD1 
1002 
1004 


1D0¢ 
1DDA 
100C 


10E1 
1DE2 
1DE4% 


1DE9 
1DEA 
IDEC 


1E36 
1£38 
1E3A 


22DECT5 
827836 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


PART NO. 


PAGE 16 
MOD 12 0062 
STMT SOURCE STATEMENT ERR LOC 
1856 B PRINTL CISPLY "CONFIGURE ENTRIES* LE6C 
1857 oc XxL1¢"O1* FLAG 1E70 
1858 DC AL1 (MEN23-MENU2 D) MESSAGE LENGTH 
1859 DC AL2(MEN23) MESSAGE ADORESS LETS 
1860 B PRINT1 DISPLY "CONFIGURE ENTRIES® 1E78 
1861 OC XL1*O01° FLAG 1E7B 
1862 DC AL 1L(MEN24—ME NUZE MESSAGE LENGTH 
1863 DC AL2(MEN24) MESSAGE ADDRESS 1E7F 
1864 B PRINTL DISPLY *CONFIGURE ENTRIES® 1E82 
1865 DC XL1itoOL® FLAG 1E85 
1866 DC AL L(MEN25—MENUZF } MESSAGE LENGTH 
1867 pc AL2(MEN25) MESSAGE ADDRESS 1E89 
1868 B PRINTL DISPLY "CONFIGURE ENTRIES* LEBC 
1869 DC XL1°06* FLAG 1E90 
1870 Oc ALL(MEN27-MENUZH} MESSAGE LENGTH 1E93 
1871 DC AL2(HEN27) MESSAGE ADDRESS 1£96 
1872 LESC 
1873 CFRT3 B RECORD GET ENTRY 1E9F 
1874 
1875 CLE Ol eXR20-C*X® 1S IT AN X ENTRY LEA3 
1876 BE CFGEND THEN RETURN TO MAIN OPTION MENU 1EA7 
1877 CLE © 0, XR2),C*E® 1S IT AN E ENTRY LEAB 
1876 BE CFGEND THEN RETURN TO MAIN OPTION MENU LEAE 
1879 
1880 CLO 7(8,XR2),CHNID IS IT A CHAIN REC*D? ; 1EB1 
1881 BE DCPCD2 IF SQ,» GO HANDLE IT 1EB4 
1882 CLE O€,XR29-C°C® IS IT A CPU ENTRY? _ -1EB7 
1883 BE DCPCD4 1— SQ, GO HANELE IT }  soV EBA 
1884 CLI O0(,XR2)-C*U 1S AN UDT ENTRY? 1EBD 
1885 BNE  CFGERR IF NOT, GO TO ERROR LECO 
1886 CLE  34eXR2)eC* § IS IT A UDTX ENTRY? : 1EC3 
1887 BE DCPCD3 1F NOT, GO HANOLE UDT ENTRY 
1888 LECT 
1888 LECA 
1888 LECD 
1888 
1889 ce ceeaeeeed Gens thteedUAKHHEEOEEE OOH TEES SEEREERER EES EESESE SESE EERE ET ESS LEO] 
1890 * THIS SECTION HANDLES UDTX ENTRIES. LEDS 
1891 FREESE ERSEEEEEEES EESEEREREESEEE GEES EERERES GEEEEER ETERS ESSE EEE ER SES EES LEDS 
1892 > EOC 
1892 LEDF 
1893 UDTXP ST TMADR1L,XR1 STORE REGISTER LEE2 
1894 LA Bl eXR2}eXR2 INCREMENT POINTER LEES 
1895 MVC DDCFSM-1¢44),C3H15 INITIALIZE COCF TO READ IN UOT 
1896 MVI -DOCFSMe6 RECORDs LEE 
1897 MVE DDCFS<0 LEED 
1898 LEFO 
1899 B WINRW READ IN UDT RECORD (C3HI5R6) 
1900 DC XL1°80° READ FLAG + LEFS 
1901 TMADRL DC AL2(4#-*) LEF8 
1902 DC AL2(0DCFSB} LEFC 
1903 j 
1904 UDSCN L TMADR1 »XR1 INITIALIZE XR1 
1905 LA 3(,XR1) »XR1 1F0O 
1906 LDOP25 CLC .202,XRVD,20yXR2Z} ARE THE TWO UDT ENTRIES IDENTICAL? # 1F04 
1907 JNE  UTCNTS SKIP IF NOT IDENTICAL 1FO8 
1908 MVE 9-1 XR1D 2C*X? IF IDENTICAL INSERT *X*® IN FIELO 
1909 UTCNTS LA 1(—XRi2-XR1 INCREMENT ADDRESS POINTER + LEOC 
1910 CLI Of,XR1}.C® ¢ HAS END GF RECORD ARRIVED? 1F10 
191t JE LooPz1 IF SG, THEN GO TO NEXT OPERATION 1F14 
1912 CLE Ole XR199C%e* HAS A COMMA BEEN REACHED 118 
1913 BE LO0P25 IF SO, CHECK THIS ENTRY LFL9 
1914 B UTCNT4 IF NOT CHECK NEXT CHARACTER ’ IFLA 
1915 ; 1LF1C 
1916 LOOP21 LA 1(eXR2)eXR2 INCREMENT ADDRESS POINTER 1F20 
1917 CLI Ol yXR29eC* * REACHED THE END GF RECORD? 1F21 
1918 JE UTCNT1 THEN SKIP } 1F22 
1919 CLI Ol eXR2NeC "Se! REACHED A CUMMA? 1f24 
X 
j 
ZOAPRTS PROS 1D DD6-2 DATE 
571872 PAGE 16 EC NO. 
F 
) 


3340 CE DISK EDITOR 


OBJECT CODE 


co 
co 


35 
D2 
C2 


b2 
70 
co 


7 
3¢ 
D2 
E2 
OE 
BD 
co 


6c 
35 
D2 
02 


7D 
Fe 
7D 
F2 
D2 
E2 
cG 


E2 
BD 
co 


34 
6C 
BD 
F2 
D2 
E2 
co 


35 
D2 
co 


35 
c2 
co 


3c 
3c 
co 


38 
co 
CO 
o1 
4E 


01 
87 


ol 
Ol 
02 


o1 
40 
Ol 


6B 
FF 
01 
02 
00 
40 
01 


00 
01 
ol 
02 


Ev 
81 
40 
82 
ol 
o2 
87 


02 
6B 
Ol 


01 
00 
40 
81 
01 
02 
87 


Oi 
02 
8T 


Ol 
02 
87 


ol 
Q5 
87 


FO 
90 
87 


3599 


co 
06 
3? 


87 


3500 


co 


29AUGT5 
827804 


87 


1€60 
1E38 


1€38 
03 
OA8B3 


01 
00 
LE7F 


oo 

1EA4 

ol 

01 

1EA& OAO3 
00 

1E90 


oo a0 
1E38 
04 
00 


00 
10 
00 
37 
ol 
Ol 
1EB1 


ol 
00 
LECT 


2 AB2 
oo O01 
OL : 
OA 

01 

Ol 
1£05 


2AB2 
1E61 
1£38 


OA80 
1429 


2BA5 
20C7 
20C8 


27F5 
1D£D 
2A2F 


2A2F 


1DE0 


ADDR 


1F18 
LFS 
1F1B 


1F20 
1F21 
1F23 


22DECT5 
827836 


4248217 16M MAINTENANCE DIAGNOSTIC PROGRAM 


MOD 12 


STMT 


1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
2940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 


SOURCE 


* 
UTCNTL 


LOOP22 


LooP23 


MvVC9 


LOOP24 


UTCNE2 


UTCNTS 


UTCNT6 


UTCNT3 


CERTRN 


Z0APRT6 
571872 


STATEMENT 

BNE LOOP21 

B UDSCN 

L TMADR1, XR1L 

LA 3C_gXRLPAXRL 
LA RE ADINt3 ¢XR2 
LA L(sXR1LI,XR1L 
CLI O(,XR1),C*® ° 
BNE tG0P22 

MVE O(sXR1} oC o § 
MVI MVC 941 ,X*°FFE 
LA 14,XRLb,XR1L 
LA 1€eXR2) _eXR2 
ALC MVC 94101) ,ONE 
cil O(,XR2).C* * 
BNE LooP23 

MVC O( #—*_ XR1L) 200» XR2} 


L TMADR1-XR1 


LA 4(—XR1)—XR1 
LA Ot» XR1}_XR2 
CLi O(eXR1)-CX!® 
JE UTCNT2 

CLI O(,XRLI-C® * 
JE UTCNT3 

LA 1(,XR1},XR1 
LA LO ,XR2}_XR2 
B L_OGP24 

LA Ll_eXR2}_XR2 
CLE O(eXRZ2} C8 e® 
BNE UTCNT2 

ST ADDRsXR1 

MVC Olly eXRL) ob (eXR2) 
cil 1(,XR2},C* ° 
JE UTCNT& 

LA 10 ,.XR1) eXRL 
LA Ll» XR2) XR2 
5 UTCNT5 

i ADDR, XR1L 

LA Of sXRLESXR2Z 
B LGoP24 

L TMADR1eXRI 
LA READIN: XR2 

8 WRTL 

MVI NAS sl 

MVI PNAS» 5 

B RWRTN 

TBR USECRT,X?FO® 
BE CFRTS3 

B PRINTL 

oc XLEtOLF 

oc ALLEREM-REMB) 
oC AL2(REM} 

B PRINTL 

OC XLL*O6* 

DC ALI (REM2-REMB2 ) 
Oc AL2(REM2} 

B CFRTS 


PART nO. 
P AGE 


4248217 
16A 


IF NOT, THEN SEARCH THE NEXT CHAR. 
IF YES, THEN SEE IF IDENTICAL ENTRY 
ALREADY IN UDT TABLE 

INITIALIZE POINTERS 


INCREMENT POINTER 
SCAN TO 

END QF RECORD 
INSERT COMMA 
CVERLAY LENGTH FIELD TO -2 IN MVC 
INCREMENT ADORESS 

POINTERS 

INCREMENT LENGTH FIELD 
REACHED THE END OF UDTX RECORD? 
If NOT, DG IT AGAIN 


ADD ENTRY TO UDT RECORD 
LOAD ADDRESS 


POINTERS 


SCAN FOR X ENTRIES 
SKIP IF EQUAL 
REACHED END OF RECORD? 


INCREMENT 
POINTERS 
SCAN SOME MORE FOR X ENTRIES 


INCREMENT ADDRESS POINTER 
REACHED A COMMA 
IF NOT INCREMENT TO ANOTHER CHAR. 


SAVE XRL 
OVERLAY OLD ENTRY 
REACHED THE END? 
THEN QUIT 
INCREMENT ADDRESS 
POINTERS 
DO IT AGAIN 


RESTORE 
REGISTERS 


RESTORE REGISTERS 


GO WRITE UDT RECORD 


SET UP RHRTN PARAMETERS TO WRITE 
NEW ENTRIES FOR DCP 
MOVE IN NEW ENTRIES 


IF 547L IS NOT BEING USED THEN 
RETURN 

CISPLY REMINDER TO IPL MESSAGE 
FLAG 

MESSAGE LENGTH 

MESSAGE ADDRESS 

DISPLY REMINDER TO IPL MESSAGE 
FLAG 

MESSAGE LENGTH 

MESSAGE ACDRESS 

ALLOW USER TO HIT ENTER AFTER 


Obe-2 
164 


PROG 10 
PAGE 


@eeoeoeeogeogeoeoeeeedeoedeoeeeoeeeeeeleleelceelUcceclUlcceclUcOWlcelce8l le le 





IBM MAINTENANCE DLAGNOSTIC PROGRAM 


DO6z 


ERR LOc 


1F28 
LF 2c 


LF30 
LF34 
LF S55 
LF36 
LF38 
LFBA 
LF3E 
LF4&2 
iF 4&6 
LF4&A 
1F4C 


DATE 
EC NO. 


aasLn © 
3340 CE DIS 


OBJECT CODE 


2 AAE 
oBcs 


3B FF 
co 87 


co &7 
42 

38 
3015 
“FEES 
CoO 87 
38 FO 
co 10 
co a7 
FFES 
co 87 


O21A 


2477 
2TF5 
LOD 
C222 


oBcs 


29AUG75 
827804 


x e€DrTOR 


22DEC7 
827836 


LF 34 
AF 35 
1F 37 
LF39 


16 48 


5 


MOD 12 
STMT SOURCE 


1987 *# 

198& CFGEND 
1989 

1990 * 

1991 * 

1992 * 

1993 CFGERR 
1994 

1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 


BOAPRT6 
571872 


' 


PART wOe 4248217 IBM MAINTENANCE DIAGNOSTIC PROGRAM 


PAGE 


STATEMENT 
READING MESSAGE 
SEF CFIGFG xX" FFE RESET CONFIGURE FLAG 
8 EDETAA RETURN TO MAIN OPTION MENU 


oc 
OC 
DC 
DC 


TBN 
BT 


oc 


HANDLE ERRORS IN CONFIGURE RECORDS 
PRINT PRINT ®E€RROR IN CONFIG REC*OS 
XL1*42° 
ALL(CERR-CERKB} 
AL2(CERR?} 
XL2°FFES® 
PRENT2 

USECRT eX*FO® 
CFRT3 

HALT 

XLZ2°FEESE 

EDT TAA 


PRINT THE INPUT RECORD 
If USING THE 5472,0UN°T HALT 


PROG ID 
PAGE 


17 


,Db62 


3340 CE DISK EDITOR 


ERR LGC OBJECT CODE 


' 


1F50 
an 25 | 


1F53 
! 1F55 
1°57 


1'59 


1F50 
lF6él 


1F&4 
1F68 


LF6C 
F721 
1F75 
' ‘F778 

LFTB 

LFTE 
i 1Fe2 
1F 86 
LF BC 
190 
1-94 
1F97 
' 1F9B 
LFAL 
LFAS 
1FA9 
LFAF 
1FB3 
' 1 FBT 
1FBB 
LFBF 
1FC3 
LECT? 
LFCD 
1FD1 
1FD5 


1FO9 
LFDE 


DD6-2 DATE 
17 EC NO. 


00 
0000 


FEED 


FFFC 
0000 


08 


29AUGT5 
827804 


2028 


Z AAC 
87 


1F58 
2 AB2 


1F50 
OADB 
00 
03 
00 
OB9C 
1F52 
1F52 
1F75 
OADT 
00 
1FA2 
LFA6 1FA2 
01 Ol 

01 O01 
1fA2 OAO3 
1F A2 
1F 98 
01 00 
1F54 
1F56 
1F52 
1F52 
1-97 
1F58 
2AB2 


58 


3161 


3161 


OoB77 58 
42 0B77 


ADDR 


LFSC 
LFS2 
1F 52 
LF54 
LF5S 
LF 58 


22DEC75 
827836 


PART NOo 4248217 
PAGE LTA 
MOD 12 
STMT SQURCE STATEMENT 
2005 ERAEREREREHERESEEREERSEERESRERESESESEORHR EES ESET SEES ORERE SER EEE LESSEE SE 
2006 * * 
2007 * THIS PORTION OF THE LISTING CONTAINS THE SUBROUTINES USEO * 
2008 * BY THE DIFFERENT PROGRAM OPTIONS. * 
2009 * * 
2010 AE REEREEAESEEERSERESSEES EEECEREERETERERE SESS SE EEEEECERSEESE SES EEE EES ESTES 
2011 
2011 
2011 
2012 
2011 
2012 
2021 
20281 
2012 FFeeeS SHEET SES 
2013 ® CMPRS ® 
2014 ESSEL RD HEED EEOORESESFEESEROHEELEEESESREMERE SE EERE SEES SER SEL HERES ESSE RS 
2013 # * 
2016 ® COMPRESS DATA SUBROUTINE % 
2017 * & 
2018 BEEATEOOOREREEDEEESENE ESSE ES EEES SEES ESSESEEERES SEES ESERTESERSES ER EES SSS 
2019 
20:9 
2020 TEMPS CC IL1#Q* 
2021 XR2WK CC 112*0° 
2022 TEMPB EGU KXR26K 
2022 NEG3 DC IL 2-38 
2024 NEG4S oC rE2°-4° 
2025 ADDRI OC iL2°0° 
2026 
2026 
2027 CMPRS1 ST COMPXT¢3,ARR STGRE EXIT ADORESS 
2028 
2629 CLI COIGRZe1 1S IT A COMPRESSED CARO? 
2030 JE CPCNT1 THEN DON®T COMPRESS 
2031 
2032 ST ADDR1,XR1L STORE XR1 
2033 st ADDR e XR2 SAVE XR2 
203% 
2035 HVE TEMP S9(1),88t-XR2) SAVE FIRST EYTE OF 10 
2036 LA READEN+88eXR2 INETIALIZE XR2 
2037 AALS cul JteXR2) 2X" 00" 1S THIS A NON-UNIQUE CHARACTER? 
2038 JNE AALS NO,sCONTINUE PROCESSING 
2039 MV I CisXR2beX*2AS YES, SUBSTITUTE A UNIQUE CONFIG 
2040 AALS A MINUS1 sXR2Z CECREMENT XR2 TO POINT TO NEXT 
2043 ST XR QWK y XR2 BYTE TO BE COMPRESSED 
2042 CLC XRZ2WK (2) sREADAD IF ALL TEXT INFOQ. HAS NOT 
2043 ENL AALQ BEEN COMPRESSED, REPEAT THE LOOP 
2044 LA RE ADI N+ 87,xR1 LOAD XR1 
2045 LA Ol sARLIPOXR2 LOAD XR2 
2045 AA20 MVI SS$14+1,0 INITIALIZE LENGTH FIELD 
2047 CMLOOP MVC $S$24101) 2SSl4+1 
2046 SS1 ALC 1(%%,XR2Z) e910 eXR2) SHIFT ONE BIT OFF 
2043 SS2 ALC L(#-*,XR2)9102XR2) SHIFT ONE BIT OFF 
2050 ALC SS1i#1¢€1) ,ONE STEP 
2051 CLI SS 14194 TEST FOR & BYTES COMPRESSED 
2052 BNE CMLOOP BRANCH IF NO 
2053 MVC 1(439XRL) sOC rXF2) KMCVE 3 COMPRESSED BYTES 
2054 A NEG3,XR1 CECREMENT REGISTERS 
2055 A NEG4 ,XR2 
2056 ST XRZWK yXR2 STORE NER VALUE 
2057 CLC XR2WK (2) ,READAD COMPARE WITH LAST ADDRESS 
2058 BNL A420 CONTINUE TILL CARD IS FINE SHED 
2059 L ACDR1,XR1 RELOAD XR1 
2060 L ADDR ¢ XR2 RESTGRE XR2 
2061 
2062 MVC DGSNS1(66) 885 XR2) ADJUST FIELD TG PROPER POSITION 
2063 MVC 66(66,XR2) »DGSNS1 
ZOAPRT6 PROG ID DDé-2 
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DO&2 
ERR £GC 


EFES 
LEES 


iFEB 
LFEF 
1FF2 
LFF6 
LFFG 
IFFD 


2006 
2006 
200C 
Z00F 
2015 
2018 
2O21 
2024 


2028 


202€ 


202E 
2032 
2036 
2038 
2638 
2030 
203F 
2045 
2048 
204F 
2053 
2057 
2658 
2G5F 
2060 
2062 
2064 
2067 
2064 
2076 
2073 
2076 
2079 
2c7C 
2082 
2088 


DATE 
EC WG. 


e®eee88e 6 


3340 CE DISK EDITOR 


OBJECT CODE 


6C 
6c 


30 
F2 
33 
F2 
AC 
F2 


GC 
OF 
BC 
OF 
ac 
OF 
BC 
AC 


co 


E3 
00 


OF 
81 
OF 
30 
o7 
87 


00 
oo 


CABS 


34 
34 
co 
54 


08 
OL 
87 


CABS 
OA 81 


29 AUG75 
827804 


o1 


ADDR 


00 
58 LF50 


2A9D 


QAG1 
2B2D 


2B07 
2BE9 
ZO0OE 


2020 


2089 
2194 
0226 
203A 
203C 
203€ 
OA83 
2063 
OA8E 
CABO 
OABL 
2061 
0226 


OABL 
2926 


205F 
2061 
2063 

ol 

22 

OAB3 OA03 

02 

03 

01 

02 

2063 OA03 

0A81 OA03 

2057 


22DEC75 
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PART NO. 4248217, 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NOo 4248217 
PAGE is } PAGE 18A 
MOD 12 30062 3340 CE DISK EDITOR MGD 12 
STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT 
2664 MYI Ol eXR2b,C°T# INSERT T ’ 208C 3C 09 OADF 2123 CONTAS MVI READIN+95,0 CLEAR GUT ID FIELD 
2065 MVC 88(1,XR2),TEMPS REPLACE DESTROYED BYTE 2090 OC 06 OADE OADF 2126 MVC READIN+94£7}) ,READINGOS 
2066 2096 C2 O01 OADT 2125 LA READIN*87,XR1 
2045T CPCNTL Cil SCDFG.X*OF® IS THIS A SYSTEM TEST MSDULE? } 2090 34 031 2088 2126 CONTAS ST TEMP1,XR1 
2068 JE COMPXT IF SO. DON*®T PAD WITH ZEROS 209E OD OL 2063 2088 2127 CLC DEST(2} »>TEMPL 
2069 TBN PFLAG, X*0F# IS THIS PROG DATA DECK 20A4 F2 02 OB 2128 JNL  CONTA6 
2070 JF ZOUT NO» ZERO OUT THE FIELD } 20A7 7C 00 00 2129 MVE Ol eXR1#20 
2071 SEQMV MVC 79(ByXR2Z2} 5950 gXR2} ELSE MOVE ID/SEG@ TO COMP POSITION 20AA 36 Gi OBOE 2130 A MINUSIEsXRL 
2072 J COMPXT YES, THEN DON'T PAD WITH ZEROS 20AE CO 87 209A 2131 a CONTAS 
2073 ) 20B2 35 O01 219A 2132 CONTAG L TEMP4,XRI RELGAD REGISTER 
2074 ZQUT MYC MVI342(1L),READINGL ZERO GUT UNUSED PURTIGN OF “ITELD 2133 
2075 ALC MVIE3BS200) -X5 PRECEDED BY A X®FF® DELIMITER 20B6 CGO 87 0O0CO 2134 CONVTR B ee RETURN TO CALLER 
2076 MVIZ MVI %- 4E .XRZ}_XK OFF SE } 2135 
2077 ALC MY EZt2023 5X2 2135 
2078 MYC MYCB+LiL) XBT 2135 
2079 SLC OMVCSELC Lb MVI342 } 2135 
2080 MVE 674 -XR2346 ZERO GUT RIGHTMOST BYTE 2135 
2081 MVCB MYC 860%-*,XR2),870eXR2} ZERO OUT REST GF FIELC 2135 
2082 } 2135 
2083 COMPXT B t-% RETURN TG CALLER 2135 
2086 2136 Fe SESSREREERS 
2084 5 2137 * RwRTN % 
2084 2128 SSR ARES REESE EKA RSS KA Ke CKEA SASL AREAA RK SEKEKAAEAE RAKE ERALAARERRAT 
2084 » 2139 * THES SUBROUTINE READS DATA IN FROM C C H HR FIELD IN FIELD & 
2084 # 2140 #* PNAS, ANO WRITES iT ON THE SAME MODULE AT LOCATION C CHER * 
2086 214k * IN THE FEELD *NASE. * 
2084 2 2142 % x 
2084 F 2143 SSRRERKRREKSTAAEKE PARE RE RAKES KKSSAS SAS SSH ERSCKHKALSSEKSEAEKS CRE KKKAEAMAREKK 
2085 ££ eee eeege ke se 214% 
2086 * CONVRT Z2iSS 
2087 HRS RKECRE LE RY ES SH RAKES ESSE EERE SSE SERS SEHAS EREEESERE RS DERE RE ERE RREE SED 2OBA O006 2O0BB 2145 TEHPL dC FL 2858 | 
2088 * THIS SUBRT CONVERTS REP CAKDOS INTO TEKYT CARDS 2 206C cCacocoacaase Z0C1 2146 VTINAS DC FLitoe 
2089 # % 2002 000000000006 2OCT 2147 PNAS pe SIL ito 
2090 CREEP SESE EES RSE REPS RES ETHERS CESARE FEEREKREE ERE ESE EEE SKE SEEKER KERR RASS? SP 2Z4LER 
2091 2146 
2091 & 20C8 2149 RWRIN EQU #& 
2092 READS DC AL ZUREADING4} a 20C8 34 08 2137 2159 ST RURINR+3,ARR 
2093 20CC Of OL 20BB 28CF 2151 MVC TEMPIOE21,SECTH MOVE # OF SECTORS YO BE MOVED INTO 
2093 & 2152 # A BUFFER 
2094 CONVRT ST CONVTRE3 - ARR SAVE RETURN ACCRESS & 2002 3C 00 2A9B 2153 MVI NWRTFG,O RESET FLAG 
2095 ST TEMP4,XRE SAVE REGISTER 2006 OC 0% 2BBF 20C? 2154 MVC DDCFSM{ 5} 5 PNAS SET UP DUAL CONTROL FIELD FOR MUVING 
2096 8 PACK CONVERT FROM EBCDID TG HEX : 20DC OC 04 2BC9 2545 2155 YC DDCETME5}4NAS PROGRAN 
2097 oc ILL &48 SOURCE LENGTH } 2156 
2098 oc AL2(READINGS) SOURCE Z0E2 OD OL 2088 ZBEF 2157 LGOPL? CLE TEMPLE 22D X48 IS # OF SECTORS < 48? 
2099 DC AL2(READINGLI DESTINATION 20E& F2 046 OD 2158 JSNH CMCNT2 THEN JUMP 
2100 MYC READIN#+3(2},READIEN+1 PUT ADDRESS IN RIGHT PLACE } 20EB 32C 2€ 2BC3 2159 MVE DOCES,47 SET CONTROL FIELD TO MOVE 48 REC®S 
2101 MYC DEST{2} ,READG INITIALIZE DESTINATION FIELD ZOEF OF OL 20BB 2BEF 2160 SLE TEMP1(23 X48 GECREMENT COUNTER 
2102 LA READINGS pXR1 LOAD XRi 20F5 F2 87 10 2161 J CMCNT3 JUMP 
2103 MVE REACIN,C?T* CONVERT TG TEXT CARD ) 20F8 OC 06 2803 2088 2162 CMCNT2 MVC DOCFE SC i} pe TEMPL SET # OF RECORDS TO MOVE 
2104 MVI READINGe1L-O INITIALIZE LENGTH TG ®ONE® 20FE Of OO 2BC3 OA03 2163 SLC DOCFS{(1).0NE ADJUST IT 
2105 NEXT ST SKCEeXRi UPDATE SOURCE ADDRESS 2104 3C OF 2A9B 2184 MVE NWRTFEG,X*OF® SET FLAG TO QUIT 
2106 B PACK CONVERT DATA FROM EBCDIC TO HEX } 2165 
2107 DC IL2e2e LENGTH 2108 OC GO 2BCD 2863 2166 CMCNT3 MVC DOCFT(1L},DDCFS SET BOTH FEELDS 
2108 SRCE DC AL 2 ( *-%} SOURCE 2167 
2109 DEST oc AL2 (*-#} CESTINAT 1ON » 210E CO B87 239C 2168 B WINRW READ IN RECGRDS TO MOVE 
2110 Ctl Lig XR1L}5C*® * 1S NEXT COLUMN BLANK? 2112 80 2112 2169 boc XLL* 808 READ FLAG 
221} JE CGNT AS CONTINUE PROCESS 21413 4600 2114 2170 pc AL Z2{(DDOF} 
2112 ALC READIN+3(21,0NE INCREMENT RIGHT ADDRES POINTER > 2115 2BBA 2116 2172 DC ALZ2(DDCFSB) 
2113 CLE L(,XR1},Ce,? iS NEXT COLUMN A COMMA? 2172 
2114 JNE #46 SKIP TF NOT 2117 CO 87 239C 2173 B WINR YS WRITE RECOROS TQ MOVE 
2115 LA L(oXRED_XRL INCREMENT POINTER 5 2118 40 2118 2174 BC XL1°408 WRITE FLAG 
2116 LA 2(+XR1} 5 XR 2Z211C 48900 211D 2175 DC AL2(0DGF} 
2117 ALC DEST€2}40NE INCREMENT DESTINATION FIELD 211LE 28C4 2Z1L1F 2176 DC AL 2(DDCFITB) 
2118 ALC READIN+I (13 ,0NE INCREMENT LENGTH p 2177 
21k19 5 NEXT CONTINUE 212G CO 87 2198 2178 B STPFLD STEP CONTROL FIELD 
2120 * 2124 2BBF 2125 2179 oc AL 2(DDCE SH) 
2121 # SET REST OF FIELD TO x#00°. } 2126 CO 87 219B 2180 B STPFLD STEP CONTROL FIELD 
2122 * 212A 2809 2128 2181 DC AL2(DDCETM} 
5 
ZOAPRT6 PROG ID DO6-2 DATE 29 AUG75 22DECT75 ZO0APR76 PROG 10 LLE-2 
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ERR LOC 


21i2€ 
2136 
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2i38 
213¢ 


21406 


2144 
244A 
Zi4E 


2154 
2158 


2i5c 
2162 
2166 
2167 
2169 


2168 
2171 
2175 
2176 
2i7ve 


2iTaA 
ZLTE 
2180 
2154 


2186 
2iec 
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DATE 
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OBJECT CODE 


30 00 
co Bi 


CO 87 


600000 
000000 


34 08 
oc 03 
3C O01 
oc 09 


3C 2F 
2F 


29AUG7 
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Z2A98 
20E2 


oooe 


oo 
00 
2193 
2BB8E 
28BF 
2Z2ECD 


2BC3 
2ecpd 


234E 
239C 


234E 
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2198 


2BBE 
2154 
0000 
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2b F 
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PART NO. 424821 7IBM MAINTENANCE CIAGNOSTIC PROGRAM PART NOL 4248217 
PAGE i9 PAGE 19A 
MOD 12 0D62 3346 CE DISK EDITOR MOD i2 
ADOR STMT SGURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
2182 2234 EKKESEERESSRASESAKAKRSSESKHSES SKS SEIS LS STS SRSKKKSSKKKESRHEK HES HECK KARKSSS SS 
2183 Cal NRERTFEGsO 2235 ® THIS SUBRY STEPS THE DESK OREIVE CONTROL FEELD TO % 
2184 BE LOOPLT 2236 * FHE NEXT SECTOR. * 
2185 Zest * THE FORMAT FOLLOWS: ee 
2166 RHERTNAR B &- 2238 * * 
2187 2239 * B STPFLG Es 
2187? 2240 # BC AL 2(#-%} THES ES THE RIGHT END ADDRESS OF x 
2187 224) & A FIVE BYTE FIELO CONTAINING * 
2187 2242 * CCH HR. % 
2is67? 2243 % a 
2187 2244 HESKKSEKREE SEER KESHKSSERH KESSEL SEH RS LEH RSS SIH SELES KSELSSRK ESS SSE HSE ELKRE HER 
2187 2245 
21a7 2245 
SESS SHES Re Hess see 2184 o00C0000G5 2i96 2246 DOCFX OBC SILEPEOFS 
2189 &® RDaRT & 21S¢S 0006 Z1iGA& 2247 TERMP& DC EL2*O? 
2196 KRHA LSS CRKESEER KS KK ERRLA KTH S RE KALA HIPS SARE SMES ESE ATER HES HRSP RAR AVES ES F248 
Zigsi & THIS SUBROUTINE READS FROM GNE DATA MODULE? AND WRETES OR * 2248 
2192 # ANOTHER. THE FROK DATA MOLULE @ CODE SHOULD BE EN FFRDR YH E * 2198 34 08 2206 2243 STFFLD ST SYPFELR43, ARK SAVE ADDRESS 
2193 4 AND FHE TG & CODE EN *TOORVa*t. THE C C H H FIELD TG START % Z1SF GCE G1 2200 GACS 2250 ALC STPELRE202) ,GNE POINT TO FEELD &DORESS 
2196 & DUPE ING AT EFA @STRSCT*®, ARO THE C C HOH FIELD TG SYOP AT * 21459 OF OL 2L0G 2200 2251 AYE MYCG45 CZF eSTPFLRES GYERLAY INSTRUCTION 
2iv5 # IN €STPSCT& 44 BYTE FRFELOSEe + 2148 OF Gi 2186 BOO 2c52 MELE aC. MYC34¢5¢25,4-# 
2196 * % 21Bi Of 0& 2198 0000 2253 MYCS BYC DDCFE X€53 »#-* POVE IN FLELD TO BE WORKED ON 
2197 EKKABAPESKAGSKPSSESKHRSELSA SHEA SLRS SSSR ES SSS RELH TSS RRA BASLE CER L KS SS SERA HSE 2187 GE OL 2700 GAGS 2256 &LC STPFLR +3! 2) - ONE POINT TO RETURN ADORESS 
2196 2258 
2198 Z2iBD 3D 30 2198 2256 Cil DOCEX,4«8 IS R FIELD EQUAL TO 4&8? 
2138 2199 STRSCT BC &ILEPOFP Z1iCl Fz O2 OS 22879 INE ENCHD THEN GO ¥O NEW HEAD 
Z213F 2200 S¥PSCT DC GELE*OF 210% CE 00 2198 CAD 22668 ALG DDCFX€1LE «ONE INCREMENT REC # 
2203 ZiCa& F2 8T 24 2259 J CONTA& 
2201 2266 
2202 RDWRY ST ROWRYR*3,ARR SAVE RETURN ACODRESS 21CD 3D 13 2197 2261 INCHD CLI DOCFX-1-19 IS HEAD # 19? 
2203 2101 F2 O02 98 2262 ORE PNCCEL THEN INCREMENT CYLINDER 
2204 MYC OOCESM-1 04) ,-STRSCT SET UP C C HH FIELO 2106 30 01 2198 2263 BYE DOCFX,1 RESET TO RECORD i 
2205 MVE COCKE SMoel STANT AT ACCORO 3 2108 OF OL 2197 OAD 226% ALC DDCFX-1(2) ,ONE INCREMENT HEAD 
7206 MVC DOCFYT€10},0LDCFS CO THE SAME FOR TH WRETE OLCF Z1DE Fe &7? 10 2265 J CONT AS 
2207 2266 
2208 LOOPLL MVI DOCFS,47 SET UP FIFLDS TO WRITE ZLEL O€F OL 2195 OA03 2267 ENCCL ALC ODCF X- 3423. ONE INCREPENT CYLINDER 
2209 MVI DOCFT<47 1 TRACK ZIEF OC OL 2197 2847 2268 MVC DOCFEX-1(23,ZERO HEAD @ 
2210 Z1lED 3C OL 2198 2269 MVE OCCFX,L RECORD 1 
2211 YC DRIVEa#l1) sFRORVE SET WINRw TO GRPERATE UN RIGHT Orv 2276 
2212 £ WINRW REAL IN 48 RECORDS Z1IFi OC O1 21FA 2186 227i CONTAB AVC MV¥C44302) .MVC3+5 OVERLAY INSTRUCTION 
2166 2213 DC XL1°808 READ FLAG 2iF7? OC 04 OCDO 21968 2272 MVOS BC #-#(5),CDCFX REPLACE FIELO 
2168 2214 OC AL2(00DF} 22%3 
216A 2215 DC Ai 2( 00CF SB) 2LFD CO 8? 0000 2274 STPFLR B — & RETURN TO CALLER 
2216 2é%tS 
2217 MVC DRIVE C13, TODRV# SET WINKRwW TOC CPERATE CN RIGHT GRV 2275 
2218 8 wINRW WRITE 48 KECORDS 227> 
2175 2219 OC XLi®40& wRITE FLAG 22ers 
2177 2220 cc AL2¢(O0D0F) 22ts 
2179 2221 DC AL2¢(DOCFTB) 2275 
2222 2275 
2223 B STPFLD INCREMENT OLCES 2275 
217F 2224 oC AL2¢DOCFSM} 227& SHXERHTHESEES 
' 2225 B STPFLD INCREMENT OCOCFT 227TT * ROFAS * 
2185 2226 oc At. 2(DDOCF TM} 2278 ER RG REE SER REAR REET KE ERATE ETH EARS RERREE SE HAGEEKEAS SE KESESREKHK GREE SHEATE 
2227 2279 * THIS SUBRYT SEEKS TO AND READS THE FAS RECORD * 
2228 CLC DOCFSS-1(4),STPSCT IS IT TIME TO QUIT? 2280 * TORMAT FOLLOWS: * 
2229 BL LOOP11 IF NOT, GO BACK 2281 * * 
2230 ROWRER B ¥— % RETURN TO CALLER 2282 # 5B RCOFAS THE RECORD READ FROM THE DISK ES € 
2231 2283 * DEPGSITED IN FHE 12 BYTE FIELD = = 
2232 2284 # 'FASINE® © * 
2231 2285 # * 
2231 2286 KO KEEEER KEE RRRTREEEKATS SERA EER ESERH EARS SEERA SSSA SHSE HLS ELSE TSERLSEKA TS 
2231 2287 
2231 2287 
2231 2201 34 08 2241 2288 ROFAS ST ROFASR +3, ARR SAVE RETURN ADRESS 
2231 2205 OC 04 2BBS 2B2A 2289 MVC DOCFRMN(5),C3Hi OL SET UP DDCF FIELD TO READ FAS RCRD 
2232 CHEESE EESESE 2208 3C 00 2LbL39 2299 HMVI DOCFR,O 
2233 * STPFLD * 220F CO 8F 239C 2295 5 WKINRe KEAD FAS 
5 30 APRT76 PROG ID DODS-2 DATE 29AUG75 22DEC7TS 30APRT6 PROS I0 00 é-2 
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PAGE 20 ' PAGE 20A 
D062 3340 CE OISK EDITOR MOD 12 D062 3340 CE DISK EDITGR “OD 12 
ERR LOC OBJECT CQDE ADDR STMT SOURCE STATEMENT : ‘ ERR LOC OBJECT CODE ACDR STMT SOURCE STATEMENT 
2213 80 2213 2292 oc xL1* 80° READ ; 2345 * DS Xi FLAG DEPOSITED BY SUBROUTINE * 
2214 4800 2215 2293 oc AL2¢DOODF) a OF DDDR CONTENTS 2346 * pc CL3*PID* PROGRAM ID TO SCAN FOR IN VIOC * 
2216 2880 2217 2294 DC AL2(D0CFRB) a OF DOCR CONTENTS 2347 * , * 
2295 : 2348 * FLAG BYTE: X*00'= NG SCAN HIT THROUGH ENTIRE * 
2218 OD 02 4802 2269 2296 CLC DODF+2035eFAS 1S THIS A VIRGIN PACK? 2349 * CONTENTS OF VTCC * 
221E F2 O01 09 2297 JNE e412 JUMP EE IT IS. 2350 * X*OF*= SCAN HIT 
2221 OC 08 2272 4805 2298 MVC FASINE (9) ,DDDF+¢11 — MGVE INFG TO DESIRED PLACE ) 2351 * NOTE: ON NG SCAN HIT THE ADDRES LEFT IN THE ODCF FIELD IS * 
2227 F2 B87 14 2299 J RDFASR 2352 * THE NEXT AVAILABLE RECCRD FOR VTOC. * 
2300 2353 * * 
222A OC O1 2272 2B47 2301 MVC FASINF(21,ZERO ZERU WTOC ENTRIES ' 2354 # NOTE: TO SCAN TO END OF VTCC, PUT &ee2° IN PRGID * 
2230 OC 04 226F 2548 2302 MYC FASENB4¢8(5) eCSHORL PUT IN SECTOR GF FIRST FIELC 2355 * * 
2236 3C 00 2270 2303 MV I FASINE+4+9,0 ZERO FIELD CELIMITERS 2356 * ebeeRAeEEEAGEEHEEDEREESSRERRERESSESEEELEREEERERESEREEESEEEEEEES SSS SOS 
223A 3C 00 226A 2304 MVI «FAST NB*350 ' 2357 
2305 2357 
223£ CO 87 C000 2306 ROFASR 6 e-% RETURN TO CALLER 2267 2358 FASINB EQU * 
2307 2267 C6ClE2 2269 2359 FAS oc CL3°FAS® 
2307 2264 0000000000000000 2272 2360 FASINE OC 9IL1*°O* 
2307 2272 00 2360 
2307. ‘ 226F 2361 FASINM £OQU FASINB+8 
2307 2273 SCS5CSC 2275 2362 AST DC CL3° eee? 
2307 2276 0000 2277 2363 TEMP3 OC 1L2°o* 
2307 ‘ 2278 SOFF 2279 2364 X255 OC 1L2¢255* 
2307 2365 
2308 EEERSESSEEEESEE 2365 
2309 © wWRFAS ® ) 2365 
2310 connec peseeeseeneeeeneeseeesenesseeeeeEsea esas ees seer see ee eee seer” 227A 34 08 234D 2366 SCNVTC ST SCNVTR4+3eARR SAVE RETURN ADDRESS 
2311 * THIS SUBROUTINE WRITES ENFG IN THE FAS KEGIGN * 227E 34 O1 2277 2367 ST TEMP3,X%RI1 SAVE XR1 
2312 * a! 2262 35 O1 2340 2368 L SCNVTR4 3g XR1 LOAD XR 
2313 * FORMAT FOLLORSS: * 2369 
2314 * * 2286 O& O1 2340 28D 237¢G ALC SCNVTRE3(20 0X4 INCREMENT TO RETURN ADORESS 
2315 * B WRFAS CATA STORED IN THE 12 BYTE FIELU: * 2371 
2316 * tEASENE® ES WRITTEN TN THE FAS THE * 228C CO 87 2201 2372: B RDFAS GO READ FAS 
2317 * FAS REGION UN THE DESK. + 2290 OC 04 28AB 2840 2373 mvc DOCEM(5}).C2HORI SET DOCF 
2318 * % 2296 3C O00 2BAF 2374 mVI DOCF.0 
2319 * a eeunceseaeeeedseeneeeeneeeseeee ese ses SEEEe ee Gees eEE Se eEE ESSE ESET ETS 2375 
2320 229K OD O1 2272 2B47 2376 CLC FASINE(2),ZERO SEE IF VIRGIN PACK 
2320 , 22A0 F2 81 87 2377 JE ENDL GO HANOLE IT 
2242 34 08 2266 2321 WRFAS ST WRFEASR+3,ARR SAVE RETURN ADDRESS 2378 
2322 2283 D2 OL 03 2379 LA 3UeXR1)2XR1 INCREMENT XR1 
2246 OC 04 2BBS 282A 2323 MVC DDCFRM(5),C3H161 SET UP DDCF FIELD ; 2246 34 OL 2203 2380 ST MVC145eXR1 GVERLAY MOVE INSTRUCTION 
224C 3C 00 2BB9 2324 MVE DDCFR-O 22AA 36 0} 1754 2381 A NEG3eXR1L DECREMENT XRL BY 3 
2250 CO 87 OB78 2325 B SETTO SET FIELD TO X*FF* S$ 2382 
2254 OC OB 4808 2272 2326 MVC ODOF411¢12) 7 F AS ENF SET UP DDDF FIELD TO PRUPER INFU ' 22AE 3C FF S8FF 2383 MVI DDDF4255eX*FF* FILL DDDF WITH X*FF® 
2327 2282 OC FE 48FE 48FF 2384 MVC ODDF4+254 (255) »DDDF +255 
225A CO 87 239C 2328 8 WINRW WRITE INFO GN MODULE 2385 
225E 40 225E 2323 pc XL1°40* | WRITE } 2268 OC 03 4603 2880 2386 MVC DODF+3(4)-ACTO PUT IN SCAN PARAMETERS 
225F 4800 2260 2330 DC AL2(O00F) 2 OF DDDR CONTENTS 22BE OC 02 4806 0000 238T MVC1 MYC DDDF+6 (3) ,*-* 
2261 2680 2262 2331 Dc AL2(DDCFRB) a OF CDCR CONTENTS 2388 
2332 : 22C4& OD 02 4806 2275 2389 CLC DODF+4+6(3),AST 1F PID DOESN'T = ***#* 
2263 CO 87 0000 2333 WRFASR B *-* RETURN TO CALLER 22CA F2 OL OA 2390 JNE €4+13 THEN JUMP 
2334 , 22CD 3C 00 4&87F 2391 MVI DDDF +4127 +0 CTHERWISE ZERO OUT HALF OF SCAN FLD 
2334 ' 22D1 OC TE 487E 487F 2392 MYC DDDF+126(127) »DDDF +127 . 
2334 2393 
2234 22D7 3C 00 2AAlL 2394 MVI LSTSCN,O 
2334 - : 22DB OC 00 2315 234E 2395 - MVC TLCLB+ 101) »~DRIVEs OVERLAY TIO INST 
2334 22E1 3A 03 2315 2396 SEN TIOL8+1,X*03* 
2334 ; 22E5 OC O01 2ACC 2272 2397 MVC TEMP2(2),F ASINF KEEP HEAD OF VTOC # 
2334 _ } 2396 : 
2335 HEERESSSER SEES 22€B OD O1 2ACC 2279 2399 LooPsS CLC TEME 2(2),X255 1S # GF RECORDS TO SCAN >255? 
2336 * SCNVTC * 22Fl F2 04 OD 2400 JNH *4+16 SKIP IF NOT 
2337 + SCNVIC fe eenessceanesacenssnsaananeesagaees setgne ee Oaae eee oe 22F4 OF 01 ZACC 2279 2401 SLC TEMP2(02}) 2X255 DECREMENT COUNTER 
2338 * THIS SUBROUTINE SCANS vTOC FCR THE ID IN THE PARAMETER * 22FA 3C FE 2BAF 2402 MV I DDCF,254 SET DDCF 
2339 * LISTs IT THEN SETS A FLAG INDICATING SCAN HIT GR NOT~ * 22FE F2 87 OA 2403 J €413 SKIP 
2340 * THE ADDRESS OF THE HIT AND ITS CONTENTS ARE SAVED. ! 2404 
2341 * * 2301 OC 00 2BAF 2ACC 2405 MVC OOCF(1)-4TEMP2 
2342 * FORMAT FOLLOWS: * 2307 3C FF 2AAl 2406 MV I LSTSCNyX* FFP SET LAST SCAN FLAG 
2343 * «! : 2407 
2344 * B SCNVTC * 2308 CO 87 239C 2408 B WI NRW SCAN READ 
} ; 
CATE 29 AUGT5 22DECT5 ZOAPRTE PROG 16 DD6—2 DATE 29AUG75 220EC7S5 -3O0APRT6 PROG ID 006-2 
EGC NO. 827804 827836 571872 PAGE 20 )EC. NO. 827804 827836 571872 : PAGE 20A 
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PART NGe 4248217. 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NOw. 4248217 
PAGE 21 } PAGE 21A 
MOD 12 0062 3340 CE DESK EDITOR MOD 12 
STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
2409 oc XL1220° j 2468 €¥SeRRESESE 
2410 DC ALZ(ODDF} @ OF DDDF 2469 * WINRW * 
Paki DC Ai 2t DDCFBI a OF DOCF 2470 See ead eEREERSERRES REESE RESES SEER EERE ERSTE STARE TSE ESSE ESAS ES EE SESE 
2442 } 2471 * SUBROUTINES READ, WRITE OR SCAN N RECOROS ON 3340 * 
2413 TEGLS TIO  CONTESs*-* iS if SCAN HIT? 2472 * ACCESS FORMAT: # 
241% 2473 # B WINRW BRANCH TO SUSROUTINE * 
2415 E STPFLD INCREMENT SCAN ODCFE FIELD } 2474 * oC Xil FLAG * 
2416 pc ALZ(DOCFHM} 2475 * Oc AL2(#-*} a GF DESK DRIVE DATA FIELD * 
2417 2476 ® Dc ALZ2E8- 9} a OF DISK DREVE CONTROL FIELD % 
2418 CLE LSTSON« X°FE® iS LAST SCAN FLAG SET? j 2477 * * 
2419 BN 4 OOPS KETURN EF NOT 2476 % FLAG BITS (NO MORE THAN ONE BIT ON AT A TINED % 
2426 2479 * BIT %* 
2621 ST MVE LS3_ XARA OVERLAY MVE ENST } 2480 * o- SEEK AND READ * 
2422 2481 # i- SEEK AND WRITE # 
2423 ENDL EGU. ® 2482 % 2- SEEK AND SCAN READ % 
2424 MVEL RYE #-#.0 RESET SCAN HIT FLAG } 2483 © * 
2425 J SCNVTE RETURN 2484 * VALUES SE BYTE *ORIVE@? € 
2426 2485 * DRIVE 1 EDREVER®= Ke COF % 
2427 CONTES ST MVT2¢3 eXRE CVERLAY ENSTRUCTION } 2486 * DRIVE 2 SORIVES*= X*CBe # 
2425 MVIZ MVE €- oe XP OF! SET SCAN HIT FLAG 2487 * DRIVE 3 PORIVER*= xeDO® t 
2429 MVE DOCEsG READ EN 1 RECORD ; 2488 © DRIVE 4 PORIVES'= X°D8° & 
2430 B WE NR READ IN WTOC ENTRY THAT RESULTED 5 2489 % & 
2431 oc RLL? Bos IN YHE SCAN HIFe 2490 Sede een EERE EARUHED ED ESEEOREESESD SSE RERAEEEE ES EHEEE SEED TEER ESSE ESS 
2432 DC AL 2¢000F - 2495 
2433 pe ALZ(UOCFBE 3 34h 
2434 2375 OOOD0RGGOVNNCONS 237E 2492 DOCFE Oe LOILEEG® 
27435 SCNYTE L TEMP 3eXRI KELQAD xR1 237D 000G 2492 
2436 SCNVTR B one RETURN TQ CALLER $ = -337F 0600 7380 2493 TODoOR OC TLZ*08 
2437 3481 2494 QUITFG EQU * 
2437 238L 0590 2382 24965 TOUCR OC rL2*G8 
2437 } 7383 2496 TODDF Eau * 
2437 3383 OOODOOOOOOCCOGOD 2386 2497 oC SELLPOF 
2437 : 2388 900 2697 
2437 ; 23BC 2298 YODCE EQU * 
2437 238C SoOgCcLOcoSGD 2390 2495 DC S2LL°O° 
2437 2291 238C 2392 2500 THOCFAa OC ALZ{TODCF} 
2638 FHRHERKS THERE } 2393 238% 239% 2501 YOODFa OC ALZ(TDDODFE 
2439 * SELDRV * 23¢5 2502 GUTREC EGU #* 
2440 neh ekeaardtehee HES EEHEERERT SEES NESE EETEREEEE TEES TIS ESTES ESS EEE SES ESSE 2395 cooocooccasd 2398S 2563 BC SILi&a?® 
2441 ® * 239A OC8F 2398 2504 LINKMa DC AL2(LINKM} 
2442 * SUBROUTINE TO TEST SENSE SWITCHES ANO SELECT * 2505 
2443 * HHECH DISK OREVE TO USE * 2508 
24uu ® «} 2505 
2445 RRERE RES EGRET HRRERS AER RERE LEE LEER ESTE SE TASES TEES eee EAAEESSS REPS 27505 
2446 ; 239C 34 O08 2522 2506 WENRK ST WINRWR?3-ARR SAVE ADDRESS 
2446 5 23A0 34 OL 2AB2 2507 ST ADDR, XRE SAVE XR} 
2447 DRIVER DC IL1L¢O8 2344 35 OL 2522 2508 t WINRWR*3pXR1 LOAD POINTER REGISTER 
2448 23A8 OF OL 2522 ZBOD 250$ ALC  WINRWR*3E2Z23 XS SEY RETURN ADORESS TG NEXT INST 
2449 SELORY ST SLDRVR43e ARR SAVE KETURN ADDRESS I 7610 
2450 TBE SBYTES ySSW2Z4SSH2 34S SWS TEST FOR DRIVE } 22RE 3C OA 2BEA 2511 my I iCTR,10 ENITEALIZE COUNTER 
2451 JF *o 11 23B2 if O1 23£0 64 2512 MYC - MUVL*S £23540 eXRE? OVERLAY @¥C INST 
2452 MYT ORIVE#, OR} § 2387 OC OL 251E 23E8 2533 MVE OMNES 302) gHOVIFS CVERLAY MOVE ENS TRUCTOR 
2453 MY I KBRDY Cele 23RD GE O01 23£0 2800 2514 ALC  -BUV 145029 6X5 CHANGE POLNTER 
2454 IBN  ‘SBYTE4,SS¥22 SSwiO ON? 2303 O£ C1 2360 ZBDS 2515 ELC © MUVIL45 02353 
2455 JF SLDRVR 1f NOT RETURN f 2309 GO OL 2308 23£¢ 2516 MYC mvYCLO+302) MOVIES CVERLAY KEY AKO DATA LENGTHS 
2456 MVE DRIVE#sOR2 23CF Of CL 23E0 GAQS 2517 ALC MOVEL45¢21,GNE 
2457 KVI KBRDY,C°2¢ 2305 OC OZ COCO ZBT7 2518 M¥CLG MVE  4-903444256 
2458 % TEN SE SJTE4sSSW23 SSWLL GN? 3 2308 OC OF 237& 8006 2519 MOVE AVG  ODCFECLON.*-# SICRE DDGE EN ALTCRNATE PLACE 
2459 © JF &4+ 1) CONTINUE LF ROT 23E1 OC 02 24B8 23.6 2420 Mtl MOV Ze REZ eMOVESS Ugi LAY POVE PASTA EDO® 
2460 © MVE  ORIVE# sDR3 SET FOR ORIVE 3 23E7 OD O3 2379 ZBI 2522 chE})©6 DUCFE-5S (4&9, C3318 TRYiKS YQ ACO TQu FAR? 
246k * MVI  KBRDY,.C'3° } 23ED CO 84 2735 2522 BH TOOF AR 
2462 * TEN SBYTES 6 SSW24 7523 
2463 ® JF *¢ 1) 23FL 78 20 OC 2524 TBN Of xR1LEeK* 208 1S PY SCAR BREAD KLQUE ST? 
2464 * MVE DRIVE# eDR4S SET FOR DRIVE & } 23F4 CO iG 2409 2525 BT SCANRD 
2465 ¥ MVE KBRDY,CE&S® 2526 
2466 SLDRVR B e— RETURN TO CALLER 2527 ¢ ® 
} 2528 # THES SECTION OVERLAYS E/O TWSTRUCTEONS FO8 CURKECT GREKE 
2429 #2 & 
) 
30APRI6 PROG TD CODe-2 DATE 29 AUGT5 22UECTS 30APRIG PREG ED Lue-? 
571872 PAGE Zk EC NO. 827804 B27836 571872 Pat 7ba 
} 





TBM MAINTENANCE DIAGNOSTIC PROGRAM PART NQ. 4242217.BM MAINTENANCE DIAGNOSTEC PROGRAM PART NO. 4248217 
PAGE 22 PAGE 22a 
0062 3340 CE DISK EDITOR #00 12 1D&2 3340 CE DISK EDITOR MOD 12 
ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT ‘RR LOC OBYECT CODE ADDR STMT SOURCE STATEMENT 
2530 2597 
23F8 OC O00 246F 234E 2531 MYC STOL+1 01} -ORIVES OVERLAY SIO INSTRUCTION 2597 
23FE OC 00 246C 234E 2532 MYC $1G541¢€1),O0RIVE#R OVERLAY SIO INSY 2597 
2404 OC 00 2472 234E 2533 MVC TIO44+101) »DRIVER OVERLAY TIO INST 2409 OC CO 2500 234E 2598 SCANRD MVC SITOLGO+1LE1) ~ORT VER CVERLAY SIO INSTR 
2408 3A 02 2472 2534 SBN TID4s1,x*02* 240F 3A 63 2500 2599 SBN $1010e1-¢XK*G3* 
240E OC 00 24AF 234E 2535 AVC oTO741 01) ,ORIVER UVERLAY SIO INST 24E3 OC 00 250A 234E 2600 MVC STGLI*¢L (1) »OREVES OVERLAY SIQ INST 
2414 OC OO 2482 234E 2536 MYC TIOS*#L OL} pORI VES CVERLAY Y¥IO inST 24E9 OC GO 2506 234E 2603 MYG FTIGCO+1LEL) ,DRIVER OVERLAY TIO INSTR 
241A 324 OL 2482 2537 SBN TIO0541,x"OL* 24EF OC O06 2510 234E 2602 MYC TIOLOF UCL) ,ORIVER GYERLAY TIO INSTR 
24iE—E GC 00 2468 234¢ 2538 MYC THEOL] C1) ,ORIVES UVERLAY TIG INST 24F5 34 O02 2516 2603 SBN FIOLG+1,xX*o2* 
2424 OC 00 2476 234E 2539 MYC TEO?V*# LER} DRIVES CVERLAY TiG INST 24F9 OC O06 2514 Z234E 2664 ravC TIOEL+1012 -DRIVES CVERLAY TIG INSTR 
2540 24FF 71 C& G2 2605 Lid 2(eXR1},DDOR LOAD DDBDR 
2424 78 46 90 2541 TSN Ol eXRL Ee X® 40 & SEE IF READ OR WRITE REGUEST 2502 71 C& 04 2606 Lio &@eXRL},DOCR LG@AD DDCR 
2¢20 F2 10 OF 2542 JT *+ 15 2505 Ci 0S 2682 2607 TIOS regs) HAL TL, ¥~% TEST FOR DEVICE NOY READY 
2430 3A O1 246F 2543 SBN SIGi+i,xX*OL* CVERLAY FOR READ 2609 F3 00 00 2608 SIOL1L S06 KX 200%, tH SEEK 
2434 F2 87 2A 2544 Ri} RTIRYL JUMP IF WRITE ‘ 2609 
2437 324 O2 246F 2°45 SBN STOL+1,x* 02? CVERLAY FOR WRITE 250 2610 DRIRNE EQU me 
2438 OC O1 24A0 23£6 2546 M¥C CLIL¢3( 27 .MGVit5 G¥ERLAY CLE INST 2>50C F232 60 OC P6lL SIQLG Sta KOC t, tes EXECUTE SCAN READ 
244i OC O1 2489 23EG 2547 MYC MOVAe3R3( 2) -MOVIES OVERLAY MYC INST ?50F CL OO 250 76L?2 TIGLO fig Hoek WATT UNTIL DONE 
2447 OC OO 2490 246C 2548 YC STO8+1¢013 -SEOS+L OVERLAY SIG INST 25132 C1 OO 2703 2613 TEOQELI Tra HALT .#~% TEST FOR UNIT CHECK. 
24640 OC 00 2493 246C 2549 MY¥C S1O9+1 G1) -STOSed CVERLAY SiO INST 2hle 
2453 34 O1 2493 25°09 SBN S709e1,xX?O1% FURTHER GVERLAY SiO INST 2644 
2457 OC 00 2496 234E 2551 MYC TEOS+L (1) ,DRIVEs UVERLAY THEO INST PSL? 38 Gi PABZ 2615 WEINRET OL ADDR XR 
2450 34 G2 2496 2552 SEN YIGS+i ge X*OZ* 2528 3€ 06 O060 2616 MVIG MVE H—R—_H ZER Gut FLAG BYTE SEFORE RETURNING 
2553 Z25iF CO B87 OOoS 2617 WINRWR & Team RETURN TQ CALLER 
2461 2554 RTRYL Eau * 2618 
2555 2618 
2555 2619 & 
2466] F104 Ge 2556 Lia 2&sXRLEeDDOR LOAD SISK DRIVE DATA REGTSTeR 2620 FHIS SECTION FINCGS THE ALTERNATE TRACK ADDRESS SEEKS TO FT a 
2*o5 FL C& OF 2557 REO &€.XRL) ,OBCK L OAC DCISK DRIVE CONTROL PESISTER Za2i * AND RETURNS CONTROL: OR,» WHEN COMING OFF AN ALTERNATE FRATE. x 
2558 2822 * rt GETS THE PROGRAM BACK TO THE RIGHT . RACK. % 
2467 CL CO 26BL 2559 TIGth Tia MALT IL. ¥-% TEST FOR DEVICE NOT REAGY 2623 2 , % 
2468 F3 G6 900 2566 SI1G5 §i0 M9 OOe , s-e SEEM L O24 
2561 2b2% 
246E 2562 DRTRNZ FOU * {323 O8 254¢ 2625 CEFTRK ST BEE TKRe 3, ARR SAVE ADDRESS 
2563 OG ZBEA GADS 2626 SLE TOTRE LD, ONE DECREMENT LOOP COUNTER 
246E £3 O08 00 2564 SIG oid NP OOT , em READ OR WRITE N RECOROS ) BL 26S9 2627 Bz Et? QUIT ITF 1G TIMES 
247k CL 00 2471 2565 Ti0« Fig Hy Em TEST FOR ADAPTER NOT BUSY OD Ob66T 2629 CLE DEYTET, A ODF COMPARE BYTE 7 
2475 Ci GO 2703 2566 TiOT TIO HALT 2_ 4-* TEST FOR NOT READY DURING INST BL 15 2629 JE TOLDTRE IF*OD* THEN SEEK TO ALTERNATE 
256T 2630 
2679 38 02 246F 2568 TaN SiOt+#+1L. Xt OZ? IS iT WRITE INST? QO} 2541 2523E 2631 MYC MVI5¢3¢ 2) «MVI1423 OVERLAY INTSTRUCTION TO ZERO OOCF 
2470 F2 90 SF 2569 JF WENRWT iF NOT. RETURN TO CALLER 3 oo COOG 2632 MY¥IS MVE $-~B—_ O FLAG BYTE. 
2576 2633 
24806 GC 00 «494 2346 2571 MVvC TIGLS+ LOL) REVVER OVERLAY Tia 25642 3D OF OB867 2634 CLE DEYTET +X* OES 
2486 OC 99 COO0 237E 2572 OVS MYC *-—%(70),DDCFE 2545 FZ B81 7D 2635 JE FRDTRK 
2e8C Fi C4 G2 2573 LIG 24eXR1),DODR RELGAD ODOR 2549 CO 87 COG 2636 DEFTEKR B e~ 2% RETURN TG CALLER 
246F F3 00 00 2574 SIGE Sto O, F-% SEEK 2637 
2492 2575 DRIRNS EQU & 2540 OC 00 2584 234£6 2638 TOOTRK MVC TIGiS+ LOL) ,ORIVES OVERLAY TOP ONST 
2492 F3 00 O03 2576 Sigs sfQ 3, t-% READ VERIFY 2553 0C OG 2588 234E 2639 ayo S(IG2Z+10CLbeOREVE# OVERLAY SIG INSY 
2495 Ci OCG 2495 2577 TiSSs Ti90 $y ts WAIT TILL DRIVE NOT BuSyY 2559 34 OL 2586 2640 SBN SIGZ+ieX*OL® 
2496 Ci OG 2401 2578 TIGis FTO CHK 1, *- ® UNIT CHECK? 2°50 GO OO €586 2558 2641 MvC Sig4¢itip,SiOzeh 
2490 30 FF Q000 2579 CLE CLE Be Fe ROKK F SUCCESSFUL READ VERIFY? 2563 OC OO 258F 234E 2642 MYC SiTG2+LL),ORIVE# OVERLAY SIO INST 
244t F2 81 73 2580 JE BENRWT 2569 OC GL 258C 2356 2643 MWC MYC24¢30235MQV145 PUT CDCFE ADDRES IN MOVE INST 
25861 Z256F OF OL 25AT 2800 2644 SLC MYC 2¢ 32) ,X5 ADJUST ADDRESS 
2%h% GF OO 2BEA CACS 2562 BRIRYE SLE ICTRE LEONE 1S THIS THE LOTH TISE? 2575 OC GO 259C 2584 2645 MYC TEOZeLE Les TIOLSe|s) 
244A CO BL 2699 2583 BZ EE? IF YES GO TG END RGUPENE 2646 
24hE F3 00 O1 2584 SIG? SEG KEQL8 9 eae RECALIBRATE 2644 
266% CL GOO 24EE 2565 THOS T10 2, Fe WATT FOR SEEK NOY Busy 2576 30 C& 2366 2647 SS TOCDR, OF OR SAVE CONTERTS QF BOHOR 
2685 Co OF OOOO 237E 258 OV? MYC e-2 9205 ,ODCFE RELOAD COCF FIELD 257TF 32 C4& 239% 2 648 LPO TOODF a. DEDR LGA DDOR WETH TEMPORARY VALUE 
2587 2583 Ci OG 2482 2649 TIOLS TO HALTE 9 &~@ SEE FF DEVICE FS READY 
2488 TD 20 O06 2588 Clg Of e KR}. K*20* 1S 1¥ & SCAN READ? 2587 F3 O00 OL 2650 $402 Sid X’OLt,o-# READ HA AND RG FIELDS 
26BE Fe BE 3t 2589 JE TIO9-6 ff SO, RETURN TO THAT SECTION 258A 31 C& 2394 2651 tic FODOGFa, BOCK CHANGE THE LOCF FOR SEER 
2eCh 34 FF 25628 2590 TBN WRIVEY Xe FFE iS LT? weRitTe VERTEY? 258€ F3 36 OO 2652 SiG3 $id XP OGE , 8-4 SEER TO ALTERNATS TRACK 
264CS 38 FR FSE1 2591 Ser WRIVE VS KOFF ? 259k Oc 94 2399 2387 2653 MVC BUTRECeSi 5), TOLUF +46 
2469 €9 16 2486 2592 67 POV PF SO, THAN RETURN To THAT SECTION 2597 31 C& 2394 2656 Lio FOOCFa, OODR 
24C0 €O 8/7 2401 2593 — 8 RIRYE RETRY DESK UPERATION 259B Ci 60 Zé&Bi 2655 TiO? 7is HALT, @-8 
2594 ; 259F F360 O1 2656 $104 Sia K*OL®,e-4% READ HA £ RO OF ALT TRACK 
2402 3C FF 25€1 2595 CHK mY? WRIVE Ye XSF FS 2542 721 CS& 04 2657 Lio 4CeXRL},0D0CK RELGAD DOCR 
2405 CO B7 2703 2596 & HALT2 2545 31 C& 2380 2658 L1G YoooOR,OOoOR ACLLOAD COOR 
Date PIAUGIS 22ULCTS JOAPRT6 PROG ID DDb-7 ATE 294UG75 22UIC7S JOAPR76 PAULUS 1D LbEa? 
EC On. F2TROe e278 46 S71L872 PAGE 22 30 NOe 827804 627636 572872 Pht ga 
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IBM MAINTENANCE DIAGNGSTIC PROGRAM PART NO. 4248217 1BM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248217 
PAGE 23 PAGE 238 
D0D62 3340 CE DISK EDITGR ™OD 12 062 3340 CE DISK EDITGR MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
2549 OC 04 0000 2387 2659 BMVC2 MVC *-#(5),TDDDFt4 MOVE CORRECT HIGH ORDER 5 BYTES 265F 2D25 2660 2726 oc AL2( EDMS2) PRINT ADORESS 
2660 * INTO DOCF FIELD 2727 
2661 2661 CO B87 GO21A 2728 B PRINT 
25AF 7D 20 00 2662 CLi O(,XR1),X*20* 2665 02 2665 2729 DC XL1*02* FLAG (NO HEADING) 
2582 CO 81 250C 2663 BE DRTRN1 RETURN TO SEEK IN SCANRD SECTION 2666 56 2666 2730 oc AL 1(HOG1-HOG18) LENGTH 
2586 38 FF 25E&1 2664 TBN WRIVFY X* FFE FRGM WRITE VERIFY? 2667 2CD03 2668 2731 OC AL2(HDG1) ADDRESS 
2SBA 3B FF 25E1 2665 SBF WRIVEY,X*FF® RESET FLAG 2732 
25BE CO 10 2492 2666 BT DRTRN3Z 2669 CO 87 O21A 2733 B PRINT 
25C2 CO 87 246E 2667 B DRTRNZ RETURN TG SEEK IN RD,WRT,OR SK SCT 266D 06 266D 2734 oC XL1°06* FLAG 
2668 266E 56 266E£ 2735 OC AL1(0GSNS2-06S2 8) LENGTH 
25C6 2669 FROTRK EQU * 265F OBSF 2670 2736 DGPRTa@ DC AL2(DGSNS2) ADDRESS 
25C6 70 20 00 2670 cul OC eXR1L) »X* 20° IS IT A SCAN READ? 2737 
25C9 CO 81 2505 2671 BE TI09 IF SO, RETURN TO THAT SECTION 2671 35 01 2ACE 2738 L TEMP6 sXR1 , RESTORE INDEX REGISTERS 
25CD 38 FF 25E1 2672 TEN WRIVEY,X*FF® IS IT A WRITE VERIFY? 2675 35 02 219A 2739 L TEMPS ,XR2 
25D1 38 FF 25E1 2673 SBF WRIVEY »X°FFE 2679 CO 87 0000 2740 SNSAPR B - RETURN TO CALLER 
2505 CO 10 248F 2674 BT $108 IF SO, RETURN TG THAT SECTION 2741 : 
2509 CO 87 2467 2675 B T1101 RETURN TO READ OR WRITE SECTION 2741 
2676 * * 2670 CO 87 O21A 2742 EEL 8B PRINT PRINT "ADAPTER CHECK® 
2677 * SENSE DIAGNOSTIC 24 BYTES SUBROUTINE * 2681 C2 2681 2743 DC XL1*C2* FLAG , 
2678 * * 2682 15 2682 2744 Oc ALL(ERMS1-ERMS1 8) LENGTH 
“679 * * 2683 2C70 2684 2745 oc AL2(ERM51) ADDRESS 
25D0 ©0860 25DE 2680 OGSNSa@ DC AL2(DGSNSB) 2685 FFFF 2686 2746 DC XL2°*FFFF?® IB 
250F ©0000 2560 2681 TEML oc 1L2*0° 2687 CO 87 25E2 2747 B SNS24 
25E1 00 25E1l 2682 WRIVFY OC IL1*0° 268B CO 87 2607 2748 8 SNSAP 
2683 268F CO 87 0222 2743 8 HALT TO OCP HALT ROUTINE 
25€2 34 08 2606 2684 SNS24 ST SNS24R43,ARR SAVE ADDRESS 2693 FFFF 2694 27590 oC XL2¢*FFFF* FLAG 
2566 30 C5 OAL4 2685 SNS STATE,X*C5* DIAGNOSTIC SENSE : 2695 CO 87 OC8&F 2751 8B LINKS TERMINATE SECTION 
25EA 30 C4& 25F0 2686 SNS TEM1,DDDR SAVE DOBOR 2752 
25EE 31 C4 25DE 2687 LIG OGSNS@,0DDR LGAD DDDR 2752 
25F2 OC OO 25FD 234E 2688 MYC $10641¢01),O0RIVE# OVERLAY INST 2699 CO 87 O2LAa 2753 FE2 B PRINT 
25F8 3A O1 25FD 2689 SBN S$10641-.X*O1* CONTINUE OVERLAY 269D C2 269D 2754 DC XL1'C2® FLAG 
25FC FI 00 O7 2690 SIO6 $10 X*O7* ,¥*#—* SENSE DIAGNOSTIC 24 BYTES 269E 25 269E 2755 DC ALI(EDMS1-EDMS18B} LENGTH 
2691 269F 2CF8 26A0 2756 DC AL2(EDMS1) PRINT ADDRESS 
Z25FF 31 C4 25E0 2692 t10 TEM1,O060R RELGAD ODDR 26Al FFFE 26A2 2757 DC XL2*FFFE* 1D 
2603 CO 87 3000 2693 SNS24R 8 em RETURN TO CALLER 26A3 CC" 87 2607 2758 B SNSAP 
2694 2647 €O 87 0222 2759 8 HALT BRANCH TO OCP HALT ROUTINE 
2694 26AB FFFE 26AC 2760 DC XL2*FFFE®* HALT ID 
2607 34 08 267C 2695 SNSAP ST SNSAPR#3,ARR SAVE RETURN ADDRESS Z6AD CO 87 OC SF 2761 B LINKM . TERMINATE SECTIGN 
2608 34 O1 2ACE 2696 ST TEMP6,.XR1 SAVE INDEX REGISTERS 2762 , 
Z60F 34 O02 219A 2697 ST TEMPS »XR2 2763 * * 
2613 C2 O1 OB6O 2698 LA OGSNSB, XR1 INITIALIZE ADDRESS POINTERS 2764 & & 
2617 C2 O02 OB8OB 2699 LA DGS2B42,XR2 2765 * DEVICE NOT READY GR ERROR SUBROUTINE * 
2700 * ‘ 2766 * * x * 
2701 * FOLLOWING ROUTINE UNPACKS THE 24 BYTE DIAGNOSTIC READ 2681 2767 HALT1 EQU * 
2702 * TO BE PRINTED 26B1 34 08 2702 2768 ST HALT1R+3,ARR STORE RETURN ADORESS 
2703 * 26B5 OF O1 2702 2808 2769 SLC HALTIR+3(12) 9X4 RETURN TO TIO INSTRUCTION THAT 
261B 3C O06 2B0E 2704 AVI CTR1+6 INITIALIZE CO LOOP COUNTERS 2770 *# CALLED IT . 
Z261LF 3C 04 280F 2705 LOOPL3 MVI CTR24 26BB CO 87 25E2 2771 8 SNS24 SENSE DEAGNOSTIC 24 BYTES 
2623 34 O1 2631 2706 LOQP14 ST UP1,.XR1 SET UNPACK ADDRESSES . 26BF 38 10 OAL3 2772 HALTIA TBN STATE-1,X*10° CHECK TO SEE WHAT DRIVE UNIT CHECK 
2627 34 02 2633 2707 ST UP2,XR2 26C3 F2 90 04 2773 JF *+7 ; OCCURRED AND PUT IT IN MESSAGE 
2628 CO B7 O21E 2708 B UNP ACK ‘TG OCP UNPACK ROUTINE 26C6 3C F4 2C50 2774 MVI ERMSG-24,C°4* 
~262F OL 262F 2709 DC 111° 26CA 38 20 OA13 2775 TBN STATE~-1,X*20* 
2630 0000 2631 2710 UPL OC AL2(4#-*) 26CE F2 90 04 2776 JF *+7 
2632 0000 2633 2711 UP2 oc AL 2(*-*) 2601 3C F3 2C50 2777 MMVI ERMSG-24,C 3° 
(2634 BC 40 Ol 2712 VI 1UeXR292C* & INSERT SLANK BETWEEN BYTES 2605 38 40 OA13 2778 TBN STATE-1,X* 40° 
2637 O02 O01 O1 2713 LA 1¢—9XR1),XR1 INCREMENT ABDRESS POINTERS 2609 F2 90 04 2779 JF ¥+7 
263A E2 O02 03 2714 LA 30—¢XR2)_9XR2 26DC 3C F2 2C50 2780 MVI ERMS(~24,C%2* 
2630 OF 00 2E0F OA03 2715 SLC CTR2(01}) ONE DECREMENT LOOP COUNTER 26EO 38 80 O0A13 2781 TEN STATE-1h »X*808 
2643 CO 0) 2623 2716 BNZ LOOP14 26E4 F2 90 04 2782 JF *4+7 
2647 BC O02 O01 OBOS 2717 : VC 103_XR2) -BLNK INSERT 4 BLANKS BETWEEN EVERY 4 26E7 3C Fl 2C€50 2783 MVI ERMSG-24,C*1°* 
2718 2 BYTES 26EB CO B87 O2Z1A 2784 B PRENT TO OCP PRINT ROUTINE 
264C €2 92 03 2719 LA 3¢oXR2)_XR2 26EF C6 26EF 2785 oc XLi*co6t FLAG 
2664F OF 00 2808 OADS 2720 SLC CTR1C1) -ONE DECREMENT LOOP COUNTER 26FO 24 Z6FO 2786 DC AL LC ERMSG~ERMSGB) LENGTH 
2655 CO O1 261F 2721 BNZ LoOoP13 ; , 26F1 2C68 26F2 2787 DC AL2CERMSG) MSG a 
2722 26F3 FFFC 26F4 2788 DC XL2*FFFC® HEADING 
2659 CO 87 O7IA 2723 B PRINT TO BCP PRINT RIN: 2789 
2650 02 2650 2724 oc xtLb*oO2° FLAG 26F5 CO 87 2607 2790 8 SNSAP PRINT WHAT YOU HAVE SENSED 
Z265E 20 265E 2725 oc AL1 CELMS2-EDMS2B) LENGTH 2791 
OATE 29AU0G75 Zf20c75 ZOAPRT6 PROG I0 OD6—2 DATE 29 AUG75 22DECT75 Z0APRT6 PauG 10 UDb-? 
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PAGE 24 PAGE 24h 
D062 3340 CE DISK EDITOR MOD 12 DD62 3340 CE OISK EDITOR MOD 12 
ERR LGC GBSECT CODE ADOR STMT SGURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
2669 CO 87 0222 2792 8 HALT TQ OCP HALT ROUTINE 2824 canaeneneseshettsseOseshGese COESERRSRERESHESSDS ES EEE ESTES STE 
26FO0 FFFC 26FE 2793 DC XL2°FFFC® HEADING 2825 * INPUT ROUTINES % 
2794 2826 * ¢ 
26FF CO 87 5000 2795 HALTLA B &— % RETURN TO CALLER 2827 * THE FOLLOWING ROUTINES WILL ALLOW x 
2796 2828 # INPUT RECORDS TO BE READ. ra 
2796 2829 * * 
2796 2830 * SSW1B = 1442 AS INPUT DEVICE * 
2796 2831 * SSHWLT = 3741 AS INPUT DEVICE * 
2703 2797 HALT2 EFQU * 2832 * SSWIA = MFCU AS INPUT DEVICE * 
2703 CO 87? 25E2 2798 & SNS24 2833 * NO SETTING = 5471 AS INPUT DEVICE * 
Z7OT 36 O01 OAL 2799 TBN STATEsK#OL? CHECK TF ANY CHECKS QCCURRED 283% + en ee LE LESEESDeAEESERSSESHEESESAS ORES EESREE SHOR ESSE OT ESS SOLES 
2768 CO 10 2670 2800 BY EEL 2835 
. 2801 2749 34 68 ZTEC 2836 RECORD ST KEXLTR+ 3, ARR SAVE RETURN ADDRESS 
TOF 39 02 0860 2802 TBE DBYTEOs TREC SEE EF DEFECTIVE TRACK. TF iT is 2740 £2 92 Gases 2B37 TRYAGN LA READIN, XR2 SET XRZ2 TO POINT TO READIN 
2722 39 01 CBEL 2893 TBE DBYTEL,OPINCP 275i BE 40 5F 2838 MYT GSC 5 XR2) 40" °F BLANK INPUT BUFFER 
27L7 CO 90 2523 266% BE DEF TREK HEN READ ALTERNATE TRACK LUCATION. © 2754 AC 5E 5E SF 2839 MWC gu (O5_XR254951 0 FRE 
2ROs & SEEK TO PT. AWD CORTENRE OPERATEONe 7840 
SOS 2758 38 FO 27FS PES? SSF USECRT XO FOF RESET USECRT FLAG 
2718 39 25 OB6O 2807 TRE HEYTED,K%tZ5* LF ANY GF THESE 2750 30 52 2AAC 2842 MVE COLOR 2-2 SET FLAG FOR READING UNCOMPRESS DATA 
ZTLF 39 iC O86) 27808 YEE DEYTELyKtLC?® BETS aRi ON 2BGS 
272% 39 78 CBG2 280+ TRE DSYTEZ xX? TSE THEN RETRY GPERATION 2766 38 01 6200 2844 YBN SwETCHt 3s SSm2F ie 
2727 CO GG 2&Ae 2830 BE BRIRYL 276% £2 9G 1A 2 Bb S JF CKLS LE 
2eLkl 2767 34 O1 ZAB2 2 B46 ST ADORe XKL SAM 
2ait 2768 OC O1 2774 BFFF 2847? BC GUOLT+ 302) eXSFFF SE 
2728 OC OL 2702 £398 2Si2 HYC WALTERS 3123+ LINKMa AETER HALT Ls JERMINATE SECTION 277i CO BF oon paeen GOOUT B eK GG ¥O Gut TR EEF 
273i CO BT 26BF 2813 B MALTLA DRINT ®*DEVEICE NOT REAtY GR CHECK E 2775 33 O28 ZAB2 2B49 iL ADDR» XR RESTORE REGISTERS 
ZhL4E 2779 C2 02 DABG 2856 Lh READIN, XR2 
7514 7770 CO BF ZTei 265% a ME XLT RETURN TO CALLER 
28r4 PRSz 
ZBLG 27Ri 38 BS C258 2 BSS & GWETCH*1>SSH1E TEST SSH BS 
2785 CO 87 S214 21S TOGFAR B PRINT PRINT =NG ROOM LEFT «ne? 2785 (0 10 2956 28 E £DiGG? LF GN, USE THE 1442 BS TMPUT « 
2739 Cé 2739 2816 oc KLEE Cas 2789 36 Gi G2G4 2ESS Su {TCH SSHLF TEST Se LT 
B7AA SE 2798 2817 oo AL LL ERRLG-ERAIAB} 278D F2 26 BD 2 REE i LOBEL rE ON, USE THE 3741 AS INPUT 
2738 2E72 273C 2618 De. AL 2LERR ES? 2796 28 20 O208 ZRS7 BN GwETCH4 is SSHLA FEST SSR EAs 
2730 FFEE 27I3E 2819 DC XLO° FREES 7796 CO La 2984 2H5S BY MECU r£ ON, USE THE HFCU AS THPUT. 
273F CO 8? 0222 7820 5 HALT HALT ~EE~ 27°R8 38 10 G2558 2ase FEN SWETCHt Ly SSHLB 1S $SHiB GR 
27&3 FFEE 2744 2821 pc XLZ¢FFEE? 2790 F2 iG 08 2860 di CLESS re SQ USE PROGRAM ESS AS INPUT 
2745 CO 87 OBCE 2822 6 EDITAA 279F 3A FG 27F5 2861 SBN USECRT, K*FOF USE THE 5471 FOR INPUT 
27TAB CO B? ZTFE 2862 B Lose 71 Tf NG SWITCHES ON USE 5471 FOR LMPUT 
2863 
FTA? 34 OL 2AB2 2864 CLEDS SF All Ne XR1 SAVE ADDRESS iN XRE 
27Ab OC OL 278% TOOL 2865 MYC pita 3e2bex* TOOL® GO TO 7OO1 AND GET ADDRESS TG BRANCH 
2781 CO 87 90aG 2866 BESS 6 *-% BRANCH 1G E55 
2785 C2 62 DABS 2867 LA READIN, AR2Z RESTORE X82 
2789 35 OL 2ABZ 2868 iL ADDR sXR1L RESTORE ARI 
27BD 3C O02 2AAC 2868 MYA CDLOR2s2 SET FLAG FOR UNCOMPRESSED FORMAT 
2878 
27C1 38 OF 2AAD 2871 XEXIT TBN ADDFLG<+X*OF?# ADD MODE SWITCH ON? 
2705 F2 $0 21 2872 JF XEXLTR - Te NOT RETURN TG CALLER 
2708 CO 87 OBBA 2a73 B SETO SET ODDF FIELD 798 ZERO 
27CC 6C SF DF SF 287% MYC 2231 96s XRL} ISU e KRZ} PuT CARD LMAGE IW TO DISK FIELO 
2700 3D 02 2AAC 2875 Cil CDIGR2+2 1S IT IN UNCOMPRESSED FURMAT 2? 
2704 F2 8% 12 Sgt 2876 JE KEXITR iF YES; RETURN TO CALLER 
27D? 38 01 C200 2877 TBN SWITCH+ 39 SSW2F SKIP IF CALLED BY FET or ccc 
2708 F2 16 OB 2878 JST XEXETR 
27DE 38 OL 0204 2879 TBN SWITCH sSSW17 USING 3741 THEN RECORDS iN 
27TE2 F2 10 04 2880 JT XEXLIR COMPRESS FORM 
2681 
27€5 AC O7 5F 4F 2882 MYC G5EBoXR2V e7TFE ARR) ADJUST ID ANO SEQ 8 FEELOS 
27£9 CO 87 0000 7883 KEXITR 6 a & RETURN TO CALLER 
2884 
2884 
2884 
2884 
27ED 5058 2TEE 2885 x80 oc XL2°5050° FOR 2560 READ LENGTH (803 
27EF GABO 27F0 2886 CARDIa DC AL2 (READIN ADDRESS OF FIRST CARD READIN AREA 
27F1 3900 27F2 2887 BUFLe OC X¥L2*3900° 
27F2 2888 CARD2a EQU BUF14 ADDRESS OF 2ND CARD READIN AREA 
DATE 29AUGTS 22GECTS ZOAPRTE PROG ID | p0E-2 DATE Z29AUGTS 22DEC 75 ZOAPRTE PROG IC OD6-2 
EC NO. 627804 827836 571872 PAGE 24 EC NO. 827804 827836 571872 PAGE 24h 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM ooee NO. neon ree MAINTENANCE DIAGNOSTIC PROGRAM oe NO 42 aoe 
0062 3340 CE DISK EDITOR MOD 12 . {2062 3340 CE DISK ECITOR MOD 12 
ERR LGC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
t 
TATUX xL2°08 2890 3661 289E 2951 oc AL2(ROMD) MSG a 
ase oC Ske eee teecar ie TL1¢0* SWITCH FGR NOT PRINTING ON 5471 289F FFFI 28A0 2952 OC XL2*FFFL¢ HALT INDICATOR 
2891 28A1 CO 87 O21A 2953 8 PRINT PRINT INFO MSG 
2891 28A5 06 28A5 2954 DC xL1*06°* SPACE 
2891 28A6 45 28A6 2955 OC 1L1°698 LENGTH 
2891 28AT 36AE 28A8 2956 oC AL2(SETUP) MSG a 
2892 HERERESEKERE EERE REREE SERS E SER GRE RAGS RCE ASE SRAR ESR AK SHE RER AEA HERES 28A9 CO 87 0222 2957 B HALT INDICATE "FL® ON STIK LIT 
2893 * 5471 INPUT ROUTINE * 2@A0 FFFL 2B8AE 2958 OC XL2°FFF1° : 
2894 * * 28AF CO 87 2881 2959 B oposia RETURN 
2895 * CODE TO READ RECORD FROM THE 5471 PRINTER/KEYBOARD * ; 2883 F3 43 O08 2960 CONTI1 SIO X*08*, X*43° NORMAL RESPONSE TO 3741 
2896 FEKRKGRERELREE REESE TERRE EERE SESE EEAR AREER SS STAKE ERS ESHER RHE 28B6 3C OL 2AaC 2961 MVE COLGRZ 41 SET FOR COMPRESS 
2897 28BA 31 44 27F90 2962 Lid CARD10,X* 44! PUT READ @ IN DSAR 
27F6 2898 LO5471 EQU * 288E 3i 42 297F 2963 L110 LENCT2,X%*° 42° PUT 255-LENGTH IN LC REG 
27F6 CO 87 234F 2899 B SELDRY SET ORIVE # IN DISPLAY 26C2 F3 41 00 2964 $id 0,X*ailé RoAD NEXT RECGRD 
Z27FA 35 O02 2821 2900 RTRY L XEXT1+3-KR2 LOAD THE @ OF READ BUFFER 28C5 Cl 42 28C5 2965 Tio *,X*G28 TEST UNTIL 3741 NOT euUSY 
27FE AC 83 83 84 2901 MVC L31L(1325XR2},1326-XR2} CLEAR BUFFER 28C9 30 42 2981 2966 SNS SNBYT2,X*42° GET THE STATUS BYTE 
2802 F3 18 41 2902 $ta X"4L°—exX*1s8° START CARRIAGE RETURN #* RESET PRT Z28CO 39 OCA 2980 2967 TBF SNBYT 2-1 X*OA® PARITY READ ERROR GR LCR OVFLW 
2805 F3 10 il 2903 NXTCKR SIG X*LLt,xeio?® PROCEED IND ON + RESET REG KEY 280i CG SO 296A 2968 BE ERR HALT IF EFTHER CONDITION EXIST 
2808 30 11 2BF2 2904 RESNS SNS DAT,X*128 CHARACTER KEYED 2805 F3 43 08 2969 $16 X?O08*, xX'a3! NORMAL RESPONSE TO 3741 
280C 38 40 2BF2 2905 TBN DAT,X*40? END GR CANCEL KEYED 2808 36 O1 2442 2970 TBR F3741,X*O]* 400 FLAG ON 
2810 F2 90 i3 2906 JF TSTDAT NQ 280C Fe iO 2B 297k JT EQJCHK 
2813 38 20 2BF2 2907 TBR DAT,X*208 CANCEL KEYEO 280F BD 5B 69 2972 cul OC eXRZE CPS! CONTROL CARD READ 
2817 CO 10 27FA 2908 BT RTRY YES 28E2 F2 OL 04 2973 JANE *e7 JUMP TF NOT 
2816 £3 16 OL 2909 $10 1,X*i08 RESET REQUEST KEY c8ES 3A O8 2AA2Z 297% SBR F3TS&1,xX*O8t SET CONTROL FLAG ON 
ZBLE C2 62 OAGO 2910 XEXTL LA READIN, XR2 LGAD a OF BUFFER ‘ 2869 BD Si 00 2975 cil Ot e XR2N,C 84" CONTROL CARD READ 
2822 CO 87 2855 2911 8 DGRD CHECK FOR INPUT 28EC Fe O1 OA 2976 JNE CTLREC ASSURE A CONTROL RECORD 
2826 38 O08 2BF2 2312 TSTOAT TEN DAT, X08? DATA KEYED 26EF BO $6 0] 2ot? Cus 1¢,XR235C*E® TERMINATOR RECORD? 
2828 CO 96 2608 29153 BF RESNS NG Z8F2 F2 BL 39 2978 JE FIN GO FINISH READING 
Z2B82E€ 38 04 2BF2 2924 TBN DAT, X* O45 RETURN KEY PRESSED Z28FS 3A OB ZARE 2979 SBN F3741,xX*08& SET CONTRO! RECORD BIT 
2832 CO 10 27FA 2915 BT RTRY YES 2eBFS 38 O8 2AA2 2980 CTLREC TEN F3T41,xX*08* SEF CONTROL FLAG ON 
2836 8C 00 OO 2BFi 2916 MYC OC 1e XRZ2EyDATH2 : 28FD F2 10 OC 298i JT EQJCHK 
2836 31 18 28F2 2917 Lic DAT,X* 18& MOVE CHARACTER TO BE PRINT: 2900 34 G1 2AAK2Z 2982 SBN F3741,xX*OL* SET THE ADD AND REPLACE FLAGS ON 
283F F3 18 8&1 2918 S10 X°8L!,x*i8° PRINT CHARACTER 2906 3C Fl Z2AA3 2983 MVE FADDsC*1" SET FORCED ADD FLAG 
2842 £2 O02 G1 2919 LA lteXR2}yxXR2] MOVE TG MEAT CHARALTER 2908 CO B87 OD2F 2984 B RTRNE RETURN TQ PROCESS 1ST RECORD 
2845 34 02 2BF2 2920 si TSTNs XR2 STORE CONTENTS OF KEG 290C 30 43 2981 2985 EQJCHK SNS SNBYT2,.X*438 SENSE [7/0 TRANSFER LINES 
2849 3D EO 2BF2 2921 Cli TSTNy X* EOF 2910 38 O02 2986 2986 TBN SNBYT2-1-X%*02? READ BIT GN 
2840 CO 81 281E 2922 BE XEXT1 2914 F2 10 13 2987 JT CDEXET RETURN 
2851 CO 87 2805 2923 B NX TCHR 2917 38 08 2982 2988 TBN SNBYT2-X'O08! END OF JD 
2855 F3 18 40 2924 DGRO Sta X°4O*,X*i8? RETURN CARRIAGE 2918 CO 90 290C 2989 BF EOJCHK 
2858 3D 40 OBO03 2925 DOREAD CLI READINe131~-C° ° CHECK FOR BLANK INPUT Z291LF 3A 10 Z2AA2 2990 SBN F3741,X720° TURN ON LAST RECORD 
285C F2 01 GA 2926 JNE NOTBLK 2923 CO 87 27Cl 2991 B XEXIT RETURN 
285F OD 82 OBO2 0803 2927 CLC READIN¢ 1300131) ,READINGI 31 2927 —3 43 08 2992 EOJ1 Sic X®OB"EXt4ZF NORMAL RESPONSE TO 3741 
2865 CO 81 27FA 2928 BE RTRY 2924 CO B87 27C1 2993 CDEXIT 8B XE Xi T RETURN TO CALLER 
2869 CO 87 27C} 2929 NOTBLK B XEXIT 292E 30 43 2981 2994 FIN SNS SNBYTZ,X*43¢ SENSE 1/0 TRANSFER LINES 
2930 2932 38 O2 2980 2995 TBN SNBYT2~1,X#O2° READ BIT GN 
2930 ' 2936 F2 10 OC 2996 JT NXT RETURN 
2930 2939 38 08 2981 2997 TEN SNBYT2,X*O8° END OF JDE 
2930 2930 CO 10 2927 2998 BT EQS) 
2OB] KESSHEKHERKEKHE RARER TEER EERE ERASER ARSE SSE KERR RE EE KE i 2941 CO 87 292E 2999 B FIN iGoe 
2932 # * 2945 F3 43 08 3000 NxT $190 X*O8*,X*43! NORMAL RESPONSE TO 3741 
2934 * 3741 INPUT ROUTINE * 2948 31 44 27F2 3001 LIQ CARDZa1xX* 44! PUT READ @ IN DSAR 
2934 * * ‘ 294C 31 42 2975 3002 Lid LENCT2,X'42?* PUT 255-LENGTH IN LC REG 
2O35 FRR LHR ETRE RAE EE EE Re OR RK Re oo ae 2950 F3 41 00 3003 S10 QO, X*41? READ NEXT RECORD 
286D 2936 LD37412 EQU * % 2953 Ci 42 2953 3004 Tic ae, XP hoe TEST UNTIL 3741 NOT BUSY 
2860 38 10 2AA2 2937 TBN F3741,X°108 HAVE WE READ THE LAST RECURD ; 2957 30 42 2981 3005 SNS SNBYT2,X*42° GET THE STATUS BYTE 
2871 F2 90 0D 2938 JF oosid JUMP TF NOT 295B 39 OA 2980 3006 TRF = SNBYT2-1,X"OA? PARITY READ ERROR CR LCR OVFLW 
2874 8C O01 01 2AAd 2939 MYC L02¢XR2)¢SLAMP MOVE TN A */6&° 295F CO 9O 296A 3007 BF ERRII HALT IF EITHER CONDITION EXIST 
2879 38 FF 2AA2 2940 SBF F3741yX*FF® TURN GFF ALL FLAGS 2963 F3 43 08 3008 sic X' OE" ,X°438 NORMAL RESPONSE TO 3742 
2870 Co 87 2927 2941 8 EQJL GO END IT 2966 CO 87 292E 3009 5 FIN LOOP TG TEST 
2861 31 41 2983 2942 DOSIG LIG FUNBTisxX*42Z°& LGAD THE FUNCTIGN BYTE 296A CO B87 O214 32010 ERRIIL 8B PRINT BRANCH TO PRINT MFCU NOT READY GR 
2885 30 43 2981 2943 SNS SNBYT2eX * 43° SENSE I/O TRANSFER LINES : 3011 * ERROR. 
2889 38 04 2980 2944 TBN SNBYT2~-1 9X*04* ARE WE READY 296E 46 296E 3012 DC XL1*46? FLAGS 
2880 F2 °0 DA 2945 JF ERRI1 NO ERROR 296F 23 296F 3033 DC ILL*35& LENGTH 
2890 38 O02 2980 2946 TEN SNBYT2-15X "02° TEST FOR READ BET ON : 2970 29ET 2971 3014 DC AL2(ERRORC) ACDRESS OF LAST PRINT CHARACTER 
2894 Fe 10 1€ 2947 JT CUNTI1 LOOP UNTIL READ BIT IS GON 2972 FFEC 2973 3015 DC XLZ°FFEC® MESSAGE LDENTIFICATION 
2897 CO 87 O21A 2948 B PRINT PRINT MSG* 3741 NOT IN READ MUDE? 2974 CO 87 C222 3016 B HALT ISSUE HALT ‘EC! 
289B Cl 289B 2949 oc XLEfPCLe SPACE 2978 FFEC 2979 3017 DC XL2*FFEC® 
289C 10 289C 2950 DC IL1ft29° LENGTH 297A CO BY 2.881 3018 8 oasio GO TRY START I/G 
! 
DATE 29 AUG7TS 220ECT75 ZOAPR76 PROG ID DD6—-2 DATE 29AUGT5 22DEC75 3OAPRT6 FROG ID DD&-2 
EC NGew 827804 827836 571872 PAGE 827804 827836 571872 PAGE 25A 
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HD6é2 3340 CE DISK EDITOR MOD 12 5062 3340 CE DISK EDITOR “OD 12 


ERR LOC OBSECT CODE ADDR STMY SOURCE STATEMENT ERR LOC OBVECT CODE ADDR STMT SOURCE STATEMENT 


297E OOTE ZOTF 3019 LENCT2 DC ¥LZI'OCOTEE ‘ 3675 Se REREESEESAKE TRERAEE SRE SHS SS ESELY SHEE SSE CLE HESS SSOERESERESSRS 
2980 0069 2981 3020 SNBYT2 OC XL 2°6F 3076 * S471 PRENY RQUTINE * 
2987 4600 2983 3021 FUNBT1 OC XL2'406008 207? ge RRREEEESEREKES SR EERESSE SK ERES EHSSES LE REKESSA ESS ESE ESF ISS TECHES 

3022 ERRKRHEREREREE EERE EAEEE SSS ELE TRAE SRG REG SRSER SERRE ASAE LER AE : 2AZF 3078 PRENTEZ EGU ® 

3023 % MECU ENPUT ROUTINE e ZA2F 34 08 2876 2079 ST PRTENDA3», ARR STORE THE RETURN @ 

3024 ERSARESSED ERE REEE ERE EERE SESH RSE TEATS ESSE AHH STEMS TESS SG 9A33 3% FL 27F5 3GRBS SBF USECRT,XTFLiP SET GFE USECRY 


3025 2A37 34 CE 229A 3082 Sf TEMPS, XR SAVE Tre CONTENTS GF XR1L 

2984 Ch FO 2947 3026 MFCU Tia ERR, KE FO? TEST FOR NOT READY OR FRROF ZA38 35 O1 2AT6 3082 t PRTENDt3 XR: 2 OAD 2 OF THE PRINTER PARM LEST 
2988 31 FS 27F0 3027 L1a CARDiag X*FS? LOAL DATA REACIN ADDRESS Z2A3F 39 OZO8 3083 TSF SMETCH, SERIE ARE wE USING 3741 

298C F3 Fi UC 3028 Sic X*G0° pKPFLF READ CARD INTG P/O AREA 2A&3 3 0206 308% TBE SWETCHe le SSHLS4SSWIA ARE WE USING 5424 BR 1462 


te O 
Ch pe 





































296F CL FL 298F 3029 Fic Be XCE LE wAIT ZAa?T £2 16 GB 32965 #ODE at OS47i NOeFHEN JUMP 
P3993 36 F3 27F4 3030 SS STATUX, X PF SF SENSE DEVICE STATUS 2448 £2 ST LB 3066 J PASPRA YVESeDON'T PRINT OM 9471 
2397 39 85 27F4 3631 FRE STATUE X #365 TEST FOR READ GR FEED CHECK 2h40 34 FO ZFS 2087 567i SBN USECRT, XP Oe SET BEY FOR S47] 
Z99B 3C 02 2ARAT 3037 BYE COHLGR2 sé SET £OR UNCCMPRESSED BATA PASE 1C GO 2hOS OD S084 a¥o PRIPRM(LI »OLKREE SUELO 
299F £O 10 2a0c 3033 BF REMY 2456 If 00 2465 OB 3089 MYC PRIPAM+LELD Leek Ria PARH LEST 
2903 CO B87 2984 303% B BECG 2ZASB IC GL 2AaT? GS 3699 BYE PRT PRM?37272,2¢,AR22 FOQn 5472 O8 PRIRTER 
53035 Zhe CO SP O214 S094 & PRINT GO PRENT 
Z9AT 34 08 29C4 3036 ERR St ER RL+3,AR8 STORE BEYURN ACCRESS PAGS 3092 CRIPRE FOU & PRIRTES PARM LIST 
29AB OF OL 29¢€4 2808 3037 SEG ERR YeSE 27 AS An ADGUST TFT PéGS& OOHSHGCOG PAST 3093 Of. SLE OGs 
2581 CO B87 O14 2038 6 PRINT PRANCH TO PRINT BFCU MOT READY UR 2468 O2 G1 O46 3694 PASPRE 2h &iekXhRL be XR] POINT 7 3 PASSED PARS 
42039 8 ERROR. PASE 34 D1 FATS 3555 S¥ PATENDtS,RRL STGRE 7 ETURN BRANCH 
2985 46 2938S 32646 OC RL Ltagé? FLAS PASE 35 OL ZLGA S036 i. TEMPS eARE RE: = VALUE 
29B4 323 296% BOSE ol FLA? 35? LEN PAT2 CG BT OGG 2097 PRYEND & $-~% RE 
29B7 2oEF ?GB8 3042 5c ALZEEKRERE?Y AGE 2098 gM RE TEERASRE SERRATE ER EAE DASE SE TEA ERE ESS EAAS ERR LA SEES RSS EKRERESSRKAH ESS 
P9BS FFEC PSBA 3043 ot Ki 2efe Ec? wer 42089 8 7 INE WiLL SEY uP THE PRINTER SG THAT TRE TRSY Six POSETLONS? 
7908 CO BF O2f22 ia} HALT Sk 4100 8 G 2N7 DATA FS NOT LOSSED WHEN PRINTING ON THE ALTERNATE PRERT® 
2POBF FFES 2906 OC Mi ZtEEeoeF RA BRO * ¥ 
Peci CO BP GOK g Be RE ai RRA EESEPETERCLSS SESEREERRED ESR RSEAS EE LE STERA CERES ES TEESE TERS 
Z2RTF 3 # 
P9CK% SLIOSESCSNINSCiEs ZQEF & re TL ESP ALTERNATE Loe mot READY OK EHS PaTY 46 33 RyBR 
29C0 €54¢00308CLC40509 O42 747BR SS 3 S17 PRINT DEVICE 
790% 40C5DR6E34009C5Ci C4&s SATE Fe PRT? x 
290d £4ER4OD SN 9400509 2648 PAB? BO OF CARE MISES He@S MC ih GRENTEE 
2965 b9D609 3048 2A86G FE BF PRIS fUEP AROUND 
3949 2ABB OC GA G& 408 3! PRTEZ KYSEO*IGOCSLE READING YS MOYE in DATA TO BE PRELNTEO 
3049 ZAGL CO BF 3REQ PRS P2INE GO PRINT 
3049 ZA95 26 2a3S Bill XLLt2Z6* FLAG 
3049 2ZA96 CO SF Goon REEe RERRS *- & RETURN YO CALLER 
3050 eRe REE PEAHENGE EEE RENEERESS REESE EA EEE SHEER ETE EGER TATE ERE SEES ESAT ESS EES 
3051 = 1442 ENPUT RQUTENE % 
3052 ne EERE EYE ERE SEE SES SERES EEG EE SERGE ESTHER EEE REDE HES TE SRS RRS EEHES IEEE ES 
3053 
29EA 31°54 27FO 3654 LDL4G42 £408 CARDia, x*S4&* : 
PGEC 3c O1 2AAl 3055 MY E CDOLORZ <i SET FLAG FOR COMPRESSED DATA 
29f0 CO B87 PALS 3056 A RDESS2 
2oFe BD ET 4€ 3057 Cit FoteXRE§ oC FXE LEST FGR A YS BYTE RECORD 
S9—7 CO O91 Z2AGE 3658 Bide YERY 
2G9FB 32 58 2TF2 305% Lig BUF 14_¢%? 34° 
OFF 30 02 2440 3668 My T COLGRes2 
ZAoh3 CO &F 2ZALO 2061 B ROLS642? 
AC? 8C 13 SF 391 30682 RVC Gol ?2O-.RR2? sCARDZAt LS . 
2a0c CO BT 2858 3063 XEXT 5 DOREAG : 
3964 
2RiO 34 O8 2A2A 3065 RNES42 ST XNL442 ,ARR ; 
PALS CL 5G 2947 3065 DRLS TIG ERR. R?50% FEST FOR NOF READY UE ERROR : 
727A18 FB SE O80 3906? S#O KEHOE. MISE? READ CARD INTO EfO AREA 
2h1B Ci S52 2Al8 3068 FIG ext age whit 
SAIF 320 532 Z2TF4 2064 SNS STATUA, x8 53° SENSE GEVvice 
2AZ3 39 92 27F4 3075 TBE STATGxe RH? SBE TEST FOR RE: 
QaA27 CG 1G 9GGE 2071 BY HE 
PAZ& BOT2 i642 EOU om Rh 
PAZ2BR OO BT 2ALS 3073 8 OXL4 
3aT& 
aQ Ts 
3034 
3976 
307@ 
3074 


PROG 10 GLE-2 


DATE 29 AUGTS 22CECTS ZOAPRTE PROG ID bbe-z DATE 29AUGTS 22DEC75 S0APR76 oie 
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IBM BRAINTENANCE ODLAGNOSTIC PROGRAM PARTE we 4248217 IBM MAINTENANCE DIAGNGSTIC PROGRAM PART NO.w &248 217 
PAGE 27? PAGE 2T7A 
DDs2 3340 CE DISK EDITOR MOD 12 ORs 3340 CE DISK EDITOR MOD L2 
ERR LOC OCBSECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBSECT CODE ADDR STMT SQURCE STATEMENT 
3114 «eee G%% 2E17 C6céC2 2B19 3179 FFB oc CL3*FFBS 
3115 * pores « , 2BiA CéCéCé6 2B1C 3180 OCPID Bc CL3*FFFFE 
3ils eR SASK Y KAA RCAREAKKKARERS KK ARSE KSKERE KEES SHESSEKKKEKLKRRERERSKKS ET KSEK Z2B1D FOGB6B40 2B20 3381 DTAHDR OC CL4&*Oge ¢ 
3117 2821 0003001102 2B25 3182 C3H172 DC XL5*OO0O300L102° 
3117 2826 0003001001 282A 3183 C3H161 DC XL5*00030010061° 
3117 Z2B2B8 O0CO3001002 2B2F 3184 C3H162 DC XL5*O0CO2001L002* 
3LiT? 2830 0003001003 2834 3185 C3H163 DC XL5°00030010035 
ZASA GO ZAG& 3118 PFLAG OC ILLEas THESE 2£35 0003001004 2B39 3186 C3R164 OC XL5*0003001004° 
2498 00 2A9B 3119 NWRTFG DC TL21°O8 MUST 263A 0003001005 283E 3187 C3H1i65 DC XL5*® 00030010055 
ZAGC OO ZA9C 3120 CPUDFE OC IL1i*o° RERAIN ZE3F OCO3000001 2643 3168 C3HO oC XL5*O0003000001* 
2A90D 00 ZA9D 3121 SCDFG OC EL 2708 TOGETHER « 2644 0004000001 2848 3189 C4HOR1L OC XL5*£C00040000015 
Z2ASE 00 Z2A9E 3122 LWRT DC IL1*o*® ZEROED 2649 OCOO2Z000001 2640 3190 C2HORE DE XL5* 0002000001 * 
ZASF GO 2ASF 3123 OFLAG DC Ieitoe AT ABOUT , 2E4E COGOOBOCOF 2B52 3191 C3HI5S oC XL5*00CGOO3000F * 
Z2AAO 00 ZAAO 3324 DCPFGE OC ILE *O# RIRN2 2B53 O90000001B 2B57 3392 COHO27T DC XL5*O00000001B5 
3125 2658 000000G20} 2B5G 3393 COH2R1 DC XLS? OOODOCOO2ZOL * 
ZAAL O86 ZAA 32126 LSTSCN DC ILi® O& ZE5D COO3S00L1LOL 2B6l 3194 FFALOC DC AL5*O0030011018 
2AA2 00 2AAS 31327 F3FT&L DE zLi*o8 2B62 C000600036 26866 3195 CMEDEC OC XL5*000000003Q0# 
2has FO 24A3 3128 FADD BC CL1ift&oe 2BS7 0000000030 2B6B 3196 COHO4S DC XL5* OOOGOOOO3 OF 
2AA& SBCIC4SC4 2AAT 3129 DADO DC CL4*¢aDpF 286C 0001000001 2876 3397 CIHORE DC XL5*COO10COO01® 
ZAAB 6150 Z2A4A9 3130 SLAMP DC CL2°fé° 267i O0210012 2874 3198 C33H1L8 OC XL4*O00210012¢5 
zAAA OO ZAAA 3L31 COuUFG OC FLL& OF ; : 2B47? 2199 ZERO EQU C4HORI~1 
ZAAB 00 Z2hAB 32132 FSTCPU DC TL 1°08 : 2B75 000100 2B7F 32260 X256 DC IL3°2568 
Z2AAC O02 2ZAAC 3133 CDIGRE OF yi Re2' 72678 GA 2B78 3201 X74 oc IL1&74& 
ZAAD O00 Z2AAD 3134 ADDFLG OC FLL® oe . 2B79S OOSF Z2BTA 3262 X95 oC IL2* 958 
ZAAE 00 2AAE 3135 CFIGFG DC Iii’ oe ; 2B78 G260 Z8TC 3262 X200 OC XL2#0200° 
2AAF 0500 2ZABO 3136 VWTOC# OC EL2?°Q8* 2B87D CiIC3E3 287F 3204 DC CL3"°ACTE 
Z2ABL 0066 2AB2 3137 ADDR oC L2*oe : 2P80 00 2B80 32605 ACTO oc XLif OOF 
2483 00 2AB3 3138 CARSAY DC TLIP 08 : 268i OO13 2882S 3206 Kig9 DC IL2*198 
248B& OO ZAB4 3139 HARSAV OC TLieoe 2383 3207 VIITMB EU * 
2AB5S OOOO ZAB6 3140 WORK DC Ir2*oe® 2683 CIC3E3 2B85 3208 OC CL3PACT? 
Z2AB7T 0000 2ABR 3141 CL3 oc rr2°o& 2BS&6 OCHOOCCOOCONCOONO 2ASF 3209 VIER oC Z2OTLIPOF 
ZAé&BI 9000 248A 32142 HL3 OC IL2*O?* 268E 000GD000CROCODNO 3209 
2ABB 0000 ZABC 3143 CL# oC IL2*08 Z2E96 ONDCNGCOONCNCOOONS 3209 
2A8D 0000 2ABE 3144 HL DC Tiz2*aQs ZE9E 0000 3269 
ZABF OG0O ZACO 3145 CPw DC IL2*oO? 2698 3210 SCTR EQU VTIMBt2] 
ZAC 6000 2AC2 3146 HPR DC Ir2'o? : 2BA0 O0DDCO0CO00RE 2BA5 3214 NAS DC STL EOF 
ZAC3 OOFF 2AC& 3147 CKER oc XL2*OOFFS ‘ 2BAG 3212 DOCFB EQU % 
ZACS 2000 24Cé 3148 COUNT DC re2°or 2BAG OCOCCOOCOCGO00RL 2BAF 4213 DBCF DC XL190*OocCoco000Gbon000NlL OOOO 
2ACT 66404040 2ACA 3149 SAVETD OC CL&® & Z2BAE 0000 3213 
2ACA 3150 TEMPS EQU SAVED ; 2B5AB 3234 DOCFM EQU DDCFB+5 
2ACB O000 2ACC 31531 TEMP2 ODBC Fr2*o° 2B8C0 3215 DDCFRS EQU % 
2ACB 6000 ZACE 3152 TEMPG& OC IL 2°Q* Z2BBO COGGCOOODONCOOOONL 2B8BS Beis DOCFR DC XL1O0* 000000000000C00106008 
2ACF 0000 2A00 3153 Teme? DOC TL2°O? ; 2BBS O0OG 3216 
Z2ADL FOFOFOFO 2AD% 3154 DO oC CL&*ocoag? “ 2BB5 3217 DDCFER® EQU DDCFRB¢5 
2A05 C4FO Z2AD6& 3155 DDO DC CL2*oo* ; Z2B8BA 3218 ODCFSE EQU x 
2ZAD7 FOFOFOFO Z2ADA 3156 LSTBOCH OC CL4*O0000% : ZEBA OOCCHOCOOCGONONG]L 2803 3239 DOCKS DE XLLOF OCNCOOBOCOCCOOLLOSOO? 
ZASB FI ZA0B 3157 DE OC CiLeqe Z2BC2 0000 2212 
Z2A0C FOFSFS ZADE 3158 Dees DC CL3°0488 2BBF 3220 DDCFSM EGU OCCFSB+5 
ZADF FLF2FO 2ZAE1 3159 D126 DC CL3°1 208 : 2BC% 3221 DDCFTB EQU * 
ZAE2 FUFOFS 2AE& 3160 MAXPGM DC CL3* 7685 ZEC& OoODCCCOCOGCOOCOL Z2BCH 3222 DDCFT OC XL LO ’ocoocooeooocoocoicaoae 
2AE5 O7D5 ZAE& 3161 PN oc CL2°PNES ; Z2BCC O0CD 3222 
24E7 04C5 2AEB 3162 ME DC CL2*Me® ' 2BC9 3223 DOCFIM EGU DDOCETB+5 
2AES E240 ‘ 2ZOEA 3163 SB pC ce2's * Z2BCE 09060 Z2BCF 32246 SECTH DC Tt2*o? 
2hEB CIDTESLSO ZAEE 316% €PUIDZ DC CL4*CPU * Z2e00 OCCGOCCNOOS 2BO& 3225 XLOC BC SELL oe 
ZAEF GIi6lL40C3C8CIC9DS 2AF6 31265 CHNID DC CLEe&¢/ CHAINS ‘ Z2BOS OO 2805 3226 CMI De rLLE Or 
2AFT E2E2E640 Z2AFA 3166 SSWID DC CL4?*SSk ° 2BDE 0002 28D? 3227 X2 oC TL2¢2°* 
ZAFB £4C4E340 2AFE 3167 UDTID OC CL4'uvT ° 26808 0003 2BDS 3228 X3 Cec fiz?*3é 
ZAFF DED3C4 26801 3168 OLB oC CL3°OL.D® ; Z2BDA C004 2808 3229 X4% DC Tize4e 
2802 C3D6 2803 3169 FIGCON DC cr2écaf 280C 0005 2BDD 3230 X5 Oc IL2t5* 
2604 C304 2805 3170 CMPCON DC CL2°cM® ; 2BDE 0006 ZEDF 3231 x6 oC TL2%6* 
2606 C3Fl 2BC7 3171 WINID DC Cr2°cys : Z2BEG 0008 2ZBLE 3232 X8 DC IL2*@& 
2B08 FOF OFOFG 2BOB 3172 SEQCTR DC Ci 4*00009 2BE2 OOCL 2863 3733 X12 OC ILZ°12¢ 
280C 0000 2BOD 3173 RCIFR oC IL2*o? Z2EES OOZF 26ES 3234 X47 DC IL2°*478® 
2B0E OC 2<B80E 3174 CTRI DC FLI*O?# ‘ 2ZBE& 0030 2BE7 3235 X48 BC TL2¢4se 
28CF 00 2BGF 3175 CTR2 DC ILl*o8 Z2BE8 0057 2BE9 3236 X8F DC IL2°e7e 
ZELO 8001 2Bil 317& XREG oc XL2*so0oL?® ; 2BEA 00 2BEA 32437 ICTR oc TLE‘O? 
2812 0003 2613 3177 SVPREQ DC XL2*00038 ' 2BEB GO 2BEB 3238 LCTR oc IL1L*oFf 
2B1i% CéCcécl 2616 3178 FFA pc CL3°FFA* 2BEC CO 2BEC 3239 KCTR oc TLitos 
} 
DATE 29AUGT5 22DEC75 ZO0APRTE PROG ID DD6-< DATE 29AUG75 220ECT5 ZOAPRT6 PROG 10 o0é-2 


EC NG. 827804 827836 571872 PAGE 27 cee NO. 827804 827836 571872 PAGE 274 











TEM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. “248217 TBM MAINTENANCE DEAGNOSTIC PROGRAM PART NO. 4248217 
0062 3340 CE DiSk EGITOR nOD 12 DD62 3340 CE DISK EDITOR MOD i2 
ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT 
2BED 00 Z2BED 3240 CTR DC ELLE OF 2068 C14CC3D7E84004D6 3267 
2BEE 00 2BEE 3241 FRORVE DC Feb toe 2D70 C4ESD3C540CBCLE2 3267 
ZBEF O00 ZBEE 3242 TOURVER OC TLitoe 2078 40 306D64006C1DS5 3267 
2BFO Qa 2BFO 3243 DELFG OC TL ot 2DBO EB4OCZESEAC5SES 3267 
Z2BFi 0000 2BF2 3244 TSTIN oc KL 2° OF 2D86& 3268 ERRSB EO sm} 
2PF3 27C1 Z23F% 37465 EXEITA DC ALZUXEMET3 2087 C9I9DSES5CiDSC9ICESO 2DBS 3269 ERRG BC CL4 8% INVALITG CHARACTERS IN DRIVE FEELD GF $DUP UPTIGN® 
2BF5 Cécs 2BF6 3246 DEL oC CLrZ2°pet 2CBE C3C8CIDSCICBE3BCS 3269 
2BF7T C4E4 26F8 2247 Ou BE cCL2e*pDue 2097 DIEZ40C90540CaDF 3249 
2BF8 3248 VMSGB Feu *-] 2D9F CIES5SC540CKC9CS D3 3269 
2EFO DSDO4R400SC64007 2Cl? 3267 YiuCle BC CiL3SI®FNG. GF PSM. EHTRIES CLEFT 5 XxKe PCAT C&46005C6405ERE4E4 3789S 
2COL CTDOS4H4590CSD5E309 3249 ZDOAF OMS6ODGO7TE BCE00D5 3276S 
20909 COCSEZSO03C5SCOES 3249 FOES 3270 ERRIGBR EQU et} 
2C11 40C9EZ40E TEFET 3243 2DB7 DACSEPFEZCSHSCISO 2083 327) BC CLESTRESSING UDOT OR CPU CARD. INSERT CARD In DECK& 
2C18 GEGOEZD7CICS C546 2035 3250 SPACER OC Ch3e°, SPACE AVATLABLE FOR PGRS. FS RRXXK?® COBF FGC4&E34¢0D4D0940C 3 3271 
2020 CLESCICSO3CIC2ZD3 3256 Z2UC? DTESSOC3CLOSCa 4B 3274 
2028 C540C6060940D7C7 32 38 2OCF 4045C905E2C5D9E3 327! 
2030 DSEZ4B40C9E2Z40E7 3256 2007 460 30 109C%60C905 227% 
2038 EFTEPETE? 3250 20DE eee B27E 
2C3C S0E2CSCRESDS6D9E2 2044 3252 YASS oC Cis? SECTORS. & ZDEs CLOSCSSOCL CGS ZOE BF72 ERREO OC CLiS® AND ADD DECK CVER.* 
2044 GB 3252 2DEC Locke SCADPSODOES 3272 
EL 4G&& B25 2 ERKSSB EQU w— | 2DES C5D945 3272 
2045 FAESE4FO4OC4DSLS 2068 32753 ERMSS OC €£36'3340 OREVE * ACT READY UR UNIT CHECK?A Z2DF& 3272 fou Sm E 
2C40 ESCSSOEPSODSDEES 3253 2DF7 ESC RCS4EGCSSnDs 2t727& 227% ERRKER DC CLeétTHE FOLLOWING CHAIN TMAGE DAYAL CARD ES ENWALTO® 
2055 4QD09C5C1ICGES4006 3253 eCRF BOE CCSWEe ceCics 2274 
2C50 DI40E4D5C9IES40C 3 3253 ZED? CLOSDS4OCSDRA CEC? 327% 
2C65 C8CSC302 3253 PEOF CS4O0C4C1E30140C3 327% 
2C68& 325% ERMSESB EGU o~] ZELF CIDSGC4GOCSE 2400S 32 7& 
2069 CIC4&CLDZEICSOF40 CCFO 3255 ERMS? oc CLELEADAPTER CHECK EN 33405 2eiF DSESCLOSCSCe 32 7% 
2071 C3C8cs Cape40p605 3255 2E2% B27> ERRL4B EQU x 
2CT9 S4OFSEBF4FG 3255 2E25 MS064O0D9NHD6D460 253 b278 Oe CLS7°nO RCOM LEFT ON PATA sSODULL ~ 09 & $CMP BEFORE * 
VO?TD 3256 HDGIB Est} e--} PESO OSCSCHEE 24200605940 S276 
ZCTE FOFOSO40404604040 2CKR S257 De C145%Oo 03 C& oF ae it . 2035 C&ClLE3Cl4é004 5804 3278 
2CE6 SOFOF3A404S4040F6 3257 2E30 £4030 546060¢40C4D8 42986 
Z2C8E F440404040404646 3257 Z2'45 4£001405805060740 32%8 
2CS9& FOF TSO040404CF CFB 3257 ZEGD C2C8C6DED9C540 3276 
ZCIE 40404040404 040F FT 3257 2E54 CLC4S&O4CIDSCI4006 Zire Z2TT ERRES Oo CL3L®A0OING OR REPPING ANY PROGRAMS. & 
2CA6 F14904604649 2257 2£5C DFSOD9C5DF707C9D5 3277 
2CAB FlF 2464040464040 €CB3 3258 HOSL BE CLaitil2 15 4 1¢ 20 23° 2E6e CTeOCLDSEBSODTD9 3277 
2CB3 SOFLFSS4O4C04C40F 1 3258 2E—6o GECTOSCIDSES4GE 32 7F 
ZCEB F640404040464C4C 3258 ZE¥2 3278 ERASTB EQU z~) 
2CC3 FLEE 940404G40F 2FG 32758 ZET2 CSOCSDSDSENSSOCSOS ZEGE 3279 ERMS? DC CLES*ERROGR IN MESSAGE, RETYPE AND HIT END ® 
2COB 4£0404C045C404046F 2 3256 ZEVB S4O0D4C5E2ZE2C1L CICS 32 7S = 
_2003 F3 3258 2EBR 684059C SESE BDITS 3279 
20CD3 3259 EDMSIB EQU we} ZEBB SOC LO5C4%0CSCS9ES 3279 
2CO4 FRF3F4FC4O0CECICS 2CESB 32€6 EDMSET DE Ci37'°33240 FAILED FG EXECUTE A SIG iG TIRES® ZES3 4£0C0505C44G640 AZ7¢S 
2COC O3CS5C440FE30840C5 32760 ZESS& 3FBO ERRSS EQL emf 
2CE4 ETCSCZESFICSSOCE 3266 PESS CECIDICS4GEZEBDS 2EBA F261 ERRS DC CL34°CARD SYNTAX ERROR - CARD READ WAS: * 
2CEC 40E 2CSDS40F iF 040 3266 ZEAL ESCLETSOCSDOSES OS 3281 
2CFS& ESCSD4CSE? 3268 ZERD DS40GO4SCCO3CLDSCS 3281 
2CES 326% EDMS2ZE FOU #~ i PEBL SODSC SC ICG OERTI 3281 
2CFS ESC 8CS540C9D5CHbé 2025 3262 EDMS2 DE CL457THE INFGRMATION GELGW ES THE 24 BYTE DIAS SN 2EBS EPTA 3281 
200 DIDSCLE3CSD65543 32E&e ZEBA 3282 ERRSSB Qu e~ ¥ & 
2009 C2ecCsO3sC6ESSOCIE? 3262 ZEBB CSDSESC1D3C9C446 Zet} S282 ERBRGA oC CLASG*INVALIG SEQUENCE » ON CARD - SEU H KKAXS 
2D1Li 40E3C8CS540F2 F446 3262 PECR E2C5D@E4E565C3T5 3263 
2019 C2EBE3CS46C4C0 90) 3262 PECB SO7B40C060540C3E2 3283 
2021 C740E205E2 3262 2t03 OFL 44060408 20505 A253 
2025 32763 ERR3BB £OU s-— 2 ZESB GOTBSOETE FETE? $2832 
20276 CSIDSESCEDSCSC4SO POSE F264 OC CLS&LEENYALID HEAMEG CekbD- CGRRECT HEACES CARD F PEEP SOESCLEPEQORSCSCL 2EFG SA8% ERRAC oC CL2L® WAS REAU, AND & EXXX* 
2DZ2E C8CSCICSCS5O940C 3 3264 ZECCA C&SR460C 1 DSC44O7B RS 
2036 C1LO9C46C40C3 0669 326% 2tr2 &CeTETETE? Be 
PDBE DSCSC3IES4OCBC5CL 326% ZEF? &2GCK40EGCLEZEOCE CT? ZFO" BS Fars GC cLis? WAS EXPECTED? 
2046 C4C sD960C3C1DOSCS 3264 PEELE DFYLSOBZESL SCH 2988 
2D4E 4&0 3264 ZF O04 3286 ERRTB EQU #-j 
Z2O4F CLLSEC44O009C5 E309 2057 4265 FRRS DC CLStTAND REFRY® 2FGS CIDSE5TIDNSCSC440 2F21 32287 ERRVA DC CLZGSENVALIO EO ~- [6 READ WAS RXAXS 
2057 E86 3265 2FOD CSC4406040C9C4640 3287 
2057 3266 ERRSB EQU *— 5 2F15 BSCSCICS4&CEGCLE2 3287 
2058 ESCB8CS4C0CECEC1I4O 20846 3267 ERRS 0c CL47° THE FFA DECK GR A CPU KFODULE HAS FOO FAaNY EYTES* 2FLD S40CTEFETET 3287 : 
2060 C4C5C 30240060940 3267 2F22 GBSGCSC4S0CSE7TO? 2ZF37 3288 ERART DC CL227%-. 10 EXPECTED WAS XXXX® 
DATE 29AUG75 22DEC 75 Z0APRTS PROG ID DD6-2 DATE 298UG7 Z2DECT5 Z0APRTIG PROG IC DCb~? 
EC NOw. 327804 £27836 STLA72Z PAGE 28 EC NO. 827804 827836 571872 PAGE 28A 








IBM MAINTENANCE DIAGNOSTIC PROGRAM ; PART NG. 4248217IBM MAINTENANCE DIAGNUSTIC PROGRAM PART NO. 4248217 
PASE 23 PAGE 29A 
0062 3340 CE DISK EDITOR MOD 12 DDéE2 3340 CE DISK EDITGR MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
Z2FZ2A C5C3E3C5C440E6C) 3288 30CE C4C5E2C909C5C440 30E2 3312 STRTA OC CL2i*DESIRED SET ON SSh22.° 
2F32 E240E7TEVETE? 3288 3006 E2CSE340D6D0540E2 3312 
2—F37 3289 ERR4SB EQU *-)} Z30DE E2E6F 2F 246 3312 
2F38 CID5SE5C103C9C440 2F56 3290 ERR4S oC CL3L*INVALIO SYSTEM TEST HEADER CARC® 30E3 C4CSD3C5E3C5C4 30E9 3313 PGMDEL DC CL7*DELETEO® 
2F4C E2ZE8EZE3C50440E3 3290 30£A 3314 ADMSG EQU * 
2F48 C5E2E340C8C5C1C4 3290 Z0EA 4040404040404040 3138 3315 OC TOXL1*40°® 
2F50 €50940C 3C109C4 3290 30F2 4040404040404040 3315 
2F56 3291 SCERRB EQU 1 30FA 4040404040404040 3315 
2F57 £2C3C10540C509D9 2F84 3292 SCERR OC CL46°SCAN ERROR- HIT SYSTEM RESET,START, THEN RETRY® 3102 4040404040404040 3315 
2F5F D6D96040C8C9E340 3292 310A 4040404040404040 3315 
2F67 EZES8E2E3C5044009 3292 : 3112 4040404040404040 3315 
2F6F CSE2ZCSES6BE2Z E3C1l 3292 311A 4040404040404040 3315 
2F77 D9SE36640E3C8C5C05 3292 3122 4040404040404040 3315 
2F7F 40D9CS5SE3D9E8 3292 312A 4049404040404040 3315 
2F84 3293 SZERRB EQU +—] 3132 40404040404040 3315 
2FB5 C4ClLE3C1400406C4 2F9A 3294 SZERRC DOC CL22* DATA MODULE ON DRIVE X* 3139 3316 ADMSGE EQU * 
2F8D E4D3C54006D540C4 329% 3139 C1C4C4C5C46060 313F 3317 ADDED OC CL7*ADDED-- § 
2F95 DOCSESCS40E7 3294 314C C4C9C1IC70506E2ZE3 315F 3318 DCPP DC CL32°OLAGNOSTIC CONTROL PROG—---M00 12° 
2F9E 40C9EZ40D5D6E340 2FC8 3295 CC CL46® 'S NOT A 12 ® BYTE PACK. EF YOU WISH TO COnT® 3148 €9C340C 3D6D9E3D9 3318 
2FA3 C140F1F2400440C2 3295 3150 D6e0340D7TOC9D6C7EO 3318 
Z2FAB ES8E3SC540D7C1C3D2 3295 3158 6060D4D6C4S40FI1F2 3318 
2FE3 4B4040C9C640E8 D6 3295 3160 O0A80 3161 3319 READAD DC AL2 (READIN) 
2FB8B E4S0E6C 9E2CB40E3 3295 3162 C4C9EZE2C9D5C74O 3175 3320 ERRO DC CLZO0° MISSING CONTRCL CARD® 
2FC3 D640C30605E3 3295 316A €30605E309060340 3320 
2FCG CODEESC5&B4009C5 2FDD 3296 SZERR OC CLZL*INUE, RESET THE HALT.® 3172 C3C1D9IC4 3320 
2FD1L E2C5SE34CE3C8BC540 3296 3176 4O0C9D540C5D090906 317E 3321 ERR2 oc CL9* IN ERRORS 
2FD9 C8C1LU3E 34B 3296 317E D9 3322 
2FDD 3297 CERRB ECU 1] 31L7F OSD640EZDICIC3C5 3143 3322 ERRGORE OC CL37*°NO SPACE AVAILABLE TO ADD NEw PROGRAM 
2FCE C5D909C60940C9D5 300E 3298 oc CLS9"ERROR IN DCP CONFIGURE RECORD. KECORD IS PRINTELS 3187 40CLE5C1C9D3C1C2 3322 
2FE6 40C4C 3D740C3D605 3298 318F D03C540E30640C1C4 3322 
2FEE C6C9C7TESOSCS540D9 3298 3197 C440D5C5E6400709 3322 
2FF6 C5C3D609C44E4040 3298 319F D6éC7D9C1D4 3322 
2FFE D9C5C 3D6D9C440C9 3298 Z1AG 4O0ETETET4O0DS06E3 3183 3323 MSGO2 DC CLI6é* XXX NOT ON DISK* 
2006 E240D7D09C9D5E3C5 3298 Z1AC S4C0DEDS40C4CIO E202 3323 
300E C4 3298 3183 3324 MENULA ECU *-] 
300F 40C2CS5D2D6E67A 3015 3299 CERR OC CLT® BELOW: * 3184 C505E3C5D0940D005 3109 3325 MENUIT DC CL3Z8tENTER ONE OF THE FCLLOWING OPTIONS: 8 
5015 3300 KBRDYB EQU *-1 3LBC C540D6C640E3C8C5 3325 
3016 DICS5CICSEBEOCC4C9I 3029 3301 KBRDY DC CLZO*REACY-DISK 1/0 ON DX* 31C4& 40C6060303D6E6C9 3325 
3OLE E20240C961D640D6 3301 31CC DSCT40DED7TE3C9DE 3325 
3026 DS40C4E7 3301 321D4 D5E27TA404040 3325 
3029 3302 MSPB EQU *—] 31D9 3326 MENUILB EQU *-1 
302A E2C5C540D0709C905 3034 3303 MSP oc CLIL*SEE PRINTER® 31DA 6150404040404040 3201 3327 MENUL! DC CL40'/& - TERMINATE OPERATION —- e 
3032 E3C5D9 3303 31E2 40404040406040E3 3327 
3034 3304 TERMB EQU *-1 ZB1lEA CSD9D4CEDS5SCLE3SCS 3327 
3035 E2C5C3£E3C9D60540 3046 3305 TERM OC CLI8"*SECTION TERMINATEDO® 31F2 4006D7C5D09C1iE3C9 3327 
3030 E3C5D9D4C905C1E3 3305 31FA 0D6D5406040404040 3327 
3045 CS5C4 3305 3201 3328 MENUIC EQU ¥-1 
3046 3306 STRTMB EQU 1) 3202 580 304D 740404040 3229 3329 MENUL2 DC CL40*SCMP ~ COMPRESS - 8 
3047 F1484040E3E409D05 3072 3307 oc CL44"l1l. TURN GN SSw TO SELECT INPUT DEVICE. 17? 320A 40404040406040C 3 3329 
304F 40060540E 2E2E640 3307 ; 3212 D6D4D709C5E2E240 3329 
3057 E3064C0E2C5D3C5C3 3307 321A 6040404040404040 3329 
305F E340C9DSDIE4E340 3307 3222 4040404040404040 3329 
3067 C4C5E5C 903054840 3307 3229 3330 MENUID EQU x*—f 
306F 4040F1F7 3307 3224 SBC3D6DS5SCEC9CT40 3251 3331 MENULS DC CL40'£CONFIG - CONFIGURE - . 
3073 6040F3F7F4F14040 3SO09E 3308 oc CL44'- 3741 18- 1442 LA-MFCU NONE- 5471 * 3232 40404040406040C3 3331 
3078 4040F 1F 86040F1F4 3308 323A DOD5CEC9SCTESDIOCS 3331 
3083 F4F240404040F1C1 3308 3242 4060404040404040 323} 
3086 6004C6C3E4404040 3308 324A 4040404040404040 3331 
3093 4005D06D5C56040F5 3308 3251 3332 MENULE EQU *-] 
3098 F4F7F140 3308 3252 5BC3E2E 340404040 3279 3333 MENUL4 DC CL40*SLST - LIST - 7 
309F 40 309F 3309 STRTMS OC cil? § 3258 40404040406040D3 3333 
309F 3310 STRTAB EQU *-) 3262 CIE 2E 34060404040 3333 
30A0 F24B4040C4CSE2D2 30CD0 3311 DC CL46'2. DISK ORIVE 1 WILt BE USED. FF DRIVE 2 IS * 3264 4040404040404040 3333 
30A8 4C_4D9C9GESCS540F 1 3311 3272 4040404040404C640 3333 
30B0 40£6°903034CC2C5 3311 3279 3334 MENULF EQU *-} 
3088 4064E 20504484040 3311 327A SBC4&C5O03E7ETET6B 32A1 3335 MENULS DC CLS&O'TEDELXXX XXX XXX= 1D OF PGM(S? TO OELETE?® 
30C0O CSC640C4D9C9E5C5 3311 3202 tTETETS&USOETETE7 3335 
30C8 40F240C9E240 3311 326A 72£40C9C440D06C640 3335 
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PAGE 30 PAGE 30A 
D062 3340 CE DISK EDITOR MOD 12 ,bde2 3340 CE OISK EDITOR MOD 12 
ERR LOC GBVECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
3292 D7C7D44DE25D40E3 3335 ; 3456 404040404040 3358 
329A 0D640C4C5D3C5E3C5 3335 3458 3359 MENUSD EQU *-1 
32A1 3336 MENULG EQuU ¥*-1 345C £3C8C540C6D60303 3483 3360 MENUS3 OC CL4C0'THE FOLLOWING ARE EXAMPLES: * 
32A2 SBC4ESDT40COCOE3 3209 3337 MENULE OC CL4¢0'SDUP FFTT FFE= FROM MODULE; TT= TC MODULE’ 3464 D6E6C9D5C740C1D9 3360 
32AA E340C6CHTES0CED9 3337 346C C540C5E7C104D703 3360 
32B2 D6D440L406C4E4D3 3337 3474 C5E27A4040404040 3360 
32BA C55E40E 3E37E40E3 3337 347C 4040404040404040 3360 
32C2 D6400406C4E4L3C5 3337 3483 3361 MENUSE EQU t—] 
32C9 3338 MENULK EQU *-] 3484 5C404E4B4B4B4040 34AB 3362 MENUS4 DOC CL40"* seco {ADD THE DESIRED COMMENT D® 
32CA SEDICSOTETETETSO 32F1 3339 MENUI7T DC CL4&O'S$REPXXX XXX= ID GF PROGRAM TO REP * 348C 404040404040404D 3362 
32D2 4040404040E7ETE7 3339 3494 C1C4C440E 3086540 3362 
32DA 7£40C9C440D6CO40 3339 349C C4C5E2C9D9C5C440 3362 
32£2 D709D6C 709C 10440 3339 ; 34A4 C3060404C505£35D 3362 
32EA £3064009C5D74040 3339 34AB 3363 MENUSF EQU *#-1 
32F1 3340 MENULE EQU a] 34AC DIGOETETETET4SOET 3403 3364 MENUSS DC CL&O*R XXXX XXXXXKoeee * 
32F2 C4CSDIDIC5EcE240 3319 3341 MENUIB DC CLGO*LEPRESS ~END~ KEY TO INPUT RESPONSE ‘ : 3454 ETETETETE TS B4B4B 3364 
32FA 60C505C4604002C5 3341 34BC 48 40404040404040 3364 
3302 EB40E3D640C905D7 3341 3464 4040404040404040 3364 
330A E4E340D9C5E2D706 3341 3466 4040404040404040 3364 
3312 D5£2C54040404040 3341 3403 3365 MENUSG EQU *-} 
3319 3342 MENU2ZB EQU *-1] 34D46 EZE2E640F1C365F1 34FB 3366 MENUSE& OC CL40°SSW 1C,1D (TURNS GN SSW ic AND id?* 
331A C505E3C5D940C3D6 333F 3343 MENU2 OC CL3StENTER CONFIGURE KECORD, OPTIGNS ARE: * 3400 €440404040404040 3366 
3322 DSCSCICTESD9C540 3343 3424 SDEZ3E4D9D5E24006 3366 
3328 D9C5C3D609C46540 3343 ; 34EC DS40EZE2E640F1C3 3366 
3332 D6DTESC9IDSD5E240 3343 , 34F4 40C1D5C440F 10450 3366 
333A C1D9C57A4040 3343 34F8 3367 MENU5SH EQU #1 
333F 3344 MENU2C EQU ¥-] ‘ 34FC C5404040404DC3C1i 3523 3368 MENUST DC -CL4E0%E {CAUSES REPS TO BE WRITTEN ON DISK}® 
3340 C3D7TES440454E4L40 3367 3345 MENZ2 DC CL4&O'CPU ec6 {EXAMPLE - CPU G,6000,0) § 3504 E4E2C5E240D9C5D7 3368 
3348 4040404040404D0C5 3345 35CC £240£30640C2C540 3368 
3350 E7C1D40703C54060 3345 ‘ 3514 ES6DICSEZEZCS D540 3368 
3358 40C3ID7E440CTO5F8 3345 : 351C D6D540C4C9E 2D025D 3368 
3360 FOFOFO68F0504040 3345 3523 3369 FKENUST EGU e-} 
3367 3346 MENU20 FRU *—1 ‘ 3524 £740404040404040 354B 3370 MENUSS DC CL40°X (RETURN TC THE MAIN GPTION MeENU}® 
3368 £4C4E3404B464840 338F 3347 MEN23 DC CL40'UDT ccc (EXAMPLE - ULLT Ci-2,E0s--3' ; 352C 40D9C5E3E4D90546 3370 
3370 4040404040404UC5 3247 3534 £3D640E3C8C540D4 3370 
3378 €7C1D04D703C54060 3347 353C CICSD5S40D6D07E3C9 3276 
3380 4CE4C4E340C3 F160 3347 } 3544 D6D540D4C505E45D 3376 
3388 S26BCSFO6BSE4E5D 3347 354B 3371 REMB EQU *-] 
338F 3348 MENUZE EQU *-] 354C C3D6D5COCICTESDD 3571 3372 DC CL38°CONFIGURE CHANGES COMPLETE ON DISKe 8 
3390 E4C4E3E74B4B4540 33B7 3349 MEN24 DC CL4O0*UDTXee. CEXAMPLE -— UDTX14-¢5lsece) ° } 3554 C540C3C8C1D5C7C5 3372 
3398 4040404040404D0C5 3349 355C E240C 3D6D4D703C5 3372 
33A0 E7C1D4D703C54060 3349 5 3564 £3C5400D60540C4C9 3372 
33A8 40E4C4ES5E7F 1F 468 33493 356C £2D24B404040 3372 
33B0 FSF16B4B4B4E5040 3349 3572 40EBD6ES40D4E4E2 3599 3373 REM pc CL40® YOU MUST IPL CCP TO PUT THEM IN EFFECT e® 
3387 3350 MENUZF EQU *-] 357A £340C9D70340C4C3 3373 
33B8 616140C3C8C1C905 3367 3351 MEN25 DC CL48°// CHAIN 048 CR // CHAIN 120 UR @/ CHAIN STO® 3582 D740E3D640D7TE4ES 3373 
33€0 40FOF4F84040D6D9 3351 358A 40F 3C8C5D440C9D5 3373 
33C8 4040616140C3CBC1 3351 3592 40C5C6C6C 50 3E34B 3373 
33DD C90540F LF 2F 04040 3351 } 3599 3374 REME2 EQU t-]} 
33D8 06094040616140C3 3351 359A 40€3E8D7C540E740 35C1 3375 oC CL40" TYPE X AND DEPRESS END TO RETURN TO MAL? 
33£0 CBCICIC540EZE3C4 3351 3542 C105C440C4C5D7D9 3375 
33E7 3352 MENU2H EQU ¥*-1 : 35ARA CSE2E240C5D5C440 3375 
33£E8 E740404040404040 340F 3353 MEN2T DC CL40*X (RETURN TC TRE MAIN CPTIGN Renu? 3582 E30640D9C5E3E4D9 3375 
33FO 4D09C5E3E4090540 3353 358A D540E3D640D4C1C9 3375 
33F8 E30 640E 3C 8C540D4 2353 . } 35C2 DS40D6D07E3C9D605 3500 3376 REM2 oc CLIS*N OPTION MENU. ° 
3400 CICIDS40D06D7E 3C9 3353 35CA 40D4C5D5E44E4G6 3376 
3408 DOCS40D4C505E45D 3353 ‘< 3500 3377 MCTLB EQU ¥*-1 
34CF 3354 MENUSB EQU %-} , 35D1 C509D9D60945 35D6 3378 DC CLO*ERROR * 
3410 CSD5E3C5D940C3C8 3435 3355 MENUS CC CL38* ENTER CHAIN IMAGE CARD £48 HEX CIGITS)*® 35D7 CIDS4O0DED7TE3C9DG 35F7 3379 MCTL cc CLA3*IN OPTION -- RETYPE & HIT END ¢ 
3418 C1CID540C9D4C1C7 3355 35DF D540606040D09C5E3 3379 
3420 C540C3C1L0U9C4404D 3355 35E7 E8D7C5405040C8C9 3379 
3427 F4FSE40C8C5E740C4% 3355 35EF ©340C5D5C4404040 3379 
3430 CICTCIEZEZ5SD 3355 : 35F7 40 3379 
3435 3356 MEWU5SB EQU *-] ; 3567 3380 MADDB EQU #-1 
3436 C505E3C5D940D005 3440 3357 DC CL24* ENTER ONE REPLACE RECORD? 2568 SBCIC4C440C9D5E5 3604 3381 DC CL13*$ADD INVALID * 
3436 C540D9C5D703C1C3 3357 3600 CLD3C9C440 338) 
3446 C54009C5C30609C4 3357 F 360> E6CBC5D540ESE2C9 3610 3382 MADD pc CL25*WHEN USING 5471 FOR INPUT® 
344E 4040404040404060 345B 3358 REPWHG DC CL14® ‘ S$REPXXX IS INSERTED HERE 360D DSCT40F5F4F7F140 _ 3382 
} 
DATE 29AUG7T5 22DECT5 ZOAPRTE PROG ILD DD6—-2 DATE 29AUGTS 22D0ECT5S ZOAPRTS PROG ID 006-2 
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PART ‘Q. 4246217 ITEM MAINTENANCE DIAGNUSTIC PROGRAM PART NO. 4248217 
PAGE 31 PAGE 31A 
DD62 3340 CE DISK EDITOR MCD 12 
STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
3390 Fe sFeeHHERe 
3391 * EQUATES * 
EQU tm 2 3392 RRRREK RRR ER RER HERA SERKAKKET ESE EERE TE SR CRESS TLS AEEKAKSEKAA KEKE 
DC CL25* ENTER NEXT REPLACE RECORD? 3393 
3393 
OOTF 339% MSGBGN EQU X*7Fe 
345B 3395 MENUS] EQU  REPRHO 
DC CL14e ‘ SREPXXX IS INSERTED HERE COO8B 3396 ARR EQU x*os& 
0216 3397 LINK EuU X* 2168 
oc CL29*3741 1S NOT IN THE READ MODEL? OZ1A 3239€ PRINT EQU K®21A8 
OCOL 3369 xXRi EQU X*O18 
0002 3400 XR2 ECU X' 02° 
0222 3401 HALT EGU x® 2228 
oC CL45*PUT 3741 INTO REAG MODE (SEE USERS GUIDE ¢ O20A4 3402 SBYTE2 EQuU X*O20At 
OB60 3403 DBYTEO EQU DGSNSB 
OB61 3404 DBYTE]1 EQU OGSNSB4L 
OB62 3405 OBYTEZ EQuU DGSNSB42 
OB67 3406 DBYTET EQU DG SNS54+7 
0002 3407 TRKCC EGU x*O28 
DC CL24*BLOCK 10) AND RESET HALT® OOO 3408 OPINCP EQuU X*OLe 
212 3469 TEST EQU X* 226 
O2Z1€ 3410 UNPACK EQU X*21eEe 
0226 3411 PACK EQU X"2268 
‘ 022A 3412 LOAD EQU X®22K8 
: 00C% 32413 DDOR EQU X*C4é 
OO0C& 3414 DDCR EQU x*§Cos 
’ O20A 3415 SWITCH EGU X*O20A¢ 
F 3FFF 3416 X3FFF EGU X'3FFFS 
3900 3417 CARD2A FQU x*39008 
OOCO 3418 IARI] ECU X*cCoé 
OO18 3419 SIQI EQu x' 1g 
0879 3420 CRTFLG EQU x" B798 
COOl 3421 SSWOF EQU x*ol1e 
0920 3422 SSW22 EGU X*208 
0010 3423 SSW23 EQuU x*10¢ 
0008 3424 SSW24 EQU x*08e 
0080 3425 SSW18 EGU x*80F 
OOOL 3426 SSW17 EQU x'ole 
0020 3427 SSW1A EQU x*208 
0010 3428 SSWlB EQU x*108 
OOOl 3429 SSW2F EGU x*o1e 
OOCO 3430 DRI EGU X"*Cos 
COC8 3431 DR2 EQU x*cse 
00D0 3432 DR3 EQU X' pot 
CODB 3433 DR EQU x'pDB° 
0020 3434 PLIAR EQU  x*208 
0010 3435 TAR EQU 16 
‘ 0080 3436 SNSDR1 EQU x* sor 
s 0040 3437 SNSDR2 EGU X'4OF 
0020 3438 SNSOR3 EGY X* 208 
0010 3439 SNSOR4 EGU x*10° 
} OAOT 3440 OPUDT EQU X*ao7e SECTION PREFACE UNIT TABLE-3 
O22F 3441 QTAB EGU X'*22F¢ FIRST BYTE UF UBT TABLE-3 
0232 3442 UTAB EGU x*232° FIRST BYTE GF UDT TABLE 
: O211 3443 RPFX EQU x*2118 
0080 3444 BITO EQU X* B08 
" 0040 3445 BITL ECU x'gor 
i 0020 3446 BIT2 EQuU X*208 
0010 3447 BIT3 EQU x*108 
; 0208 3448 SBYTEO EQU x*208¢ 
f O20C 3449 SBYTE4 EQU x*20C* 
OA02 3450 SPFLGS EGU x*ao2* SECTION PREFACE FLAGS 
C6003 3451 H1 EQU x*038 HALT DISPLAY 1 
O03F 3452 HA ZEQU ss _X *3F# HALT DISPLAY A 
0038 3453 HH ECU X*3BE HALT DISPLAY H 
0000 3454 L1 EQu 00 
0028 3455 12 EQU 40 
0050 3456 L3 EQU = 80 
PROG ID CO6-2 DATE 29AUG75 22DEC75 Z0APR76 PROG ID DD6-2 
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PART NOw 4246217 1BM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248217 
PAGE 32 PAGE 32A 
0062 33240 CE DISK LCDITOR MOD le puoee 3340 CE DISK EDITOR MOD 12 
ERR LUC OBJECT COVE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
0078 3457 L& FOU 120 } 3474 SREEKOKEREE ESSEC ETRE ES TES HA STORE EEE EE EEE EERE TE ETHEEHEREESLERE EEE EEE 
OOAO 34568 L5 £QU = -:1€0 3475 # 
COCB 3459 L6 EQU 200 3476 * ENO CARO ROUTINE 
COFO 3460 LT EQU 240 3477 * 
0118 346) 18a EQU 280 3478 KHAEMREREER EHS ESTO STINGS ST EHH HSE SEKELHATITE CEE ESESEEE SES 
0140 3462 L9 FOU 320 36A7 40 3647 3479 ENDROU OC cule « 
0168 3463 L10 EGU 360 36A8 1C 16 Q016 FF 3480 MVC - 22 £23) aLENGTH-ENCROUFL 27 XRD? 
0190 3466 t1} EuU 400 3481 SET UP PROGRAM RESTART 
O1B8 3465 L12 EWU 440 36AD 4 OL 08 022F 3482 HVC LM@- ENDKGUCLZE(2:XRL Pe KE2CEE 
OAGF 3466 TOLOC EGU  SAVID-5 3683 % SET “ESSAGE ADDRESS IN PRINT LINKAGE 
0900 3467 x900 EgU x*9008 36B2 38 60 OADZ 34 84 TBN  SPFLGS,B1TO LRENCH IF NO YDT ENTRIES 
BCD 3468 wRT® EGU COCFT 2686 F2 10 3F 3485 JT LOEND 
2bF2 3469 DAT EWU STN 3689 C2 02 GAOT 3484 LA QPUDT sKR2 POINT XR2 AT SECTION PREFACE UDT(-3) 
C&TC 3470 xB7C EQU x*e7c? 36BD C2 O1 O22F 34%67 UFIRDLT LA QTAB,xXRL POINT XXL AT CCP UNIT TABLE {-3)} 
O880 447] XBEO EWU x*8E0! .  -36CL E2 02 03 2488 LA Bl AR2Z)eXK2 INCKEMENT SPUT POINTER #3 
Ov0% 3472 $SR05 ECL X04? + 3604 D2 O1 03 3489 UFIND2 LA 3¢eXR1) eXR1 INCKEMENT PUINTER BY THREE 
36C7? 6D 00 06 00 3490 CLO OL Le XRD OL, XR2 ERANC.! [F&F NOT PROPER UOT 
36CB F2 OF 15 3491 JNE UFINGS 
* 36CE 9 00 02 G2 3492 MVC - 2 (De XROG ZC eXKED LOAC SECTION PREFACE OPTION 
36D2 98 03 O1 O1 4493 BNN = LE XROD LEO XRLDE BETS 
3606 BA 20 OL 3494 SEN = LC ep XRD BIT2 SET ASSIGNED FLAG 
36D9 88 10 01 3495 UFINDS TBN 1¢eXR2)+81T3 (UFINO3 CHECK} 
360C CO 90 O916 3496 BF X900+UF EDL-ENORCU Lf KOT LAST ENTRY, GO LOAD NEXT 
36£0 FZ 87 15 3697 J LOEND OTH RISE - GO START SECTION 
ys-g6k3 78:10 O1 3498 UFINDG TBN  1L@eXR1},B1T3 CHECK FOR LAST OCP ENTRY 
3666 CO 90 C910 3899 BF X900¢UF LND2-EKORCU CONTINUE TF NOT LAST ENTRY 
36EA8 B9 460 O1 3500 TLE «=. 1 XRZVVBITL SKIP ERROK HALT IF REQUIRED FLAG 
}  -36ED CO 10 0932 3501 Bt XGOO*UF INU3~ENOKLU NOT UN 
36FE FO 3B 03 3502 HLTL HPL H1>HH eUDT “ANNOT GE SATISFIED 
36F4 CO 87 6932 3503 B K9OOCeUE INO 3-ENDROU EYPASS EKKOK IF HALT RESET 
i =. 36FB CO B87 O2Z1A 25046 LOEND B PRINT TO PRINT HEADING 
36FC 47 36FC 3505 DC XLLP47° 
36FD OF 36FD 3506 OC ILL&14? 
b= -36FE 9000 36FF 3507 Léa oC AL209-#) 
3700 FF 00 3701 3508 ie XL2°FFOO! 
3702 39 OL 0208 3509 TER  SEYTEC,SSWOT 
' 37¢6 39 08 O1FD 3510 TEER X*lFO*,x*'oO8e 
370A F2 90 03 3511 JF #406 
3700 FO 38 3F 3512 HLTA HPL  HAsHH 
i 0A03 3513 USING RNUM»XR2 
3710 C2 02 OA03 3514 LA RNUM,XRZ SAVE FIRST ROUTINE PREFIX AND 
_ 3714 B5 01 04 3515 L 4(,XR2)_XR1 
i 3717 9C 00 00 00 3516 MVC  _RNUM( he XK20 2009 XR1) LOAD CURRENT ROUTINE NUMBER 
3718 1C 03 0211 03 3517 MVC —- RPFX04) 030eXRD) 
_- 3720 CO BT 0212 3518 B TEST CHECK CATA SWITCHES 
i 3724 00 87 04 3519 B Qt eXRLI START DIEAGNUSTIC SECTION 
3727 3520 LENGTH EWU) * 
} 
b 
} 
} 
} 
' 
} 
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f NOe 2 7 IBM MAINTENANCE OIAGNUSTIC PROGRAM PART NOs 4248217 
IBM MAINTENANCE DIAGNOSTIC PROGRAK fe NG ee 1& AINTE PAGE 33A 
DD62 3340 CE DISK EDITOR HOD 12 
DD62 3340 CE DISK EDITOR MOD 12 
ERR LOC OBVECT CODE ADOR STMT SOURCE STATEMENT ERR LOC GEJECT CODE ADDR STMT SOURCE STATEMENT 
3522 REE RS RRARE RAT RV LEAKE ERE RE SSR ELAS SERRE ARERR ESKER R RE RH RS TS RET ESAS SES ; 3537 TREP 
3523 # IF FLAG OCCURS ON THIS GRG YOU HAVE EXPANDED INTO X*3900%. 3538 TREP 
3524 * 3900-39FF IS THE BUFFER FUR SECOND CARD FUR 2560 AND 1442. . 3539 TREP 
3525 * 3hOG- UN IS RESERVED FCR USE BY THE MLTA CONFIGURATOR PROGRAM 3540 TREP 
3526 # CFET Se coe ie 
as 07 5 > B000'~xX#3900%+4s é 
ee aece x ee On ; 3543 TREP 
aoe 3544 TREP 
3530 @ 3545 TREP 
3531 # ; 3546 TREP 
4806 3532 ORG X*4e8008 3547 uy 
4800 3533 DDDF Eeu * WORK FIELEL aes hi 
4800 TTEF 3534 DS 48 CL 256 se : TRE ie 
#900 3535 DDDFL Eu ODDF+256 wees ee oe 
t 
i 
t 
: 
b 
} 
} 
; 
) 
) 
) 
} 
} 
} 
} 
) 
Sg 
DATE 29AUG75 22DECTS 30APRT6 PRUG ID DD6-z DATE 29AUGT5 22LECT5S 3Z0APRTE PROG ID DDb6-2 
EC NOGw. 827804 827836 571872 PAGE 33 EC NGe 827804 827836 £71872 PAGE 33A 
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PAGE 34 ! PAGE 34A 
0062 3340 CE DISK EDITOR MOD 12. — DD62 3340 CE DISK EDITOR MOD 12 
4‘ 
CROSS-REFERENCE CROSS-REFERENCE 

SYMBOL T LEN VALUE OEFN REFERENCES ‘SYMBOL T LEN VALUE DEFN REFERENCES 
AAC? A 004 OBF2 O1LL 0108 0186 0233 COMPXT A C04 2028 2083 2027# 2068 2072 
AALS A 004 1LF7E 2040 2038 ‘CONTAG A 004 209A 2126 2131 
AAL9 = A 003) «1FTS) «2037 2044 CONTAS A004 208C 2123 2111 
AA20 & 004 1F9T 2046 2058 CONTA6 & 004 2082 2132 2128 
ACTO & 001 2880 3205 0565 1634 1732 1756 2386 ‘CONTAT & 004 GEB3 0383 0347 
ADDCPU A O01 1L16F 0630 0749 CONTAS A 006 21F1L 2271 2259 2265 
AUDED A OO? 313F 3317 0264 CUNTAY A O04 13LL 0797 0790 
AODFFA A 001 1168 0627 0299 ‘CUNTE2 A 001 CEG? 0327 0304 
ADDFLG A 001 2AAD 3234 OLOL® 0262 OF75*% L106 2871 CUNTC3 A 00% LOFE 0586 0527 0548 
ADDR & 002 2A52 3137 1956* 1964 2033% 2060 2507% 2615 Z2846* 2849 2864* 2868 CONTCS & 006 OFE3 0493 04 BG 
ADDR1 A 002 1F58 2025 2032 2059 ‘CONTCS & 006 1244 0759 0509 0592 
ADDTST A OO OCAS 0199 016% CONTOS A OCS 10E6 0573 0561 
ADMSG A OOL 30EA 3314 0264% 0265*% 0266* 0569 0570 0759 O762% C763® 0764# O7T67 0927 09284 CONTEL A 005 ODDZ 6305 O301 

[076% LOTT* 1078* 4079* 1083 12728 ICONTE2 A GO3 OE70 C363 0355 
ADMSGE & 001 3139 3316 0767 O768 1083 1084 CONTES A 006 2331 2427 2413 
ARR C 001 0008 3396 0062 0047 OFO5 i569 1688 2027 2094 2150 2202 2249 2288 2321 CUNTES A OOL GODAA 6295 O281L 0283 

2346 2449 2506 2625 2684 2695 2768 2836 3036 3065 3079 3104 'CONTF3 A 004 i75C 1230 1209 1213 
AST A 003 2275 2362 2389 CONTG] A OCS 123C O717 OT13 
ASTRK A OOL 12Fl 0788 0764 CONTG2 A004 1258 6725 OTLE 
BBL A 004 1873 1344 1331 'CONTG3 A CO4 129& 7469 C744 
BE55 A 004 27B1l 2866 2865* CUNTG4 A 006 LIEC 0674 0667 
BITO C€ 00 OC080 3444 3484 CONTIL & 003 2883 2460 2947 
BITL COOL 0040 3445 3500 ICGNVRT A 004 202£ 2094 0360 1229 
BIT2 C 001 0020 3446 3494 CUNVTR A 004 2086 2134 20948 
BIT3 COOL 0010 3447 3495 3498 COUNT A002 2A4C6 3148 L674* L476% 1484% 14689* 1492 1498 1504% 1508 i513% 1516* 1531* 1533* 
BLNK A 006 CBC9 0034 O282 O789 0803 2717 ' 1538*% 15438 1546 
BRTRYL A 006 2444 2582 2810 CPCNT1 A OC% 1FEB 2067 2030 
BUFI4 A 002 27F2 2887 2688 3059 CPUDFG & 001 2A9C 3:26 0529 O874 9882* O887* 
CALCAD A 004 19€3 1469 1432 ‘CPUFG A COL 2AAA 3131 6268 O517 0628* 0666 O671* 0735* O751* C992 i010 1025 
CALL2 A OOL LAST 1527 1470 CPUIDZ & 004 2AEE 3164 G37Z 0566 
CARDl@ A 002 Z7FO 2886 2962 3027 30654 CPUPG A OOl 121D 0704 0269 0313 
CARD28 A 002 27F2 2888 3001 ICPUPGR & 004 i246 0752 0705% 
CARD2ZA C COL 3900 3417 3062 CCPH A 002 2ACO 3145 1508* 1547% 1566 1568 
CARSAV A OOL 2AB3 3138 1566* 1580 CRIFLG C OOL 0879 3420 
CDEXIT A 004 292A 2993 2987 ‘CTLREC A 004 28F9 2980 2976 
COIGR2 A OOL 2AAC 3133 0394 2029 2842* 2869* 2875 2961* 3032* 3055* 3060* CTRL A OO1 280E 3174 2704* 2720% 
CERR A OO? 3015 3299 1995 1996 CTR2 A OCOl 2B0F 3175 2705* 2715% 
CERRB A OO1 2FDD 3297 1995 'COHO27? A COS 2857 3192 1397 1424 1449 
CRSEND A 004 1F28 1988 1876 i878 COHCGS A 005 286B 3196 0568 O746 
CFGERR A CO4& 1F30 1993 1885 COH2R1 A 005 2B5C 3193 1415 
CFGPSGM A OOL 1D97 1836 0207 ICLHORL A OOS 2870 3197 0715 
CFIGFG A O0Ol 2AAE 3135 6899 1048 1837* 1988* C2HORL A 005 2840 31906 0601 1627 1721 2373 
CFRT A004 108D 1848 1049 C3K0 A 00S 2843 3188 0541 0546 1145 
CFRIRN A 004 LFOCO 1972 0900 'C3HES & 005 2852 3191 0532 0534 0809 0889 0936 1840 1841 1895 
CFRT3 A 004 IDED 1873 1977 1986 7900 C3H161 A 005 262A 3183 2289 2323. 
CHKL A 00% 24D1 2595 2578 C3H162 A 005 2B2F 3184 0578 1679 
CHNERR A 004 158D 1040 0847 0858 'C3H163 A 005 2834 3185 052€ 
CHNIOD A 008 2AF6 3165 0374 1880 C3Hi64 A005 2839 3186 0547 1118 
CKER A O02 2AC4 3147 1568 C3H1ie5 A 005 283E 3187 0552 
CKM A004 ODED 0313 0306 0310 1c3H172 A 005 2825 3182 0303 0525 
CK18 A 004 2781 2853 2845 C33H18 A 004 26874 3198 2521 
CLESS A 004 27AT 2864 2860 C4HORL A 005 2848 3189 0600 1396 1406 2302 3199 
CLIl A 004 249D 2579 2546 IDADD «=A 004 «= 2AAT) 3829 
CL_l2 A003 OD95 0289 0286* O288* 0291 DAT A 002 2BF2 3469 2904* 2905 2907 2912 2914 2916 2917 
CLW A 002 2ABC 3143 1492* 1499 DBYTEO A 001 OB60 3403 2802 2807 
ct3 A 002 2AB8 314) 1472* 1475 1529 1532 'DBYTEL A OOL OB61l 3404 2803 2806 
CMCNTL A 005 1C82 1743 1730 DBYTE2 A OCi OB62 3405 1388 1394 2809 
CMCNT2 A 006 20F8 2162 2158 DBYTE7T A O0Ol OBE? 3406 2628 2634 
CMCNT3 A 006 2108 2166 2161 ‘OCPCD1 A 004 1319 0800 0368 1215 
CMCNT4 A 0%4 1070 1810 1802 1818 DCPCD2 A 004 1383 0834 0375 1881 
CMID A OOL 2BD5 3226 0728 ©0730 0732 DCPCD3 A 003 13F5 0872 0371 1887 
CMIDLE A COS 2866 3195 0674 0683 O715* O746% 'DCPCD4 &£ 004 1410 0885 0373 1883 
LMLOGOP A 006 IF9B 2047 2052 DCPCN2 A 004 1440 0899 0876 0879 
CMPCON A 002 2805 3170 0214 OCPCNS A 005 1406 0878 0873 
CMPPGM A OOL 1C69 1717 0215 'DCPCTL A OOL COFL 0314 0958 
CMPRS1 A 004 1F59 2027 0409 0649 0952 DCPERR A 004 1599 1029 0530 

' 

LATE 29AUG75 22DEC7T5 Z0APRIT6 PRUG ID BD6-2 DATE 29AUG75 22DECT75 30APRT6 PROS 1D DD6-2 
EC NC. 827804 827836 571872 PAGE 34 jEC NG. 827804 827836 571872 PAGE 34A 
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IGM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248217, IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248217 
PAGE 35 | PAGE 354 
0062 3340 CE DISK EDITOR MOD 12 pees 3340 CE DISK EDITOR MOD 12 
CROSS-REFERENCE CROSS-REFERENCE 
% 
SYMEOL T LEN VALUE OLFN REFERENCES - SYMBOL T LEN VALUE CEFN REFERENCES 
DCPFG A OCL 2AA0 31246 0263 0263* 0367 0515 O&801 0901 0924* 0950* 1127* 1140 1212 1257 -DTAHOR A 004 2820 31682 0305 
12608 - OU A 002 265F8 3247 0216 
DCPIO A 003 2B1C 3180 0913 1115 1125 DUPERR A 004 19B5 1459 1360 1374 1383 
DCPP) =A 032) «315F 06-3318 0926 0928 -OUPROC A 006 1802 1382 1377 
DOCF A O10 2BAF 3213 0432 0469% 0496% 0553% O575* 0580* CO70* C675* 0938* 1119* 1259% 1277% - OVO2 A 006 LABF 1542 1540 1545 
1290* 1416* 1425* 1440* 1695 1723* 1766% 1783% 2374% 2402* 2405* 2429% DXl14 A 00& 2A14 3066 3073 
DOCFB A OOl 2eA6 3212 0436 0474 0503 0558 0591 0680 0943 1223 1281 1300 1420 1429 » BO A 004 2AD4% 3154 0271 O276 0737 1007 1796 
1444 ae pet a2 1788 2411 2433 3214 -O1 & OOL 2A06 3157 0330 0351 0403 0633 0648 O721 0795 1237 1736 1773 1803 
DOCFE A OOl 237E 2492 2519% 2521 5 2586 0120 A 003 2AE1 3159 0846 
DOCFR A 001 2BAB 3214 0303* 0319% 0442 0455 0526*% 0547# 0552% 0578* O601* 0669* 0674* 09344 048 A 003 2ADE 3158 0844 181} 
O937* LILS* 1415% 1424% 1627 1679% 1704 L721* 1739 1744 17768 237238 -D5471 A 00% 2A4D 3087 3085 
2416 EDIT A O0OL OaAcd 0008 
DOCFR & 010 28B9 3216 1745* 1750*% 2290% 23246 -EDITA A OOL 0899 0054 OO? 
DCCFRB A OOL 2EB0 3215 oe pe 2 eat -EDITAA A 004 GBCB 0099 0085 O197 OS71 0980 1038 1087 1204 1302 1317 1457 1465 1825 
DOCFRM A OOl 2BBS 3217 1744@ 1748 98 e 1989 2003 2822 
DOCFS & 010 28C3 3219 O810* O890* 1897 2159% 2162 2163% 2166 2206 2208% ECMST & O37 2CF& 3260 2755 2756 
DOCFSB A OO1 2EBA 3216 0814 O8S97 1902 2171 2215 32270 EDMS1B & OOL 2CD3 3259 2755 
DDOCFSM A OO1l 2EEF 3220 O800* 0809% 0824* OCBB1* OB8B6* O8E9% 1214* 1895% 1896* 2154* 2179 22048 ECMS2 A 045 2025 3262 2725 2726 
2205* 2224 2228 -EUMS2E & O01 2CF& 3261 2725 
OOCFT A 010 2ECO 3222 1146# 2166% 2206% 2209% 3468 EEL A 004 267D 2742 2800 
COCFTB A OOL 2EC4 3221 1252. 2176 2221 3223 EE2 A 0046 2699 2753 2583 2627 
DOCFIM A OOL 2eC9 3223 11465® 1149 1255 1265 1322 1780 21558 2181 2226 »ENCMPL A 0046 1021 1783 1757 
nex ’ a ae — ate oie eee. oo 2263* 22648 2267% 2268 2269% 2272 *ENDROU A OOL 36AT 3479 O427 O0427% 1245 1245* 3480 3482 3496 2699 3501 3503 
5 ? ENCRP A 003 1776 1244 1207 1323 
DODF A O01 4860 3533 0043* 0044 0044* 0103 0338 0435 0470* 0473 0493* 0494* 0502 055) END1 A OOt 232k 2423 2377 
0557 C585* O586* C590 0602* 0603* 0632 CETS O722 O770 0942 0948 END2 A O01 1104 0665 0639 
1108 1422 1169 1251 1272 1275* 128C 1293 1294* 1295* 1299 1320 END3 A 004 12A2 O75} 0708 O731 0733 
1419 1428 1433* 1436 1437*% 1438 1643 1580* 1581% 1696 1700 i718 »EOJCHK A 004% 290C 2985 2°71 2981 2989 
1726 1753 1769) «1787 «©1838 2170 2175 2214 2220 2293 2296 2268 »£0S1 & 003 2927 2992 2941 2998 
a goae 2383* 23846 2384% 2386% 2387¢ 2389 23918 2392 2392€ 7410 tKMSG A 036 2C68 3253 Z2774* 2777 2780*% 2783* 2786 2787 
5 -ERMSGB A OOlL 20644 3252 2786 
COOFL A OOL 4900 3535 0497% 0498 0498* 1293 -ERMSL A O21 SCaD 3255 2746 2745 
DDOR C COL OCC4& 3413 2556* 2573% 2605% 2647 2648 2654* 2658% 72686 2687* 26925 ExMS16 A O01 2C68 3254 2744 
000 A 002 2A06 3155 0743 rERMST A 038 2E98 3279 1327 1326 
DE A 004 OceF 0220 0217 *>ERMS7TB A OOL 272 3278 1327 
DEFTKR A 0CC4 2549 2636 2625*% ERR A 00% 29A7 3036 3026 3066 
oye ‘ ea a ae coe »~ERREB A 046 2£24 3274 1042 1043 
-€RREBB A OOl 2DF6 3273 1042 
errre. ; a arte = a 1091* 1112 1283 1314 ERRORC A 035 29£7 3048 3014 3062 
»ERROR6 A O37 31A3 3322 
oe : ae ee ae ues b EKRO A020 3175 3320 C182 
: ERR A 004 9 « % 
DEST A 002 2063 2109 2101 2117* 2127 ib A 019 BUcé acre moat tose 
OFLAG A OOL 2A9F 3223 0280* 0305* 0346 0383 0388 0405 PERRIOB A OO1 2DB6 32706 10231 
at 
Ses : Sas ene oe shut ERR1L & 004 296A 3010 2945 2968 3007 
RR1G Z } 
DGSNSB A COL OF60 0937 2680 2698 3403 3404 3405 3406 Neeeias i O61 aE os oe baie eroe 
DGSNS1 A 024 O67? 0038 2062* 2063 ERR2 A 009 31T7E 3323 0229 
DGSNS2 A O86 CES5F 0036 2735 2736 ERR3 A 009 2D57 ; 
DGS28 A OOL Ob6b09 6435 2699 2735 ERR3B A OOL Bs aoe noee oe 
DIVO2 A 006 1A48 1503 "1501 1566 ERRS A 031 2F56 3290 Os7s g 
DIVL2 A 006 1A0E 1488 1486 1491 ERR4B A OO1 2F37 3289 ee ee 
7 a : - % , 
ae : oe aot ee of ERRS A 034 2E€BA 3281 0612 0613 6584 O985 1335 1336 
SOIC asieee oer eee: Bete Bakoy- Sele ERR5B A OCL 2E98 3280 O612 0984 1335 
t -ERR6 A 014 2F04 3285 3 
ORIVE# A COOL 2346 2447 1385* 1391* 2211% 2217% 2395 2452 2456% 2531 2532 2533 2535 2536 FERREA fh 039 See aoas pose! nae 
ares 2539 2551 2571 2598 2600 2601 2602 2604 2638 2639 764? ERR6G A OOL 2EBA 3282 1001 
~EKR6C 4 O21 2EFO 3284 O9g7e 
DRTRNL A O01 250 ; - 
eae ee iaee Sie pe cee -ERRT A 022 2F37 3288 iS15* 1019 1026 
BATahs AOR” Sage oe ce on. ERRTA A O29 2F21 3287 LOLSs 
DRI COOL O0CO 3430 1343 2452 cepa ae cee een 
Bae Cobh Bota seat teak one eERRS 4 047 2086 3267 C689 0690 
ae Ocoee scopes ee EKR8B A COL 2D57 3266 0689 
es Coy. iedoe: ness ao  ERRY 4 048 2DB6 3269 1461 1462 
BoRDUB A 006° Gaze. ale eae *ERROE A COL 2086 3268 146i 
EXITA A 002 2B8F4& 3245 
DATE 29AUG75 22DEC G ; 
BO Be seo sen toren ee eg PRUG ID DD&-2 DATE 29AUGT7S 22DECT75 Z0APR 76 PROG ID DD6-2 
PAGE 35 pee NOw 827804 827836 571872 PAGE 35a 
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PAGE 36 * PAGE 364 
DD62 3340 CE DISK EDITOR MOD i2 ,0062 3340 CE OLSK EDITOR MOD 12 
CROSS-REFERENCE CROSS-REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES SYMBOL T LEN VALUE ODEFN REFERENCES 
FADD A O01 2AA3 3128 C176* 0275%* GTLO* O91E O0921% 2983 LDOEND A 004 36F8 3504 3485 3497 
FAS & 003 2269 2359 1792 2296 L01442 A 004 29£8 3054 2854 
FASINB A OO1 2267 2358 0318 0540 1159 1264 1265* 140L* 1404 1407 1790% 1792% 2302 2303 LD3741L A OOL 2860 2936 2856 
2304% 2361 LU5471 A OO1 27F6& 2898 2862 
FASINFE A OO1 2272 2360 O317 O506# O507* 1263% L791* 2298% 2301% 232 2376 2397 LENCT2 & 002 297F 3019 2963 3002 
FASENM A OOL 226F 2361 1798 12801 L806 110" 1814 1816 LENGTH A OOL 3727 3520 0427 0427 O427% 1245 1245 1245% 3480 
FASWR A 004 1020 O515 0452 0685 LINK C OOL O216 3397 0193 
FFA & 003 2Ri6 3178 0298 0519 LINKM & OOL OCSF O188 0168 0696 2504 2751 2761 
FFALOC A 005 2861 3194 OS?77T 0669 LINKH@ A 002 2398 2504 2812 
FFB A 003 2619 3179 0300 0521 Léa A 002 36FF 3507 3482% 
FIGCGN A 002 2803 3169 0206 LGAD C OO1 O22A 3412 
FIN A 004 292E 2994 2978 29939 3009 LOOPi A CO&4 O£€32 0341 0336 0344 0352 0418 0621 0903 09932 1O0LL 1026 1052 
FINCAL A 0O& ILAFO 1566 1522 LOOPELO A 0CO& 1878 i357 1386 
FLAG A OOL 1666 213% 1134 LOOP11 A GO4 2354 2208 2229 
FLAGS A OOL OC67 O17 0166 0919 LGOP12 A 004 iB? = 1630 1665 %681 
FLAG? A OO1L 17€5 1270 1273 LOOP13 A 004 261F 2705 2721 
FLAG2 A OO1 OF99 0464 0467? LOOP14 A 004 2623 2706 2716 
FLAG3 A OOl OFBB O477 0480 LGUP16 A 004 I1CClL 1747 1760) «1781 
FRORV# A OOL 2BEE 3241 1357 1382 1385 2211 LOGP17 A 006 20E2 2157 2184 
FROTRK A 001 25C6 2669 2635 toce18 A 00% 1052 1798 1808 
FSTCPU A OOL 2AAB 3132 0560 O711 O712* O745* LOOPIS A COS 149A 0932 09346 
FUNBTL A 002 2983 3021 2942 Loce2 A 004 OF2A 0338 0445 
F374 A OOL 2AA2 3127 O102* 0425* 2937 294C* 2970 2974* 2979% 2980 2982* 2990% iLO0P21 A 003 £60 1916 L912 61920 
GETL & 004 0C42 O151 C153 0178 0225 0250 LOGP22 A 003 LETF 1927 1S29 
GET2 A 004 0OD23 0257 0105 0259 1006 LaoP23 A 003 1690 1933 1937 
GET3 A006 i2CF O77TL 0760 O773 /LUGP24 A 003 IEBL 1944 1950 1966 
GETS A 004 140D O$51 0954 LOoCP25 A 004 i1£42 1906 1913 
GETS & 004 1L17F 0036 0665 0723 099% 1012 12027 -LOGP3 A 004 14CE 0947 0249 
GETT A 00& 1365 0850 0845 O86F Ltoor30 A 003 13C5 0857 086i 
GCOUT A O0O& 2771 26848 2847% LuuP& A 004 OFI19 0413 036i 0369 6408 0798 
HA C 001 O03F 3452 3512 2o0P5 & 004 LCTFE 1723 L74E 
HALT COOL O222 3401 0096 0184 O195 O231 O6818 0693 0969 OS78 0989 1004 i022 1035 100P6 A OO& 169F 148 Listh 
1050 1059 1341 1596 2001 2749 2759 2792 2820 2957 4016 3044 LGOPT A 006 OD8F 0288 0292 
HALTL A OOL 2681 2767 2559 2607 2649 2655 LooPs A 096 22EB 2399 2419 
HALTILA A 004 26BF 2772 2813 £00P9 aA G03 1364 0823 0828 
HALTIR & 004 26FF 2795 2768* 2769% 2812% LOPL2ZA A 0C& 2B9E 1631 1614? 
HALT2 A OOL 2703 2797 2566 2596 2613 LSCNT1 A 0O& 189F 1633 1640 1650 
HARSAVY A OOL 2AB4 3139 1567* 1571* 1573% 1574 1578* 1581 LSCNT2 A 004 BDA 1652 1615* 1635 
HOGE A 04E 2C03 3258 2730 2731 LSCNT3 & G04 LEEF 1658 1648 
HDGi8 & OOL 2C7TD 3256 2730 _LSPGM1 A 004 1660 1618 1611 1633 
HOROCP A 004 i46& 0921 O914 iLSPGMZ2 A 0O& 1893 1628 
HERE A 004 1806 i571 1569 LSPGLA A 004 1B7B 1621 16162 
HEREL A 004 1ElE 1578 1578 -LSPGEB A 004 I187F 1623 L617*® 
HH C 001 0033 3453 3502 3512 -LSTCON A 004 1003 1667 1653 
HLTA A 003 3700 3512 LSTCCD A 004 2ADA 3156 O307% 0390 
HLTL A 003 36Fl 3502 ,LSTPGM A O01 184F £669 G2%3 
HLW A 002 2ABE 3144 1493* 1521 ALSTRD A OO& 1035 1688 1633 
HL 3 & 002 2ABA 3142 1473% 1479 14680 1530% 1539 1542* 1544 1553 : LSTRDR A O04 1046 1692 L688* 1690 1705 
HPW A002 2AC2 3144 $5L4* L515* 1521% 3552* 1555* 1573 1575 _LSTSCN A OOL 2AAlL 31226 2394 24062 2418 
Hi € O01 0003 3451 3502 PLwRITE A 004 OF33 0424 0378 0386 0393 0395 O41 
TAR C 0OL COLO 3435 LWRE A OGO1 2A9E 3122 0424% 0444 1105* 1656* 1663 1664 
TARL Cc 001 OOCO 3418 ,t2 C OOL C000 3454 
ICTR A OOL 2BEA 3237 0842% 0849% 0866% 0930* 0933* 0945+ 0948% 1355%* 1376* 2511* 2582% 2626* FLO C COL 0168 3463 
IDLOC A 096 OA6F 3466 0483 0484 0490 O519 0523 0598 0599 Lil C COR 0196 3464 
INCCL A O06 21EL 2267 2262 eta € 00% O1B8 3465 
INCHD A OC&4 21CD Z261 2257 PL2 C O61 0028 3455 
INVCD A 004 1521 0982 0381 0641 3 C 001 0050 3456 
INVCDL A 004 1850 1325 1218 1220 i222 1225 i227 ~i4 C OOL OO78 3457 
INVHDR A 004 L4F9 0964 CSL? 09206 FLS C COL COAad 3458 
INVEO A OO 1572 1014 0401 646 O792 L6 © 003 O00C3 3459 
INVSCD A COS 1500 0973 0285 0220 A? C 00% OOFQ 3460 
IWVSEQ A C°5 1541 0996 0277 0399 0644 0739 0794 “LS COOL OLB 2461 
KBRDY & 020 3029 3301 0149 0150 2453 24574 Lg C OOL O140 3462 
KBROYB A 001 3015 3300 O1L49 MADOC &A 025 3610 3382 0247 0246 
KCTR A QOL 28EC 3239 1628% 1674% -MADCB & OO1 o5F7F 3380 C247 
LCTR A OOL 2BEB 3238 O855* 38604 1631* 1647* 1652 1670 #AXPGM A 003 2AE& 3160 1626 1720 
} és 
DATE 29AUG75 = 220EC 75 Z0APRT6 PRUG ID DD6-2 DATE 29AUG75 22DEC75 ZOAPRT6 he 1D a 
EC Nie 827804 827636 S71872 PAGE 36 NG. 827804 827836 571872 
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{BM MAINTENANCE DLAGNOSTIC PROGRAM PART Ge 4242217 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NG.e 248217 
PAGE 37: PAGE 37A 

OD62 3340 CE DISK EDITOR MOD 12 0062 3340 CE DESK EDITOR HOD i2 

CROSS-REFERENCE CROSS-REFERENCE 

SYMBOL Y LEN VALUE DEFN REFERENCES SYMBCL T LEN VALUE DEFN REFERENCES 

BCTL & 033 35F7 3379 OL74 O175 0222 0223 MVC3 A 006 21BL 2253 22528 2271 

MCTLB A COl 3500 3377 B17&@ 0222 MV. C4 A 006 21FT 2272 2271L* 

MCOTR & O01 2BED 3240 1625 1678* 1689* 1694* MVC6 A 006 2148 2252 225128 

ME A 002 2AEB 3162 0385 MYCB A 004 2024 2081 2078% 2079 

MENUL A 038 3109 3325 OL13 O114 MY CO Rh 00% 1£A3 1939 1932%* 1935* 

MENULA A&A COOL 3183 3324 0113 MVIL Ah 004 232A 2424 2421% 

MENULE A COL 3109 3326 OLL? MVE2  & 004 2335 2426 24278 : 

MENUIC A COL 3201 3328 O12i MV E3 A 003 200C 2076 20746% 2075% 2077* 2079 

MENULO A&A COl 3229 3330 O125 MV IS A 004 2518 2616 254L3% 2631 

MENULE A COL 3251 3332 0129 MY¥IE5 A 0046 2536 2632 26314 

MENULE A OCL 3279 3334 0133 NAS A OO1 2BA5 3211 0318% 0319 0454 0455* 0507 0534* 0535* O5414 1159* 1450* 1453* 1743% 

MENULG A OO1 32Al 3336 0137 1764 L78G% 1790 1841% 1843% 1972% 2155 

MENULH A&A OG1 32C9 3338 O142 NBLNK & 004 1333 0808 0804 

MENULI A COL 32FE 3346 OL45 NEG3 A 002 iF 54 2623 2054 2381 

MENULL A&A O40 3201 3327 OLL7 9218 NE G4 A 002 1F56 2024 2055 

MENUL2Z A 040 3229 3329 O121 0122 NEXT A COG 2057 2105 2119 

WENUL3 A 040 3251 3331 CL25 G126 NODS A 003 2A4&7 3085 01098 

MENULG A 040 3279 3333 0129 6130 NOTBLK A&A 004 2869 2929 2926 

MENUIS A 040 32AL 333° 0133 0134 NOTDAT A 0C& OFOD 0409 0406 

PENULG A 040 32C€9 3337 0137 0138 NOTSSW A 005 OEFB8A 0376 0366 

MENUL? A 040 32F1l 3339 0141 0142 NOTL2Z A OO1l 1832 i587 1384* 1435 1469 1588* 

MENULS A 040 3319 3341 0145 0146 NRWRT & 0CO& OFBT 0478 0468 

MENUZ A O38 333F 3343 1850 1851 NSSW A 003 1735 1217 1211 

MENUZ2B A QO1l 3319 3342 1850 NwRT A 006 1128 0598 0460 

MENUZO A OOL 332F 3344 1854 NWRIFG A OO1 2A9B 3119 0292% 0451 O957* 2153* 2164% 2183 

MENUZD A OOL 3367 3346 1858 "NXT A 003 2945 3000 2996 

MENUZE A OO1L 338F 3348 1862 NXTCHR A 003 2805 2903 2923 

MENUZF A OOl 3387 3350 1866 OLO A 003 250k 3168 0470 1275 1639 1729 1759 

MENU2ZH A OO1 33E7 3352 1870 ‘ONE A 0OL 0403 OCOLS 0288 0416 0439 0505 0564 0573 0654 0860 0866 0933 0948 1144 

MENUS A 038 3435 3355 0852 0853 1150 1160 1232 1263 1376 1478 1489 1504 1516 1533 1543 1647 

MENUGB A O01 340F 3354 0852 . 1674 1689 1735 1772 #41935 2050 2112 2117 2118 2163 2250 2254 

YENUSB A001 3435 3356 L174 7 2258 2264 2267 2517 2582 2626 2715 2720 

PENUSC A COL 3610 3383 1236 OPINCP C 001 0001 3408 2803 

MENUSD A 001 345B 3359 1178 OUTREC A COl 2395 2502 1410% 1431 1472 1473 1529 1530 2653* 

MENUSE A 001 3483 3361 1182 PACK C 001 0226 3411 0488 0725 2096 2106 

MENUSE A COL 34AB 3363 1186 PASPRM A 003 2A68 3094 3086 

MENUSG A GOL 34D3 3365 1190 PAUSE A 004 OC9B 0195 0170 

*®ENUSH A OOL 34FB 3367 1194 PFLAG A OOL 2A9A 3118 0311* 03952 0396* 0407 0410 2069 

FENUST A COL 3523 3369 1198 PGMDEL A 0O7 3069 3313 1077 

MENUS] A O14 3458 3395 1174 1175 PGNTF A 006 1820 1308 1126 1135 1274 

MENU53 A 040 3483 3360 1178 1179 PN A 002 2Az6 3161 0273 O717 0759 

MENU5SS A 040 34AB 3362 1182 1183 PNAS A O01 20C7 2147 0532* 0533* 0540* 1158* 1449% 1450 1452* 1763* 1840% 1842 1973# 2154 

MENUSS A 040 34D3 3364 1186 1187 PRGID A 003 1669 1132 LL1L* 1308 

MENU56 A 040 34FB 3366 1190 1191 PRGID1 A 003 17C8 1272 12682 

MENUS7T A 040 3523 3368 1194 1195 PRGIDZ A 003 OFSC 0465 0462 

MENUSB A 049 3548 3370 1198 1199 PRINT C 001 O21A 3398 0087 0092 ©6179 0226 O681C C687 0765 C964 0973 0982 0999 1017 

MENZ2 “A 04C 3367 3345 1854 1855 1029 1040 1054 1061 1309 1333 1455 1590 1658 1667 1820 1993 

MEN23 A040 338F 3347 1858 1859 2723 2728 2733 2742 «2753 «2784 2815 2948 2953 3010 3038 3091 

MEN26 A 040 33B7 3349 1862 1863 ; 3110 3504 

KEN25 A G48 33E7 3351 1866 1867 [-PRINTL A OOL 2A2F 3078 OlL1 O15 O19 0123 CL27 O131 0135 0139 0143 C147 O172 06189 

MENZ27 A 040 340F 3353 1870 1871 02720 0245 0850 1172 41176 2160 1184 1188 1192 1196 1234 1325 

BFCU A 004 2984 30626 2856 3034 : 1848 1852 1856 1860 £64 1868 1978 1982 

HINUSL A C02 CB9C 0056 2040 2230 PPREINT2 A OOL 2A77 3103 0616 OS8? 1046 1339 1998 

mov 1 A 006 23DB 2519 2512* 2513 2514* 2515% 2516 2517*% 2520 2546 2547 2643 PRTEF A OOL OALS 0027 i61LE* 1619 1619* 1620* 1621* 1623% 163C 1654 1655 1655* 1661 16T2* 

wOVv2 A 006 2485 2566 2520% 16808 

rOV3 A 045 2486 2572 2547* 2592 /PRTEND A 0CO4 2A73 3097 3079* 3082 3095% 

MSGBGN C 001 OO7F 3394 0427* 1245#% PRTPRM A COOL 2464 3092 3088% 3089 3090% 

MSGO2 A Ol6O 3183 3323 1308* 1312 PRT2 A 006 2A48B 3109 3106 

MSP A OLL 3034 3303 PRT3 A006 2A91 3110 3108 

MSPB A 00: 3029 3302 PRWR A 004 132C 0895 0802 O8i7 

BULT10 A G06 1A9D 1532 1534 PIIAR C 001 0020 3434 

MULTIZ A OTS LAGE 1515 2517 GCPU A 0Ol 1l09E 6550 0518 

MULT40 A 006 1960 1475 1477 ODCP A OO4 1053 0529 0516 

mVCL A 006 22BE 2387 2380% QFFA A 006 10F2 0577 0520 

MY¥CLO A O06 2305 2518 2516% CFFB A 00G 104% 0525 0522 

MYC2 A 006 2549 2659 2643% 26442 GPUDT C 0OL OAOT 3440 3486 

CATE 29AUGT5 22DECT5 ZOAPRT6 PROG IC OCb-2 DATE 29AUG 75 22UVECTS 3CAPRTO PRUG IC bD6-2 

€C NO. 827804 827836 571872 PAGE 37 EC NOw 827804 827836 5721872 PAGE 374 




































TBM MAINTENANCE CLAGNOSTIC PROGRAM PART NC. 4248217 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO 6248217 


PAGE 38 PAGE 388A 
OD62 3340 Cr DISK EDITOR #OD 12 DDG? 3340 CE DISK EDITOR MOD 22 
CROSS-REFERENCE CRGSS-REFERENCE 

SYMBOL T LEN VALUE DEFN REFERENCES SYMBGLE T LEN VALUE DEFN REFERENCES 
QT AB € 001 O22F 344} 2487 SEQMV A O04 LFF9O 2071 
QUITFG A OOL 2381 2494 SETADD A GO4 OD13 0245 0201 
RCTR A GQ2 2600 3173 G333¥% 0339% 0414 0416*% 0432 0438 SETDSK A OOL OB9SD O079 355i 
RDEAS A 004 2201 2286 0315 1400 1795 2372 SETTG A O04 O&8&75 0042 0457 0584 1292 1784 2325 
RDFASR A 004 223E 2306 2288% 2299 SETTOR A 004 O886 6945 CO42% 
ROMD A 029 3661 3386 2951 SETUP A O24 36A46 3388 2356 
ROWRT & 004 2140 2202 1398 1408 SETO & GO4 CbBA 0046T 0563 6921 1321 2873 
ROWRTR A GO4 2190 2230 22022 SETOR A O04& GE95 0650 OCG 7# 
ROi442 & 004 2A1G 3065 3056 3061 S1iof £ COL OOkB 3419 
REACAD &4 002 3161 33419 2042 2057 $101 A 003 2466 2564 2534% 2543% 25457 2568 
READIN A OG1 OABO 0031 0032 O651* 0653 06660 O727 O&818 O83) C562 1925 1969 2035 2044 SEIGlO & 003 2500 261i 2598* 25998 

2074 2092 20938 2099 z1i00 2100% 2162 21037 2104F 2YL2*® 223188 21237 Sidil 4003 2509 2608 2600 

2124 2124* 2125 2837 2850 2867 2886 2910 2925 2927 2927 3107 $162 A 003 2687 2650 2639% 26404 264% 

3109 3319 $1o3 A CO3 258& 2652 2642% 
READ A O02 2620 2092 210% - $104 A CO3 259F 2656 2O41% 
RECORG A O0& 2749 2836 0151 O257 0341 C636 O771 0854 O94F O95i 201 1873 $105 & 003 2468 2560 2532% 2546 2549 
REM A C40 3599 3373 19806 2983 $7106 & 003 25FC 2690 2688* 26894 
REMB A COL 354B 3371 13986 SIO? & 003 24AE 2584 2535% 
REME A 001 3599 337% 2984 $108 A 003 248F 2574 25&8% 2574 
REMZ A 015 355D0 3376 1984 1985 $109 & 003 2492 2576 2549% 2550% 
REPERR A QO04 1153 C610 0357 0359 SIZER A 904 1633 if8e 13a9 1325 
REPPGM A OGL 1614 1104 0205 SIZERR A OCS 1846B £598 L589% 
REPWHO A 914 3458 3358 1169 1268 3395 SxDVO2 A COB LADS 1546 L541 
REPHHL A 014 3644 3385 1119* 1236 1237 SxD02 A GCOS LASE 1508 1502 
RESNS & 004 2508 2904 2913 SKDL2 A 00& 1AZ4 1¢ 92 1487 
RNUR A 001 O03 0009 3513 3514 35168 SLAMP A 062 ZAAQ 3238 2939 
RPCNTIL & 004 1662 1130 1116 SLORVR A 0064 2371 2468 2449% 2455 
RPCANT2 A OC5 1672 LL3? 1128 SNBYT2 A 002 2981 3020 23943% 294% 2946 2966% 2967 2985% 2986 29868 «994% 2395 2997 3005 
RPCNT3 A GOS i682 1158 L142 3006 
RPCNT4 A GO4 16C? 1168 1152 SNSAP A 0046 2607 2895 2748 7758 279G 
RPCNTS A 006 1745 1263 1258 SNSAPR & O04 2679 2240 26952 
RPCNTG A 004 17FO 1292 1261 SNSDRL C QOL OC80O 3436 
RPCNTT A OCO6 I78B 9 1268 1113 SNSDOR2 C O01 0040 3437 
RPFX C 001 O21L 3443 351L7* SNSOR3 C OGE 0026 3438 
RTRN A 003 OC4E 0163 O777 O779 SNSDR& C OOL O910 3439 
RTRN1L A OC& OF7T5 0454 0523 SNS24& A 004 25E2 2084 1387 1393 2747 %dT?k 2798 
RTRN? A OO1 OD2F C2éi 9780 2984 SNS24R A 00O& 2603 2693 25 84% 
RTRNS A OOL 16CF 1LITi SPACE# A 036 2C€38 3250 1796*® 1803%* i81:* 
RTRN3A A 004 1707 = 120! 0902 1238 1344 SPFLGS © COOL CADZ 3450 3484 
RTRNG A 004% 2A95 3112 3104% SRCE & 002 2061 2108 21052 
RTRY A 004 2TFA 2900 2908 29615 2928 SSWID A O04 24FR 3166 0365 d2816 R240 
RTRYL A OOL 2461 2554 2544 2593 Ssswes CC CG1L O004 3472 3205 
RWRIN A OG} 20C8 2149 60538 6544 1162 1454 L778 1846 1974 SSwO7 C OGL OCOL 3421 3509 
RWRINR A 004 2134 2186 21508 SSW1A € GOL 0020 3427 2857 3084 
SAVETD & G04 2ACTA 3149 O0297* 0400 0462 0567 G5S8i 0582 0645 G74:* OFT62 O764 O791 C922 SSWIB C 65 00190 3428 0104 2859 

0923 1035 1092* 3150 SSWl17 CC GOL O61 4426 O916 2855 2879 3083 
SAVID A G96 DATS 6028 0296*% 0494 O586 0602 O74G*% 1137* 1295 34668 SSWw18 C€ OGL 0086 3425 2853 3084 
SAVEDB & OO1L OALDS 0026 OO27 0925* 0925% SSw2F ¢ ool OoOOk 34283 0084 OLG7 284% 2877 
$B A CC2 2AEA 3163 §sH22 C€ 001 C020 3422 2450 2454 
SEYTES C COL 0208 3448 3569 S$S¥23 € COL OO10 3423 2450 
SBYTEZ2 C OCL O20A 3402 : SSW24 C O01 GOO8 3424 2450 
SBYTE4 C OGL O020C 3449 2450 2454 $Si A 004 I1FAL 2048 2046% 2047 2056% 2051 
SCANRD A 006 2409 2596 2525 $$2 A 004 if AS 2049 POST] 
SCDFG A 001 2A9D 3221 O0293* 06485 2067 STARTX A OGL COO 0005 
SCERR A 046 2F84 3292 1056 1057 STATE A 002 OAIT4& 8025 2685% 272 2775 2778 2781 27¢¢ 
SCERRI A OGL 2F56 3291 1056 STATUX A OG2 27F4& 2889 3030% 36431 3069%* 32070 
SCNERR A 004 15CD0 1054 048i STCNT A 004 1068 1795 3676 L733 
SCNVTC A 004% 227K 2366 0463 0476 211320 1269 1286 STPFLO A COS 2198 2249 0441 0682 1148 1254 1403 i703 i736 1747 1775 1865 1813 2178 
SCANVTE A 004 2346 2435 2425 2180 2223 2225 2415 
SCNVTR A O°4 2348 2436 2366*% 2368 2370*% STPFLR A O0CO& ZiFE 2274 22497 2250% 2251 2254% 
SCTR A 001 2898 3210 0329% 0438%* 0439% 0542 StescTt A O91 213F 2200 1396% 1407 2228 
SECTH A “92 2ECF 3224 6536 0542% 1139% 1143 El60* 1451* 1762% 1844* 2151 STPZ A 0064 1209 0é&8T 0656 
SELDRV A 007 234F 2449 01900 1456 2899 STP3 & 004 2LOGB 1820 1799 isi? 
SEQCHK A 005 OEE? 0398 0389 0391 STRSCT A OOL 2138 2199 1397* 1406% 2204 
SEQCTR A G04 280d 3172 O27L* 0330% 0351% C39E& 0403% 0633 0643 Co4é* O721% C737* 0738 0793 STRTA A O2Z2lL .OEZ 3312 0094 9095 

0795% 0955 0997 1007 STRTAB A OC] 309F 3310 0994 
DATE 2°AUG7TS 22DEC 7S BCRPRTE PRAG 1D O06-2 DATE 29 AUG7T5 220ECTS5 3CAPRI6 PROG ID bUb-2 
EC Noe 827804 227536 SFLeT2 PAGE 38 EC NG. 827804" 827836 S7Li8F2 PAGE 3BA 











LBM MAINTENANCE DIAGNOSTIC PROGRAM PART NOs 4248217 16M MAINTENANCE DIAGNOSTIC PROGRAM PART NOw 4248217 
PASE a9 PAGE 394 
DD6zZ 3340 CE DISK EDI TUR MOD 12 ODD62 3340 CE DESK EDITOR MOD 12 
CROSS-REFERENCE CROSS-REFERENCE 

SYMBOL F LEN VALUE ODEFN REFERENCES SYMBOL T LEN VALUE DEFN REFERENCES 
STRTMB & OOL 3046 3306 0089 UTCNT2 A 003 LECT 3952 1945 1954 
STRTMS A OOL 309F 3309 eoss o0¢e UTCNT3 A 004 1EF4& 1968 1967 
S¥PREQ A O02 2633 3177 6083 UTCNTS A 003 LE4C 1909 1907 1914 
SWITCH C COL O20A 3415 0084 0104 O107 O916 2844 2853 2855 2857 2859 2877 2879 3083 UTCNTS A 004 LEDS 1957 1962 

3084 3105 UTCNT6 A OCO& EES 1964 1959 
SZERR A O2L 2FOD 32%6 1592 1593 VMSG A GOS 2044 3251 1822 1823 
SZERKB A OOL 2F84& 3293 1592 VMSGB A OOL ZBFB 3248 1822 
SZERRO A O22 Z2F9A 3294 1386* L392% VTIM A OOL 2BSF 32069 O328* 0491 0493 0585 0602 1138# 1294 
TODCF A OOL 238C 2496 2500 VTIMB A OO1 2863 3207 04548 0483% 0484% 0525* 0546% O577* 0581* 0582*% O598* 0599* 0600* 1139 
TODCFa A 002 2392 2500 1246* 1264% 3210 
TOOCR A&A 002 2382 2495 WVINAS A OO1 20C1 2146 
TODDF A OO1l 2383 2496 2561 2653 2659 vTOC# A 002 2480 3136 O317* 0459 0505% 6506 1719* 1735* L77Z2* LTEL 
TODDFa A 002 2394 2501 2648 2651 2654 VTOCL4# A 031 2C17 3249 1675%* 1720* 1736% L773* 
YOODR & 002 2380 2493 2647*% 2658 WOPUVT A 004 LOEB 0575 O57L 
TEMAOR A 002 1430 0596 O841* C869 6892% WINTD A 002 2607 3171 0878 
TEMPL A 002 20BB 2145 1143*® 1144% L150% 2126% 2127 2151*% 2157 2160* 2162 WINRH & 00% 239C 2506 0433 0471 ©0500 6555 0588 O6877 OB8LL 0894 0940 1120 1249 1278 
TEMP2 A 002 2ACC 3151 2397* 2399 2401* 2405 1297 1417 1426 1441 1698 1724 1751 1767 #+%1785 1899 2168 2173 
TEMPS A 002 2277 2363 0634*% 0653% 0654* 0655 C72C% 2367% 2435 2212 2218 7291 2328 2408 2430 
TEMP4 A 002 2194 2247 2095* 2132 2697% 2739 3081% 3096 WINRWR A 004 251F 20617 2506% 2508 2509% 
TEMPS A GO4 2ACA 3150 1626# 1637% 1675 wINRWT & OCG 2517 2615 2569 2580 
TEMP6 A OC2 2ACE 3152 2696* 2738 WURK  & 062 2ABb 3146 }47L* 1475* 1479* 1480* 1485 1488* 1490 1493 1499% 1500 1503" 15065 
TEMP? & 002 2AD0 3153 Y5L5 1528 1532% 1546 1547 
TEMP8 A OO2 1F52 2022 WREAS A 004 2242 2321 0508 1266 1793 
TEMF9 A COOL 1F50 2020 2035* 2065 WRFASR A 004 2263 2333 23218 
TEM A O02 25£0 2681 2686% 2692 WRITE A 006 OF44 0432 0415 
TERM A 018 3046 3305 0191 0192 WRT# A O10 2BCD 3468 1168% 1232* 1246 1319% 
TERMB A OO1L 3034 3304 0191 WRIREC A 0C4 1984 1440 1436 1582 
TEST € OOL 0212 3409 0039S 3518 WRIVFY A OGL 25£1 2682 2590 2591# 2595* 2664 2665* 2672 2€ 3% 
TEST1 A 004 1885 1373 1365 WRTVTIC A 004 OFEF 0496 C804 
TFI A 005 OCBS 0206 0203 wRTh A 0C6 1429 0889 0866 C832 0838 O870 0883 1970 
TI1O% R004 2467 2559 2538% 2675 WKT2 A OG4& LIFE 0677 0672 
TIGl1O A 004 250F 2612 2602*% 2603* WRT3 A 004 LLLE 0588 0576 
TIOLi A OC4% 2513 2613 2604* XEXIT A 004 27C1L 2871 2651 2629 2991 2993 3245 
TIGIS A 004 2583 2649 2638* 2645 XEXITR A 004 2769 2883 2836% 2872 2876 2878 2880 
TIOL8 A 004 2314 2413 2395* 2396% XEXT A 00 2A0C 3063 3033 3058 
TIQ19 A 0064 2499 2578 2571% XEXTL A 004 282E 2910 2900 2922 
T102 A 004 2598 2655 2645% XHANDL A 004 183A 1319 
T104 A 004 2471 2565 2533% 25344 XLOC A OC1 2804 3225 1322 
TIOS A 004 2481 2585 2536* 2537% XREG A 002 2BLL 3176 Cos2 
T1107 A 004 2475 2566 2539% Xk 1 C COL O00! 3399 0048 0649 0049 0103* 0333 0334 0335%* 0338# 0413 O417* 0426 0427 
T108 A 004 2495 2577 2551# 2552% O551i% 056% 6565 0566 0567 0568 0569 0570 0573 0632 0658 0660* 
TI09 =A 004 2505 2607 2589 2601* 2671 0661 O66L* G722% O770% 0797 O805 C808 C816 O819 O819* 06820 0820* 
Tk A 003 OCDO 0212 0209 082] 0823 ©0824 0824* 0826 0830* 0835 0836 0836 O840 C841 0844 
TMAOR A OC2 1347 C813 0808# 0830 0846 0864 Of65 O0865* 0869* 0880 0885 0892 0932 0946* 1078 !079 
TMADR1 A O02 1638 1401 1893* 1904 1923 1940 1968 L108* 1125 1137 L138 1158 1169* 1230 1233* 1244 1245 1320% 1634 
YODRV# A O01 2BEF 3242 1357 1358 1363% 1366* 1369* 1372* 1373 1382 1391 2217 1639 1642 1643 1644 1645 1691¥* 1696 1718% 1729 1732 i743 1756 
TOOTRK A OCG 2540 2638 2629 1759 1762 21763 1766 1838* 1894 1904* 1905 1905* 1906 1908 1909 
TOOFAR A 004 2735 2815 2622 1909* 1915 1°12 1923% 1924 1924 1927 1927* 1928 1931 1933 19334 
TRKCC C 001 0062 3407 2802 1939 19460* 194] 1941%* 1942 1944 1946 1948 1948* 1956 1957 1960 
TRYAGN & 004 2740 2837 L966% 1964% 1965 1966% 2032 2044* 2045 2053 2054%* 2059* 2095 2102* 
TSTOAT A 004 2826 2912 2906 2105 2i10 2113 2215 2215* 2116 2116 2125% 2126 212% 2130% 2132% 
TSTDCP A OOS 1454 O9]13 0274 . 2367 2366% 2379 2379 2380 2381* 242) 2427 2435* 25CF 2508* 2532 
TSTN & 002 2BF2 3244 2920% 2921 3469 2524 2541 2556 2557 2573 2588 2605 2606 2615* 265% 2662 2670 
UDSCN A 004 1E3B 1904 i921 2698 2698% 2706 2713 2713% 2736% 2846 2849% 2864 2869* 2874 3081 
UODTIO A 004 2AFE 43167 0370 3082€ 3688 3089 3090 3094 3C094* 3095 3096 3480 3482 3487# 3489 
UOTXP A 004 ILELG 1893 o875 3489% 3490 3492 3493 3498 3515% 3516 3517 3519 
UFINOL A 004 3680 3487 3496 XR2 € COL 0002 3466 CLS2 CLES Cled C165 OLEF O169 GZ0C 0202 0204 O206 0208 0210 
UFINCZ2 A 003 36C4 3489 3499 0212 G2is GC2l& O218 0258 GFt8 C265 G266 0273 O2T6 G278 O282 
UFIND3 A CO3 36D9 3495 350k 3503 G285 O25)3 0296 0297 0298 ©:C0 0305 C307 0309 0333 033% 0343 
UFIND £ 003 3663 3498 3491 6349 0354 0356 0358 6363 0365 (C370 0372 O37& O3277 0380 
UNPACK C CCl OZ1E 3410 2708 0390 0398 0400 0413 0426 0638 Coes 0643 0645 0658 0707 
UP] * 002 2€31 2710 2706* O738 O740 O741 O743 OF72 O772 OFTE OF778 OF8S OTE O793 
UP2 A "02 2633 2711 2707% 0803 OCS O6L6% 0825 Of25* O826 OS2F O0831* 0837 9840 O85T 
USECRT A O01 27F5 2890 O177 0224 0249 1330 1976 1999 2841% 2663" 32080* 30874 O859# O562% 0864 O872 O878 OBR CESS C912 C922 US23 0925 
UTAB C COL 0232 3442 0686 0953 0955 9996 1014 1086 1988 1088 1092 1109 RIG Lik 
UTCNTL A 004 LET% 1923 1918 1203 1206 3208 1210 1217 1216 %$22: £224 41226 1230 1359 
DATE 29AUGT5 22DEC75 3O0APRT6 PROG ID Db6-<2 DATE 294LUGT5 22UECTS Z0APRTG PROG ID DO6-i 


EC NO. 827804 827836 571872 PAGE 39 EC NOw 827804 827836 5718%2 PAGE 39A 


IBM MAINTENANCE DLAGNOSTIC PROGRAM PART NG. 4248217 TBM MAINTENANCE DIAGNUSTIC PROGRAM PART NOe 4248217 
PAGE . 
PAGE 40A 
DD62 3340 CE DISK EDITOR MoD 12 CD62 3340 CE DISK EDITOR MOD 12 
CROSS-REFERENCE OBJECT CARD LISTING 
symeOL T LEN VALUE DEFN REFERENCES P 
THE CHARACTER  INQICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 
1361 1364 1367 1370 1378 1378 1379 1379 1386 1392 1630* 1642 
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16M MAINTENANCE OIAGNOSTIC PROGRAM PART NO. 4248224 18M MAINTENANCE DIAGNOSTIC PROGRAM : PART NOo 4248226 
PaGE 1° PAGE 1A 
D443 $/3 3340 AND CaRD UTILITIES --~ MOO 12 eo S/3 3340 AND CARD UTILITIES --— MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | | “err LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
2* LAST CHG 203209276 . @& 69 © 4. SET SWITCH 18 TO USE THE 1442 AS CARD DEVICE} * 
3 DECK 4 | 70 * 5. SET SWITCH 1A TO USE THE MFCU AS CARD DEVICE. * 
4 SEQ O | 71 # ® 
s 0000 5 0443 START O | gS 72 CeaSuSEeRSEESERESESSESEESSSEEOESSS94ESEREESESESESESSESSERSESS SESS SOSSSS 
6 TREP 73 
0A00 7 ORG xX*OA00* 74 * 
8 © 75 # DISPLAY FUNCTION OPTION MENU 
9 sentessnsvsstensusnsessnsnenesesssesnsssesenenesenenanesnenesesssnsetes 76 * 
10 * SECTION PREFACE * 5081 77 FMENU EQU * 
i? *) €} 5081 CO 87 661A 78 8 SELORY GO GET DRIVE SELECTED 
OA0D 0443 OAOL = =:12 Dc XL2°0463° “ 5085 CO 87 021A 79 B PRINT1 GO DISPLAY MESSAGE 
0a02 00 oac2 =13 oc KL1i*00? SECTION FLAGS € 5089 02 5089 80 oc xL1*02° ss 
0A03 O01 OA03 «14 oc XL2¢O18 ROUTINE NO~ “’ 508A 23 508A 81 oc AL1 (MENU11—-MENU 1? 
0A04 0000 OA05) =_- 115 oC XL2*00* RESERVED 5088 6820 508C 82 DC AL2(MENUL}? MSG. SELECT OPTION 
OA06 506E OAO7T 16 pc ALZ(RTNOL) ADDRESS OF FIRST ROUTINE PREFIX 568D CO 87 O21A 83 B PRINTI GO DISPLAY MESSAGE 
OA08 0000 oA09g. «7 oc AL2(#-#) ADDRESS OF ERROR RECORDING TABLE €3 5091 01 5091 84 oc XL1°01° 
OACA FO0000 OAOC 18 UMFCU DC XL3*F00000° 5092 0C 5092 85 oc ALL(MENUL2—MENU1A) 
OAOD 100000 OAOF 19 U5471 OC XL3*100000* 5093 682C 5094 86 DC AL2(MENUL2)— > MSG. SELECT OPTION : 
0A10 510000 QAL2 20 01442 OC XL3*510000* €} 5095 CO 87 021A 87 8 PRINTL GO DISPLAY MESSAGE : 
0A13 400000 0A15 21 U3741 DC XL3*400000° 5099 01 5099 88 oC XL1*01° ; : 
0A16 C15000 Oai8 22 oc XL3*C15000° 509A 1D 509A 89 oc AL1(MENU1L2-MENU1B) é 
23 * *| E5098 6849 509C 90 oc AL2(MERU13) MSG. SELECT OPTION 8s 
ie 24 $RRRLELHSHESCERERSESSREREESS REESE ESSE SESS SES SEES SEITE OS SEES SLES SIS SS 509D CO 87 O2Z3A gi 8 PRINT co DISPLAY MESSAGE 7 . 
A80 25 ORG X*OA80? 50A1 01 50A1 92 DC XL1°O1* ; 
CABO 26 READIN EQU) * | €8 50a2 OD 50A2 93 oc AL 1 (MENU14~MENU1C? ; 
0Aa80 OAFF 27 DS CL128 50A3 6856 50A4 94 .» oc AL2(MENULS) MSG. SELECT OPTION ; 
= 0600 28 SAVCRO EQU * 50A5 CO 87 O21A 95 8 PRINTL GO DISPLAY MESSAGE : 
COBO OBFF 29 DS CL256 | € 50a9 01 50A9 (96 oc xXL1"°O1* s a 
30 50AA OD 50AA 97 oc ALI (MENULS-MENULD) . 
; 31 4 50A8 6363 50AC 9-98 oC AL2(MENUI5) . MSGe SELECT OPTION i oe ent 
c 32 ¢ €: 50aD CO a7 121A 99 B PRINTL GO-CISPLAY MESSAGE L 
33 * BUFFER MUST CONTAIN SPACE FOR 200 80 COLUMN CARDS (MUST BE | 50B1 01 50B1 100 oC XL1°OL® f 
S 34 % ON A 256 BYTE BOUNDARY) 50B2 23 5082 101 oc AL 1(MENU1S-NENUIE? . 
Cc. 35 * | & 5083 6886 50B4 102 DC AL2(MENU16) MSG. SELECT OPTION : : 
36 © | 5085 CO 87 O21A 103 8 PRINTL GO DISPLAY MESSAGE ae 
= 0COO 46.37 BUFFER EQU * 5089 01 5089 104 oc XL1L*O1°. i 
“eco “ATF 38 DS  200CLE0 | & 50s ie 50BA 105 DC ALL(MENUI7-MENUIF? , : i 
4480 4ABF 6.39 DS Clee 50BB 68A4 50BC 106 DC AL2(MENUI7) MSG. SELECT OPTION e 
e ACO = 40 -PRTBUF EQU 50B8D CO 87 021A 107 5 PRINTL GO DISPLAY MESSAGE b. 
£  4aco 4B3F 42 DS €1128 @  50c1 02 50C1 108 oc xXL1*02° f 
5000 42 ORG x*5000* 50C2 16- 50C2 109 oc AL1 (MENULS-MENUIG) 4 t 
z 5000 43 DGSNSB EQU * 50C3 688A 50C% 110 oC AL2(MENU18) MSG. SELECT OPTICN t 
£. 5000 sott 36s OESNSL . x26 | @ 50C5 co 87 O21a 112 6 PRINT GO DISPLAY MESSAGE 
50C9 02 5009 i112 ot XL1*°02¢ ; 
_ $018 506D 46 DGSNS2 DS XL66 50CA 20 50CA 113 oc ALL(MENULS@MENULH) é 
& “a7 , @& 50Cea sepa 50CC 114 oc ALZ2(MENULO? MSG. SELECT OPTION e 
48 ¢ 50CD 38 20 OAOE 115 TBN U5471-12X*20° 5471 PRESENT i 
C “ : ROUTINE PREFACE e 5091 F2 90 08 116 JF DSKMSG NOePRINT ALTERNATE SG f 
oS 5004 CO 87 O21A 117 B PRINT GO DISPLAY MESSAGE . 
eoee Be eure a RTNOL oc xL1*O1° ROUTINE NUMBER 5008 02 5s0p8 118 oc XL1 "02° ip 
2 XL1*00? ROUTINE FLAGS 50D9 28 5009 119 pc ALI (MENULO-MENULY? : F. 
5070 FFFF 5071 = MINUSL DC XL2°FFFE? ADDRESS OF NEXT ROUTINE €} 500A 6902 500B 120 oc AL2(MENULOD MSG. SELECT OPTION L 
50DC CO 87 021A 121 DSKMSG 8 PRINTI GO DISPLAY MESSAGE E 
5072 38 80 0233 $5 TEN UTAB+1,X*80° IF NOT RUNNING FROM DISK, SET 50E0 06 50EO 122 DC XL1"06? f. 
5076 F2 10 08 56 JT 411 SVPREQ LATCH {ALLOWS USAGE OF 12 ee] 50E1 14 50El 123 oC AL1 (DSKXX=KBRDYB) t- 
zely a 3 7100 3 18 eee tree . MBYTE DATA MODULE} 50E2 6F3B 50E3 124 pc AL2(DSKXX) WHICH DISK MSG 
: VPREQ, X°C5 125 ; E 
bi 2 & 126 S4LSHERESEEEESSESEESESSEEESSEREEESS9SOSSSSETETELSES ES SESETIES SSSR ESSE ES i 
127 * * 
€ o Semeenese etna eer et ee eee rere tes oe Ta e 128 * THIS ROUTINE INTERPRETS REPLY TO FUNCTION OPTION MENU AND *. 
: * 129 * BRANCHES TO EXECUTE ONE GF THE FOLLOWING FUNCTIONS: e. 
- : OPERATING INSTRUCTIONS * 130 * OPTIONS ARE: *: 
‘ _ ® 131 * *: 
&: 64 * AT THE FIRST HALT, SET THE FOLLOWING SWITCHES: +! @ 132 * 1 -<= KEYPUNCH - PROVIDES 1442 OR MFCU AS KEYPUNCH VIA *: 
65 « * 133% PRINTER/KEYBOARD. s: 
- 66 & le SET NO SWITCHES TO RUN ON ORIVE 2 * 134 * 2 ——- OUP - DUPLICATE 80 COLUMN CARD DECKS. ® 
C 67 * 2 SET SWITCH 22 TO RUN ON DRIVE 2 «| @ 135 * 3 ——- VTOCDUMP -— PROVIDE LISTING GF VTCC INCLUDING DISK e. 
68 « 30 SET SWITCH 17 TO USE THE 3741 AS THE QUTPUT DEVICE. | 136 * ADDRESS & PROGRAM LINKAGE INFORMATION 2 
“ ; | @ : : 
DATE 29AUG75 OFNOVTS 22DEC75 LOMART6 PROG 10 044-3| DATE 29AUGT5 O7NOV7S 22DEC75 LOMARTE PRO 64-3: * 
EC NO. 827804 827805 827836 827872 PAGE 1 ! e. NO. 827804 8278065 827836 827872 PAGE A 
¢ 
- is : t 
o oe SS a a ree ree ee ae He ae a A cg rie at a flat ee Rael Meee alee a dos Ree 
‘s oe 
c i 
a \@ 
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PART NO. 4248224 
PAGE 2: €© 
-—— MOD 12 0443 
i. i © 
SOURCE STATEMENT 
137 * CONTAINED IN EACH VTOC ENTRY. + ¢& 
138 * 4 <-- DUMP - DISK DUMP PROVIDING PRINTOUT OF CONTENTS *) 
139 * OF SPECIFIC DISK LOCATION. + 
140 * 5 ~-~ PUNCH - PUNCH A SPECIFIC PROGRAM FROM DISK ONTO « @ 
141 * 80 OR 96 CGLUMN CARDS OR WRITE TO DISKETTE. 5165 
142 6 ——~ PATCH -  ULISK PATCH CAPABILITY +; $169 
sea ¢ 9 = —- TERMINATES SECTION * €% $160 
1 * +. 5S16E 
145 PERSHERECTEEESEERESEE SERERESEERSAESERSSESESELEE SEL SEEKS SE EE LERSEEERE SS 516F 
146 REDO TBN U54671-1,x'20° 5471 OM THE SYSTEM C3 $172 
147 JT = -GET2 5471 WILL BE USED AS INPUT (M6175 
148 B PRINT PRINT MSG FOR USING CPU Ste 5176 
149 oc XL1"06° SPACE '€© sir 
150 DC IL1*70° MSG LENGTH 5179 
151 DC —«-_- AL2 (MENUTO} MSG 3 j 
152 8 HALT ELSE USE THE CPU DATA SWITCHES € site 
153 oc XL2°D4E1° ISSUE HALT FOR INPUT FROM SWETCHES 
154 SNS  WORK,X*00* READ THE DATA SWITCHES 5183 
155 MVC —- READIN(1) pWORK MOVE IN THE OPTION SELECTED | €3 5188 
156 MZZ READIN, FO CONVERT TO CHARACTER 5188 
157 J RD2 CHECK OPTION SELECTED 518F 
158 FO vc XLL*FO® ; € 5290 
159 ZER equ = X00 : 8194 
1606 * 5199 
161 GETL 8 RECORD READ A RECORD 1 €3  s19c 
162 RD2—sB TEST GO SEE IF ANY SSW°S HAVE BEEN SET ° ~~ = S1A0 
163 CLI READINSC*S9® TERMENATE FUNCTION 51A4 
164 BE END | €} s2a9 
165 CLE READIN,C*LE *KEYPUNCH® ENTERED? S1AE 
166 BE PUNCH 5182 
167 CLI READIN,C*2* *DUPS ERTERED? | Gy 5183 
168 BE DUP 51B5 
169 CLI READIN, C*3® €¥TOCDURP® ENTERED? 5187 
170 BE vTocop : €} 518C 
17 CLE READINSC*4* *OUMP ® ENTERED? 5200 
172 BE  DOUMP | S1Ci 
173 CLI READIN,C*S® SPUNCH * ENTERED? | @& 51¢3 
174 BE  DPUNCH 515 
175 CLI READIN,C*6* *PATCH © ENTERED? 4 SCA 
176 BE DPATCH | @ = sice 
177 * S1CF 
178 * If OPTION NOT PROPERLY ENTERED, DISPLAY | $102 
179 = MESSAGE WHICH INDICATES ERROR MADE ON FUNCTION | € 5103 
180 * GPTION MENU. 5109 
181 51LDE 
182 8 PRINTL GO DISPLAY MESSAGE | @& s1e2 
183 pC xXLi*cee 518 
184 oc 1L1°38° | S1£C 
185 BC = «AL 2 ERRI MSGe ERROR ON MENU @ 5161 
186 pC =—s_—« XL2*D4B7* 516 
187 8 HALT DISPLAY HALT S1FA 
188 pc 8 xL2*D4B7° *g7¢ | @ 51668 
189 8 REDO | SLED 
190 END EQU) * TERMINATE SECTION. SiFE 
191 8 LINK LOAD DCP FOR | €} 5204 
$209 
| $200 
|@_ 520e 
| 520F 
| © $211 
| e $215 
5219 
| @ 521F 
| $222 
22DEC 75 LOMARTO PROG ID 044-3 | Oo are 
827836 827872 PaGE 2 l e NO. 
¥ | 
f 
'@ 


ao. Sie oe ie Pose 1, ae eee ae . s - 


Sp EB kW RL I ASIN sealant iy Site teeta bs OR a dba Saeed A ee aes * 


3C O1 
co 87 


47 
S2AL 
co 8f 


S2SA 
52€1 
ic 14 
1c iF 
co 87 
o1 

5B 
5310 
co 87 


34 08 
OF O00 
€2 81 
36 Ol 


702C 
O21A 


O23A 


646E 
5215 
5253 
O21A 


5061 
5256 
o& 

020 
Si7F 
52C5 
5257 
O21 


5258 
O21E 


$255 
O21E 


52D8 


“ERR LOC OBJECT CODE 


62F0 


02 


06 


06 


OB 


oc 


OE 


5250 


15 524A 


S1EC 
5208 
5109 
s20C€ 
S254 
O21E 


S2FB 
5310 
O21A 


SiTF 


$229 
702C 
o8 

5240 


29AUG75 
827804 


5250 


08 
17 


oF 
BF 


TO15 


$/3 3340 AND CARD UTILITIES 
ADDR STMT 


5165 


5160 
516E 
5170 


5175 
5176 
5178 


518 


$162 
5184 
5186 


51€0 
51C€2 
§1C4 


51CE 
5100 
5102 


SIFA 
51FC 
SLFE 


$200 
520E 
§210 


OTNOVTS 
827805 


_18M MAINTENANCE DIAGNOSTIC PROGRAM 


w-~ MOD 12 


SOURCE STATEMENT 

193 RREKEKKSESSEAESSESKEECKKSESSSSSSHSAS SSS 
194 * VTOC DUMP SUBROUTINE 
195 SEEKERESCHESEREKERESRESSSSRESSSSEE SS 
196 VTOCDP EQU = * 

197 MVE  COUNTR»1 

198 8 PRINT 

199 DC XL1¢O1* 

200 oc ILL*71° 

201 DC AL2(HEADII 

202 8 PRINT 

203 DC XLL*O1° 

204 oc 1L1°33* 

205 DC AL2(HEAD2) 

206 MVC ODCFM(5),VTOCAD 
207 

208 RDVTG 8 VREAD 

209 

210 CLC CACT C39 e 20 e XR) 
211 JE AC TOK 

212 8 PRINT 

213 oc XL1*16° 

214 B- FMENU 

215 ACTOK CLC COLD(3),6(,XR1) 
216 JNE  NOCHK 

217 TBN SBYTE4,SSW20 

218 _ BF RDVTO 

219 NOCHK MVC PIO(3996XR1) 
220 MVC CYLAC LD LLG eXRL) 
221 6 UNPACK 

222 oc ILL*1° 

223 oc AL2(CYLa} 

224 oc AL2(KCYLA) 

225 HVC «—- SECA (1D e134 —XR1? 
226 8 UNPACK 

227 DC ILLea? 

228 pc 20s AL 20SEC) 

229 oC AL2¢HSECAa} 

230 MVC = RECAC 199 140 -XR2) 
231 8 UNPACK 

232 oc ILL°2° 

233 DC =—_: AL2 (REC) 

234 pc AL2(HRECA) 

235 MVC © OSEC #3) -DEC1 
236 LOOPL SLC 21(2eXR1LD,HEXI 
237 BZ NUMOK 

238 AZ OSEC#(3)eDECLOL? 
239 8 LOOP 

240 NUMOK MVC PPLVL(2)580eXR1) 
241 MVC «- STFLGO.19923¢5XR2) 
242 B UNPACK 

243 pc ILLe2e 

244 OC AL2(STFLG) 

245 DC AL2(HSTFLG? 

246 MVC - PPNEC (212.1590 XR1) 
247 MVC = PDESC(.329 2 1910 »XR1) 
248 8: PRINT 

249 DC = XL O1* 

250 oc IL1°91° 

251 OC AL2(PDESC) 

252 8 ROVTO 

253 * 

254 ¢ SUBROUTINE TO READ A RECORD 
255 * TRACK AT A TIME AND ADJUSTS 
256 * 

257. VREAD ST VREADR*3,ARR 
258 SLC COUNTR(1),ONE 
259 JZ VREADRt4 

260 a X256eKR1 
22DEC7T5  19MARTE 
827836 827872 


PART €O. 
PAGE 


INITIALIZE SUBROUTINE COUNTER 
PRINT 1ST LINE OF HEADING 
SPACE ONE : 

LENGTH 

ADOR OF LAST PRINT CHAR 

PRINT 1ST LINE OF HEADING 
SPACE ONE 

LENGTH 

ADOR OF LAST PRINT CHAR 

SET DISK FIELD TO ¥VTOC ADDRESS 


READ A RECORD I vTOC 


CHECK FOR "ACT® IN COL. 0-2 
BRANCH BACK TO BAIN MEM It NOT 
SPACE 

SIX 


CHECK FOR °OLD* IN COL. 5-7 
SKIP SSW CHECK IF NOT 

TEST SSw 20 

IF ON, PRINT *OLDSS 

MOVE PROG ID @ INTO PRINT LINE 
MOVE CYL ADDR FROM REG TO ADOR 
UNPACK CYL ADOR 


_ MOVE ONE CHARACTER 


FROM REGISTER 

TO PRINT LINE 

MOVE HEAD ADDR FROK FO ADDR 
UNPACK HEAD ADDR (HEX? 


MOVE RECORD ADDR FROM TO ADDR 
UNPACK RECORD ADDR (HEX) 


CHANGE @ OF RECORDS (HEX! 
TO PRINTABLE DECIMAL 

AND SET INTO 

PRINT LINE 


MOVE PROG LEVEL INTO PRENT LINE 
MOVE SYS. TEST FLAG 
UNPACK SYS. TEST FLAG (HEX? 


MOVE PN & EC @ INTO PRINT LINE 
MOVE PROG DESC INTO PRINT LINE 
PRINT LINE OF DATA 


SPACE ONE 


LENGTH 
ADDR OF LAST PRINT CHAR 
OO NEXT LINE 


XRL? 


4248224 


2A 


IN FROM VTOC (ACTUALLY READS IN A 


SAVE RETURN ADDRESS 
SUBTRACT COUNTER. 

READ IN 48 MORE RECORDS 
ENCREMENT FIELD POINTER 


PROG ID 
_PAGE 


If ZERO, THEN 


et tow 


wa MED EEE SEAT ORR TOTOR SE 


eet re yep ee 


044-3 
2a 


ewe 





CO ———— 


BE te RES S Sine ONE pee OF eas wae eet tae, ete | 








& | 
IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NG. 4248224 IBM MAINTENANCE DIAGNOSTIC PROGRAM : PART NO- 4248224 
PAGE 3 €> PAGE oA 
D443. $/3 3340 AND CARD UTILITIES -—- MOD 12 ; o 0443 S/3 3340 AND CARD UTILITIES --- MOD 12 
ERR LOC OBJECT CODE ADDR STMT SQURCE STATEMENT ' “ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
5226 CO 87 C006 261 VREAOR B *-% RETURN TO CALLER i@ 310 $08990409004204049909090660088002008 
522a 3C 30 702C 262 MVI COUNTR,48 INITIALIZE FIELDS TO READ IN 48 MORE. 311 * DISK DUMP SUBROUTINE s 
S22E 3C 2F 6472 263 MVI DDCF 947 RECORDS ! 312 S*299844680062408488609688SRS9429RhE 
5232 C2 01 OC00 264 LA s- BUFFER, XR} | ge 531E 313 ODUMP EQU) *# 
5236 CO B87 6475 265 8 WINRW READ 48 RECORDS | 314 * 
523A 80 523A 266 oc XLi"60° READ FLAG : : 315 * DISPLAY DISK OUNP MENU 
523B 0C0O 523C 267 oc AL2(8UFFER) ey 316 @ 
523D 6469 523& 268 oc AL2(DDCFB) © 531£ CO 87 021A 317 8 PRINT GO DISPLAY MESSAGE. 
523F CO 87 6284 269 B STPFLD INCREMENT DISK CONTROL FIELD ' $322 02 5322 318 oc XL1*02° 
5243 646E 5244 270 oc AL2(DOCFM) POINTER POINTING TO RECORD BYTE | €3 $323 oF 5323 319 oc AL1 (MENUZA-MENU21) 6B oa" 
5245 CO 87 5226 271 8 VREADR RETURN TO CALLER 5324 6962 5325 320 oc AL2{(MENUZA} MSG. SELECT DUMP ADDR. Kea vi 
272 5326 CO 87 021A 321 8 PRINTL GO OYSPLAY MESSAGE. . a 
S508 Seb loo seio dre ose BE Ie Seabe ie (© Bae ssn 325k Mtn | ie 
4 5328 23 532B 323 oc AL1(MENU20-MENU2) . > me A fa 
524E FOFOF1 5250 275 DECAL oC CL3*0018 DECIMAL *ONE® 532C 6985 532D 324 oC AL2(MENU20) MSG. SELECT DUMP ADDR. Tee ae 
5251 C1C3E3 5253 276 CACT DC CL3*ACT | €&  5§32€ CO 87 021A 325 8 PRINTL GO DISPLAY MESSAGE. - : 
S557 0 Seer Sin ents be ttvobe” dns ee s553 Ser SEAL ptwuoncnemuze ., Lee 
5258 00 5258 279 SEC@ OC XL1*008 -% $334 6AB6 5335 328 Dc AL2 (MENU2B} MSG. SELECT OUMP ADDR. ae oe ee 
oeee a cad eee gece. oe eee. | §336 CO 87 022A 329 B PRINTL GO DISPLAY MESSAGE. : A See oP 28 
+ L XL1*00 533A 01 533A 330 oc = XLS 01° ; ne nae - 
e 282 * | @ $338 12 5338 331 OC = AL (MENU2C-MENUZ3) r bh ia geet 
283 * VTOC LISTING HEADING 533C 6ACT7 5330 332 DC AL2(MENUZC) MSG. SELECT DUMP ADDR. : ot i 
284 * | gw, 2336 CO 87 021A 333 8 PRINTL GO DISPLAY MESSAGE. eo. peo 
eee Dic tes ps00 TE 10s 52861 285 DC CL29°PGM PGM LOCATION REC PGM SYSTEM PRE , €) 5342 06 $342 334 DC XL1*06* : as ee 
5263 40D3D6C3C1LESC9D6 285 | 5343 18 5343 335 DC ALI ( MENU2D-MENU2S) i oe 
526B 054040D9C5C34040 285 5344 6ADF 5345 336 "OC AL2(MENUZD) MSG. SELECT DUMP ADDR. . ‘ Sie! eee 
5273 DIC7044040E 2E8E2 28s £3 5346 38 20 OAdE 337 TBN = U5471~-1-X"208 5471 PRESENT : a a 
5278 E3C5044040D705 285 | 534A F2 10 21 338 JT READL YES, SYPASS USING SWITCHES : - a 
oe poeterceeueeeas 52a 2 HEADL DC CL32° AND EC NUMBER DESCRIPTION? 5340 CO 87 022A 339 B PRINT _ PRINT MSG FOR USING Sw as er 
6 zs «©6351 06 5351 340. oc XL1°062 SPACE a Re” dey iets oa 2. 
5292 4040404040C4C5E2 286 c 5352 46 5352 341 oC IL1°70° MSG LENGTH : Ma es ee te 
Seu2 eacesoonacsesns seco Ze weaD2 oC cL33H10 cH Wo REC © 3355 co's on eta b1srL ates a 
€ # LEV FLAG | €3 5355 CO 87 0222 343 6 HALT DISPLAY HALT FOR INPUT : co 8 
= D2AA 4040C8C44040D905 287 " 5359 D4El 535A 344 DC XL2"DSE1* THROUGH CPU SWITCHES a ear 
5282 C€340404078404040 287 5358 30 00 710F 345 SNS WORK, X*00* PICK UP OPTION FROM Sw*S re oer 
52BA D3C5E54040C6D30C1 287 €3 =535F 0C 00 Oas0 71CF 346 MVC =—s- READIN.) . WORK MOVE IN OPTION ss : 
52C2 C7 . . 5365 08 00 OA8O 510C 347 MZZ READIN FO CONVERT TO CHARACTER e 
me 536B F2 87 04 348 Jj RD1 BYPASS READ FROM 5471 i 
fa ae : VTOC PRINT LINE €)  536E Co 87 6210 349 READI 8B RECORD READ RECORD . 
5372 3D F1 OA80 350 RDL CLI. READIN,C*1? DUMP OPTION SELECTED s 
2203 BOs080 52C5 291 PID oc CL3* ° | 5376 F2 01 9A 351 JNE  CHNXT NO,CONTINUE CHECKING é 
52C6 4040 52C7? 292 oc cL2¢ « 5379 CO 87 021A 352 8 PRINTL PRINT INSTRUCTION FOR DISK DUMP i 
5268 4040 52C9 293 HCYLS 0c ci2* » | 537D 01 537D 353 Dc XL1°O18 SPACE 1 ; : 
»~ Sac 404040 S2CC 294 bc cL3* * 537E 28 S37E 354 oC ALL (MENUZE-MENU25) LENGTH L. 2 
5zcp 4040 S2CE 295 HSECS OC ci2z* * €> «-537F 6007 5380 355 - OC AL2(MENU2E) @ OF MESSAGE i 
ace a0 5200 296 pc ci2* » 5381 CO 87 021A 356 8 PRINTI PRINT INSTRUCTION FOR DISK DUMP ; 
# eos mee S2D2 297 HRECa OC ci2¢ * 5385 Ol 5385 357 DC xLi*o1* SPACE i z 
&: 2202 Tee 5205 298 oc CLs @ 5386 28 5386 358 DC = AL (MENU2F-MENU26)) = LENGTH : 
eens 20-0e0 5208 299 DSEC# OC cu3s : 5387 682F 5388 359 oc AL2(MENU2F) @ OF MESSAGE : 
a. eee 5208 300 Dc CL3 5389 CO 87 O21A 360 B PRINT. PRINT INSTRUCTION FOR OISK DUMP : 
( orcs $0. 52DC 301 PPLYL oC cLie « @ 5380 01 5380 361 oc XL1¢°O1° SPACE 1 } 
2208 sos0n0 52DF 302 oc CL3e « 538E 28 538E 362 DC AL1(MENU2G-MENU27) LENGTH 
Bee ere eae 52EL 303 HSTFLG OC cizs . 538F 6857 5390 363 OC AL2(MENU2G) @ OF MESSAGE 
52E6 304 DC CLS 2 5391 CO 87 O21a 364 & PRINTI PRINT INSTRUCTION FOR DISK CunP : 
§39 3 s 8 * 
a pe reronegesonose 52FB ace PPNEC DC ct2ie © 2338 ° 5395 365 oc XL1°O3 SPACE 1 
6 28 5396 366 oC AL1L(MENU2H-MENU28) LENGTH 
Bree PO aiiaaat sho: aoe fin Sea € 5397 687 5398 367 DC = AL2( HENUZH). @ OF MESSAGE 
S2FE 4060404040404040 Sa1D 30° PoEsc - t aes 5399 38 20 OAOE 368 TEN U5471-1,X*208 5471 PRESENT ON SYSTEM 
5306 4040804040496000 oe s c CL32 539D F2 10 64 369 JT READ2 PICK UP DISK DATA ° 
AO £046 307 € 5340 Co 87 021A 370 8 PRINT PRINT INFO ON HOW TO USE Sues ; 
Said RORGhGLbeoAeance 307 53A4 O1 53A4 371 Oc XL1*O1° SPACE : 
gee ar ; 5345 24 5345 372 oC ALL (MENUTA-MENU71 ? LENGTH : 
= , LINE EQU * €3 5346 60Fc 53AT 373 DC AL2(MENUTA} @ OF DATA : 
53A8 CO 87 O21A 374. B PRINT} PRINT INFO ON HOW TO USE Swts : 
= 53AC 01 53aC 375 DC XL1*0Q1° SPACE : 
© @ 53a0 18 53AD 376 OC AL 1(MENUTB-MENU72 9 LENGTH : 
53AE 6E17 53AF 377 OC AL2(MENU7B) @ OF DATA 
; | e | 
DATE 29AUG75 OT7NOV7S 220EC75 1OMART6 PROG ID 044-3 DATE 9A . : 
EC NO. 827804 = 827805 827836 827872 PAGE EC NO. a27a04 azTeos a278s6° az7st2. pace oa 








. PAGE 


Barco 


IBM MAI 


D443 
ERR LOC 


5380 
5354 
$385 
5386 
3368 
$38 
S3BE 
S302 
53C8 
33CC 
53CD 
53CE& 
5300 
$304 
3306 
53DA 
S3EG6 
53E4 
S3E5 
5S3E6 
$3£6 
S3EC 
S3EE 
S3F2 
S3F6 
S3BEC 
53FD 
S3FF 
5404 
5404 
$408 
$409 
5408 
540C 
5410 
5413 
5417 
$418 
5422 
5425 
5428 
542C 
5420 
542E 
5430 
5432 
5436 
5438 
543C 
5440 
S441 
5443 
5445 
5448 
S44E 
5452 
5456 
545C 
$460 
5463 
S467 
S46A 
546E 
5472 
5477 
S47A 
S47E 
548% 


DATE 
EC AG. 


NTENANCE DIAGNOSTIC PROGRAK 


$73 3340 AND CARD UTILITIES -<—- mop 12 


GBJECT CODE AOOR STHT SOURCE STATEMENT 

CO 87 O21A 378 B PRINTL 

06 5384 379 OC = KL 068 

20 5385 380 oc ALLE MENUTC~MERUTS F 
6E44 5387 381 DC 8 AL ZU MERUTC} 

Co 8? 9222 382 B HALT 

DGE 3 538D 383 DC KL2*DeERS 

30 06 TLOF 38% SNS WORK, X* 50" 

OC OL 7237 FLDF 385 MVC —- SAREA~ 3427» RORK 
CO 87 O21A 3RE 8 PRINTE 

06 53CC 387 DC XLL' 96% 

26 53CD 388 DC ALL CMENUTO~McnETSs 
6E71 53CF 389 DE = -_« AL2 ¢MENUTD} 

CO 87 0222 390 B HALT 

D4ES 5305 391 DC =—«-_- XL2*DAESE 

30 00 71DF 392 SNS WORK, X* 008 

OC 00 7238 TIDE 393 MVC - SAREA-2 (1) o HORK~} 
CO 87 021A 394 8 PRINTL 

06 S3E% 395 DC = XL #06 

36 53E5 396 DO ALL MENUTE~MENUT75) 
6E Ai S3EF 397 CC 8 AL 2¢MENUTE} 

CO 8? 0222 396 B HALT 

D4ES S3ED 399 DC XL 2°D4ES* 

30 00 710F 400 SNS BORK» X* 008 

OC Of 7238 71DF 401 MVC -SAREA(2} p WORK 

CO 87 O21E 402 g UNPATK 

05 53FC 403 DC 8 ML A056 

7238 S3FE 404 OC LZ (SAREAI 

OA8S 5400 605 DC = AL2 EREADE NC 9} 

F2 87 44 G6 é FSTOP 

CO 87 O21 4057 READZ 8 PRINT 

06 5408 408 DC XL #06 

29 5409 409 OC ss ALL CMENUZI=-MENUZ9) 
68a8 56408 $10 DC ALZEMENUZI} 

CO 87 6210 411 6 RECORD 

F2 87 35 412 d FSTDP 

3D F9 OAgO 413 CHNXT CLE READIN,C'9® 

CO 81 So6l 414 BE FMERU 

OC 01 620F TIF 415 MVC =—- STRET+3,,ADUMP{2)} 
30 F3 OASO 416 CLE READIN, C*3* 

F2 81 146 417 $6 CONT 

CO 87 021A 418 8 PRINTL 

C2 5420 419 DC XL APE 

26 542D 420 BDC saELA*3a8 

692D 542F 421 PC = AL2{ ERR} 

4437 5432 422 pC = KL2°44BT* 

Co 87 0222 423 B HALT 

4437 5437 424 DC = =—s_- XL 2° 448 7% 

CO 87 S31E 425 8 DDUKP 

CO 87 O2iE 426 CONT 8 LINPACK 

03 5440 427 DC ELLeBE 

7205 5442 428 OC = AL 2¢PSBYTE! 

T7lFD 544% 429 DC = AL2ESBYTES 

F2 87 06 430 J #49 

OC 05 71FD 0485 431 FSTOP MVC SBYTE(6) READINGS 
CO 87 6252 432 8 CKSEC 

Ce 87 5500 433 8 LOADD 

OC 02 5550 5250 434 MVC | - SECCNT, DECI 

3D DS 0a87 435 CLI - READING T Cone 

F2 81 20 436 JE THRY 

3D GO 0a87 437 CLE = READING?7»C? © 

F2 81 26 438 JE THRY 

3D 40 OAG9 439 CLI READINGS ,C® § 

F2 81 09 440 J& -NOT3 

OC 02 SSSA OAsS 441 MVC = SECCNT (3? READINGS 
F2 87 1s 442 J THRU 

3D 40 0a8e 443 NOT3 CLI READINGR,C® ¢ 

F2 81 09 444 JE St 

OC 01 5554 OABE 445 MVC =—- SECCNT (2) »READINGS 
29AUGTS OINOVTS5 22DEC7S  i19MARTS 

827804 827805 827836 827872 


PART NO 
PAGE 4 


4248224 


PRINT INFOQ GOR HOW TG USE SHAS 
SPACE 

LENGTH 

4 OF DATA 

WARY FOR INPUT 


SET CYL AND HEAR £°S FROM DATA SWS 
MOVE 28 CATA TO BE URPACKED 

PRINT IRFOG GN HOr TO USE Swes 

SPACE 

LENG Te 

@ GF DATA 


GEY NUMBER OF RECORDS HANTED 
MOVE EN RECGRD & 


PRINT INFO ON HOW TO USE Swrts 
SPACE 

LERGTH 

2 OF DATA 


GET THE @ GF RECORDS REEDED 
SAVE THE # OF RECORDS WANTED 
NOK UNP&CK THE DATA SO 

THAT THE PROGRAM CAN USE IT 
@ OF THE PACKED DATA 

@ GF THE UNPACKED DaTa 
PICKUP UP OATa ENTERED 

PRINT INSTRUCTION FOR DISK DUNE 
SPSLE i 

LENS TS 

@ GE KESSAGE 

GO READ IN DATA 

JUMP TO PICK UP O4TA 

GPTIGN % SELECTES 

If SO, RETURN TO OPTION MENL 









SCONT*S ENTERED? 

GO CONTINUE 

PRINT ERROR -- INVALID OPTION 
SPACE 2 

LENGTH 

S OF ERROR MESSAGE 


ENDICATE ERROR BF 


UNPACK CURRENT DISK ADDRESS 


CHECK FOR VALID RECORD NUMBER 
SEARCH TO OISK 
EXIT. RECORD COUNTER 

DEFAULT YO ONE RECORD. 


CHECK NUMBER 

OF DIGITS ENTERED 
IN NNN? FIELD 

ANO SET UP COUNTER. 


PROG ID 
PAGE 4 


| 
| 
| 
| 


{ 
\ 
{ 
i 
i 


iC 
c 








IBM MAINTENANCE DIAGNOSTIC PROGRAM 





|G 
0443 $/3 3340 AND CARD UTILITIES -——— MGD 12 
“ERR LOC OBJECT CODE ADDR STMY SOURCE STATEMENT 
™ 5487 F2 87 06 446 J THRU 
/ «$484 OC 00 5554 GAB? 447 1S) MVC 8=—- SECC NT £1} eREADENGT 
5490 3C 00 5563 448 THRU MVI  ADRCNT,X*008 
f. 5494 00 02 555A 7107 449 CLC = SECCNT( 33 eCHARO 
“+5494 F2 Of 06 450 JNE THRUL 
5490 OC 02 555A 5250 451 MVC =: SECC NT, DEC) 
€~ 5443 OC 01 5488 555¢ 452 THRUL MYC PK1,.8UFS 
: “  $4A9 CG 8? O2LE 453 PAGN 8 UNPACK 
; S4AD O1 54a 454 oc ELESG 
| €3 Séak $563 S4AF 455 DE = AL2CADRCNT) 
| "$480 5566 5481 456 DC AL2(PRTLNGLD 
. 8482 €O BT OZLE 457 8 UNPACK 
FS S4B6 04 5486 458 DC TLit4e 
~ §4B7 8600 54BG 459 PKL BC AL2(#-¢} 
_ - $4BS $570 54BA 460 Be ALZ{PRILNGELD 
€ S$4BB GE OL 5488 5542 463 ALC —- PK Lp HEXG 
S4C1 OC GL 54D 5458 462 MVC -PK2¢ PKL 
. S34€7 CO 87 O2LE 463 8 UNPACK 
E> SAC B O% 540B 464 OC ELLE4s 
~ 8400 9606 54€5 465 PK2 BC BL 2 (Kat F 
S4CE 5579 54CE 466 oc ALZ(PRTLNG2ZO} 
€" 540 O£ C1 $4Be 3562 467 ALC = PKL HENS 
54Dé OC 01 54E2 5488 468 MVC =—- PK, PKL 
S4DC CO 87 O2LE 469 & UNPACK 
E> S4€0 04 S4E0 470 oC ILL &4e 
54E1 C000 S4E2 471 PKS | OC AL2(t-#} 
_ 54&E3 $582 54E4& 472 - OC AL2{(PRTLNG29} 
€) 5465 OF G1 S488 S562 473 ALC = PK Le HEXS 
54EB OC 01 S4F7 54B8 474 MVC —- PKS _PKE 
_ S4FL CO 87 O2LE 435 8 UNPATK 
€3  54F5 4 54E5 476 DC ELLSH® 
7 S4FE G00 S4F7 477 PKS oc ALZ(H—@) 
_  84F8 $585 54ES 478 DC AL2(PRTLNS38)} 
€3 ‘S4FA GC OL $809 Gene 479 MVC 8 P¥45_PK1C2} 
~  §500 30 5C 55BF 480 MVE - ORTLAH42, C8 et 
. 9504 GC OF 559F oOG0 481 PK MYC = PRTLN458,%~0116) 
€2 350A 30 5C §5a0 482 MYT PRTLNS59,C et 
550E GE 0! 5468 5542 483 ALC = PR Re HEX4 
S514 €O BT OZIA 484 B PRENT 
Be «551e Gi S518 485 pt XLLCOL® 
5519 3c. S519 486 DC fL1*60? 
SSA 55A0 5518 487 DC  AL2(PRTLNC5S) 
€> 551C OF 00 5563 556% 488 ALC = ADRCNT » HEX10¢1) 
$522 CO 01 54a9 £89 BNZ = PAG 
5526 CO 87 O214 490 8 PRINT 
552A Li 552& 491 DC KLICLiS . 
$528 G7? 02 555a 5256 492 $2 SECCNT, DECL 
5531 F2 OL 09 493 JNZ GOLOD 
5534 CO 87 0234 494 8 PRINT 
5538 16 5538 495 oc MLLP16¢ 
5939 CO B7 S3IE 496 8 BcUMP 
€3 553D OC O1 620F 71F2 497 GOLOD MVC STRET+3(2) ,ADUMP 
5543 CO 87 O21€ 498 8 UNPACK 
5547 03 5547 499 oC TLL*3e 
€ 3548 7205 5549 506 DC = «AL 2 PSBYTE} 
5544 TLFO 5548 501 oc AL2(SBYTE} 
$54C CO ST 6152 502 8 CKSEC 
5550 Co 87 SSoD 503 8 LOADD 
5554 CO 87 5490 | 504% 6 THRU 
$558 FOFOFL 5954 505 SECCNT OC OLS*o01" 
€ 5558 0co3 555C 506 BUFa oC ALZ(BUFFER?3} 
555D C3D6DSE3 5560 507 CCONT OC CL4°CONTE 
5561 0004 5562 508 HEX4 DC XL2*0004¢ 
@ 5563 00 5563 509 ADRCNT OC XL1L*00 
5564 10 556% 510. HEXI0 DC XLi°10¢ 
. 5565 511 PRTILN EQU « 
5565 4040404040404040 5500 522 : oC CLizo® * 
5560 404040404%0404040 512 
Oo are 29AUG75 O7NOV75 © 22DEC 7S 19OMART6 
EC NO. 827804 827805 827636 827872 


PART NO. 
PAGE 


4248224 
4A 


INET. ADDR. COUNTER 

CHECK FOR DEFAULT 

DON'T TAKE DEFAULT 

DEFAULT TO ONE RECORD 

SET PRINT LINE SPACE COUNT TO 
BEGINNING OF RECORD AND 

UNPACK ADDR. LEAVE 2 SPACES. 


UNPACK NEXY © BYTES OF CORE 
AND LEAVE LE SPACE. 


UNPACK NEXT @ &YTES. 


UNPACK NEXY & BYTES. 


. UNPACK NEXT & BYTES AND 


LEAVE 3 SPACES. 


SEY INFO IN CORE LHTS 
END OF PRINT LINE 
BEYHEEN ASTERISKS. 
INCREMENT ADDR BY @ BYTES. 
PRINT LINEs 
SPACE ONE. 
LENGTH OF LINE. 
ADDR. OF LAST PRINT CHaR. 
ENCRe ADDR. COUNTER BY HEX LO. 
CHECK FOR END OF RECORD. 
PRINT BLANK LENE. 


a aca e BONNE RSE a ae A tn AEN 


CHECK FOR RIGHT # RECORDS PRINTED. 
IF SOe GO BACK FO DUMP MENU. 
SPACE SIX 


CHECK NEXT RECORD FOR CORRECT 
UNPACK NEW DISK ADDRESS 


READ NEXT RECORD. 


PRINT IT. . Sacaat 
RECORD COUNTER 
BEGINNING OF RECORD ; 
CONT? OPTION : 


USED TO INCREMENT 4 BYTES 
ADDRESS COUNTER 
USED TO INCREMENT ADDR COUNTER 


D44-3 
4A . 


PROG ID 
_ PAGE 


» 
# 





_ 18M MAINTENANCE DIAGNOSTIC PROGRAK 


0443 
ERR LOC 


5575 
5570 
5585 
558D 
5595 
5590 
55a5 
55a0 
5585 
5580 
55C5 
55CD 
5505 


5500 
5561 
SSET 


55E8 
SSEF 
55FO 
55F2 


SSF4 
55F8 
S5FC 
S5FF 
5603 
560% 
5606 
5608 
560C 
5600 
560F 
5611 
5615 
5616 
_ $618 
S61A 
S61E 
S61F 
5620 
5622 
5626 
56268 
,  S62E 
(2 5634 


DATE 
€c NO. 


ct 


$/3 3340 AND CARD UTILITIES 


OBJECT CODE 


4040404040404040 
£040404040404040 
4040404040404040 
4040404040404040 
4040404040404040 
4040404040404040 
4040404040404040 
4040404040404040 
4£040404040404040 
4040404040404040 
4040404040404040 
4040404040404040 
4040404040404040 


34 08 
OC 04 
3c 00 


5637 
646E 
6472 


7202 


CO 87 6475 
ocoo 
6469 


30 FF 71E0 
3C 00 71ED 
F2 81 23 
CO 87 O21E 
01 
TIFF 
7482 
CO 87 


7201 
T48C 
CoO 87 


O21€ 


O21E 


7202 
7497 
CO 87 
1 

20 
1497 
Co 87 
7202 
oc 00 7203 
oc 01 7205 
CO 87 6000 


O21A 


6284 
TLEF 
7202 


29AUGT5 
827804 . 


ADDR 


55EF 
55F1 
55F3 


5603 
5605 
5607 


560C 
560E 
5610 


5615 
561T 
5619 


561€ 
S61F 
5621 


5627 


O7TNOVTS 
827805 


Stat 


512 
522 
512 
512 
512 
512 
522 - 
512 
512 
512 
512 
512 


STPFLE 


550 
$51 ELOD 


22DEC75 
827836 


= MOD 12 


THIS SUBROUTINE WILL READ ONE RECORD AND THEN 
PRINT A HEADING FOR EACH RECORD BEING DUMPED. 


ST 
MYC 
MvI 


ZERO RRR RRR RRR RAR” 


ISMART6 
827872 


SDBURCE STATEMENT 


ELOD43, ARR 
ODCFN(5) ,OSKFLO44 
ODCF,0 


WINRW 
XL1i"80° 

AL 2( BUFFER) 
AL2(00CF8) 


NPRT,X*FF® 

NPRT.O 

STPFLE 

UNPACK 

IL1¢2¢ 
AL2(DSKFLD41) 
AL2(MSGCY1) 

UNPACK 

TLieyze 
AL2Z(DSKFLD+3) 
AL2(MSGCY2) 

UNPACK 

wWitye 

AL2 (DSKFLD¢4) 

AL2 (MSGCYL) 

PRINT 

XL1°O1°* 
AL1(MSGCYL-MSGCYB) 
AL2Z(MSGCYL) 

STPFLO 

AL2 (OSKFLD+44) 
PSBYTE—2(1) sDSKFLD41 
PSBYTE(2),O0SKFLD4 
Roe 


eeeaeannaa. io.” 7-7 


re S®e®eeeeeeeg 


tat eb NI ee ae 


PART NOW 
PAGE 


SERESEESSESSSESA ESS SS SESEESESSESETSES SESS TAESSSSESESSOSEEES 


THIS SUBRGUTINE WILL ALLOW ANY PROGRAM 
RESIDING ON THE CE PACK TO BE DUMPED IN 


FFA, FFB, AND DCP PROGRAMS. 


> 

2 

s 

CARD FORMAT, EXCEPT THE CPU & MEMORY, s 
: @ 

se 


SHAHESTARLESSSESKSKSSESKSAEKSSSESSETSESESKSASK SNS SVSERSS SRE 


* 

PRINTL 

XL1°O1* 

AL 1 (MENUS A-MENUS) 
AL2(MENUSA) 
PRINT1 

XL2°O2° 

AL1 (MENUS8-MENUS2) 
AL2(MENU5B) 
PRINT 

XL1°O1* 


‘AL 1(MENUSC-MENUS3) 


AL2(MENUSC) 
PRINTL 
XL1*°06* 

AL 1 (MENUSD-MENUS4) 
AL2 (MENUSD) 
U5471-15X*20* 
GOQ3 

HALT 
XL2*D4E1* 
WORK, X*00* 
READIN(1) WORK 
READIN, FO 
G04 

RECORD 
READIN,C*1* 
GO2 

READIN, C*#9* 
FMENU : 
PRINT1 
XLiftc6* 
IL1i*36°* 
AL2(ERR1) 
XL2°0487* 
HALT 
XL2°D487* — 
CHKOP 

PRINT1 
XL1*06* 

AL1 (MENUS E-MENUS 1) 
AL2 (MENUSE) 
5471-1,X%" 20° 
601 

PRINT 

XL1°O6* 

AL1 (MENUS F—MENU56) 
AL2(MENUSF) 
HALT 

XL2*E2* 
WORK, X* 00° 
UNPACK 
XL1°03* 

AL2( WORK) 

AL Z(READING2) 
605 


RECORD 
SETCRD 
P10(3),READING2 


Cs 
PART NO. 4248224! IBM MAINTENANCE DIAGNOSTIC PROGRAM 
PAGE 5 | €3 
| 0443 $/3 3340 AND CARD UTILITIES === MOD 12 
| €2 
| Coen LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
le 553 
| S54 * DPUNCH ® 
‘ 555 seaeeseese 
| @ 556 * 
pos 557 * 
558 * 
| @ 559 * 
560 
| 561 
| @ 5638 562 DPUNCH EQU 
| 5638 CO 87 O21A 563 B 
1 563C O1 563C 564 oc 
i €} 5630 39 563D 565 oc 
\- 563E 6C5E 563F 566 Dc 
5640 CO 87 O21A 567 8 
| €3 5644 O1 5644 568 oc 
: $445 23 5645 569 oc 
5646 6C81 5647 570 oc 
| 5648 co 87 o21A $71 B 
SAVE FOR RETURNING | 564C O01 564C 572 oc 
SET UP DISK CONTROL FIELD | «64D 17 564D 573 oc 
TO READ 1 RECORD 564E 6C98 S64F 574 oc 
5650 CO 87 O21A . 575 B 
READ A RECORD 5654 06 5654 576 DC 
READ FLAG | @& 5655 17 5655 577 DC 
5656 6CAF 5657 578 oc 
| 5658 38 20 OAOE 579 CHKOP TBN 
€2  565¢ F2 10 19 580 JT 
SHOULD PRINTING OF TITLE BE BYPASSED! 565F CO 87 0222 581 8 
5663 04E1 5664 582 DC 
'€> 5665 30 00 710F 583 SNS 
UNPACK CYLINDER VALUE 5669 OC 00 OA80 71DF 5B4 MVC 
566F 08 00 OABD 510C 585 MZZ 
5675 F2 87 O% 586 i 
1 5678 CO 87 6210 587 GO3.—s«iB 
UNPACK HEAD VALUE 567C 30 F1 OASO 588 G04 = CLI 
5680 F2 61 iC 589 JE 
5683 30 F9 Gasd 590 cL 
5687 CO 81 5081 591 BE 
UNPACK RECORD VALUE ' €} 5688 CO 87 021A 592 8 
| 568F C6 S68F 593 oC 
5690 26 5690 594 oC 
| & 5691 6920 5692 595 oc 
PRINT HEADING 5693 D4B7 5694 596 oc 
5695 CO 87 0222 597 8 
| & 5699 0487 569A 598 oc 
569B CO 87 5658 599 8 
INCREMENT DISK CONTROL FIELD | 569F CO 87 O21A 600 GO2.—s8 
ADDRESS OF RIGHT MOST BYTE | @ 5603 06 5643 601 oC 
UPDATE PACKED CONTROL FIELD 56A4 19 5644 602 oc 
| 56A5 6CC8 S6A6 603 oC 
RETURN €@ = 567 38 20 OA0E 604 TBN 
56AB F2 10 1E 605 JT 
56AE CO 87 621A 606 8 
| @ 5eB2 06 5682 607 oc 
56B3 43 5683 608 oC 
5684 6D08 56B5 609 oC 
5686 CO 87 0222 610 8 
|" 56BA 00E2 56BB 611 oC 
| 56BC 30 00 710F 612 SNS 
| & 56co co 67 o21e 613 B 
5604 03 56C4 614 oc 
| 56C5 710F 56C6 615 oc 
| €  sec7 oas2 S68 616 oc 
56C9 F2 87 04 617 J 
| 56CC CO 87 6210 618 G01 s8B 
€ 5600 co 87 SE61 619 G05 B 
| 56D4 OC 02 52C5 0asz 620 MVC 
PROG ID 044-3 | Oh. 29AUG7S5  OTNOV75  22DEC7S5  9MARTS 
PAGE 5 | _€C NO. 827604 827805 827836 827872 
|®@ 
| @ 
|® 
t 


A ea ee ae nat ee eect tee 


DISPLAY option MENU 
DISPLAY OPTION MENU 
DISPLAY OPTION HENU 
DISPLAY OPTION MENU 


5471 PRESENT ON SYSTEM 
YES,READ DATA FRON 5471 
WAIT FOR OPTION 


| MOeREAD DATA IN FROM CPU Swes 


MOVE IN SELECTED OPTION 
CONVERT TO CHARACTER 

BYPASS READ FROM 5471 

READ FROM 5471 

OPT 1 SELECTED 

VES CONTINUE 

TERMINATE OPTION - 

GO TO MAIN MENUE 

“RINT ERROR ITF VALID OPTION 
MOT ENTERED 


DISPLAY HALT B7 ON STIK LITE 


CHECK OPTION AGAIN 
DISPLAY OPTION MENU 


GET INPUT 

PRINT MSG 

SPACE 

LENGTHY 

MSG a 

WAIT FOR PROG ID 


SENSE PROG ID FROM 
UNPACK 

PACKED LENGTH 
PACKED DATA @ 
UNPACKED DATA @ 


WAIT FOR INPUT: 


ALLOW SELECTION OF CARD DEVICE 


SAVE PROGRAM ID 


PROG 1D 
_PAGE 


4248224 


5A 


tO Tete neage Seee Ene cae nee a em a ete tee aerate 7 
cA", : 
+ an 3S . ‘ a PE sy. . 7 : ° : eng 
‘. ‘ : ‘ ‘ : 


. CONSE A RK ERE SD — 
tan TR ar ty AEB I RS CERT ERIC EY CTR EERE LLY, I LEAT RIG EEA PLT HE 


fe RSE RE ETS poet ere 


oye, sete 


044-3 ' 
5A. 














IBM MAINTENANCE DIAGNOSTIC PROGRAN 


0443 $/3 3340 AND CARO UTILITIES -=—~ mod i2 
ERR LOC GBJECT Cape ADDR STMT SOURCE STATEMENT 
SG6DA OC 02 S6F3 0A82 621 vc PRGID1 (3) ,READING2 
S6E0 OC O02 7488 Oas2 622 MYC MSGBAD—-12(3) ,READING?Z 
S6E6 OC 03 ¥20B TOLLE 623 MYC CARDNO(4}) FOF) 
62% 
SSEC CO 87 6310 625 & SCAYTC 
56FO 00 56FO 626 FLGL DC TLi tgs 
S6Fl 404040 56—F3 627 PRGIDL OC CL3? 7 
628 
S6Fe C2 01 0880 629 LA INPUT, KRE 
S6F8 3D OF S6FO 630 Cli FLGI « X*OF® 
56FC F2 81 14 631 J€ STINE 
632 
56FF CO 87 O214 633 8 PRINT 
§703 C6 5703 634¢ oc XL1°C6* 
5704 OF $704 635 oc IL1®255& 
-5705 74C7 5706 636 oc AL2 (MSGBAD}) 
5707 0445 5708 637 oc XL2*D445* 
$709 CO 87 0222 638 6 HALT 
5700 0445 5TO0E 639 oc XL2°*D445¢ 
ST70F CO 87 5638 640 8 DPUNCH 
641 
STi3 G42 STINF EQU % 
5713 OC 04 7202 OCOE S43 VC OSKFLO44(5) ,BUFFER<14 
B44 ¢ 
$719 OC 61 702) OC15 645 MYC SECNT (2), BUFFERE21 
S46 
571F 3C FF TILED £47 RVI NPRT sX*FFO 
5723 CO 87 55DD £48 6 LOASD 
S727 4C SF SF OCS5F $49 Myc 95196eXR1L) ps BUFFERS95 
572€ 1C OF 7029 SE 650 MVC SEQNO(83.95¢_XR1} 
$731 3€ 00 729C $51 MMVI PFLAG. XK*0Gt 
5735 40 03 03 SaBS 652 cL 3(4,XR1} .DTAHOR 
573a F2 O1 OE 653 JNE CKA 
5730 3A OF 729D 654 SBN DFLAG.X*OF® 
$741 70 OF 52 655 cil BSY2t XR} Ce Pe 
5744 F2 01 O04 656 JINE CKM 
S747 3C FF 7290 657 VI PFLAG, X*FFe 
5748 7D De 00 658 CKM cli Ot eXR1L) Cem? 
ST4E F2 01 04 659 JNE £47 
5751 3A FO 7290 660 SBN DFLAG.X*FO® 
5755 3C FF 7221 661 Mvi FLAGC .X*FF° 
5759 CO 8F SF5D 662 8 PNCHBO 
575D 3D 00 7290 663 Cur DFLAG,O 
5761 F2 01 09 664 JNE Loopé 
5764 OF 01 7021 7015 665 sic SECNT (23 ¢GNE 
SI6A F2 61 61 $66 JZ ENDRT 
667 
5760 3C FF TILED 668 LOGP4 wMvI NPRT,X PFE Ee 
5771 CO BY 55DD 669 B tGoado 
S775 &C 57 5S? OC5T 670 VC 67(B82XR1} p BUFFERS 7 
577A 06 30 7029 5250 671 AZ SEQNG(4? ~DEC1LE29 
$780 4C OF SF 7029 672 “vc 9508, XR1i}.SEQNO 
$785 OF 01 7021 7015 673 SLC SECNT (25 «ONE 
5788 F2 81 40 874 J2 ENORT 
S78E 7D $C 00 675 cil OC oXRiD-C ese 
$791 F2 81 2E $76 JE PNCHCD 
$794 38 FO 7228 677 TBK CRDOFLG, X*FO* 
§798 F2 10 15 678 JT $96 
5798 30 00 7290 679 cel DFELAG.C 
ST79F F2 81 OF 680 JE +10 
S7a2 SD GT 4F SF 681 ctc TC Be RRL} 9 950 oe XR1 I 
STA6 F2 01 19 682 JNE PNCHCD 
STA9 SC OT 4F 5F 683 MVC FOCUS KRLIe95E XR1} 
684 « 
S7aD F2 87 16 685 2 PRCHCD+4 
S7B0 30 00 729D 686 1896 Cli DFLAG.0 
5784 F2 81 O7 687 SE NOToAT 
S787 30 FF 729C 688 cui PFLAG. K* FF? 
DATE 29AUGT5 OTNOV7S 220EC 75 1QMART6 
827804 827665 827836 827872 


€C NO. 


% ‘ ‘ : : 


PART NG. £24B8224 
PAGE & 


= 


SET SCAN PARAMETER FOR SUBRT 
SAVE ID FOR ERROR MESSAGE 
INITIALIZE 86 COL CARD COUNTER 


SCAN ¥YTOC FOR PROGRAM 

SUBROUTINE 
PARAMETERS 

USE XRE FOR DISK PATA FIELD 

PROGRAM FOUND? 

IF YESe TAKE THE JUMP 


PRINT ERROR If ENTRY NEVER FOUND 


OF 


oO 


: 
‘ 


? 

id, 

* 
oh 


* 


f 
y 


fom 
f 
Sry a” 


on 


Naa 


ERROR | 
$45 SECHRERCHSESEEERERSRSEEREREEE 


SAVE CYLINDERS HEAG/RECORD WHERE 
PROGRAM RESIDES 
SAVE PROGRAM SIZE (1% RECORDS) 


BYPASS PRINTING TETLE 
GO READ FIRST RECORD 
PUT INFO IN PUNCH BUFFER 


RESEY PROG DATA DECK FLAG 

ES ¥¥ & DAYA DECK? 

iF NOT DON'T Tuan Ge FLAG 

SET FOR DATA DECK 

ES THIS & PROG GATA DECK? 
NC, JUHP 

SET PROG DATA DECK FLAG 

tS if A TAP DECK? 

SKIP If NOT 


ENDICATE 80 COL. MEEDS 2 FOR i 
PUNCH HEADER CARD : 
IF IT IS A DATA DECK DON'T 
SUSTRACT THE FIRST TIME 
DECREMENT ¢ OF RECGRDS LEFT TO PUNCH 
QUIT IF NO RECORDS LEFT TO PUNCH 


i 


oc eoe 


DON®T PRINT 

READ NEXT RECORD 

PUT INFS IN PUNCH BUFFER 
INCREMENT SEQ # 


DECREMENT CARD COUNTER 


iS IT A COMMENT RECORD? | 
JUMP TE IT ISN'T 
IS THE MFCU THE CARD DEVICE? 


SKIP IF MIETHER DATA GR TAP DECK 


WAS IT IN COMPRESSED FORM? 

IF NOT, THEN SKIP 

MOVE SEQ @ AND ID FEELOS INTO 80 
COL FORMAT 

GO PUNCH THE CARD 

IF NOT A DATA DECK, THEN 

JUMP 

IT PROG DATA DECK? 


iS 


PROG 10 


044~3 
PAGE 6 


| 
| 
| 
i 
: 
| 
| 
{ 
i 
| 
| 
| 
{ 
§ 
! 
| 
| 
{ 
{ 
| 
\ 
| 
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Ki : , 


‘fi 


2 ® 


@ ©} 


vd 
io ay 












Be 
mie 


@0 % 6 


@ 


0443 
ERR LOC 


5788 
S7TBE 


572 
57C6 
5S7CA 


5TCE 
S702 
5706 


S7DA 
S7DG 
57EL 
5TES 
STEA 
STEE 


STF2 
STF6 
57FA 
5800 
5804 
580A 
580E 
5812 
5616 
581¢ 
S85 
S821 
$827 
5828 
582E 
5832 
5836 
583A 
5840 
$844 
5847 
5848 
586F 
$853 
5859 
5850 
5860 
5864 


5867 
S86A 
586D 
5873 
5877 


587C 
5880 
5884 
5868 
588) 
5891 
5894 
S8SA 


S89E 


DATE 


EC 





RO. 


t 


OBJECT CODE 


F2 
co 


3C 
co 
co 


3D 
3c 
cO 


we 
5¢€ 
4C 
3o 
co 
ce 


C2 


29AUGTS 
827804. 


Ol 
87 


FF 
87 
8? 


oo 
00 
OL 


40 
55 
22 
FF 
87 
87 


58 
Ol 
02 
00 
06 
G2 
oo 
O2 


ol 


04 
S7F2 


7221 
SF 5D 
§76D 


T29D 
7290 
$638 


57 

56 57 
3B 7561 
722k 
SFSD 
3638 


7013 

5885 

7029 O8DF 
1048 
1047 
0882 
OFES 
03 02 
oe 
702Cc 
63 03 
7O2C 7015 
582) 

00 

7O2C 

3 02 

G3 03 
702C 7015 
3836 

01 

7o2c 

03 G2 

02 03 
7o2€ 7015 
584F 

02 

Q3 02 

03 


1048 


63 

a& 

7OL3 7015 
$812 

57 T29A 


7013 

760Cc 

OFES 

5890 00 
06 00 

01 

7013 7015S 
5888 


0880 


OTNOV7S 
827805 


.. [BM MAINTENANCE DIAGNOSTIC PROGRAM 


$/3 3340 AND CARD UTILITIES 


ADDR STMT 


689 
690 
69% 
692 
693 
69% 
695 
696 
697 
698 
699 
Foo 
7Ol 
702 
703 
704 
tO5 
706 
107 
708 
709 
TiO 
Fil 
Fl2 
7i3 
714 
715 
T16 
71? 
718 
th 
720 
ral 
T22Z 
723 
F24& 
T25 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
T&L 
142 
143 
744 
745 
746 
747 
748 
749 
750 
752 
752 
753 
754 
755 
756 


wom MOD 12 


SOURCE STATEMENT 


NOTDAT 
* 


PNCHCD 


ENDRT 


NYRT 


NOTOGN 


FX1 


FX2 


FX3 - 


KPMVC 
aY¥C 


220EC75 
827836 


JNE 
8 


MVE 
B 
8 


S| 
MVE 
BNE 


AVE 
MvC 
RYC 
AVI 
6 
8 


PNCHCD 
CNYRY 


FLAGC 9 K*°FF* 
PNCHBO 
LOOPS 


DFLAG.O 
DFLAG.O 
OPUNCH 


B7leXRLFeCE *¢ 

861 86,XR1),876 »XR1) 
61(35,XR1}.MSGOCK 
FLAGC e X*FE* 

PNCH8O 

DPUNCH 


PART NO. 


4248224 
PAGE 


oA 


NO, DON®T CNVRT. 
CONVERT DATA INTO UNCOMPRESSED 
FORMAT 
INDICATE 80 COL. NEEDS 2 FOR 1 
PUNCH CARD 
READ ANOTHER RECORD 


If IT IS & TAP GR DATA DECK, THEN 
RETURN TO MAIN OPTION MENU 
BLANK OUT ENO CARD FIELD 


PUT IN END CARO MESSAGE 
INDICATE 2 FOR i NEEDED 


CONVERT COMPRESSED FORMAT OISK RECORD INTO UNCOMPRESSED 
FORMAT CARD RECORD 


MY¥I =<COUNTs29 

St CNVRTRE3,ARR SAVE RETURN ADDRESS 

MVC = SEQNO(.8) » INPUT495 SAVE SEQUENCE NUMBER 

MVE =—-_ BUFFER*10965X"408 CLEAR FIELD 

MVC =—- BUFFER# 1095196) »BUFFER +1096 

LA INPUT4+1 ¢XRI INPUT FIELD IS 63 SYTES LONG ° 

LA BUFFER*1000, XR2 OUTPUT FIELD IS 84 BYTES LONG 

MYC = - 34S XR20920eXR1 GET FIRST 3 BYTES 

MVI 0 XR25eX"00? CLEAR LOW ORDER BYTE 
MVE COUNTR,X*06! FIRST BYTES ADDED TOGETHER 6 TIMES - 
ALC 30 4_.XR29,30_XR2} SHIFT LEFT 6 POSITIONS : 
SLC COUNTRI1},ONE 
BNZ  FY¥L 
SBF 04 eKR2).X*CO8 SET BITS © AND 1 OFF (cement 
MVI = COUNTR, X*048 SECOND SYTES ADDED TOGETHER 4 TIMES | 
MVC =—- 3343 gXR2)42¢ eXRL) 
ALC 3€3,XR2)530_XR2) SHIFT LEFT & POSITIONS 

SLC COUNTR(1), ONE 

8NZ  FX2 

SKF = 4 XR294X*CO* 

MVI COUNTReX*O2¢ BYTES ADDED TOGETHER 2 TIMES i 
MVC 8 =—- 3.029 XR29020 gXRLI : 
ALC ©3029XR2) 530 yXR2d SHIFY LEFT 2 POSITIONS i 
SiC COUNTRI1),0NE i 
BNZ FX3. i 
SBF 2f-XR2},xK*CO* : 
MVC 8 =—- BC Lp XR2Fe 20 yXRL? OM LAST BYTE, JUST TURN ; 
SBF = 3 9XR22-X*COt BITS © AND 1 OFF i 
ia 3lyXRIPEXRE CONTINUE THIS FOR ALL BYTES ON CARD | 
LA 4(oXR2) ge XR2Z ; 
SLC CQUNT(1) 9 ONE OO THIS 21 TIMES PER CARD : 
8NZ NOTDON ‘ 
MVC 8 =—- 8703.» XR2) p BLANK CLEAR CHECK FIELD ~ - 
NOW CONVERT DATA TO PRINTABLE VIA DIRECY TABLE LOOKUP : 
MVI COUNT.88 ; 
La TABLE sXR1 XR POINTS TG VALUES IN TABLE : 
LA BUFFER41000,XR2 i 
MYC 8 =—- MVC #3019900 oXRZ) SETUP TO TRANSLATE b. 
MVC = OL 2 XRZ} 9 #41 XR? TRANSLATE EACH BYTE We 
LA 1(9XR2)9XR2 ‘ 
SLC COUNT(11,0ONE 

BNZ KPHVC : 
ta INPUT »XR1 NOW FIX UP CARD FOR PUNCHING | 
LOMAR TS PROG ID D44—3— 
827872 , PAGE 
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18M MAINTENANCE DIAGNOSTIC PROGRAM 


PART NO«. 4248224 IBM MAINTENANCE DIAGNOSTIC PROGRAM . PART NO 4248224 
PAGE Lee a. PAGE a 
0443. $/3 3340 AND CARD UTILITIES -—— MOD 12 0443 $73 3340 AND CARD UTILITIES --- MOD 12 
ERR LOC OBJECT CODE ADOR STAT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
58A2 C2 O02 OFES 757 LA BUFFER 1000, XR2 \ € 2 76% FEFRESEEEEREEEEERSESESERESSESEEESESESESESSSISSSTESESSSESSE SS 
58A6 7C £3 0O 758 MVI = OL yXR19 CTE | 765 * ‘"DUP* ROUTINE * 
58A9 6C 53 54 53 789 MVC = 84184, XR1)48344XRZ2) SETUP TEXT DATA 766 * * 
58AD 4C 07 SF 7029 760 MVC =. 951.8» XR1) » SEQNO PUT IN SEQUENCE NUMBER G 767 * THE FOLLOWING WILL *OUP* 80 COLUMN * 
5882 CO 87 0000 761 CNVRTR B +-* RETURN TO CALLER 768 * DECKS FROM THE 1442. IF THE 1442 IS NOT * 
58B6 FO6B6B40 5889 762 DTAHDR OC CL4&'Os, * Q be * per Nea ves THE UDT, THE FOLLOWING SSw*S . 
. 0 + YB : 
771 * * 
772 * SSW 18 = 1442 AS INPUT/OUTPUT DEVICE * 
im = 773 * NO SETTING= WHATEVER DEFINED IN THE UOT _* 
: T74 RKKKKSERKEECAKESEARKEREKEASSESSSSTEKSSESEASSSEVOESEESSESS SESS ES e 
775 
eé 775 
58BA 776 DUP EQU * 
58BA CO 87 5E61 777 8 SETCRD ALLOW SELECTION OF A CARD DEVICE 
{":  S58B8E 3D FO 7228 778 CLI CRDFLG,MFCU IF MECU SELECTEDsTELL TO USE *DuUP* 
oy 58C2 CO O1 S8BDA 779 BNE GORDBO 
.  58C6 CO 87 021A 780 B PRINT 
€2 58CA C6 S8CA 781 DC XL1°C6® 
58CB 28 58CB 782 oc 1L1*40* 
58CC 73E8 58CD 783 oc AL2(MSGDUP} 
{" SBCE D442 58CF 784 DC XL2"°D442® 
S 58D0 CO 87 0222 785 8 HALT HALT 
58D4 0442 5805 786 oc XL2°D442* & G2 F8SSSESERSSSSSSESSSSEESESES 
_€> 5806 CO 87 5081 787 8 FMENU 
. 58DA CO 87 SEES 788 GORC8O 8 READ8O READ THE FIRST RECORD 
a 58DE 35 02 7220 789 ok READBF » XR2 
- & 58E2 8D 05 05 7395 790 CLC 5(69XR2).MSGPUN CHECK FOR SPUNCH CONTROL RECORD 
S8E7T F2 81 14 791 JE SETUP ; 
58EA CO 87 O21A 792 B PRINT OPRINT 
€* SEE C6 58EE 793 pc XL1°C6* MISSING CONTROL CARD 
58EF 27 58EF 794 DC I1L1*39° 
58F0 73C0 58Fl 795 oc AL2(MSGCNT) r 
€;  58F2 0440 58F3 796 oc XL2'0440° 
58F4 CO 87 0222 797 8 HALT HALT = Se a 
58F8 0440 58F9 798 oc XL2*D440° & 40 Seeesesesessesseseseseseesese 
. ‘ € 58FA CO 87 5BBA 799; B pup 
58FE C2 01 0CO0 800 SETUP LA BUFFER »XR2 USE XR1 FOR BUFFER CARDS READINTO 
st 5902 OC 01 702C 7017 801 MVC COUNTR(21,ZERO CLEAR CARD COUNTER ; ; 
f € 5908 3C 00 702A 802 MVI  EFLAGsO0 CLEAR END CARD FLAG a 
590C CO 87 SEES 803 R080 —B READ8O READ FIRST DECK CARD 5 
. 5910 35 02 7220 804 L READBF s XR2 
, €; $914 8D 03 03 7399 805 CLC 314—XR29,MSGEND WAS SEND CONTROL CARD READ? 
{ 5919 F2 01 07 806 JNE  NOTEND NO 
| 591C 3C FF 702A 807 MVI = EFLAG, X*FF# INDICATE LAST CARD READ 
| & 5920 F2 87 17 808 J DOPNCH GO PUNCH DECK 
5923 6C 4F 4F 4F 809 NOTEND MVC 79180,XR124790,XR2) SAVE CARD CONTENTS 
: 5927 D2 01 50 810 LA 80(eXR1)eXR1 INCREMENT BUFFER COUNTER 
t | € 592A 0€ 01 702C 7015 811 ALC COUNTR(2),0NE INCREMENT CARD COUNTER 
| 5930 OD 01 702C 71E6 812 CLC COUNTRI2).TWOOO ALLOW 100 CARDS FOR ONE PASS 
ae 5936 CO 01 590C 813 BNE ROD80 ; 
C le 814 | 
593A OD 01 702C 7017 815 DOPNCH CLC COUNTR(2),ZERO HAVE ALL CAROS BEEN PUNCHED? to 
re 5940 CO 81 5081 816 8E -FMENU 9 
me €: 5946 C2 01 oco0o 817 LA BUFFERsXR1 
5948 1C 4F O8CF 4F 818 PCHAGN MVC INPUT*¢79(80)e79(,XR1) SETIP PUNCH FIELD 
_  594D CO 87 SF5D 819 8 PNCHBO GO PUNCH THE CaRD 
€% 5951 D2 01 56 820 LA 80(eXR1)eXR1 INCREMENT BUFFER COUNTER | 
5954 OF 01 702C 7015 821 SLC COUNTR(2) »QNE OECREMENT CARD COUNTER 
_ $954 CO 01 5948 822 BNZ PCHAGN ite 
€; 595 3D FF 702A 823 CLl  EFLAG, X*FFe HAS SEND CONTROL CARD BEEN READ? 
5962 CO 01 S8FE 824 BNE SETUP ; 
x : ; 5966 CO 87 5081 825 8 FMENU 
: @ 
| 
| @ 
DaTe 29aUG7TS | OTNOVTS 22DEC75 1LOMART6 PROG 10 D44—3) Oo are 29AUG75 O7NOV75S 22DEC 75 LOMART6 PROG ID 044-3 ~ . ee 
—C NO. 827804 827805 827836 827872 PAGE 7 EC NOw 827804 827805 827836 827872 PAGE 7A a ae : 


woe ge ee ee 





Se ee eee file Me Be wang 2, i 
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e2000 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


PART NOw 4248224 | 186M MAINTENANCE OIAGNOSTIC PROGRAM J PART NO. “248224 
PAGE 8 | PAGE 3A 
(0443 9 $/3 3340 AND CARD UTILITIES —-~ mod 12 _ 0443 = S/3 3340 AND CARD UTILITIES <--- MOD 12 
ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT | “" ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
827 EaGeROEREREEEESEREREEEEEEEERSEEESEREEEREERER ERE EERE SS EEE OEE SE SEES EEE € 858 gcanceseeeeeOeeneneeGeGesEneseeeseeeeeeeseneeseees SESeSSS SSS SST SOOTS 
828 * * 859 * s 
829 * PUNCH SUBROUTINE * 860 * DISK PATCH * 
830 * * €& 861 * * 
831 * THIS SUBROUTINE ALLOWS THE PRINTER/KEYBOARD TO BE * 862 * THIS SUBROUTINE ALLOWS DISPLAYING A PARTICULAR * 
832 * USED AS A KEYPUNCH WITH THE CARDS PUNCHED ON THE * ’ 863 * RECORD ON THE PRINT DEVICE ANO THEN ALLOWS THE s 
833 * 5424 OR 1442. * €&: 864 * CE TO ALTER THIS RECORD BY ENTERING THE LINE # = 
834 * * 865 * AND TYPING IN THE NEW DATA OR IF THE 5471 IS NOT * 
835 GEEEREEKEERENELEREREEEEMERERREEE LERTREER AERA ETE ESSE EEE EEEEEES EES EES B66 * ON THE SYSTEM TO ENTER THE LINE # THRU THE CPU = 
836 © 867 * DATA SWITCHES, FOLLOWED BY THE NEW DATA « IF THE * 
596A 637 PUNCH EQU * 868 * 5471 IS USED THEN TYPE IN *WRITE® TO MODIFY THE % 
596A 38 20 OAOE 838 IBN U5471~-1-X"20° IF THE 5471 1S NOT ON THIS 869 * DISK. IF THE DATA SWITCHES ARE USED THEN ENTER s 
596E F2 10 OC 839 JT PUNCHI SYSTEM THEN DO NOT ALLOW THE € 870 * ‘ORFF’ AND THIS WILL CAUSE THE DISK TO BE MODIFIED. e 
5971 CO 87 O21A 840 B PRINTL KEYPUNCH FUNCT IONs Le 871 * * 
5975 06 5975 6841 oc XL1*06* PRINT ERROR TO THE OPERATOR. 872 * i ecansesseeeedteseneeeseseseteeSESeesteSeeEseeeheseseeeeesseeeseeee 
5976 2E 5976 842 oc 1L1*46° MESSAGE LENGTH | & 873 
5977 6F27 5978 843 oc AL2(ER5471) MESSAGE ADDRESS 59A9 874 DPATCH EQU * 
5979 CO 87 5081 B44 B FMENU RETURN TO MAIN MENUE 59A9 3C 00 7206 875 vi SFLG220 
597D CO 87 021A 845 PUNCH] 8 PRINT1 DISPLAY €: 59AD 3C 00 7207 876 “VI SECFLG,0 
5981 06 5981 846 oc xL1°06* INFGRMAT IONAL { 877 * 
5982 18 5982 847 DC 1L1°27° 878 * STORAGE MAP OF BUFFERS IS AS FOLLOWS: 
$983 7438 5984 848 oC AL2(MSGENT? .€& 879 * 
5985 3C FF T1E2 849 MVI - PUNFLGeX* FF * PRINT 80 INSTEAD OF 8 INPUT BYTES 880 * BUFFER - BUFFER+255 PACKED DISK CONTENTS 
5989 CO 87 6210 850 8 RECORD GO READ THE INPUT B81 * BUFFER*511 — BUFFER*1023 UNPACKEO DISK CONTENTS 
598D CO 87 5E61 851 6 SETCRD ALLOW SELECTION OF CARD DEVICE | €: 882 * 
5991 OC SF OSDF OADF 852 MVC sos INPUT#95(96)READING95 SETUP FOR PUNCHING A CARD | 59B1 3C 40 OCFF 883 MVI B8UFFER+255,X*40° CLEAR BUFFERS 
5997 CO 87 SF5D 853 8 PNCH8O PUNCH THE CARD Ed 5985 3C 40 ODFF 884 MVI  BUFFER+511¢X*40° 
5998 OD O1 T1F7 OABL 854 CLC CEND(2),READING) 7& TERMINATES / €* 5989 OC FE OCFE OCFF 885 MVC —- BUF FER+254(255) sBUFFER 4255 
59A1 CO 81 5081 855 BE FMENU eer 59BF OC FE ODFE ODFF 886 MVC -_ BUFFER¢510( 255) sBUFFER*511 
59A5 CO 87 596A 856 8 PUNCH CONT ENUE 5905 OC FF OFFF ODFF 887 MVC —- BUFFER¢ 10231256) »BUFFER*S 11 
€ 59CB CO 87 O21A 888 Xxll 8 PRINTL - DISPLAY OPTION MENU 
59CF Ol 59CF 889 oc XL1L‘'OL* 
2 5900 29 5900 890 Dc AL 1 ( MENUSA-MENUS] 
Le € 5901 66F9 59D2 891 DC AL2 (MENUGA) 
59D3 CO 87 O21A 892 B PRINTL DISPLAY OPTION MENU ie cette aes Stace 
“we : 5907 01 5907 893 oC XL1*O1* 
a € 5908 15 5908 894 oc AL1 (MENU4B—-NENUS2 } 
5909 6COE 590A 895 DC AL2(MENUGB) ; 
is ‘ $908 CO 87 021A 896 8 PRINT DISPLAY OPTION MENU 
€ 590F 06 590F 897 DC XL1*06* 
-§9EO 17 59E0 898 DC AL1(MENU4C-MENU4S3) 
vast : 59E1 6C25 59E2 899 oc AL2(MENUS4C) : 
Age & 59E3 38 20 OAOE 900 XX14 TBN US471-1+X*20° TEST FOR 5471 ON THE SYSTER 
; S9E7 F2 10 21 901 JT XX12 YES»GET RESPONSE FROM 5471 
S59EA CO 87 021A ‘902 8 PRINT PRINT MSG FOR INPUTTING FROM cPu sw 
e ; e S9EE 06 59EE 903 oc XL1*06* SPACE 
S9EF 46 S9EF 904 oc IL1*70* LENGTH 
r 59FO 6DD8 59F1 905 pc AL2(MENUTO) “SG @ 
i | € 59F2 CoO 87 0222 906 B HALT HALT *EL* 
59F6 D4El 59F7 907 DC XL2*04E1* 
a 4 59FS 30 00 71DF 908 SNS  WORK,X*OO* READ CPU SW : 
mee 3 59FC OC 0O CABO 710F 909 MVC READING 1L) «WORK MOVE INTG REAO IN AREA 
a 5A02 08 00 CABO 510C 910 MZZ READIN, FO CONVERT TO UNPACK 
: 5a08 F2 87 04 911 J XX13 JuMP TO DIAGNOSE 
oe : e 5a08 CO 87 6210 912 xxl2. 8 RECORD WAIT FOR INPUT 
; SAOF 3D F9 CASO 913 XX13. CLI READIN,»C*9° RETURN TO MAIN MENVE 
‘ i 5a1i3 CO 81 5081 914 BE FMENU 
‘. €> S5A17 3D F1 OA8O 915 CLI. READIN C*1* 
5A1B CO B81 5A33 916 BE opTil 
a mf ge SALF CO 87 O21A 917 6 PRINT 
i | €3 = 5a23 Co SA23 918 pc XL *C6* 
A ; SA24 26 5A24 919 oc 1L1¢38° 
*. 5025 6920 5A26 920 OC  AL2tERR1? 
S  €>  SA2T 4487 5A28 921 DC xXL2*44B7° 
5A29 CO 87 0222 922 8 HALT 
5A20 4487 SA2E 923 oc XL2'44B7° 
ag e: 5A2F CO 87 59E2 924 8 XX14 RETURN TO RE-ENTER OPTION 
eis 5A33 38 20 OAOE 925 OPT11 TAN U5471—-1-X*20° TEST FOR 5471 ON SYSTEM 
- ; Cc 
- DATE 29AaUGT5S OTNGVTS 22DEC75 LOMARTO PROG ID 044-3 | DATE 29AUGTS5 OTNOV7S 22DECTS LOMART6 PROG ID 044-3 
EC NO. 827804 827805 627835 827872 PAGE EC NO. 827804 827805 827836 827872 PAGE oa 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


0443 
ERR LOC 


5SA37 
5A3A 
5A3E 
SASF 
5A40 
5A42 
5A46 
5A47 
5A48 
SA4A 
SASE 
SA4F 
5A50 
5A52 
5AS6 
5A57 
5A58 
5ASA 
SA5E 
SASF 
5A60 
5A62 
5A66 
SA67 
‘SAGB 
SAGA 
SAGE 
5A70 
SATS 
SATA 
SATE 
SATF 
5A80 
5A82 
5A86 
5A88 
5ABC 
5A92 
5A96 
5A97 
5a99 
5A9B 
SASE 
SAA2 
5AA3 
SAAS 
5AA6 
SAAA 
5AAB 
5aac 
SAAE 
SAB2 
5AB3 
SAB4 
SAB6 
SABA 
5A8B 
SABC 
SABE 


5AC2 
5Aac8 
SACE 
5SAD4 
5A08 
SADE 
SAE2 
5SAE6 


DATE 
EC NO. 


$/3 3340 AND CARD UTILITIES 


OBJECT CODE 


F2 10 64 


co 
OL 
28 


87 


6B07 


co 
01 
28 


87 


6B2F 
CO 87 


01 
28 


6807 


co 
01 
28 


87 


682F 


co 
01 
28 


87 


6857 


co 
06 
28 


67 


6600 


co 


oc 
oc 
oc 
co 
oc 
3C 
co 
co 


87 


05 
01 
05 
87 
04 
FF 
87 
87 


O21A 


O21A 


O21A 


O21A 


O21A 


0214 


0222 


T10F 
T72AB 
O21A 


0222 


TIOF 
T2AC 
O21E 


24 
O21A 


O21a 


O21A 


O21A 


6210 


7490 
620F 
T1FO 
6152 
T22T7 
T1ED 
5500 
O21€ 


29AUGT5 


827804 


TIDE 


TILDE 


OABS 
TLEF 
OA85 


1202 


ADOR STMT 


5A3E 
SASF 
5A41 


5A46 
5A4T 
5A49 


SAE 
5SAGF 
5A51 


5A56 
SAST 
5A59 


5AS5E 
SASF 
5A61 


5A66 
SA6T 
5Aa69 


SA6F 


SATE 
SATE 
5A81 


5A8T7 


5A96 
5A98 
SA9A 


SAA2 
5AA3 
SAAS 


5AAA 
5AAB 
5AAD 


SAB2 
5aB3 
SAB5 


SABA 
SABB 
5AB0 


O7NOVT5 


827805 


926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
960 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 


w-- MOD 12 


SOURCE STATEMENT 


oPT12 


NE WAOR 


220EC75 
627836 


JT 
B 
oc 
DC 
0c 
8 
oc 
oc 
oc 
B 
oc 
oc 
oc 
8 
oc 
oc 
oc 
B 
oc 
oc 
oc 
B 
oc 
DC 
oc 
B 
OC 
SNS 
MVC 
8 
oc 
oc 
oc 
8 
oc 
SNS 
MVC 


oc 
oc 


oc 
oc 
oc 


oc 
DC 
oc 


oC 
oC 
oc 


oc 
oc 
oc 


MVC 
MVC 
MVC 


Mvc 
MVI 


GPT12 

PRINT 

XL1*"O1° 

ALL (MENU2E-MENU25) 
AL2(MENUZE) 

PRINT 

XL1°O1° 
AL1L(CMENU2F-MENU2Z6) 
Av2(MENU2F) 

PRINT 

XL1*O3° 

AL 1 (MENU2G—-MENU27) 
AL2(MENU2G) 

PRINT 

XL1i*OL* 
AL1(MENUTA~MENU72) 
AL2(MENUTA) 

PRINT 

xXL1‘OL* 

AL1 (MENU7B—MENU7 2) 
AL2(MENUT7B) 

PRINT 

XL1°C6! 

AL1 (MENU7C—MENU73) 
AL2Z(MENUTC) 

HALT 

XL2"*D4E3°* 
WORK « X* 008 
WORK1-1(2) sWORK 
PRINT : 
XL1*O06* 

AL1 (MENUTO—MENUT4) 
AL2(MENU7D) 

HALT 

XL2"D4E4! 

WORK, X*00- 
WORK1 (1) sWORK~-1 
UNPACK 

XL1°03° 

AL2(CWORK1} 

AL2 (READINGS) 
NEWADR 

PRINT 

XL1°O1°" 

AL1(MENU2 E~MENU25 ) 
AL2(MENU2E) 

PRINT) 

XL1*O1° 

AL1 (MENU2F-MENU26) 
AL2(MENU2F* 

PRINT1 

xL1¢*o1"* 

AL1 (MENU2G—MENU27) 
AL2 (MENU2G) 

PRINT 

XL1°06* 

AL1 (MENU2 J-MENU5SS5 } 
AL2(MENU2 J) 

RECORD 


MSGSSB45(6) ~READINGS 
STRET+3,APATCH( 2) 
SBYTE(6) ,READINGS 
CKSEC 
SAV(5),0SKFLO44 
NPRT,X*FF# 

LOADD 

UNPACK 


LOMART6 
827872 


PART NO- 
PAGE 


YES, INPUT FROM 5471 

PRINT INSTRUCTION FOR DISK DUMP 
SPACE 1 

LENGTH 

@ OF MESSAGE 

PRINT INSTRUCTION FOR DISK DUMP 
SPACE 1 

LENGTH 

@ OF MESSAGE 

PRINT INSTRUCTION FOR DISK DUMP 
SPACE 1 

LENGTH 

@ OF MESSAGE 

PRINT MENUE 


MSG LENGTH 
MSG a 
PRINT MENUE 


MSG LENGTH 
MSG a 
PRINT MENUE 


MSG LENGTH 
MSG a 


HALT *E1* DISPLAY 
SENSE DATA SWITCHES 
SAVE DATA 

PRINT 


MSG LENGTH 
MSG 2 


HALT *°€1° 

SENSE DATA SWITCHES 
MOVE IN DATA FROM SWS 
UNPACK DATA 

LENGTH OF PACK FIELD 
@ OF PACKED FIELD 

@ OF UNPACKED FIELD 
GET RECORD ON DISK 


1 +2 


SPACE 1 

LENGTH 

@ OF MESSAGE 

PRINT INSTRUCTION FOR DISK DUMP 
SPACE 1 

LENGTH 

@ OF MES<-AGE 

PRINT INSTRUCTION FOR DISK DUMP 
SPACE 1 

LENGTH 

@ OF MESSAGE 

PRINT INSTRUCTION FOR DISK DUMP 
SPACE 1 

LENGTH 

@ OF MESSAGE 

GET DATA FROM 5471 


SAVE CYLINDER/HEAD/RECORD 


GO CHECK FOR VALID RE“O!.D NUMBER 


SAVE FOR WRITING 
SEEK TO THAT CYL/HEAD/RECORD 


UNPACK ONE DISK RECORD 


PROG ID 
PAGE 


4248224 | 


ms 


| 9443 


Faia f wee 
Ey aie ae ae 


a, 
on. wae 


2 0 


006 


OO 8 


® 


ERR LOC 


SAEA 
5AEB 
5AED 
SAEF 
5AF3 
SAFT7 
5SAFD 
5803 
5807 
5600 
5R12 
5B17 
581C 
5B21 
5B25 
5B29 
S5B2E 
5832 
5833 
5834 
5B36 
583C 
5B42 
5B45 
5B48 
5B4C 
5850 
5B51 
5852 
5B54 
5858 
5859 
5B5A 
5B5C 
5860 
5B61 
$662 
5B64 
5868 
SB69 
5B6A 
5B6C 
5B70 
5871 
5B72 
5B74 
5878 
£8768 
587F 
5880 
5B81 
5883 
5887 
5889 
5880 
5891 
5B92 
5894 
5896 
5899 
5890 
SBAL 
5BAS 
5BA9 
SBAD 
5B81 
56B5 
5BB9 


DATE 


EC 


20606 


NO. 


$/3 3340 AND CARD UTILITIES 
OBJECT CODE 


00 


OC FF 
OF FF 


C2 
C2 
oc 
oc 
3c 
oc 
1c 
1c 
1c 
1c 
3C 
3c 
2c 
co 
02 
48 


ol 
02 
01 
ol 
40 
3E 
o7 
o7 
O7 
o7 
5C 
5C€ 
OF 
87 


TOCF 


96 
oo 
B2 
E2 
co 
co 
01 
19 


01 
Ol 
01 
02 
Q1 
87 


6024 


co 
01 
1f 


87 


6043 


co 
Ol 
17 


87 


605A 


co 
01 
22 


87 


607C 


co 
06 
16 


87 


6092 


38 
F2 
co 
06 
58 


20 
10 
87 


OEFS 


co 


87 


D4E? 


30 
co 
02 


00 
87 


T1OF 
OA8B2 


F2 
co 
3D 
co 
30 
co 
30 
co 
30 
co 


87 
87 
Fil 
81 
F3 
81 
F6 
81 
F9 
81 


ODFF 
ocoo 
T02E 
7080 
TO0CF 
TOCE 
1097 
TOA1L 
TOAB 
7085 


7109 
TO2E 


TOCF 
08 
10 
18 
20 


TOBE - 


TOCF 
TOCE 
O2Z1A 


TO2ZE 
TO2ZE 
20 
10 
SAFD 
O21a 


O21A 


O21A 


O21A 


O21A 


OAOE 


O21A 


0222 


TIDE 
O21€ 


04 

6210 
OA80 
58D1 
0A80 
SE06 
OA80 
50F9 
OA80 
5081 


29AUG7T5 
827804 


OF 


7109 
7108 


ADOR 


SAEA 
5AEC 
5SAEE 


5B32 
5833 
5835 


5850 
5B51 
5853 


5858 
5859 
5858 


5660 
5B61 
5B63 


5868 
5869 
5B6B 


5870 
5871 
5873 


SBTF 
5B80 
5B82 


5888 
5891 


5B93 
5B95 


OTNOVTS 
827805 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


STMT 


994 
995 
996 
997 
$98 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 xx00 
1054 Xx01l 
1055 

1056 

1057 

1058 

1059 

1060 

1061 


O1se 


OISP) 


XX15 


XX03 


220EC75 
827836 


“-- MOD 12 


SOURCE STATEMENT 


oc IL1*o8¢ 

oc AL2 (BUF FER4255) 

oc AL2( BUFFER4¢1023) 
LA BUFFER4511,XR1l 

LA BUFFER »XR2 

MVC CTR(2),CHAR1 

MVC LINE4#5(2)-CTR 

MVI LINE#71,X"40* 

MVC LINE+70(63) »zLINE471 
MVC LINE4+15(8),80,XR1) 
MVC LINE*#25(8),16(,XR1) 
MVC LINE#35(8),24(,XR1)} 
MVC L INE#45(8),32¢,XR1) 
MVI LINE¢54,C*%at 

Mv! LINE+71,C%s? 

MVC LINE#70(16).15(¢,XR2)} 
8 PRINT1 

Oc XL1*O2°* 

oc IL1¢*72¢* 

oc AL2(LINE¢71) 

AZ CTR(2},CHARL 

circ CTR(2),CHARIT 

La 32(5XRi),XR1 

LA 160 5XR2),XR2 

BNE DISP1 

8 PRINT 

0c XL1ifo1* 

oc AL1 CMENU6A-MENUG) ) 
DC AL2(MENU6A) 

8 PRINTL 

BC XLi‘fole 

oC AL 1 (MENU6B-MENU62) 
DC AL2(MENU6B) 

8 PRINT 

BC XL1*O1* 

oc AL1 (MENU6C-—MENU63) 
oc AL2 (MENU6C} 

8 PRINT 

DC XLi*o1e 

oC AL 1 (MENU6D-MENU64 ) 
DC AL2 (MENUGD) 

B PRINT} 

OC XL1*°06* 

oc AL 1(MENU6E-MENU65) 
oc AL2! MENUGE) 

TBN U5471-1,X"208 

JT Xx00 

6 PRINT 

oc XL1*O6* 

OC AL1 ( MENUTF—MENUT76) 
oc AL2(MENUTF) 

8B HALT 

oc XL2°O4E1° 

SNS WORK »X*00° 

8B UNPACK 

oc IL1*02* 

pc AL2(WORK) 

oc AL2 (READING2) 

J XX01 

B RECORD 

CLI READIN,C*1° 

BE ALTER 

CLI READIN,C*3° 

BE GODOwT 

Cul READIN,C*6* 

BE NXTSEQ 

CLli READIN,C*9* 

BE FMENU 

ISMART6 

827872 


PART NO. 
PAGE 


LENGTH OF PACKED RECORD 

@ OF PACKED RECORD 

@ OF UNPACKED RECORD 

3 OF THE PRINT BUFFER 

@ OF PACKED DATA 

SET UP LINE COUNTER 

MOVE IN LINE @ FOR PRINTING 

INIT DATA LINE 
Ld J A 

MOVE IN 8 BYTES FOR PRINTING 
* as w s 2 
Ld a2 @ a s e 
" a 8 oe a ® 


MOVE IN ASTERISK 
" a - 


MOVE IN DATA TG BE PRINTED 
PRINT THE RECORD 

SPACE 2 

LENCTH OF PRINT LINE 

ADDRESS OF PRINT LINE 
INCREMENT LINE COUNTER 

HAVE WE PRINTED ONE FULL LINE 





4248224 


9-. 


INCREMENT TO NEXT PORTION OF REC 
e 2 8 ° « ” 


NGeGO BACK AND PRINT 
PRINT NEW MENU 

SPACE ONE 

LENGTH GF PRINT LINE 
@ OF THE PRINT LINE 
PRINT NEW MENU 

SPACE ONE 

LENGTH OF PRINT LINE 
2 OF THE PRINT LINE 
PRINT NEW MENU 

SPACE ONE 

LENGTH OF PRINT LINE 
@ OF THE PRINT LINE 
PRINT NEW NENU 
SPACE ONE 

LENGTH OF PRINT LINE 
3 OF THE PRINT LINE 
PRINT NEW MENU 
SPACE ONE 

LENGTH OF PRINT LINE 
@ OF THE PRINT LINE 
5471 PRESENT 

YES 

PRINT MSG 


STOP TO ENTER DATA FROM SwS 


NO.SENSE CPU DATA SWITCHES 
UNPACK DATA 


PACKED DATA a 

UNPACKED DATA 2 

DIAGNOSE INPUT 

READ IN OPTION SELECTED 

ALTER OPTION SELECTED 

VES,»GO TO ALTER ROUTINE 

WRITE OPTION SELECTED 

YES:GO TO WRITE WRITE 

DISPLAY NEXT SEQUENTIAL RECORD 


VYES,»DISPLAY NEXT SEQUENTIAL RECORD 


RETURN TO DISK/PATCH MAIN MENUE 
VES»60 DISPLAY 


PROG ID 
_ PaGE 


044-3 
9A 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


D443. S/3._ 3360 AND CARD UTILITIES 
ERR LOC QBJECT CODE ADDR STHT 
S8BD CO 87 021A 1062 
SBC] Cé 58C1 1063 
SBC2 26 5802 1064 
SBC3 6920 5804 1065 
5BC5 Déb7 5BC6 1066 
58C7 CO 87 0222 1067 
5BCB D4B7 5BCC 1068 
56CD CO 87 5874 1069 
58D] 1070 ALTER 
5801 OD 01 OAB2 7109 1071 
5BD7 F2 82 09 1072 
SBDA OD 91 OA82 7108 1073 
SBEO F2 62 14 1074 
5BE3 CO 87 021A 1075 ERRGR 
5BE7 C6 5BET 1076 
SBEB 26 5BE8 1077 
SBE9 6953 58EA 1078 
SBEB 448g 5BEC 1079 
58ED CO 87 0222 1080 
5bF1 4488 58F2 108! 
5BF3 CO 87 S874 1082 
SBF7 OC 01 702E oAa2 1083 ALTERI 
1084 + 
5BFD 0C 01 708D 0a82 1085 
5CO3 OC O1 70F9 OAB2Z 1086 
5CO9 C2 01 ODFF 1087 
5COD F2 87 03 1088 
5C10 02 01 20 1089 INCRE 
5C13 07 01 702E 7109 10906 INCRE1 
5C19 CO O1 SCIO 1091 
SCID 34 OL 7032 1092 
5C21 1C 07 7097 08 1093 
5€26 1C 07 70A1 10 1094 
5C2B 1C O07 7048 1e 1095 
$$ 5C30 1C 07 7085 20 1096 
SC35 CO 87 O21A 1097 
5C39 02 5C39 1098 
—SC3A 2E 5C3A 1099 
5C3B 7085 5C3C 1100 
SC3D CO 87 022A 1101 
5C42 01 5C4L 1102 
5C42 18 5C42 1103 
543 69A0 5C4& 1104 
5C45 CO 87 O21A 1105 
5049 O01 5C49 1106 
5C4A 2€ SC4A 1107 
5C4B 69CE SC4C 1108 
SC4D CO 87 021A 1109 
SC51 02 5C52 1110 
5C52 30 5€52 1111 
5C53 69FE SC54 1112 
5SC55 CO 87 021A 1113 
$C59 01 SC59 1114 
SC5A 32 SC5a 1115 
SCSB 6A30 SCSC 1116 
SC5D CO 87 O21 1117 
5C61 01 5C6l 1118 
SCS2 34 5C62 1119 
$C63 6A64 SC6& 1120 
5C65 CO 87 021A 1122 
SC69 01 5C69 1122 
SC6A 2 SCGA 1123 
SCEB 6A92 SCOC 1124 
5C6D CO 87 021A 1125 
5C71 06 SCTL 1126 
SC72 18 5C72 1127: 
5C73 GAAA SCT 1128 
5C75 3C 40 7064 1129 xx33 
DATE 29AUGTS O7NOV75 22DEC75 
EC NG. 827604 


827805 827836 


~~~ MOD 12 


SOURCE STATEMENT 


B PRINTL 
oc XLi*cee 
oc ILL*3e8¢ 
OC AL2(ERR1) 
oC XL2°*D4B7° 
B HALT 
DC XL2"'04878 
8 Xx03 
—EQU)  ® 
CLO = READIN#2(2) CHARI 
Jt ERROR 
cLc REAODEN4¢2(2) »CHARL? 
JL ALTER 
8 PRINT 
oc XL1*Ce6* 
DC ILL* 366 
oc AL2(ERR2} 
oc XL2*4488¢ 
8 HALT 
oc XL2*4466* 
8 XX03 
MVC 8 =—«- CTRO 2) ,READING2 
MVC = LINE4¢5(2) ,READING2 
MVC) = CHGLIN#¢5(2) -READING2 
ta BUFFER4511,_XR1 
J INCRE1 
LA 32(—eXR1)_,XR1 
$2 CTR(21, CHARI 
BNZ IWCRE 
ST SAVGsXR1 
MVC =LINE+1518),8(,XR1} 
MVC) =e LINE 4+25(8),16(,XR1? 
MVC) =e LINE #3518) 5240,XR1? 
MVC) 8 =— LINE #458), 321,.XR1) 
8 PRINT1 
oc XL1*02* 
pc ILL *46¢ 
oc AL2(LINES45) 
8 PRINTI 
oc xL1*o1* 
oC ALLCINFOI-INFGA) 
DC AL2CINFOL) 
8 PRINT 
Bt XLL*O1* 
DC ALL CINFO2—INF OB! 
DC AL2C INFO2} 
8 PRINT 
oc XL1*02¢ 
oc AL1CINFO3-INFOC! 
OC AL2CINFO3) 
B PRINTL 
oc XL1t*OL* 
pc AL1LCINFO4-INFOD) 
oc AL2CINFO4) — 
8 PRINTL , 
oc XL1°O2° 
oc ALL CINFOS-INFOE) 
oc AL2UINFOS} 
8 PRINTL 
oC XL1i*ol? 
oc ALI CINFO6-INFOF) 
oc AL2C INFOS) 
8 PRINT 
Bc XL1°O8* 
DC ALL CINFOT~INFOG) 
oc ALZ(C INFOT7) 
MVI ASTLING65 X*40¢ 
LOMART6 
827872 


eS 


PART NO. 


PAGE 10 


PRINT ERROR MSG--INVALID OPTION 
SPACE 2 

LENGTH GF MSG 

@ OF ERROR MSG 


RETURN TO GPTIGN MENUE 


MOVE IN LINE COUNT TO INCREMENT INTO! 


RECORD TO DISPLAY A 32 BYTE SEGMENT 
MOVE IN LINE # TO DISPLAY 

MOVE IN LINE # TO DISPLAY 

LOAD THE @ GF THE RECORD 

JUMP TO INCREMENT 

INCREMENT XR1 TO SELECTED SEGMENT 
DECREMENT COUNTER BY GNE 

NOT ZERO.THEN CCNTI INCREMENTING 
SAVE THE @ REPLACING ALTER RECORD 
MOVE IN & BYTES FOR PRINTING 

es a 


PRINT RECORD THAT IS TO BE ALTERED 
SPACE 2 

LENGTH OF RECORD 
@ OF RECORD TG BE PRINTED 
PRINT MSG 

SPACE 

LENGTH 

MSG a 

PRINT MSG 

SPACE 

LENGTH 

MSG a 

PRINT MSG 

SPACE 

LENGTH 

MSG a 

PRINT MSG 

SPACE 

LENGTH 

MSG a 

PRINT MSG 

SPACE 

LENGTH 

MSG a 

PRINT MSG 

SPACE 

LENGTH 

MSG a 

PRINT MSG 

SPACE 

LENGTH 

MSG a 

INIT CHANGE LINE 


“PROG 1D 
PAGE 


4248224 


| 
| 
\ 


canner: + saponin teeta eel senaeeate - aetna emmians selma news Ce im seinen: etnias me 


2 


. D443 


& 
ERR LOC 


aM, 


ey 


i” 


i 


vo 
She 


es 


t 


oO 


© 0 0 


€ 


w 


ae 


OATE 
€C NO. 


© 
© 
© 
€ 


5C79 
SCT7F 
5C83 
5C 86 
5C8A 
5€90 
5C94 
5C98 
SC9A 
5SC9E 
SCA4 
5SCA8 
5Cao 
5CAB 
SCAD 
5CB1 
SCB7 
5C88 
5CBE 
5¢C3 
5CC6 
5CCA 
5CCB 
SCCD 
SCCF 
5c02 
5CD6 
5SCDA 
S5CDD 
SCEL 
5CE5 
5CE9 
SCED 
SCF3 
5CF9 
5SCFF 
£D02 
5D05 
5009 
SOOF 
5013 
5D17 
5018 
SDLE 
5022 
5025 
5029 
5020 
5033 
5D38 
5D3C 
5D40 
$046 
5D4A 
SD4E 
5D52 
5055 
5059 
5SD5F 
5D63 
5067 
5D68 
5SD6E 
5071 
SDOTT7 
S078 
SOTF 
5085 


I6M MAINTENANCE DIAGNOSTIC PROGRAM 


$/3 3340 AND CARD UTILITIES 


PART NO. 
PAGE 


4248224 
AA 


=--- MOD 12 


OBJECT CODE ADOR STMT SQURCE STATEMENT 

OC 2B 7063 7064 1130 MVC ASTLING44(44) sASTLINGGS 

38 20 OADE 1132 TEN U5471-1,xX"208 5471 PRESENT 

F2 10 57 1132 JT = -XX31 YES,USE FOR INPUT 

C2 01 OA89 1133 DATAlL LA READINGS, xR1 LOAD THE @ OF REAO BUFFER 

OC 01 7030 7109 1134 MVC = CTRL1(2), CHARI INIT CTR TO 1 

3C O1 5C99 1135 MVI = -XX564X*01* INIT HALT IND 

CO 87 0222 1136 DATA2 6 HALT ISSUE HALT sREADY FOR INPUT 
4401 5C99 1137 XX56 DC = XL2*§ 44018 

30 00 71DF 1138 SNS WORK, X*00! READ DATA FROM CPU SWS 

06 01 7030 7109 1139 AZ —s- CTR12(2 p CHARI INCREMENT HALT IND 

CO 87 0226 1140 B PACK 

02 SCAB 1141 oc IL1*02* LENGTH 

7030 SCAA 1142 DC AL2(CTRI1) UNPACKED 

5C99 SCAC 1143 DC = AL2 (x56) PACKED 

34 01 7034 1144 ST  SAVXR1,XR1 SAVE XR1 

OC 01 SCCE 7034 1145 MVC = - KX34(2) , SAVXR1 MOVE IN @ TO STORE DATA 

3D 40 T710F 1146 Cul WORK, X*40° CHECK FOR BLANK 

F2 01 08 1147 JNE XX37 NO,UNPACK DATA 

4C 01 00 729A 1148 MVC O(2eXR1) s BLANK MOVE IN BLANKS 

F2 87 09 1149 J XX38 CONT INE 

CO 87 O21E 1150 Xx37B UNPACK UNPACK DATA FROM SWS 

01 SCCA 1152 DC IL1°O1" 

71DF SCCC 1152 DC = AL2 (WORK) PACK DATA @ 

0000 FCCE 1153 XX34 oc AL2 (#—-#) UNPACK DATA a 

02 O01 02 1154 XX38 LA 2 Ue XR1))XR1 INCREMENT TO WEXT POS 

3D AF 7034 1155 CLI = SAVXR1,X*AF* DONE WITH ONE REC 

CO O01 5C94 1156 .. BNE  DATAZ NO »GO BACK FOR MORE DATA 

F2 87 04 1157 J XX32 

CO 87 6210 1158 Xx31_ BB RECORD GET ALTERED RECORD DATA 

C2 01 7090 1159 XX32. LAs LINE4#8, XR1 LOAD THE @ OF ORIGINAL RECORD 
C2 32 OAaBs 1160 LA  —- READIN¢8, XRZ " LOAD THE @ OF ALTERED RECORD 
3C 00 702E 1161 MVI = CTR+O SET COUNTER TO ZERO 

OC O01 0a91 729A 1162 MVC = READIN®17(2)sBLANK FORMAT OUTPUT RECORD 

OC 01 OA9B 729A 1163 MVC —- READIN#27(2) BLANK . . “ . 
OC 01 OAAS 729A 1164 _ MVC READING37(2) »BLANK " « « Se ea 
8D 40 00 1165 XxXXxX4 CLI 004XR23,X*408 BLANK ENTER 

F2 01 19 1166 JNE =. XXX6 NOsCHECK FOR COMPARE 

34 02 7036 1167 ST — SAVXR2_XR2 SAVE REG 2 

OC 00 5D15 702E 1168 MVC -XX4442119 CTR MOVE IN DISPLACEMENT VALUE 

C2 02 7OFC 1169 LA — CHGLIN¢8, XRZ LOAD THE @ OF THE CHG LINE 

9C 00 00 00 LETO XX44 MVC) OL Be XR2ZP900 XR1) MOVE IN UNCHANGED BYTE 

35 02 7036 1171 L SAVXR2_XR2 RESTORE REG 2 

F2 87 4D 1172 J XXX5 SKIP COMPARE CHECK 

6D 00 00 00 1173 XXX6 CLC. O01 o XR1 490 4XR2Z) COMPARE ALL 32 BYTES OF RECORD 
F2 81 30 1174 JE °—«XX52 OK,DON'T PUT IN © IN CHG LINE 
34 01 7034 1175 ST SAVXR1.XR1- SAVE @ OF CHANGE BYTE 

C2 O1 703F 1176 LA = ASTLIN®8yXR1 LOAC THE @ OF THE CHG FLAG LINE 
OC 00 5D35 702E 1177 MVC =—- XX224211)-CTR LOAD THE DISPLAY OF CHG BYTE 
4C 00 00 71D1 1178 XX22  MVC-— «OL 1 »XRIPPASTER CHARACTER ®@ INSERTED IN CHG FLAG 
35 01 7036 1179 L SAVXR1»XR1 RESTORE TO ORIGINAL VALUE 

34 O1 7034 1180 ST = SAVKR1,XR1 SAVE REG 2 

OC 00 5D4C 702E 1181 MVC =—- XX774241)eCTR MOVE IN DISPLACEMENT VALUE 

C2 01 7OFC 1182 LAs CHGLIN¢ 8, XR1 LOAD THE @ CF THE CHG LINE 

6C 00 00 00 1183 XX77) MVC) «OL 1p XR19.900 2 XR2? MOVE IN CHANGED BYTE 

35 01 7034 1184 L SAVXR1¢XR1 RESTORE REG 2 

F2 87 16 1185 J XXX5 INCREMENT TO NEXT 

34 02 7036 1186 XX52.0 ST = SAVXR2_XR2 SAVE REG 2 

OC 00 5D65 702E 1187 MVC. XX5542(19,CTR MOVE IN DISPLACEMENT VALUE 

C2 02 70FC 1188 LA = CHGLINC8,XK2 LOAD THE @ OF THE CHG LINE 

9C 00 00 00 1189 XX55 MVC OL 2 XR29400 4 XR1) MOVE IN CHANGED BYTE 

35 02 7036 1190 L SAVXR2»XR2 RESTORE REG 2 

02 02 01 1191 XXX5 LA 11 9XR1) 9XR1 INCREMENT TO NEXT CHARACTER 
‘£2 02 01 1192 LA 10 9XRZD 9 KR INCREMENT TG NEXT CHAR» 

OE 00 702E 7015 1193 ALC CTR(1),0NE DECREMENT COUNTER 

30 26 702E 1194 CLI CTRsX*26" DONE WITH THE LINE 

CO 01 SCFF 1195 BNE = XXX4 NO.GO BACK 

OC LE 70D% 70F3 1196 MVC - LINES76(319,L INE} MOVE IN LINE LABEL 

CO 87 O21A 1197 B PRINTL PRINT ALTERED RECORD 

29AUG75 O7NOV75 220EC75  19MARTE PROG ID D64—-3 
827804 827805 827836 827872 PAGE 10a 
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18M MAINTENANCE OLAGNOSTIC PROGRAM 


D443 
ERR LOC 


5089 
SO08A 
5088 
508D 
5D93 
5099 
5SD9F 
5DA3 
SDA4 
5Da5 
SOAT 
SO0AB 
SDAC 
5DAD 
SODAF 


5063 
5O0B4 
5085 
5087 


5088 
508C 
5DBD 
SOBF 


§0C3 
' 5004 
50C€5 
Soc? 
50¢€8 
SDCD 
5001 
5005 
5009 
5000 
50E1 
5G6E6 
SDEB 
50FO 
SOF5 


SOF9 
SOFOD 
SOFE 
5E00 
5E02 


SE06 
SEOC 
SELO 
SEL4 
5E1S 
SE17 
SEL9S 
SE10 
SELE 
SE20 
SE22 
5SE26 
SE2T 
5E2° 
5E2B 
‘SE2F 
5E30 
5SE32 


DATE 
—c NO. 


S/3 3340 AND CARD UTILITIES 


OBJECT CODE 


01 

4D 
7004 
oc Ol 
oc O01 
oc 01 
co 87 
01 

58 
TI4E 
CO 87 
06 

51 
7087 
CO 87 


7105 729A. 
TIOF 729A 
T7119 T29A 
O21A 


O21A 


O2iA 


01 

32 
7180 
CO 87 O21A 
ol 


T1B4 
CO 87 O21a 
06 

1c 

7100 
co 87 
4&4E8 
30 
3a 
30 
co 
35 


0222 


T1iOF 
T10F 
T1DF 
5C75 
7032 
08 7103 
i0 7100 
18 7117 
20 7121 
5B4C 


4C 


co 


co 87 
03 
7205 
OA85 
CO 87 


O21E 


5AaC2 


OC 04 
3¢ 00 
co 87 
80 

OE TF 
OC 3F 
co 87 
80 
OEFF 
OC7FE 
co 87 
80 
OFTEF 
OcBF 
CO 87 
80 
OFFF 
OCFF 


646E 
6472 
0226 


T7227 


0226" 


0226 


0226 


29AUGTS 
827804 


OTNOV7? 
827805 


ADDR 


5089 
5D8A 
5D8C 


5DA3 
5DA4 
5DA6 


5DAB 
50ac 
5DAE 


5083 
5DB4 


5DB6 


5DBB 
5D0BC 
SDBE 


50C3 


“$004 


5D0C6 
s50CC 


SOFD 
SDFF 
5E01 


SE14 
5E16 
5E18 


SELD 
Se1F 
SE21 


SE26 
SE28 
SE2A 


SE2F 


SE32 
SE33 


5 


ae 


| | 


an, 
Bey 


PART NO. 4248224 
_ PAGE ll € 

MOD 12 : ganas 
STMT SOURCE STATEMENT | “ERR. LOC 
1198 oC = XL 01° SPACE 2 1 €3 
1199 oc IL1¢77* LENGTH 5E34 
1200 oc AL2(LINE+76) @ OF ORIGINAL RECORD _ 5€38 
1201 MVC) = CHGL IN¢17(2) ¢BLANK FORMAT OUTPUT RECORD i €% 5839 
1202 MVC = CHGLIN#27(2) «BLANK ” ” " : 5E3B 
1203 MYC = CHGLIN¢37{2) »BLANK " “ es a 
1204 B PRINTL PRINT ALTERED RECORD i €* S€30 
1205 DC XLL‘OLS SPACE 1 5E41 
1206 oC ILi*9i LENGTH 5E42 
1207 oc AL2(CHGLIN+90! @ OF CHG LINE FLAGS i €  SE44 
1208 8 PRINTL PRINT CHANGE ASTERISKS 7 5€46 
1209 oc XL1°06" SPACE _ SE4A 
1210 oc IL1*81¢ LENGTH €° 5 E4B 
1211 DC AL2( ASTLIN+80) ASTERISK LINE “  -SE4D 
1212 B PRINTL PRINT MSG TO GIVE OPTION TO -  SE4F 
1213 « CHANGE OR SAVE ~€ > 5E53 
1214 oc XL1°O1° SPACE 2 5E54 
1215 oc 1i1"So¢ LENGTH /  5E55 
1216 DC AL2(KEEP) @ OF MSG 1 € SE57 
1217 8 PRINT1 PRINT MSG TO GIVE OPTION TO : " 5€58 
1218 + CHANGE OR SAVE 
1219 pc = XL. 1 801* SPACE 2 iG 
1220 oc 1L1°52° LENGTH 
1221 DC AL2(KEEP1) @ OF MSG i‘ 
1222 8 PRINT1 PRINT MSG TO GIVE OPTION TO | © 
1223 * CHANGE OR SAVE 
1224 DC XL1*06°* SPACE 2 
1225 oc IL1*28* LENGTH. & 
1226 DC AL2(KEEP2) @ OF MSG | 
1227 8 HALT HALT FOR SELECTION OF OPTION 
1228 oC XL2°46E8¢ |@ 
1229 SNS © WORKsXx*00t GET RESPONSE | 
1230 S8N WORK.X*FO® MAKE NUMERIC 
1231 CLI WORK, X*F1° YES @ 
1232 BE XX33 RE-TYPE DATA 
1233 t SAVOeXR1 LOAD THE @ OF ALTERED SEGMENT 
1234 MVC) = 808 e XR1) eCHGLINGLS MOVE IN CHANGED DATA TO WRITE | @ 
1235. MVC =: 160 By XRLP»CHGLINGZS = TO 
1236 MVC 8 =—- 2418 » XR19 s CHGL IN435 THE | 
1237 MVC 9-32.48 oXR1) sCHGLINGSS DISK i@ 
1238 8 XXx15 
1239 * 
1240 * WILL DISPLAY NEXT SEQUENTIAL RECORD rs] 
1241 * 
1242 NXTSEQ 8 UNPACK IF SO, GO TO NEXT RECORD 
1243 oc =a '3e & 
1244 DC =—_s« ALC PSBYTE) | 
1245 oc AL2(READINGS) 
1246 8 NEWADR GO SEEK TO THAT CYL/HEAD/RECORD @ 
1247 
1248 GODOWT MVC =DOCFM(5),SAV MOVE IN WRITE PARAMETERS 
1249 MVI = DDCF,0 WRITE 1 RECORD @ 
1250 8 PACK PACK RECORD TO WRITE TO DISK 
1251 oC 1L1°128° 
1252 DC AL2( BUFFER+639) @ OF UNPACKED RECORD i @ 
1253 oC AL2(BUFFER+63) @ OF PACKED RECORD 
1254 8 PACK PACK RECORD TO WRITE TO DISK 
1255 oC 1L1*128° @ 
1256 oc AL2( BUFFER¢767) @ GF UNPACKED RECORD 
1257 Dc AL2(BUFFER+127) @ OF PACKED RECORD 
1258 8 Pack PACK RECORD TG WRITE TO DISK @ 
1259 DC 1L1°128° 
1260. DC AL2(BUFFER+895) @ OF UNPACKED RECORD 
1261 oc AL 2(BUFFER4191) @ OF PACKED RECORD & 
1262 8 PACK PACK RECORD YO WRITE TO DISK | 
1263 DC ILi*128¢ | 
1264 0c AL 2(BUFFER* 1023) @ OF UNPACKED RECORD | @ 
1265 oc AL2( BUFCER+255} @ OF PACKED RECORD | 
22DEC 75 LOMART6 PROG ID 044-3! Oe 
827836 =—-«827872 PAGE 11 | oe NO. 





$/3 3340 AND CARD UTILITIES 


OBJECT CODE ADDR 
CO 87 6475 

40 5E38 
ocoo SE3A 
6469 5E3C 
CO 87 O21E 

OL 5E41 
1224 5E43 
6F30 5E45 
CO &7 O21E 

02 5E4A 
T1227 5SE4C 
6F41 ‘ SESE 
CO 87 O21A 

06 5£53 
12 5E54 
6F4D 5E56 
CO 87 59A9 
C3C3C8C8D0909 5£60 
29AUGT5 O7NOV75 
827804 827805 


_ 18M MAINTENANCE DIAGNOSTIC PROGRAM. 


STMT 


1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 


=——- MOD 12 
SOURCE STATEMENT 


1285 CCHHRR OC 


22DEC75 
827836 


SCC OOCCeoCeCeoeoeovevecs 


4248226 
iA 


PART NO. 
PAGE 





WINRW WRITE ON 3340 


B 
OC xLI*sor WRITE FLAG 
OC = AL2( BUFFER} © 
DC AL2(DOCFB) 
B UNPACK UNPACK CYLINDER, HEAD, AND 
oc. Iki RECORD VALUES 
DC = AL2(Sav-3) 
DC = AL2(BWRT~16) | 
8 UNPACK 
oc = s«arLat2e 
DC =—_ AL2( SAV) 
OC = AL2( BHRT=12) 
B PRINT] 
OC xL1*06! WRITTEN 
pc 8 s«aAL A * 488 
OC AL2{BWRT? 
B DPATCH RELURN TO OPTION MENU AFTER WRITE 
CL6*CCHHRR® 
LTT NA TS 
S 
19MART6 PROG ID D44-3 
627872 PAGE 1A. 


16M MAINTENANCE DIAGNOSTIC PROGRAM 


D443 


ERR LOC OBJECT CODE 


5E61 
5E65 
SE69 
SE6D 
5E70 
SET74 
SET? 
SE7B 
5E7E 
5SEB2 


SE85 
5€89 
5&80 
SE90 
5E94 
SE95 
5E96 
S5E98 
SESA 
SESE 
SESF 
SEAO 
SEA2 
SEAG 
SEAT 
a al a atl SEAS 
5EAA 
SEAE 
5EB0 
SEB4 


5E88 
SEBC 
SEBF 
SEC3 


SEC7 . 


SECA 
SECE 
SED2 
SE05 
SED9 
SEDO 
SEER 


SEES 
5EE9 
SEED 


DATE 
Ec NO. 


34 08 
3C 00 


F2 90 
3C FO 
F2 87 
38 20 
F2 90 
3c 51 
F2 87 


39 AO 
39 Ol 


co 87 


7406 


34 08 
30 00 
CO 81 


29A8UGT 
827804 


SEES 
7228 
OAGB 
Oo? 
7220 
41 
OALIL 
3a 
7226 
33 


0206 
Q20A 
28 

O21A 


O21A 
O21a 


0222 


0212 
SE65 


020A 
04 

7228 
0205 


7228 
G208 
04 

7228 
722s 
SE&S 
0000 


SE3E 
2228 
5E61 


5 


$/3 3340 AND CARD UTILITIES 


ADDR 


5SE6L 


SE94 
SE95 
SES7T 
5599 
SESE 
SESF 
SEAL 
SEAG 
SEAT 
SEAS 


SEAF 


SE6E 


SEES 


OFNOVTS 


PAGE 122526 
——— MOD 12 0443 
1 {- 
STMT SOURCE STATEMENT | ERR LOC 
L287 *eeeeeeeeesesseecesesecese (:  SE€F1 
1288 * "SERS 
1289 * THIS SUBROUTINE IS USED TO DETERMINE WHICH 
1290 * 80 CGLUMN CARD DEVICE SHOULD BE USED FOR DUPING DECKS. €3 
1291 * | 
1292 SHEEEESSESESEKEESESEREEERESEKE 1 SEFS 
1293 €. SEED 
1294 SETCRD FOU * : ~~ 5FO1 
1295 ST ECRD+¢3, ARR 5FO4 
1296 MVI CROFLG,0O SET CARD FLAG TO ZERO /€ > 5F08 
1297 TBN UMFCU-1,X*20¢ IS IT THE MFCU 7" SOC 
1298 JF #410 5F10 
1299 MVI = CRDFLG,MFCU /€2 Sle 
1300 J DONE oT 
1301 TEN §=U1442-1,X"208 IS IT THE 1442 
1302 JF DONE . 'e 
1303 MVI  CRDFLG, M1442 | 
1304 3 DONE } SFL8 
1305 | C2 5Fic 
1306 CKAGN TBF SWITCH4+1,SSW18¢SSWIA ARE SSW'S ON? | 6 F20 
1307 TBF SWITCH. SSW17 { 5F23 
1308 JF = SSWSET | €%  SF2T 
1309 8 PRINT - PRINT is" 5528 
1310 oc XL1¢Cie SSW OPTIONS i SF2F 
1311 oc 1L1°30° ; € 5633 
41312 DC AL2(MSGNOT) Co 5°37 
1313 oc XL2*04438 | 5F368 
1314 B PRINT — | © 
1315 DC XL1°8L° 
1316 OC IL1*508 | 
2317 DC =—s_« AL2 CMSGSETY i@ 
1318 8 PRINT { 
1319 DC —s_ XL "B68 536 
1320 DC — ss EL. *63* | €&  5r43 
1322 DC AL2(ONLY} oe 5F49 
1322 8 HALT HALT | SF4D 
1323 pc XL2*D443¢ BR GQ FOESS994E46 8666604660484 | & 5SF4E 
1324 8 TEST ee SF4F 
1325 8 CKAGN 5F51 
2326 ; | &  5e53 
4327 DONE E£GQU ¢ | SF57 
3328 SSWSET TON SWITCH,SSW17 SSW17 SELECTS 3741 i 5&59 
4329 JF $47 S 
4330 MVI—- CRDF LG. M3741 | 
1332 _TBN — SWITCH1,SSW18 SSW18 SELECTS 1442 ' 
- 1332 JF B47 : \@ 
1333 MVI = CRDFLG» M1442 
1334 TBM  SWITCHEL»SSWIA SSW1A SELECTS MFCU | 
1335 JF 47 eS 
1336 MVI- CROFLG, MFCU | 
1337 CLI CRDFLG,O WAS ANY DEVICE SELECTED? 
2338 BE CKAGN | e 
1339 ECRO iB ++ 
E340 | 
£340 (€% ssp 
1340 | | | | SFol 
ESQ] 046806060206260502808000868000668044 ; 5F65 
2342 © '€ sFes 
2343 © THIS SUBROUTINE IS USED TO READ ONE CARO FROM THE 5426 OR i SF6C 
k3ae & 1442. DATA IS READ INTO LOCATION *0880* — *OBCEt. SF70 
1345 * IF THE CARO IS READ FROM THE MFCU, DATA IN X*O880* — x*O8DF* | € . 5F74 
1346 * 
LBGT O980F90060605656000 406084068808 E SS Pe sere 
1348 | €: Ste 
1349 READ8O EQU + SF85 
£350 ST EREAD¢3, ARR . 586 
2353 CLI CROFLG,0 HAS A READER BEEN SELECTED? |; & sree 
2352 BE SETCRD ; 1 ; 
= / | 
22DEC 75 LOMAR 76 PROG ID 044-3! Oo re 
827836 827872 12) 7 €C NO. 
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$/3 3340 AND CARD UTILITIES 





PART NO. 4248224 
PaGE 12a 


o--—- MOD 12 





OBJECT CODE ADDR STMT SOURCE STATEMENT 
30 51 7225 1353 CLi CROFLG M1442 SHOULD THE 1442 BE USED? 
CO 81 5F18 1354 BE RD42 
1355 * 
1356 * MFCU 1/70 
1357 * 
Cl FO SF3F 1358 ERR24 TIO ERR» X* FOP , NOT READY/ERROR 
31 €5 7220 1359 Lid READBF ,X*F5* LOAD MFCU LSR 
F3 Fl 05 1360 sta X*O5*%eX*F2¢ READ 1 CARO(STACKER 1) 
Cl Fl SF04 1361 T10 SeX*F18 WAIT FOR BUSY 
30 F3 7018 1362 SNS STATUK, X*F3# SENSE DEVICE STATUS 
39 86 7016 1363 TBF - STATUX,X*86! TEST FOR READ OR FEED CHECK 
CO 90 SEF9 1364 BF ERR24 
CO 87 5SF38 1365 B EREAD RETURN 
1366 
1367 * 
1368 * 1442 170 
1369 * 
31 54 7220 1370 RD42 LIO READBF ,X*54# LOAD READIN LSR €1442) 
Cl SO SF3F 1371 ERREP TIO ERReX*50# NOT REAOY/ERROR? 
F3 Si OO 1372 MODSIO SIO X*O00",xX*51* READ 1 CARD 
Ci 52 SF23 1373 TIG = ¥eX*528 WAIT FGR BUSY 
3C 00 SF22 1374 MVI MODS 10¢2,.X*00# 
30 53 7018 1375 SNS STATUK, X*53¢* 
39 87 70lb 1376 TBF STATUX,X*87* ANY ERRORS? 
39 1F 7O1A 1377 TSF STATUX—1 eX" 1LF# 
Co 90 SFIC 1378 BF ERREP 
co 87 0000 1379 EREAD 8 +--+ RETURN 
1380 : 
1381 ¢ ‘ 
1382 * THES PRINTS NOT READY/ERRGOR MESSAGES 
1383 * : 
5F3F 1384 ERR EQU + 
34 O08 SFS5C 1385 Sst EERR+3,ARR : 
OF O1 SF5C 7OLO 1386 SLC EERR*2( 2), FOUR o. 
CO 87 O21A 1387 8 . PRINT PRINT beatin t ee Ser 
cé S5F40 1388 oc XL1‘'Ccé* CARD READY : . 
LE SF4E 1389 oe. I£L1*30° : NOY READY/ERROR 
738F 5F50 1390 BC AL2{MSGCNR) 
O4EC 5F52 1391 DC XL2°D4EC! 
co 87 0222 1392 8. HALT HALT 
O4EC 5F58 1393 oc XL2*D6EC* = EC soeseeeeseseesceeesseeees 
co 87 0000 1394 EERR 8 s-t mere 
1395. 
1395 
1395 
1396 seeerecensenseesscenseesesesssenss 
1397 * . 
1398 * THIS SUBROUTINE IS USED TO PUNCH ONE CARD FROM THE | 
1399 # 1442 OR THE 5424 OR WRITE ON THE 3741. ‘BUFFER ¢ 256¢ 1S THE 
1400 ¢ BEGINNING ADDRESS OF THE PUNCH AND PRINT DAT FIELDS~ 
1401 * 
1402 €966¢406060006066606600004090800002 
1403 
SFS5D 1404 PNCHSO EQU * ee a 
34 08 600E 1405 St EPUN1<3,ARR. , SAVE RETURN ADDRESS 
30 FQ 7228 1406 CLE CROFLG,MFCU as 5 
F2 81 33 ' 1407 JE " P5424 wh as 
30 40 7228 1408 CLI §=6CROFLG M3741 - FF? .. 
CO Bi 606C 1409: BE RIT37 : 
3c 00 720C 1410 mVE FIRST.O ; Pi: / = eee 
30 FF 722) ‘1411 cur FLAGC,X"FE* SHOULD 2 £OR 1 BE MADE? Pants, see ee 
3C 00 7221 1412 MYI FLAGC.0 ZERO THE 2 FOR 1 FLAG . : we We Se 
F2 01 14 1413 JNE NOT 2F1 : 2 es es ees eS 
OC 13 7220 O8DF 1414 AVC = SAV20(20),INPUT495 SAVE LAST 20 BYTES 1 eee es 
OC 02 O8CF 729A 1415 AVC INPUT¢79(3) , BLANK SLANK GUT FIELD IN 1ST CARD . te 
3C €7 O8cc 1416 ' VI ‘INPUT¢76,C €X® PUT ©X* IN COLUMN 77 = = sige ” 
3C FF 720C ' 1417 MMVI FIRST SX*FFS 
5F93 1418 NOT2F1 EGU * 
29aUuG75 OTNOVTS - 22DECT7S LOMART6 | : 5 | - PROG ID  D4e-3 
827804 ‘827805. . 827836 827872 o 4 : 3 = PAGE ef BY, 42a 
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TBM MAINTENANCE DIAGNOSTIC PROGRAM 4248224 168M MAINTENANCE DIAGNOSTIC PROGRAM 


PART ND« PART NO. aeneaze 
PAGE 130. PAGE 73 
0443 $/3 3340 AND CARD UTILITIES -=- MOD 12 . 0443 S/3 3340 AND CARD UTILITIES --- MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT : ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
| ae ee ROERNEEEERERER TERRES DDEOSDEESEDERTERERORDESORTS 
ROFLGy M1442 14422 = L480 €£844049450084460446862K08088 
cece és ay eae 1a20 ce uae : €: 1481 * WRITE A RECORO ON THE 3741 
1421 * : 1482 RERREREKSEKSEREKKESSESEARESESEREESEREESRECKESESSSSEESERASESEAOEERESAAKESEEOCEREEEEOE 
422 * MFCU PUNCH 1/0 ne a 1483 
os * oo 606C 3D 00 7290 1484 RIT37 CLI DFLAGO Eee ek pg le DECK 
FC6 1424 P5424 BVI RDAGN2+2. X* 06? 6070 F2 81 06 1485 JE *4+9 JU 
eEor ai eS aoa 1425 L106 ACROD,X*FS* READ LSR H 6073 OC 01 7019 7015 1486 MVC) 8 =—s- NUM(.2) , ONE SET UP TO LOOK FOR A ONE 
SFA3 31 FO TLEC 1426 LIQ ABUF,X*FEr PUNCH LSR . 6079 OD O1 7021 7019 1487 CLC SECNT( 2} «NUM CHECK FOR LAST CARD 
5FAT 31 F4 T1EC 1427 L10 ABUF,X*F4* PRINT LSR 607F F2 01 04 1488 JNE #47 JUMP IF NOT Beare gee 
5FAB OC SF ODSF OB8nF 1426 MVC) =: BUFFER+351(96) eINPUT4+95 SETUP PRINT BUFFER i 6082 3A 80 6FSE 1489 SBN FLAGsX*80* SET LAST RECORD FL 
5FB1 Cl F8 5F3F 1429 P24 TIO) = ERR» X* FBS NOT READY/ERROR? 6086 31 41 6F55 1490 LIO FUNREG,»x*41* LOAD FUNCTION REG 
5fB5 30 F3 7018 1430 SNS STATUX, X*F 3° 608A OC SF ODSF O8DF 1491 MVC) =—s- BUFFER #351(96), INPUT#95 SETUP PRINT BUFFER 03 
5FB9 38 10 TOla 1431 TBN STATUX—16X*10° CARD IN WAIT2? 6090 30 43 6F5D 1492 XFER SNS TRANS,X'43* SENSE XFER REG 
SFBO F2 10 17 1432 _ JT CKBLK2 609% 38 O01 6F5C 1493 TBN TRANS—1,X"O1? TEST FOR WRITE MODE 
5FCO 31 £5 7231 1433 REP) L100 §=ACRD,xX*F5# eter 6098 be : ae Mae a Ae ete ON 
SFC4 F3 £9 06 1434 RDAGN2 SIO X*06",x*Fg! TO STACK ¢ 609B 
5—C7 Cl F9 SFCT 1435 TIO »=—_ Bye X* FOF WAIT FOR BUSY , 609F C1 : 609F 1496 Oc XL1*C1? *3741 IS NOT IN THE INPUT MODE® 
5FCB 30 £3 7018 1436 SNS STATUX, X*F3* a 60A0 1D 60A0 1497 oc IL1*29° 
SFCF 39 86 7018 1437 TBE STATUX,X*868 READ OR HOPPER CHECKS? € 60A1 6FDF oN pees ee SEoineeee 
5FD3 CO 90 SFBL 1438 BF P24 60A3 DDED 60A4 14 
+ NK THE R NK? 60A5 CO 87 O21A 1500 b PRINT PRINT 
oruD oA a — wear pie meee iy eerie Seen ere pore en 1 € oe 06 : 60A9 1501 pc XL1°O06! *PUT IT IN THE INPUT MODE ANO RESET 
SFEO 3C 04 S5SFC6 1441 MVI RDAGN242 4X" 04° REJECT TO STACKER 4 pees 60AA 28 60AA 1502 oc IL1'43! THE HALT* 
S5FE4 CO 87 SFCO 1442 8 REPL at 60AB 700A 60AC 1503 oc AL2UPINW) 
5FE8 Cl FG 5SF3F 1443 PPTIO TIQ ERR X*EB! 1 €° 60AD CO 87 0222 1504 B HALT ERROR HALT -Eg~ 
SFEC 31 F5 7231 1444 L1G ACRO,Xx*'F5* es 6081 DDE9 60B2 1505 oC Nee tee? 
5FFO F3 FF 06 1445 S10 X*06*,xX*FF? READs FEED» PUNCH, PRINT \ 6083 CO 87 6090 1506 8 XFER 
SFF3 Cl FF SFF3 1446 TIO) #g XT FFE WAIT FOR BUSY oe 1507 
SFF7 30 F3 701B 1447 KPSNS SNS = STATUX,X*F3# | c 60B7 Cl 40 6102 1508 OK TIO =ERRCHK, X*408 TEST FOR THE 3741 NOT READY ‘a 
5FFB 39 80 7O1A 1448 THF STATUX~14X*80* WAIT FOR PRINT BUFFER 1 TO DROP 60BB OC 01 60CB 6F51 1509 MVC =6LD3743029.RD00 SET UP LIG AREA 03 
5SFFF CO 90 SFFT 1449 BE KPSNS : 1 1510 ee 
60G3 39 FE 701B 1450 THE STATUX,X*FES AMY ERRORS? © 60C1 F3 43 08 1511 SIG) = FORRES. CONTi RESPONSE TO 3741 
6007 CO 90 SFE8 1451 BF PPTIO 60C4 31 42 6F57 1512 LIO0 LENI28,x*42* LOAD LENGTH COUNT RES 
6008 CO 87 0000 1452 EPUNL B *-% RETURN TO CALLER | €° 60C8 31 44 0000 1513 L037 LIO Ha XI1GKE LOAD OAR - 
1453 "  - 60CC -F3 42 00 1514 SIO = X* 00% ,x#428 WRITE A RECORD aa eo 
1454 © | 60CF Cl 42 60CF 1515 TIQ =, X*428 tLCOP ON BUSY : 
1455 * 1442 PUNCH 1/0 & 1516 
1456 * 60D3 Cl 40 6102 1517 TIO = ERRCHK, X*408 TEST FOR ERROR OR NOT READY 
600F OC SF OACF O8CF 1457 PUNG2 MVC DUMMY4+79(60),INPUT¢79 PUT DATA TO BE PUNCH INTO TEMP | 1518 
6015 CO 87 SEES 1458 RDAGNI @ READB8O READ ONE CARD ¢ 6007 F3 43 08 1519 ENDRES SIG FORRES, CONT] RESPONSE TO 3741 
6019 OD 4F O8CF 729A 1459 cic INPUT+*79{ 80) » BLANK MAKE SURE CARD IS BLANK BEFORE PNCH | “ 60DA 30 43 6F50D 1520 WAIT SNS  TRANS,X*43¢ SENSE XFER REG 
601F F2 81 O08 1460 JE DATOK 60DE 38 01 6FSC 1521 TBN TRANS-1,X"OL! -TEST FOR WRITE MODE 
6022 3C 01 5SF22 1461 MVI MODS104+2-X'"01! EJECT NON-BLANK CARDS INTO | @ 60E2 CO 90 60Da 1522 BF WAIT 
6026 CO 87 6015 1462 8 RDAGN1 STACKER 2 1523 
602A 31 54 722F 1463 DATOK LIO ADUM,x'54! LOAD PUNCH LSR | 60E6 38 80 6F5E 1524 TBN = FLAGsX*808 TEST FOR LAST RECORD FLAG 
602E 31 50 7233 1464 LIQ NUMPUN,X*50° LOAD COUNT LSR (128-N) | © 60EA F2 10 04 1525 JT TSTEND JUMP IF IT°S ON 
6032 Cl 50 5F3F 3465 ERRPUN TIO  ERR,X*50* NOT READY/ERROR? ies 60ED CO 87 6068 1526 8 EPUN RETURN 
6036 F3 54 00 1466 SI1Q X*00",x"S4? PUNCH ONLY | 1527 
6039 C1 52 6039 1467 TIO} =—- &_X*52¢ WAIT FOR BUSY TO DROP €: 60F1l 3B FF 6F5E 1528 TSTEND SeF FLAG oX* FFE TURN OFF ALL 3742 FLAGS 
603D 30 53 7018 1468 SNS STATUX,X*538 60F5 OC O01 7019 7017 1529 MYC NUM(2),.ZERO ZERO CARD COUNT 
6041 39 36 7018 1469 TBF STATUX,X*36¢ CHECK FUR ANY ERRORS G 60FB F3 43 50 1530 DSENDT SIO X*50° ,CONTL SET ENO OF JOB TO 3741 
6045 39 OF TOLA 1470 TBF STATUK=1 ¢ X*OF* Ts  60FE CO 87 6068 1531 8 EPUN RETURN 
6049 CO 90 6032 1471 BF ERRPUN 1532 
604D 3D FF 720C 1472 CuLy FIRST, X*FF® DGES SECOND 20 BYTES NEED PUNCHING | 1533 FERSRAT EROS SLES SESS SEES EEESEEEES O8544490908900800859008008890008088009 
6051 3C 00 720C 1473 MVI FIRST,O | @ 1534 *® THIS SECTION RESPONDS TO 3741 TIO FOR ERROR 
6055 F2 01 10 1474 JNE EPUN NO,THEN JUMP | 1535 SERSRESLSSREETERERESSSEESESS 84S 8S9RS 1 0OSEEEESHESEEESEOO080999909980088 : 
6058 OC 38 O8CF 729A 1475 MVC INPUT+79(60) » BLANK CLEAR CARD 6102 34 08 6123 1536 ERRCHK ST NOERR+¢3, ARR SAVE THE ARR 
605E OC 13 0893 7220 1476 MVC INPUT+19(20) »SAV20 GET LAST 20 BYTES | (3 6106 OF 01 6123 700E 1537 SLC NOERR+3(2) 4X4 SUBTRACT 4 FROM RETURN ADDRESS 
6064 CO 87 5F93 1477 a NOT2F1 | 1538 
6068 CO 87 6008 1478 EPUN B EPUN] RETURN : 610C 30 42 6F58 1539 SNS STATUS oX#42¢ SENSE STATUS RES 
C: 6110 38 02 6F54 1540 TBN STATUS—14X"02* TEST FOR OVRFLO 
| 6114 CO 10 6124 1541 BT OVFLO BRANCH IF IT IS 
= 6118 38 08 6FSA 1542 TBN STATUS-1,X'08* TEST FOR P CHECK 
| €: 611C CO 10 6138 1543 BT PCHECK BRANCH IF IT IS 
1544 
| 6120 CO 87 0000 1545 NOERR B -* GO TRY TIO AGAIN 
1546 
| © 1547 FESEESERSESEEES ESS S9S489980800S 0989 5940008498F8SE EEE ERREEEEEETESSSEEES 
OATE 29AUG75 OTNOV75 220ECT5 LOMARTSG PROG ID D44—3 | are 29AUGT5 O7NOV75 22DECTS LOMART6 PROG ID) 044-3. 
EC NO- 827804 827605 827836 827872 PAGE 13 EC NOw 827804 827805 827836 827872 PAGE 123A. 
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(D443 $/3 3340 AND CARD UTILITIES -=— MOD 12 


4248224 


14A 
0443 


$/3 3340 AND CARD UTILITIES === MOD 12 


ERR LOC OBJECT CODE ACDR STNT SOURCE STATEMENT 








ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
6124 CO 87 O2iA 1548 OVFLO 8 PRINT PRINT | & 1568 * 
Size C6 6128 1549 oC =: XL1 °C 6" ‘LENGTH COUNT OVERFLO ~ RESTART JOB*! - 1569 * 
6129 22 6129 1550 oc ILL*34¢ | 1570 * 
612A 6F99 6128 1551 DC = AL2 (LCROVR | & 1571 * THIS SUBROUTINE DETERMINES IF A VALID CYLINOER/HEAD/ RECORD 
612C DDE2 612D 1552 pC =—_- XL2*DDE2* 1572 * WAS SELECTED. CONTENTS OF ADDRESS IN *SBYTE* ALSO CHECKS 
61Z2E CO B87 0222 1553 B HALT ERROR HALT -E2- 1573 * THAT NUMBERS ENTERED ARE VALID HEX. 
6132 DDE2 6133 1554 DC =—_- KL DDE 2° i €2 1574 * 
6134 F3 43 10 1555. SIO = X* 10", CONTI ISSUE *SENSE RESPONSE® 6152 34 08 61C2 1575 CKSEC ST ECKSEC+3¢ARR 
6137 CO 87 510D 1556 8 GETI RESTART JOB | 6156 3C 96 7020 1576 MVE COUNTRy6 
1557 i € 615A 34 01 7034 1577 ST  SAVXR1»XR1 
613B CO 87 021A _ 1558 PCHECK 8 PRINT PRINT 615E C2 O1 71FB 1578 LA = SBYTE-5,XR1 SETUP TO CHECK FIRST BYTE 
oe ee 613F 1559. DC Os XL #68 *PARITY ERROR ~ RESET 3741 AND Ce 6162 7D Ci 00 1579 DOAGAN CLI 04 eXR1),C*At IF LESS THAT ‘C1*, ERROR 
614 6140 1560. OC 8 8=— sR 84 RESTART JOB® . € 6165 F2 62 6E 1580 Ji ERROR1 
6141 6FC2 6142 1561 DC = “AL 2 (PARERRD . ~~ 6168 7D C6 00 1581 CLI Ol sXR1DVCOFE IF GREATER THAN *CO6%s CK NUMBERS 
6143 ODE 6144 1562 OC xXL2*D0E3" ; 6168 F2 84 03 1582 JH CK 
6145 CO 87 0222 1563 8 HALT ERROR HALT ~E3- i €> 616E F2 87 OC 1583 J OKHEX OTHERWISE, VALIO HEX 
~ 6149 DDE3 614A 1564 OC xXL2‘*DDES* : 1584 
gue : ao 1565 S10 -X*10*%,CONTL ZSSUE SENSE RESPONSE s 6171 7D FO 00 1585 CK CLE 0 »XR194C*08 IF LESS THAN "FO*,ERROR 
614E CO 67 5100 2566 8 GET1 RESTART JOB | €> 6174 F2 82 SF 1586 Ji ERROR1 
. “  @177 7D £9 00 1587 CLE 00 XR19,C¢9* _1f GREATER THAN *F9%. ERROR 
617A F2 84 59 1588 JH - ERROR1 
* €* 617D 02 01 O28 1589 OKHEX LA LleXR1P5XRL CHECK NEXT BYTE 
; "6180 OF 00 702C 7015 1596 SLC COUNTR(1) ONE . gut. 9 
| 6186 CO O1 6162 1591 BNZ OOAGAN 
: | &} 616A 35 OL 7034 1592 | t SAVXR1 eXR1 
ee 1593 & 
Z | 1594 * THIS WILL ENSURE ENTRIES ARE NOT TOO LARGE 
: .@ | 1595 * 
618E CO 87 0226 1596 B  —sPACK PACK CONTROL FIELD 
6192 06 6192 1597 oc IL1L°6* LENGTH 
| €} 6193 Tie 6194 1598 DC =. AL2( SBYTE? SOURCE FIELD 
| 6195 7205 6196 1599 DC =—._— AL2 ( PSBYTE) DEST FIELD 
: eee 1600 
i : €3 6197 3D 21 7203 1601 CLI. PSBYTE-2233 IS CYL FIELD <34? 
4 619B F2 84 4B 1602 JH ENVCYL IF NOT, GO PRINT ERROR —_———$ 
619E 30 13 7204 1603 CLE | PSBYTE-1519 | IS HEAD FIELD < 19? : 
C ; €S_ eta2 F2 84 1E 1604 JH INVTRK IF NOT, GO PRINT ERROR 
61A5 3D 00 7205 1605 CLI. PSBYTE,O IF RECORD IS Oy GO PRINT ERROR | : 
se 1 @1A9 F2 81 50 1606 JE INVREC — a i 
ce | &}. eiac 30 30 7205 1607 CLI -PSBYTE*48 IS RECORD FIELD < 497 ic 
7. : 6180 F2 84 49 1608 JH = INVREC IF NOT, GO PRINT ERROR . 
. ; 1609 : tal + 
ag 6183 OC 06 71FF 7203 1610 MVC DSKFLD4+1(1)ePSBYTE-2 MOVE PARAMETERS IN DISK DRIVE ‘ 
61B9 OC OL 7202 7205 1611  mve DSKFLD+4 (2) »PSBYTE CONTROL FIELD © : 
618F CO 87 0000 — 1612 ECKSEC 6 s— e 
a Cee 1613 4 . 
1613 - 
Pye 61C3 CO 87 O21A 1614 INVTRK B PRINT ~ PRINT INVALID HEAD MUMBER- i 
 & 61C7 Co 61C? 1615 DC. XL1'C6 F 
as 61C8 36 61C8 1616 oC AL L(NSGSEC-MSGSCB) Be 
ioe 61C9 753E 61CA 1617 DC = AL2(MSGSEC). ; 
a . 61CB 0446 6iCC 1618 DC —s_—- KL2 "D466" o 
61CD CO 87 0222 1619 B HALT ERROR t 
61D1L 0446 6102 1620 oc XL2*0446¢ (46 secaccseceessesssssecccsesss: 5 
ts 6103 F2 BT 36 1621 ‘J STRET . .. oe es 
1622 a : bathe z 
61D6 CO 87 021A 1623 ERRORL & = PRINT PRINT INVALID HEX NUMBER a 
Lae | €} 610A Co (@1DA 1624 OC — KLIPCor. | a t 
61DB 33 61DB 1625 po. Lesa. 
sas |. . 61pe 7594 61DD 1626 OC. AL2(MSGHEX) be 
ne | 61LDE 0447 61DF 1627 PC -XL2*04667" fe 
: 61E0 CO 87 0222 1628 /68 HALT ERROR ~ tks 
a) 61E4 D447 61ES 1629 pe KL2*0447¢ * 4&7 eesesnsesnenessessesenessoes, B.. 
gh | & 1&6 F2 87 23 1630 53. STRET RETURN TO THE MENU ye 
= | 1631 | 2 S 
io ee 61€9 CO 87 O21A ; 1632 INVCYL 8 PRINT © PRINT one. 
c | @ olen ce. 6LED 1632 “pc —-KLUPCE® INVALID oS 
7 [GREE 3E GLEE 1634 OC ALI(MSGTB-MSGTBB) CYLINDER be 
oe poe es a oe ok 
" DATE 29AUGTS OFNOVTS 22DEC7T5.  19MARTE . PROG ID ps3 * “DATE 29AUGTS OTNOVT5 22DEC75 19MAR76 PROG ID pens | 
€C NO. 6827804 827805: 627836 827872 PAGE PS 827804 827805 827836 827872. _ PAGE (A 
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PART NOe 4248224 _ 18M MAINTENANCE DIAGNOSTIC PROGRAM : PART NO. 4248224. 
PAGE 15 c. PAGE t5A 
D443. $3. 3340 AND CARD UTILITIES -—- MOD 12 _ D443 $73 3340 AND CARD UTILITIES -<— MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ~ ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
61lEF 7502 61FO 1635 oC AL2(MSGTB) G 1651 ERREEREERESEESEEREEAERSSREERERESEEESERESSE ESS SSER RES SESS 
61F1L D448 61F2 1636 DC XL2*0448' 1652 * 5471 INPUT ROUTINE * 
61F3 CO 87 0222 1637 B HALT ERROR 1653 © * 
61F7 D448 61FB 1638 oc XL2*D448! * 48 REKKEKEKKRSERERKESASEKSESKERLS TE & 1654 * m s 
61F9 F2 87 10 1639 J STRET 1655 * CODE TO READ RECORD FROM THE 5471 PRINTER/KEYBOARD *. 
1640 : 1656 REKRERARESERENASARERESESESEEEEE SERS ER SSSESESESS ERE SES ESES 
61FC CO 87 021A 1641 INVREC B PRINT PRINT "INVALID RECORD ENTERED® i & 1657 
6200 C6 6200 1642 DC XLi'cet 6210 1658 105471 EQU) * 
6201 41 6201 1643 DC ALL(MSINRC-MSINRB) LENGTH 6210 34 08 627C 1659 ST NOTBLK+3~ARR SAVE RETURNNING @ 
6262 7508 6203 1644 oc AL2(MSINRC) (214 35 02 6242 1660 RTRY L XEXIT14¢3 9 XR2 LOAD THE @ OF THE READ BUFFER | 
6204 D449 6205 1645 DC XL2*D449* 10 6218 BC 40 83 1661 MVI «1310 9XR20,X*40! CLEAR BUFFER 
1646 6218 AC 82 62 83 1662 MVC —«-:1.3001312XR2)91310eXRZ) CLEAR BUFFER 
6206 CO 87 0222 1647 B  —s«HALT ERROR  €. 621F F3 18 41 1663 SIO -X#41%—X*18! START CARRIAGE RETURN # RESET PRT 
620A 0449 6208 1648 OC XL2"0449" # GQ ERRERERESEESS SIRS EEETEREE EET “9222 F310 11~—C«; 1664 NXTCHR S1O  X*il%,x*10! PROCEED IND ON + RESET REQUEST KEY 
620C CO 87 0000 1649 STRET B +-* . 6225 30 11 7235 1665 RESNS SNS  ODATsX'11° CHARACTER KEYEO 
("6229 38 40 7235 1666 TBN DAT,X*40* END OR CANCEL KEYED 
’ 6220 F2 90 17 1667 JF TSTDAT NO 3 
6230: 3C 3D 722A 1668 MVI -STATUL,»X*3D* BLANK RECORD TO BE RETURNED ay 
i (: 6234 38 20 7235 1669 TBN  DAT,xX*20° CANCEL KEYED : ; 
= 6238 CO 10 6214 1670 BT RTRY YES 2. oS 
623C F3 10 01 1671 SIO -14X*108 RESET REQUEST KEY » Te ce gk Pee 
€:  623F C2 02 0A80 1672 XEXITL LA READIN, XR2 LOAD THE @ GF THE BUFFER ee 
6243 CO 87 6276 1673 8 DORD CHECK FOR INPUT ave 
6247 38 08 7235 1674 TSTDAT TBN DAT,»X*08* DATA KEYED . 
6248 CO 90 6225 1675 BF  RESNS NO ett 
624F 38 04 7235 1676 TBN OAT,X*04* RETURN KEVED PRESSE 2 
i 6253 CO 10 6214 1677 BT RTRY YES ee ee 
.| €} 6257 BC 00 00 7234 1678 MVC = 0(1,XR2),DAT—1 : ‘ 
be 625C 31 18 7235 1679 LIQ. DAT,x*18° MOVE CHARACTER TO BE PRINTED ' ee sas 
| 6260 F3 18 81 1680 SIO. =. X*81*,X*18* PRINT CHARACTER ; 
| €} 6263 £2 02 01 1681 LA 1 eXR2)2XR2 MOVE TO NEXT CHARACTER BO aN ag 
6266 34 02 7235 1682 ST TSTNeXR2Z wie : 
2s 626A 3D €0 7235 1683 CLI TSTN,X*E0! . ts - 
be _€ ~«626E CO 81 623F 1684 BE =: YEXIT1. - DONS ae: 
i 6276 F3 18 40 1686 DORD SIO X*40",X*18* RETURN CARRIAGE : pee oes 
x | @ 6279 Co 87 0000 1687 NOTBLK 8 *-* RETURN TO CALLER : 
{ : c 
E | E 
- e i ‘ 
» 4 
= @ 
te , @ a 
ma 
‘ je 4 
| E 
| 
. \@ : 
. ® . 
DATE 29AUGT5 OTNOVTS 220EC7T5 ~ 19MART6 PROG 10 D44~3 © 29AUGTS O7NOV7TS ‘22DECT5 LOMARTS PROG ID pee ; 
EC ND. 827806 627605 627836 827872 PAGE 15 EC NO. 827804 . 827805 827836 827872 15a 
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PART NO. 4248224 IBM MAINTENANCE DIAGNOSTIC PROGRAM _ BAR NO» a2sez26 
PAGE 16 
D443 $/3 3340 AND CARD UTELETIES --~- MOD 12 | bas S/3 3340 AND CARD UTILITIES =-- MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT _ ERR LOC OBJECT CODE ADDR STHT SOURCE STATEMENT 
ees 748 *% X*OFt2 SCAN HIT 
it ° ster. ¢ tyes « NOTE: ON NO SCAN HIT THE ADDRES LEFT IN THE DOCF FIELD IS : 
LROOL SHEKSSEERSTEESERER EARS LALTAEESERARES EREFESELKESTERK SKE LKERK SELLERS LSS AERE e ee : THE NEXT AVAILABLE RECORD FOR VTOC. = 
1692 * THIS SUBRT STEPS THE DISK DRIVE CONTROL FIELD TO * € . poeen aeners _ 
1693 * THE NEXT RECORD. + 1752 : NOTE: TO SCAN TO END OF VTOC, PUT 1 : 
teen ; eMail 1754 RESERESRSSESESTERESEESEEREREESHESEEESESSERESESARESSESCESSESESSSSRESSES ESSE 
1696 * 8 STPFLD aeet * ad 
1697 * DC Os AL 21S) THIS IS THE RIGHT END ADORESS OF | 
1698 * A FIVE BYTE FIELD CONTAINING . (2 62€A FFED 6268 1756 NEGS 0% 120-3! 
1700 : Sern *  62EC 009200000: 62F0 1758 VTOCAD DC =XxL5*0002000001° 
LVOL SHSKSESSSSESEREEESSESESSEESSE RE SEEE RESETS SESHERLS CFLS EEEHSEEERELE SSRIEES < i pdt en es Sons Menon eeol Gols 
1702 _  62FB 0030 62FC 1761 048 =O 1L2°48! 
627D 0000000000 621 1703 DDCFX OC 5IL1°0" EN ieee cgaats eee tic eget: Be &, CLUMRAS® 
698 : 
Serer aa oo = - . 6300 0000000000000000 6308 1764 FASINF DC 9IL1*O* 
1705 | € 3 6308 00 1764 ae 
6284 34 08 62E9 1706 STPFLD ST  STPFLRE3,ARR SAVE ADDRESS eo 6308 1766 ast DC brsiaees 
6288 OF O1 62E9 7015 1707 ALC STPFLR+3(2) ONE POINT TO FIELO ADDRESS m ©309 SC5C5C rae Geq Cr uba. De L208 
628E OC 01 6299 62E9 1708 MVC - MVC645(2)eSTPFLR#3 = OVERLAY INSTRUCTION _€} 630 0000 aU 1768 X255 OC =«1L2*255° 
6294 OC 01 629F 0000 1709 MVC6 MVC MVC345(2),4-# 630E OOFF 8 | 7 
629A OC 04 6281 0000 1710 MVC3 MVC) =O «;DOCEX(5) e%-# MOVE IN FIELD TG BE WORKED ON i 176 . . 
62A0 OE O1 62E9 7015 2711 ALC STPFLR#3(2) ,0NE POINT TO RETURN ADDRESS '€ 16? | 
tas cf | +3, ARR SAVE RETURN ADDRESS 
6246 3D 30 6281 1713 CLI DDCFX.48 1S R FIELO EQUAL TO 487 =: Geto ee ee Pete cas SAVE Xfi 
62AA F2 02 09 1714 JNL sINCHD THEN GO TO NEW HEAD €5 631 ae OL esis 1772 i SCNVTR#3¢XR1 LOAD XR 
62AD OE 00 6281 7015 1715 ALC DDCFX(1)s0NE INCREMENT REC # 6318 35 01 nage | 
Sea bee le ee Ga Seaver | 631C OL 01 6418 7010 1774 ALC SCNVTR#3(2) » FOUR INCREMENT TO RETURN ADDRESS 
6286 3D 13 6280 2718 INCHD CLI DDCFX-1.19 1S HEAD # 197 i7iS * MANY ENTRIES 
62BA F2 02 OD 1719 JNL 0 INCCL THEN INCREMENT CYLINDER 1 1776 : BEAD (FAS SeconD 70 SEE HOW 
62BD 3C O01 6281 1720 MVI - ODCFX,1 RESET TO RECORD 1 ig ae : | | 
Sseresae ie tia ei boaaee Serre er | 6322 OC 04 646E 62FA 1779 MVC = DDCF M15 C3161 - SET UP DDCF FIELD TO READ FAS RCRD. 
jee 1723 : ae | €3 6328 3C 00 6472 1780 = «AVI. DDC F 20 ne 
62CA OE 01 627E 7015 1724 INCCL ALC DDGEX-3(2),0NE INCREMENT CYLINDER 632C CO 87 6475 _ ca ee bes, Sec aegae GEAD 
62D0 OC OL 6280 7017 1725 MVC = DDCFX-1(2,ZERO HEAD 0 | 6330 a2 e320 sie: a oe BEAD ola COMTENTS 
62D6 3C 01 6281 1726 MVI - DDCF X51 RECORD 3 ! € fark eee oe te tec Bc. ALBLOOCESI 3 GF DDCR CONTENTS 
1 — 
1785 . 
62DA OC 01 62E3 629F 1728 CONTAS MVC = - MVC 44312) oMVC345 OVERLAY INSTRUCTION | ee Pe igen WikGIN PACK? 
62E0 OC 04 0000 6281 1729 MVC4 «MVC &=# (5) »DDCFX REPLACE FIELD | €3 et =e - ecae 62°F ares oe rote: 203) SUMP Ar i iS: 
; 1730 . | ! FASINE (9) gDDDF+11 HOVE INFO TD DESIRED PLACE : 
62E6 CO 87 0000 7 173i STPFLR B *-« RETURN TO CALLER | e oe oe o208 OCoB ve cs aaa 908 . 
i «4732 . ; eS) , | . t 
7 ne | : . | TOC ENTRIES 
6347 OC O01 6308 7017 1791 MVC -FASINF(2),ZERO ZERO V 
rn > €3 634D OC 04 6305 62F5 1792 @VC  - FaSINB#8€5),C4HORL PUT IN SECTOR OF FIRST FIELD 
te teas 6353 3C 00 6306 1793 MVE © FASINB+990 ZERO FIELD DELIMITERS 
| | 1732 | 6357 3C 00 6300 1794 MVI  FASINB43,0 a & a2 
in 4 hod '@ 1795 aoe a a — : 
he ; 1732 | 635B OC 04 646E 62F0 1796 CONTE? MVC ODCFM(S),¥TOCAD SET DDCF ae : 
1733 eeeecessesese |, 06361 3C 00 6472 L197 MVI. ODCF.0 a eee. ;. es 
= 1734 * SCNVTC #¢ eS | ; 
c es BN gia se eaads a seen ecbbaunesceseaseussesonceeseess. 6365 OD 01 6308 7017 1799 cic oe GO MANOLE IT PACK | ae 
: 1736 * THIS SUBROUTINE SCANS VTOC FOR THE ID IN THE PARAMETER | 636B F2 81 87 1800 JE 1 ib 
- 1737 * LIST. IT THEN SETS A FLAG INDICATING SCAN HIT OR NOT. i € 
| Ce 31 oXR1) 9XR1 INCREMENT KR2 
; 1738 * THE ADDRESS OF THE HIT AND ITS CONTENTS ARE SAVED. * . o36e 02 o ae arene | = rags et Aeocay Mave INSTRUCTION. 
ies | , a : Se DECREMENT XR1 BY 3 | 
1740 ¢ FORMAT FOLLOWS: : Ge 6375 36 01 6258 1806 A NEG3,XR1 : ee ices: 
irae ; B SCNVTC 6379 3C FF OCFF 1806 MMVI ODDF 4255 X"FF* FILL DDDF WITH X*FFS 
1743 * DS si XL. FLAG DEPGSITED BY SULROUTINE =| €} 637D OC FE OCFE OCFF . 1607 HVC DODF 42541255) DOOF*255 | | 
1744 ¢ OC CL3°PIDS PROGRAM ID 10 SCAN FOR IN VTOC q pica he be cones ere ite Uepessiatacio bare. 10 Sean BAR MMETERS 
1745 © ee ; 
- 19746 * FLAG BYTE: X*00% NO SCAN HIT THROUGH ENTIRE *| € 6389 OC 02 0CG6 0000 1810 MVCL mvc ODDF +6 (3) et~t - | | . 
‘1747 *& CONTENTS OF VTOC Z 5 -  -28il : i en hg fee sy ite : _ ig 
Roy ces | | e@ |. ou a Pe Cor i ee a. PROG ID. D443 
DATE  29AUG7TS  OTNOV?S | 22DEC75 — 19MARTE PROG ID me DATE 29AUG7T5.  OINOV7S $ 22DEC75 Egnanis Moree 
EC NO. 827804 827605 827836 827872. PAGE fC NO. 827804 _ 278 ; 
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IBM MAINTENANCE DIAGNOSTIC PROGRAN - PART NO. 4248224) 1BM MAENTENANCE DIAGNOSTIC PROGRAM PART NO. 4248224 
PAGE es PAGE 174 
0443 S/3 3340 AND CARD UTILITIES ~—- MOD 12 .De43 SHB 3340 AND CARD UTILITIES =—— MOD 12 
ERR LOC OBJECT CODE ADCR STMT SOURCE STATEMENT ~ ERR LOC OSJECT CODE ADDR STMT SOURCE STATEMENT 
63eF OD 02 OCO6 6308 1612 CLC = DPOF +613) AST IF PID DOESN'T = **###° co 641A 34 08 643F 1872 SELORV ST SLORVR*3 ARR SAVE RETURN ADDRESS 
6395 F2 61 OA 1813 JNE #413 THEN JUMP : “<" 641E 39 38 0200 1873 TBE SBYTE4,SSW22+SSW23+SSW24 TEST FOR DRIVE 1 
6398 3C 00 OCTF 1814 MVI ODDF*127.0 OTHERWISE ZERO GUT HALF OF SCAN FLD | 6422 F290 08 ~~ 1874 JF #411 
639C OC 7E OC7E OCTF 1815 MVC -- DODF #1261127) ,DDDF +127 C 6425 3C CO 6419 1875 eu On IvEe ott SET FOR ORIVE 1 
1816 6429 3C Fl 6F38 1876 wv KXX¢o 
63A2 3C 00 729F 1817 MVE LSTSCN»C 642D 38 20 020C 1877 TBN SBYTE4,SSW22 S$SW10 ON? 
63A6 OC 0O 63EO 6419 1818 MVC T101841(1) ,ORIVE# OVERLAY TIO INST t. 6431 F2 90 08 1878 JF #41) IF NOT CONTINUE 
63AC 3A 03 63£0 1819 SBN T101841,X"03* 6434 3C CB 6419 1879 MVI  DRIVE#,DR2 
6380 OC O01 72A1 6308 1820 MVC =- TEMP. 22) »FASINF KEEP HEAD OF VTOC # 6438 3€ F2 6F36 1880 MVI - OSKXX,C*2° sean 
1821 = 1881 * TEN SBYTE4,SSW23 wi 
63B6 OD 01 72Al 630F 1822 LOOPS CLC TEMP2(21*2X255 1S # OF RECORDS TO SCAN >255? © 1882 * JF *+il CONTENUE IF NOT 
63B8C F2 04 OD 1823 JNH #416 SKIP 1F NOT 1883 * MVI = ORIVE#» DRI SET FOR ORIVE 3 
638F-OF OL 72Al 630F 1824 SLC TEMP2(2)9X255 DECREMENT COUNTER .© 1884 * MVI = OSKXX,C*3° 
63C5 3C FE 6472 1825 MVI  DOCF,»254 SET DOCF 1885 * TBH  SBYTE4,SSW24 
6309 F2 87 OA 1826 J +13 SKIP 1886 * JF #411 
1827 '¢ 1887 * MVI ORIVE#s ORG SET FOR ORIVE 4 one 
63CC OC 00 6472 72Al 1828 MVC} 09—- ODCF (1) sTEMP2 1888 * MVI  OSKXX»C 4° 
6302 3C FF 729F 182S MYE  «- LSTSCN»X*FF® SET LAST SCAN FLAG 3 643C CO 87 0000 1889 SLORVR 8 +-% RETURN TO CALLER a 
1830 fia" . Sg 
6306 CO 87 6475 1831 8 WINRW SCAN READ CG aes, 
63DA 20 630A 1832 oc XL1°20° 
6308 O0C00 63D0C 1833 oC AL2 (DDDF) a OF DDDF |e ar 
6300 6469 63DE 1834 oc AL2(DOCFB) @ OF ODCF | a 
1835 . oo, 
630F C1 00 63FC 1836 T1018 TIO CONTE5,*-* IS IT SCAN HIT? | e | 
1837 oy 
63E3 CO 87 6284 1838 8 STPFLO INCREMENT SCAN DOCF FIELD | ; ES oy a 
63ET 646E 63E8 1839 ¢ AL2CD0CFM) 1@ a 3 | 
1840 sag =f 
63E9 3D FF 729F 1841 CLI LSTSCNeX*FF® IS LAST SCAN FLAG SET? . 4 ane 
63ED CO 01 6386 1842 NE LooPs ‘ - RETURN IF NOT 1@ By 
1843 : ae) es 
63F1 34 01 63F8 1844 @ gst MVI143_XR1 OVERLAY MVI INST ; ae ne 
1845 } | @ gS. Fe 
63F5 1846 END) EqU * i se a Bo 
63F5 3C 00 0000 1847 MVI1 «MVI |= (#-*,0 RESET SCAN HIT FLAG sn 
63F9 F2 87 15 1848 J SCNVTE RETURN 1@ 
1849 
63FC 34 01 6403 1850 CONTES ST MV1243_XR1 OVERLAY INSTRUCTION : 
6400 3C OF 0000 1651 MVI2 MMVI | -&—#_X* OFS SET SCAN HIT FLAG @ Be 
6404 3C 00 6472 1852 MvI - ODCF,0 REa”D IN 1 RECORD F 
6408 CO 87 6475 1953 ) WINRW READ IN VTOC ENTRY THAT RESULTED t 
640C 80 640C 1854 DC xL1*80° IN THE SCAN HIT. } s 
640D 0C0O0 640E 1855 oc AL2(CODF) ; 
640F 6469 6410 1856 ec AL2(00CFB) * 
1857) ® £ 
6411 35 01 6300 1858 SCNVTE & TEMP3,XR1 RELOAD XR1 ‘ 
6415 CO 87 0000 1859 SCNVTR 6 8 #-* RETURN TO CALLER i 
1860 @ i: 
1860 : 
1860 : 
as 1860 
2 1660 @ : 
ee 1860 = 
a 1860 ’ t 
1860 . e ‘ 
1861 sesesseesess : 
1862 * SELDRV eS : 
1863 * 0652 sseestCeSsSSSeSEtSESeseeeessSssSeesessesssssesesssesSes sess Sesssses : 5 ; 
~ 1864 * * * 
1865 * SUBROUTINE TO TEST SENSE SWITCHES AND SELECT *|@ “ ee - 
1866 * ‘WHICH DISK ORIVE TO USE * ji 
1867 * * a 
1868 seeeeeeeseaaessesssessseseeseeeeseseeseeseesessesesseseseseses sees seers @ r 
1869 $ 
. 1869 ae 
6419 00 6419 1670 DRIVES OC 8 =: TL. 1°0° @. : 
1871 . 
_ DATE 29AUGTS O7TNOVTS 22DEC7TS —-.-: L9MARTE PROG ID p43 | Oo are 29AUGT5 O7NOVTS 22DECT5 1LOMART6 PROG 10 peed 
EC NO. 827804 827805 827836. 627872 PAGE 17 | e- NO. 827804 827805 827836 827872 PaGE iva 
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PART NOe 4248224 1BM MAINTENANCE DIAGNOSTIC PROGRAM 5 a NO. a 
PAGE ist 
$/3 3340 AND CARD UTILETIES <-- MOD 12 gees $/3 3340 AND CARD UTILITIES --- MOD 12 
ERR LOC OBJECT CODE ADDR STMT SGURCE STATEMENT ~ ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
en 1953 @ = 
qe Suiue A © 1954 © THIS SECTION OVERLAYS 1/0 INSTRUCTIONS FOR CORRECT DRIVE ® 
1893 KEKESREESERRECHERRAKKKARESSSEESKELHEATCSEASKSKSRKELKS CSE LTR SRS CE SSLK ARES RASREITS / 1955 #2 S 
: : 7 b « € 1956 
tess ; ero eee ers Mceese Cumeat: peg eae * c 64C7 OC 00 653E 6419 1957 MVC SEOLEL(L),ORIVES GVERLAY SIO INSTRUCTION 
1896 * ) WINRW BRANCH TO SUBROUTINE = 64CD OC 00 6538 6419 1958 MVC $105¢1(1},ORIVE® OVERLAY SIO INST 
1897 * DC XLL FLAG * fF 64D3 OC 00 654i 6419 1959 MVC TIO4¢1L01) »DRIVE# OVERLAY TIO INST 
1898 » DC ALZ(¥~&} @ OF DISK DRIVE DATA FIELD * 64D9 3A 02 6541 1960 SBN TIO4+1,X*02* 
1899 & pc AL2(%—®} @ OF DISK DRIVE CONTROL FIELD * 64DD OC 00 657TE 6419 1961 MVC SIOT#L (1) ,ORIVES OVERLAY SIO INST 
2900 * a f 64E3 OC 00 6581 6419 1962 MVC TIO5¢1(1) DRIVES OVERLAY TIO INST 
10? i e 64E9 3A O1 6581 1963 SBN TIGS4L,X*O1! 
to : re "eay me oe fen ee ay ee ere *  64ED OC 00 6537 6419 1964 MVC «=~ TIOL41 (1) ,DRIVER OVERLAY TIO INST 
1903 * o- SEEK AND READ . € 64F3 OC 00 6545 6419 a MYC TIOT4+1(1) DRIVER OVERLAY TIO INST 
1904 * i- “SEEK AND WRITE : 
1905 * 2- SEEK AND SCAN READ * c i e “< oo 1 a ee SEE IF READ OR WRITE REQUEST 
+ & € 3 6 
ior * VALUES OF BYTE *ORIVES: e 7 64FF 3A O1 653E 1969 SBN SIOL4¢i,X*01® OVERLAY FOR READ 
1908 * DRIVE 1 *DRIVES*= X*CO? * 6503 F2 87 2A 1970 3 RTRYL JUMP IF WRITE 
1909 * ORIVE 2 SDRIVER*= X®CBt * C 6506 3A 02 653€ LOTL SBN SIO141,X*02° OVERLAY FOR WRITE 
21910 * DRIVE 3 SORIVESS= KD! 7 650A OC O01 656F 6489 1972 MVC =. CL11 432) pMOV145 OVERLAY CLI INST 
i9ll * DRIVE 4 ®ORIVES*= Knee * 6510 OC O01 6558 6439 1973 MVC «- MOV33. (2) pMOVIA +5 OVERLAY MVC INST 
1912 * * {+ 6516 OC 00 655F 6538 1974 MVC S1084+1¢1),S105+1 OVERLAY SIO INST 
1913 SUREREREESESLESERESSSEERERTEEESSESEOEEES SSE EEESESESEFESSS ESOS SSS SS SS ENS 5 6$iC OC 00 6562 6538 1975 ee ae ore etre ari ay a0 ast 
tor 6322 3A OL 6562 1976 N +Le 
aia nooo vee ieie Renee mai , €% 6526 OC 00 6565 6419 1977 MVC TI084111) DRIVES OVERLAY TIO INST 
644A 0000 6448 1915 TODDR OC 1Lz2*O* ; ” 6526 3a 02 6565 1978 _ SBN T108#1,X*02* 
644C 1916 OUITFG EQU * | 197¢ . 
644C 0000 644D 1917 TODCR DC IL2°0¢ @ 6530 1980 RTRYL EQU * 
644E 1918 TODDF EQU * meet 
Lon te ee Te” SIE: 6530 71 Ce 02 1982 LI0 2 )XRL),DDOR LOAD DISK DRIVE DATA REGISTER 
6457 1920 TODDCF EQU «¢ 6533 71 C6 04 ate L1G 4(,XR1).D0CR LOAD DISK ORIVE CONTROL REGISTER 
e 
ease bese peo age ie RLaeib : & 6536 Ci 00 6772 1985 TIOi TIO HALTI,*-—#* TESY FOR DEVICE NOT READY 
645C 6457 645D 1922 TOOCFa DC AL2CTDDCF? : € See ee eats Teer 
645E 6445 645F 1923 TODDFa DC AL2(TDDDF) 653A F3 00 00 apee e 
6460 0000 6461 1924 STATE OC ILZ¢°O8 
- 6462 0009 6463 1925 D9 oc 1L229° } 653D ee DRTRNZ2 EQU © . 
ss é z 
eAee eco3 caer ie? me Bc seer i 6530 F3 00 00 1990 SI01 SID X*00*,#-s nee RE ane pay 
6468 00 6468 1928 ICTR OC IL1¢08 | & 6540 Cl 00 6540 1991 T1046 TIG %,%=% 
6469 1929 DDCFB EQU * @ 6544 CL 00 STCC 1992 TIOT «TIO HALT2»e-* TEST FOR NOT READY OURING INST 
6469 0000000000000001 6@7z 1930 DDCF OC XL20* DOODDONDNEOCNNNLOOND* bi : @ 0560 38 ee a a3? ren stonea.xe02" es oo tee ec ances 
6471 0000 1930 i & 
646£ 1931 DDCFK EQU ODCFE+S 654C F2 90 97 eo JF WINRUT | IF NOT, RETURN TO CALLER 
a ce — toss ore Ps | 654F OC GO 6569 6419 1997 MVC TIOL941 (1) ,ORIVES GVERLAY TIO 
1933 | 6555 OC 09 0000 6449 __ 1998 MOV3 HVC -#(10),DDCFE 
1933 655B 71 C4 02 1999 LIG 2teXR1),0D0R — RELOAD DDOR 
1933 \ G 655E F3 00 00 2000 $108 SIG Ot—% .. SEEK 
6475 34 08 65Fi 1934 WINRW ST WENRWR+3,ARR SAVE ADDRESS 6561 2001 ORTRNS EQU * 
. 2002 $109 SiO 39%-* READ VERIFY 
6479 34 O1 T1E3 1935 ST ADDR.xR} SAVE XR1 . r Da oe - oe oP ete ee ia apa Ber Ttc. ORGNE MOR! OUST 
647D 35 O1 $5F1 1936 L WIHRWR«3_XRE LOAD POINTER REGISTER 1 €& Oo Oo ee ae Acne 
6481 OF O1 65F1 6465 _ 1937 ALC WINRWRE3¢23,D5 SET RETURN ADDRESS TO NEXT INST ete - oe Sono eons ea ee ey iccceruc aEAG VERIEN? 
1938 ia 
6487 3C OA 6468 1939 MVI «IC TReid INITIALIZE Couns es & 6570 F2 81 73 e006 JE WINRWT 
648B 1C 01 6489 04 4940 MVC «- MOV145423 ol eXR1? OVERLAY MYC INST ! aes 
6490 OC O1 65ED 6489 1941 MVC MVIE463023,.M0V1¢5 OVERLAY MOVE INSTRUCTOR : 6573 OF 00 6468 7015 2008 BRIRYL SLC SURI ONE i UL Ser ae vee 
6496 OF 01 6489 6465 1942 ALC MOV145€23-.D5 CHANGE PGINTER 2 eor9 be . oe pe ga er. J Pe eegee 
649C OF O1 6489 6467 1943 ALC  MOV1€5222 2D3 ! oe ee A aa eee 
6402 OC 01 6441 5469 - - 1944 MVC 8 =—- MVC 1043129 »ROVIeS OVERLAY KEY AND DATA LENGTHS 6 80 z Ee tnere BES epee TPiELD 
64A8 OE O01 6489 7015 1945 ALC WOW <5 6270 ONE €3 6584 OC 09 0000 6449 e0re MOV2 MVC : ; 
64AE OC 02 0000 5240 1946 KVC10 MVC #—€(3).X256 
6484 OC 09 6449 0000 1947 MOVi MYC ODCFE(10},%-* STORE DOCF IN ALTERNATE PLACE 658A 7D 20 00 2014 co OUeshiekre0? as Sr Mad ene alee 
64BA OC O01 6587 6489 1948 MVC «=. MOV243.022 .MOVIES OVERLAY MOVE INSTPUCTION € oe ee = oF. rile Be, a rtore ices a te Gaite VERIEY? 
1949 
RTIVFY »X°FFt 
oiES 26 35 OBae 2 ie | eee @ Shs 20 fo ease oar hows tr soy THAN RETURN YO THAT SECTION 
. 1952 ; .-« 659C CO 87 6530 2019 b RTRYL RETRY DISK GPERATION 
: , + 
| Von ” oni | ws 6, TNOVTS 22pEC7S LOMART6 - PROG ID D44-3 
29AUG75 o7NOVTS 22DEC7T5 ~~ LOMARTE PROG ID D443 | DATE 29AUGTS OTN eouect place OAcE ng 
827804 827805 827836 827872 PAGE . 18 | EC NO. 827804 827805 | BA. 
oe i & . | 2 
3 | 7 ‘ 
oe 
i 
ie 
: ee 
i 
Lo 








a eee ee 


} 


| 





IBM MAINTENANCE OIAGNOSTIC PROGRAM PART NO. 4248226 IBM MAINTENANCE DIAGNOSTIC PROGRAM . PARTY NO. 4248224 
D443  $/3 3340 AND CARD UTILITIES =~ MOD 12 _ D443 -S/3 3340 AND CARD UTILITIES --= MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
2020 ©" 666B 71 C6 04 2082 LIO =4(,XR1),00CR RELOAD DDCR 
65A0 3C FF 66Aa 2021 CHK1 MMVI WRIVEY,X*FFS 666E 31 C4 6445 2083 LIO TOODR,DDOR RELOAD DDOR 
6504 CO 87 67CC 2022 B HALT2 6672 OC 04 0000 6452 2084 MVC2 MVC = = * (5) s TODD F 44 MOVE CORRECT HIGH ORDER 5 BYTES 
2023 wage 2085 * INTO OOCF FIELD 
2023 7 pe 12X*20 
2023 6678 7D 20 00 2087 CLI O€eXR192X*208 
6548 OC 00 65DC 6419 2024 SCANRD MVC S101041(1),DRIVE# OVERLAY SIO INSTR f 6678 CO 81 6508 2088 BE ORTRNI RETURN TG SEEK IN SCANRO SECTION 
65AE 3A 03 6500 2025 SBN $S101041,Xx*03! 667F 38 FF 66Aa 2089 TbN =o WRIVFY,X*FF? FROM WRITE VERIFY? 
6582 OC 00 65D9 6419 2026 MVC $50114101),DRIVES OVERLAY SIO INST 6683 38 FF 66AA 2090 SBF -WRIVFY,X"FE® RESET FLAG 
6588 OC 00 65D5 6419 2027 MVC =—«- T1094 41) ,OPIVES OVERLAY TIO INSTR f 6687 CO 10 6561 2091 BT DRTRN3 
65£E OC 00 65DF 6419 2028 MVC) =s- T1G1041(1) »DRIVER OVERLAY TIO INSTR ; 668B CO 87 653D 2092 8 DRTRN2 RETURN TO SEEK IN RD WRTeGR SK SCT 
65C4 3A 02 650F 2029 SBN TIOLOF+igX*?02° 2093 
65C8 OC 0O 65E3 6419 2030 MVC) =—s-~ TIGL141¢01),ORIVES OVERLAY TIO INSTR c 668F 2094 FRDTRK EQU #*& 
O5CE 71 C4 02 2031 LIQ = 2t4XR1),0D0R LOAD ODDR : 668F 7D 20 00 2095 CLI Ot »XR1),X*208 1S IT A SCAN READ? 
6501 71 C6 64 2032 LIO 4¢.XR1},D0CR LOAD DODCR 6692 CO 81 65D4 2096 BE T109 IF SO, RETURN TO THAT SECTION 
6504 Cl 00 6772 2033 YI09 TIO HALT1,*#—* TEST FOR DEVICE NOT READY Q 6696 38 FF 66AA 2097 TBN = WRIVFY,X*FFS IS IT A WRITE VERIFY? 
6508 F3 00 00 2034 SI1011 SIO xX*00t,e-« SEEK 669A 38 FF 66AA 2098 SBF WRIVEY,X'FF® 
2035 = 669E CO 10 655E 2099 BT $108 IF SO, RETURN TO THAT VECTION 
65D8 2036 DRTRN1 EQU «& , £ -  66A2 CO 87 6536 2100 8 TIGL T.ETURN TO READ OR WRITE SECTION 
6508 F3 00 OC 2037 SI010 SIO X*0C*,#—% EXECUTE SCAN READ . 2101 * - 
65DE C1 00 650E 2038 T1010 T10 #,3-*% WAIT UNTIL DONE 2102 * SENSE DIAGNOSTIC 24 BYTES SUBROUTINE * 
65E2 Cl 00 67CC 2039 T1011 TIO HALT2,4—* TEST FOR UNIT CHECK © 2103 * = 
2040 2104 * * 
2040 ee 66A6 5000 66A7 2105 DGSNS@ DC AL2(OGSNSB) 
65E6 35 01 71E3 2041 WINRWT L ADDR» XR1 €- 6648 0000 66A9 2106 TEM1 OC IL2*0* 
65Ea 3C 00 0000 2042 MVI14 MMVI #-#,0 ZER OUT FLAG BYTE BEFORE RETURNING 66AA 00 66AA 2107 WRIVEY OC IL1*O8 
65€E CO 87 0000 2063 WINRWR B *—* RETURN TO CALLER . 2108 : 
2044 C 66AB 34 OR 66CF 2109 SNS24 ST SNS24R43, ARR SAVE ADDRESS 
2044 ' " @6AF 30 C5 6461 2110 SNS  STATEsX*CS* DIAGNOSTIC SENSE 
2045 * 66B3 30 C4 66a9 2111 SNS  TEM1,O00R SAVE DODR 
2046 * THIS SECTION FINDS THE ALTERNATE TRACK ADDRESS SEEKS TO IT +. €: 66B7 33 C4 66A7 2112 LIGO ODGSNS3,DD0R ’ LOAD DDDR 
2047 * AND RETURNS CONTROL; OR, WHEN COMING OFF AN ALTERNATE TRACK, * 66BB 0C 00 66C6 6419 2113 MYC S$1064+1 (1) ,ORIVES OVERLAY INST 
2048 * IT GETS THE PROGRAM BACK TQ THE RIGHT TRACK. ce 66C1 3A 01 66CE 2114 SBN S$106#1.X*O01* CONTINUE OVERLAY 
2049 & * & 66C5 £3 00 07 2115 SIQG6 SIO X°07', 4-2 SENSE DIAGNOSTIC 24 BYTES 
Sp Sa 2050 2116 arn 
2050 i 66C8 31 C4 66A9 2117 L10 TEM1,D0D0R RELGAD DDDR 
65F2 34 O8 6618 2051 OEFTRK ST DEFTKR4+3,ARR SAVE ADDRESS | & 66CC CO 87 0000 2118 SNS24R B *—* RETURN TO CALLER 
65F6 OF 00 6468 7015 2052 SiC ICTR(1) ONE DECREMENT LOOP COUNTER 2119 
65FC CO 81 675A 2053 82 EE2 QUIT IF 10 TIMES 2119 
6600 30 OD 5007 2054 CLI OBYTET.x*OD8 COMPARE BYTE 7 €& 6600 34 08 6745 2120 SNSAP ST SNS APR43,ARR SAVE RETURN ADDRESS 
6604 F2 81 15 2055 JE TOOTRK IF="OD* THEN SEEK TO ALTERNATE he 6604 34 01 72A3 2121 ST TEMP6 oXR1 SAVE IMDEX REGISTERS 
2056 i 6608 34 02 6283 2122 ST TEMP4,XR2 
6607 OC 01 6610 65€D 2057 MYC 8 =—- MV 154302) 9 MV1443 GVERLAY INTSTRUCTION TO ZERO DOCF i €2  66DC C2 01 5000 2123 LA DGSNSB, XR1 INITIALIZE ADDRESS POINTERS 
6600 3C 00 0000 2058 MVIS MMVI 8 *-#,0 FLAG BYTE. " 66E0 C2 02 5019 2124 LA DGS2B+2 »XR2 
2059 2125 * 
6611 3D OE 5007 2060 CL1  OBYTET,X*OE® @ 2126 * FOLLOWING ROUTINE UNPACKS THE 24 BYTE DIAGNOSTIC REAO 
6615 F2 81 77 2062 JE FRDOTRK ' 2127 * TO BE PRINTED 
6618 CO 87 0000 2062 DEFTKR 8 t—* RETURN TO CALLER 2128 * 
2063 | & 66E& 3C 06 7103 2129 MVI—s- CTR1,6 INITIALIZE 00 LOOP COUNTERS 
661C OC 00 6653 6419 2064 TODTRK MVC 1101541(1), DRIVES OVERLAY TOP ONST \ 66E8 3C 04 7104 2130 LOOP13 MVI = CTR254 
6622 OC 00 6657 6419 2065 MvC «©$1024101),0RIVES OVERLAY SIO INST i 66EC 34 O01 66FA 2131 LOOP14 ST UP1eXR1 SET UNPACK ADORESSES 
6628 3A O1 6657 2066 SON $10241.x*O01¢ Cc 66FO 34 02 66FC 2132 ST UP 2,xXR2 
662C OC 00 6669 6657 2067 MVC = $ 10461019 9 $1021 66F4 CO 87 O2Z1E 2133 8 UNPACK TO DCP UNPACK ROUTINE 
6632 OC 00 66S5E 6419 2068 MVC = =©S$ 1034141) ,ORIVES OVERLAY SIO INST 66F8 O1 ; 66FB 2134 ' oc ILi*1° 
6638 OC 01 6675 6489 2069 MVC 8 =MVC243(2) MOVIES PUT DDCF ADORES IN MOVE INST Cc 66F9 0000 66FA 2135 UPL OC AL 2(@-#) 
663E OF 01 6675 6465 2070 SLC MVC243(23,05 ADJUST ADDRESS i 66FB 0000 66FC 2136 UP2 Oc AL2(4—#) 
6644 OC 00 6665 6653 2071 MVC =: T1021. 01) 6 T1015¢) 66FD BC 40 01 2137 MVI 1eXR23-C* * INSERT BLANK BETWEEN BYTES 
2072 C: 6700 02 01 01 2138 La 10 eXR1),XR1 INCREMENT ADDRESS POINTERS 
; 2072 eS 6703 E2 02 03 2139 LA 3(oXR2)—9XR2 
666A 30 C4 6448 2073 SNS ToOODR,DDDR SAVE CONTENTS OF DODDR 6706 OF 00 7104 7015 2140 SLC CTR2(1).0NE DECREMENT LOOP COUNTER 
664E 31 C4 645F 2074 LIO =«TODDFAa,0DDR LOAD DDDOR WITH TEMPORARY VALUE | €- 670C CO O1 66EC 2141 BNZ LOOPS ; a Be 
6652 Cl 00 6772 2075 TIG15 TIO HALT1,*-« SEE IF DEVICE IS READY a 6710 8C 02 O1 729A 2142 MVC =—s- 1 03» XR2)e BLANK INSERT 4 BLANKS BETWEEN EVERY 6°* - 
6656 €3 00 01 2076 SIO2 SIO X*O1L*,s—2 READ HA AND RO FIELDS 2143 * BYTES 
6659 31 £6 645F 2077 L110 TDODFA,DDCR CHANGE THE DDCF FCR SEEK | Cc: 6715 E2 02 03 2144 LA 3U,XR2),XR2 
665D F3 00 00 - 2078 SI03) SIO xX*00*,e-2 SEEK TO ALTERNATE TRACK | ° 6718 OF OO 7103 7015 2145 SLC CTR1(1),0NE DECREMENT LOOP COUNTER 
6660 31 C4 645F 2079 L10 TOODFa,ODDR 671E CO 01 66E8 2146 BNZ (.LoOoP13 
6664 C1 00 6772 2080 TI02 TIO HALTL,»@~s# | G 2147 
6668 F3 00 01 2081 S106 SIO X*Ql* -e-« READ HA & RO OF ALT TRACK 6722 CO B87 021A 2148 8 PRINT TO OCP PRINT RIN 
la 3, has 
DATE 29AUG75 OTNOV7S 22DEC TS 1LOMART6 PROG ID 044-3; Oo ate 29AUG675 OTNOVTS 220ECT5 LOMART6 , PROG 10 044~3 
EC NO. 827804 827805 827836 827872 PAGE 4. EC NO. 827804 827805 827836 827872 _PAGE 19A 


Ke 


D443 
ERR LOC 


6726 
6727 
6728 


672A 
6T2E 
6T2EF 
6730 


6732 
6736 
6737 
6738 


613A 
673E 
. 6742 


6746 
674A 
6748 
674C 
6T4E 
6750 
6754 
6756 


675A 
6T5E 
675F 
6760 
6762 
6764 
6768 
676C 
OT6E 


6TT2 


67TC 
6760 
6784 
6787 
6788 
678F 
6792 
6796 
679A 
6790 
67al 
6T7A5 
6TAB 
. 6TAC 
6780 
oT84¢ 
6768 
6789 
OTBA 
©7BC 


DATE 





6TT6. 


$/3 3340 AND CARD UTILITIES 


IBM MAINTENANCE DIAGNOSTIC PROGRAN 


2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 


- 2157 


- 2267 


2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2166 


DGPRTS 


SNSAPR 


€&l 
2168 
2169 
2170 
2171 
2172 
2173 
2174 . 
2175 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
21865 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 * 

2195 

2196 HALTIA 
2197 

2198 

2199 

2200 


EE2 


ene 


HALTL 


- 2201 


OBJECT CODE . ADDR 
02 6726 
20 6727 
7371 6729 
co 87 O2l1aA 
02 672E 
56 672F 
T31F 6731 
CO 87 O21A 
0é 6736 
56 6737 
§060 6739 
35 02 72a3 
35 02 6283 
co 87 0000 
CO 87 O21A 
C2 OT4A 
15 6748 
T60B 674D 
FFFF 6T4F 
Co 87 0222 
FFFF 6Tts5 
CoO 87 0216 : 
€O 87 O21A 
c2 67SE 
25 6T5F 
7346 6761 
FFFE 6763 
Co 87 6600 
Co 87 0222 
FFFE 6760 
CoO 87 0216 

6772 
34 08 67¢8° 
OF 01 67C8 70610 
CO 87 66AB 
36 10 6460 
f2 90 04 
3C F& 75DE 
38 20 6460 
F2 90 04 
3C F3 TSE 
38 40 6460 
F2 90 04 
3C F2 T50E 
38 80 6460 
€2 90 04 
3C Fl 75DE 
38 OL 6461 — 
CO 10 6746 
CO 87 O2ZLA 
C6 6788 
24 6789 
7T5F6 6788 
fFFEC 6780 
Z9AUGTS OTNOV75S 
827804 


827805 


2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 


22DECT5 
827836 


——- MOD 12 


STMY SOURCE STATEMENT . 


PART NO. 
PAGE 


FLAG 


“LENGTH 


PRINT ADDRESS 


FLAG (NO HEADING) 
tENGTH 
ADDRESS 


FLAG 
LENGTH 
ADDRESS 


RESTORE INDEX REGISTERS 


RETURN TO CALLER 


PRINT "ADAPTER CHECK* 
FLAG 
LENGTH 
ADDRESS 

ID 
TO OCP HALT 
FLAG 
TERMINATE SECTION 


ROUTINE 


FLAG 

LENGTH 

PRINT. ADDRESS 
10 


BRANCH TO OCP HALT ROUTINE 
HALT 10 : 
TERMINATE SECTION 


DEVICE NOT READY OR ERROR SUBROUTINE 


oc = XL 02° 
DC ALL (EOMS2-EDMS2B) 
OC AL2(E0MS2) 
8 PRINT 
pc = XL 02" 
0C = AL1 ({HDG1-HODG1B) 
DC AL2(HDG1)- ee 
8 PRINT 
DC = XL1°06 
DC  ALLC(DGSNS2-0GS28) 
DC  AL2(DGSNS2) 
L TEMP6eXR1 
L TEMP4,XR2 
8 How 
8 PRINT 
pc 8 sXL ‘C2 
DC ALLCERMS1-ERMS18) 
DC = AL2(CERMS1) 
DC 8 «XL2*F FFF 
B —° HALT 
DC XL2¢FFFF* 
8 LINK 
8 PRINT 
oc 8s XL ¢C2¢ 
DC ALL (EDMS1-EDMS18) 
-O0C  AL2(EDMS1) 
pC —sdXL 2" FFFE* 
8 SNSAP 
8 HALT 
DC = XL2*FFFE* 
8 LINK 
EQqU * 
ST  HALTLR+3,ARR 
SLC - HALT1R¢3(2) ,FOUR 
8 SNS24 
TBN STATE-i»X"10° 
JE #47 
MVI  ERHSG-24eC*4* 
TBN - STATE~1.%"20° 
JF #47 
HVT ERMSG-24C"3* 
IBN STATE-15X*40! 
JF 0 @e7 
VI ERMSG-24,C°2° 
_TBN - STATE-1X*80* 
oe “JF 47 
MVI  ERMSG-24,C°1' 
TEN = STATE» X*01° 
et = Eé2 
B PRINT 
pc 3s XLS C6? 
DC ALICERMSG-ERMSGB? 
DC = AL2CERMSG) — 
DC 3—-—saXL2* FFFC® 
LOMART6 


27872 | 


STORE RETURN ADDRESS 


RETURN TG TIO INSTRUCTION THAT 


CALLED IT 
SENSE DIAGNOSTIC 24 BYTES 


CHECK DO SEE WHAT DRIVE UNIT CHECK 
OCCURRED AND PUT ET IN MESSAGE 


IS 10P HALTED? 


TO OCP PRINT ROUTINE 
FLAG : 


LENGTH | ae 

MESSAGE ADDRESS 

HEADING 
PROG 10 
PAGE 





Ss 
me 


4248224 
20> €: 
D443 
© 678E 
*  67C2 
C 67C6 
©)  67C8 
| 
“2  67CC 
Cc 6700 
., 8704 
© 6708 
_ 670C 
_€2  eTeo 
ae 6TE4 
C 67E8 
67EC 
&: 67FO 
(g™  67R4 
c 67FA 
e 
i6 
| 
|e 
1@ 
«| 
ig 
@ 
@ 
{@ 
e 
e 
e 
| \° 
“| Oy ire 
20, © 
le | 
;e@ 
© . 


co 
co 


87 
87 


FFFC 


co 


co 
38 
co 


39 


39 
co 


39 


39 


39 
co 


oc 
co 


87 


87 
ol 
10 


02 
ol 
90 


25 
ic 
78 
90 


Oi 
87 


$/3 3340 AND CARD UTILITIES 
“ERR LOC OBJECT CODE 


6600 


0222 


0000 


66AB 


‘6461 . 


6746 


500C 
5001 
65F2 


5000 
5001 
5002 
6573 


67C8 
6780 


827805 





“IBM MAINTENANCE DIAGNOSTIC PROGRAM 


m--- MOD 12 


ADDR STMT SOURCE STATEMENT 
2215 
2216 8 SNSAP 
2217 
2218 8 HALT 

67C7 2219 oc XL2°FFEFC® 
2220 
2221 HALTIR B s-t¢ 
2222 
2222 
2222 

2222 —C 

6TCC 2223 HALT2 EQU * 
2224. 8 SNS24 
2225 TBN STATE »X*O1" 
2226 BT EE 
2227 
2228 TBF OB YTEO, TRKCS 
2229 TBE ODBSYTEL,OPINCP | 
2230 BF DEFTRK 
2231 * 
2232 
2233 TBF DBYTEO,X*25* 
2234 TBF DBYTEL,X*1C* 
2235 TBF DBYTE2eX*78* 
2236 BF “BRTRYL 
2237 
2237 7 

6474 2238 MVS «= HALT1R43(2) pLINKMA 
2239 8 HALTIA 
OTNOVTS 220EC T5 19MARTE . 

827836 827872 


PART NO. 4248224 


PaGE 


PRINT WHAT YOU HAVE SENSED 


TO DCP HALT ROUTINE 
HEADING 


RETURN TO CALLER 


CHECK IF ANY CHECKS OCCURRED 


SEE IF DEFECTIVE TRACK. IF IT IS 


204 


SHEN READ ALTERNATE TRACK LOCATION, 
SEEK TO IT~e AND CONTINUE OPERATION. 


IF ANY OF THESE 
BITS ARE ON 


THEN RETRY OPERATION 


AFTER HALT], TERMINATE SECTION 


PRINT "DEVICE NOT READY OR CHECK* 


te. 


PROG 10 


PAGE 


@ | @ = @ a €@ 7 @ @ | ® | @ & 
et as bang, 185 aoe nee any re Figen, “se, 








18M MAINTENANCE DIAGNOSTIC PROGRAM 


D443 
ERR LOC 


OTFE 
6806 
680E 
6816 
OB1E 


682i 
6829 


6820 
6835 
6830 
6845 


684A 
6852 


6857 
| 685F 


6864 
686C 
6874 
687C 
6884 


6887 
688F 
6897 
689F 


68A5 
68AD 
6885 


68BB 
68ac3 
68CB 
68D3 


6808 
68E3 
68E€8 
68F3 
68FB 
6903 


6908 
6910 
6918 
6920 
6928 
692E 
6936 
693E 
6946 
O94E 


6954 


CATE 
EC NC. 


S/3 3340 AND CARD 
OBJECT CODE 


C505£3C50940E3C8 
CS40D5E4D4C 26509 
40D6C6400607E3C9 
D60540C4C5E2C909 
C5C47A 


F1404G40D2C5E8D7 
€405C 3C8 


F2404040C4E4D703 
C9C3C 1E3C540F 8FO 
40C3D603E4D4D540 
C4C5C3D2E2 


F3404040E5E3D6C 3 
4OCSE4SD4D7 


F4404040C4C9E 202 
40C4E40407 


F5404040D7E4D5C 3 
C840070906C709C2 
D4E24009C SE2C9C4 
CS05C740D60540C4 
C9E202 


F6404040D7C 1E3C3 
C861C4C9E2D703C1 
E840C4C 9£ 2024009 
C5C306D9CSE2 


F9404040E3C 50904 
C9DSC1E3C5E240E2 
C5C3E3C9D605 


C4C9E 20240096106 
40D60540C4F160E2 
CSES40E2ZE2EGF2F2 
40C 6D60940C 4F 248 


C505€3€509400607 
£3C906054005E404 
C2C509405040D7D9 
C5E2E24060C5D05C4 
604002C 5E84B4040 
E6D9C9E3CS 


60606040CS509N906 
0940606060404040 
4040404040D9C 560 
CSD5E3C50940D607 
E3C9D6054640 

60606040C 5090906 


D940606060404040 | 


D9C560C505E3C509 
400 3C 905C 540D5E4 
04C2C5094840 


5C5C4004C9E20D240 


29aUGTS ——OOTNOVTS. 
827805 


827804 


UTILITIES 
ADOR STMT 


2241 
2242 


&7FD 
6820 


2244 
2245 
2245 
2245 
2245 
2245 
2246 
2247 
2247 
2248 
2249 
2249 


6820 
662C 


$82C 
6849 


PART NO. 


PAGE | 


-—- MOD 12 


SOURCE 


* 
* MAIN 


2243 * 


MENUL 
MENUL? 


MENULA 
MENU12 


MENUIB 
MENU13 


2249 © 


2249 
2250 
2251 
2251 
2252 
2253 
2253 
225¢ 
2255 
2255 
2255 
2255 
2255 
2256 
2257 
2257 
2257 
2257 
2258 
2259 
2259 
2259 
2260 
2261 
2261 
2261 
2261 
2262 
2263 
2263 
2263 
2263 
2203 
2264 
2265 
. 2266 


2267 
6920 2268 


6849 
6856 


6856 
6863 


6863 
6886 


6836 
68A4 


68A4 
666A 


68BA 
68DA 


68DA 
6902 


6907 


MENUIC 
MENU14 


MENULD 
MENUI5 


MENULE 
MENUS 


MENULF 
MENULZ 


MENUIS 


MENU1S 


MENU1H 
MENUIS 


MENULI 
MENULO 


WRITE 
* 


STATEMENT 


OPTIGN MENU 


EQU 
oC 


1 


CLA5*ENTER THE NUMBER AF GPTION DESIRED: * 


EQU 
oc 


+} 
CL12*1 KEYPUNCH® 
EQu 
oc 


*-1 


“CL29*2 DUPLICATE 80 COLUMN DECKS? 


£QU 
oc 


EQU 


-} . 
CLi3*3 vTOC ODUMP® 
1 

CL£13"*4 8 DISK DUMPS 


EQU] #-1 


. CL35*5 PUNCH PROGRAMS RESIDING ON DISK* 


o-1 . 7 
CL30*6 PATCH/DISPLAY DISK RECORDS* 


eQuU) #1 


CL22*9 TERMINATES SECTION® 


EQU] 4] 


CL32°DISK 1/0 ON DI-SET $SW22 FOR D2.° 


eOou 
oc 


—} : 
CLSO°ENTER OPTION NUMBER & PRESS ~END- KEY. *¢ 


oc CLS*wRITE* 


* ERROR DISPLAY FOR MENU] 
2 . 3 


ERR 


2268 


2268 

2268 

. 2268 
6953 2269 
2269 

2269 
2269 
2269 

2270 

2271 

. 2272 
6953 
6962 


22DEC75 
- 827836 


ERR2 


& 


* DISK 
a ; 


2273 MENUZ1 EQU 
2274 MENUZA OC 


L9MART6 
827872 


DC [RE-ENTER OPTION. © 


CL36°——- ERROR ~~~ 


oc CL38*~--- ERROR ~~ RE-ENTER LINE NUMBER. * 


DURP MENU 


2-1 
CL15°s* DISK OUNP se 


PAGE 


PROG ID 


4248224 
21 


__IBM MAINTENANCE DIAGNOSTIC PROGRAM 


$/3 3340 AND CARD 


“~~ OD 12 





PART NO. 6248226 
PAGE 2 


» 
ea 


SOURCE STATEMENT 


D443 UTILITIES 
“ERR LOC OBJECT CODE ADDR STMT 
{695 Cee6D407405C5C 2274 
6962 2275 MENU2 
7 6963 C5D5E3C50940D6D5 6985 2276 MENUZ0 
f 696B €54006C640E308C5 2276 
6973 40C606D3D3D6E6C9 2276 
. 6978 05C740D6D7E3C9D6 2276 
£* 6983 O5SE27A 2276 
6985 2277 INFOA 
2 6986 C5D5E3C5D940E3C8 69A0 2278 INFO 
g 698E C540C3C8C1DSC7CS 2278—tit 
“6996 4004C1E3C140C8C5 2278 
_ 699€ 09C57A 2278 
* 69A0 2279 INFOB 
-« @9AL CIC640ESE2ZCODSC7 69CE 2280 INFO2 
_- 69A9 40E3CBC540F5F4F7 2280 
<@ 6981 F16BE3C8C540E 207 2280 
' 6989 C1C3C540C2C 10940 2280 
_ 69C€1 £6C9D03034003C5C1 2280 
&. 69C9 ESC540E3CeC5 2280 
- 69CE 2281 INFOC 
69CF CSC1E3C140E4D5C3 69FE 2282 INFO3 
£6907 - €8C105C705C44840 2282 
690F 0709C5E2E24060C5 2282 
_ | 69E7 D5C46040E6C8C5D5 2282 
€ 5 69EF 40040605C540C505 2282 
“  69FT E3C509C9D5C 74846 2282 
69FE 2283 INFOD 
C  69FF C9COS0E4EZCODSC7 6A30 2284 INFOS 
“  6AOT 40C3D7E440C4C1E3 2284 
GAOF €140E2E6£2684001 2284 
€+ 6A17 40CIC5E740F4F040 2284 
“ALF CSDSE3C509050440 2284 
6A27 E6C9D3D340D3C5C1 2284 
6A2F ESCS 2284 
6A30 2285 INFOE 
6A31 E3C8C540C4C1E3C1 6464 2286 INFOS 
€* $A39 40E405C3C8C105C7 2286. 
6441 C5C44B40E3C8C540 2286 
.  6A&9 E2E3C9024003C9E3 2286 
€= 6851 €240£6C9D30340C9 2286 
6459 D5C309C504C505E3 2286 
6A61 400 2E840 2286 
& 6A64 2287 INFOF 
6A65 0605C540C6060940 6A92 2288 INFOS 
6A60 C5C1C3C840C5D5E3 2288 
€2  6A75 09E84840C5D5E3C5 2288 
6A7TD 0940E3C8C540C3C8 2288 
6A85 C1D5C7C540C4C1E3 2268 
6ABD C140C9054040 2288 
6492 2289 INFOG 
_  6A93 C3D7E440C4C1E3C1 6AAA 2290 INFO7 
€s 6a98 40E2E6C9E3C3C8C5 2290 
6AA3 E240F3404E40F448 2290 
6AAA 2291 MENU22 
€3  6AaB F16060C4C9E20240 6AB6 2292 MENUZB 
6483 C4E4D407 2292 
6486 2293 MENUZ3 
€3 6AB7 £36060C3D605E3C9 6AC7 2294 MENUZC 
"GABF OSESCSE240C4E404 2294 
6ACT D7 _ 2294 
eS 6ACT? 2295 MENUZ4 
6ACB F9606009C5E3E4D9 6ADF 2296 MENUZD 
_  6ADO Of 2240E306400402 2296 
€%  6aD6 C9054004C505E440 2296 
6ADF 2297 MENUZS 
. 6AEO C5D5E3C5D940C3C3 6B07 2298 MENUZE 
€;  6AE8 406040C3EsD3C905 2298 
“  @AFO €405094009D540C8 2298 
Goure 29AUG75 OTNOVTS 22DEC 75 
EC NO. 827804 827865 827636 


EQqU #} 

oc CL35"ENTER GNE GF THE FOLLOWING OPTIONS: * 

eQU #1 

oC CLZT*ENTER THE CHANGE DATA HERE: * 

EQU  #-1 

oc CL46°IF USING THE 5471,THE SPACE SAR WILL LEAVE THE® 

£QU 1 

oc CL48*DATA UNCHANGED. PRESS —END- WHEN DONE ENTERING. * 

EQU &} 

oC CLSO'IF USING CPU DATA SWSe A HEX £0 ENTERED WILL LEAVE® 

DC CLS2°THE DATA UNCHANGED. THE STIK LITS WILL INCREMENT BY m 

‘ 

EQU #1 i. 
oc CL46°ONE FOR EACH ENTRY. ENTER THE CHANGE DATA Im * i 
EQU #1 . ae 
DC CL24°CPU DATA SWITCHES 3 + 4.* e 
FEQU #1 f 
oc CL32°1--DISK DUNP® . 
£QuU #1 . 
oc CL17*3-—CONTINUES DUMP® f 
equ 4} ~: t 
oc CL24°9--RETURNS TO MAIN MENU * : 
EQU  #} | : 
oc CLOO‘ENTER CC - CYLANDER IN HEX (0 7G 21) = * 2 
19MART6 PROG ID 044-3 ° 
827872 PAGE 22a: 


by git ee eek nate 


D443 
ERR LOC 


6GAFS 
6B00 


6603 
6810 
6B18 
6820 
6828 


6B30 
6B38 
6840 
6B48 
6850 


6658 
6860 
6868 
6870 
6878 


6680 
6888 
6890 
6898 
6BA0 
6BAB 


68A9 
6BB1 
68869 
6BC1 
68C9 


68D} 
6809 
6BE1 
68E9 
OBF1L 
6BF9 


6BEA 
6C02 
6COA 


6COF 
6C17 
6ClF 





6C26 
6C2E 
6C36 
6C3E 
6C46 
6C48 
6C5G6 
6C58 


6C5F 
6C6T7 
6C6F 
6C77 
-6C7F 


6C82 
6C8A 
6092 


DATE 
EC NG. 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 








PART NGe- 4248224, 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 4248224 
PAGE 22 ¢ PAGE 22A 
$/3 3340 AND CaRD UTELETEZES -—— MOD 12 psoas S/3 3340 AND CARD UTILITIES -—— MOD 12 
OBJECT CODE ADOR STMT SOURCE STATEMENT . ~ ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
C5E740404DF040E3 2298 '£° 6C99 £9606040E3D640D9 6CAK 2323 MENUSD DC CL23*9-— TO RETURN MAIN MENUS 
D640F2F 150404040 2298 6CAL C5E3E4D9D54004C1 2323 
6807 2299 MENUZ6 EQU *-1 6CA9 C9D540D4C505E4 2323 
404040404040C8Cc 682F 2300 MENUZF DC CL40# HH - HEAD IN HEX (0 T1013) iC 6CAF 2324 MENUS] EQU = #=1 
406040C8C5C 10440 2300 a 6CBO D7C9C44040404C60 6CC8 2325 MENUSE DC CL25*PID <--ENTER PROGRAM ID* 
C9D540C8C5E74040 2300 6CB8 60C5D5E3C5D94007 2325 
404040404DF040E3 2300 1 é 6CCO 0906C7D9C 1044009 2325 
0640F 1F35D404040 2300 ei 6CCB C4 2325 
682F 2301 MENU27 EQU €-} 6CC8 2326 MENUS6 EQU = e~1 
4040404040400909 6857 2302 MENU2G DC CL40* RR ~ RECORD IN HEX (1 To 30) = ¢ ce 6CC9 C5D5E3C5SD940D7C9 6CFO 2327 0c CL4O"ENTER PID IN DATA SWITCHES 2, 3 AND 4. °* 
406040D9C5C3D6D9 2302 a 6CD1 C440C9D540C4C1E3 2327 
C440C9D0540C8CS5ET 2302 i 6CO9 C140E2E6C9E3C3C8 2327 
4040404040F 140E3 2302 6CEL C5E240F 26B40F 340 2327 
D640F3F05D404040 2302 6CE9 C105C440F44B4040 2327 
6857 2303 MENU28 EQU = *--} i 6CF1 D9CSEZC5E340E3C8 6008 2328 MENUSF DC CL27*RESET THE HALT TO CONTINUE. ° 
4040404040400540 687F 2304 MENU2H DC CL40° N - # TO DUMP(DEFAULT 1; MAX 999)8 by 6CF9 C540C8C103E340E3 2328 
peeueee 2304 : : 6001 0640C3D6D5E3C905 2328 
E4D4074DC4C5C6 2304 6009 E4C548 2328 
C1E4D3E340F15E40 2304 | €° _ 6DOB 2329 MENU61 EQU #1 ete 
04C LET4OF9F9F95D 2304 1 S00C C5D5E3C50940E3C8 6024 2330 MENU6A DC CLZ5*ENTER THE DESIRED OPTION:* 
687F 2305 MENUZ9 EQU  *-1 6014 C540C4C5E2C9D9C5 2330 
Sees ee 6848 2306 NENUZI DC CL41*CCHHRR NNN<-- ENTER CCHHRRN AND PRESS END? | €* 6D1C C44006D7E3C90605 2330 
050D54C 606040 505 2306 ie 6024 7A 2330 : 
£3C50940C3C3C8ce 2306 | 6024 2331 MENU62 EQU 1 7 
09D90540C 1D5C440 2306 | €. 6D25 FLETET6060E7E7C9 6D43 2332 MENU6B OC CL3L*LXX=-XXIS THE LINE TO BE ALTER® 
D709C5E2E240C5D5 2306 "D020 £240E3C8C54003C9 2332 : 3 
C4 2306 | 6035 D5C540E30640C2C5 2332 : 
6BAB 2307 MENUSS EQU #1 | €. 6D3D 40C1D3E3C50940 2332 
C3C3C8C8D9094040 6880 2308 MENU2S DC CL40*CCHHRR <-- ENTER CCHHRR AND PRESS END® ss 6043 2333 MENU63 EQU = #-] a : 
40404C600040C505 2308 | ..  6D4& F36060E6D9C9E3C5 6D5A 2334 MENUSC DC CL23"3--WRITE RECORD TO DISK 
E3C5D940C3C3C8C8 2308 if  6p4e 4r09c5¢3D609C440 2334 . < 
Babs ee 10 S08" 2308 | 6054 £30640C4C9E2D2 2334 
CSE2E240C5D5C4 2308 605A 2335 MENUG4 EQU #1 
. 68D0 2309 MENU41 EQU = #-1 | > 6058 Fesos0cacoezD703 ED7C 2336 MENU6D 0C CL34"6-—DISPLAY NEXT SEQUENTIAL RECORD* 
CACOEZDZA0D7C1ES 66F9 2310 MENUGA DC = CL4@1 "DISK PATCH/DISPLAY=-ENTER OPTION DESIRED: * | —-: 6D63._ CLEB40D5CSETE340 2336 . shea a 
3C861C4C9E20703 2310 6D6B E2C5D8E4C5D5E3C9 2336 
Deeoceerestencee ane | {  6D73 C1D34009C5C3D6D9 2336 : : 
6D7B C440 2336 f 
40C4C5E2C9D9C5C4 2310 6D7C 2337 MENU65 EQU #-} : 
tA 2310 | €° DTD F9e6060D9C5E3E4D9 692 2338 MENUGE DC _CL22°S--RETURN TO MAIN MENU® 
6BFO 2311 MENU42 EQU = 4-1 6D85 0540E3D640D4C109 2338 ee 
FLO060C4C9E20240 6COE 2312 MENUSB DC CL21°1--DISK PATCH/DISPLAY® 6D8D D540D4C5D5E4 2338 aa : 
D7CLE3SC3C8E1C4CE 2312 t¢ 6093 CSDS5E3C5D940E3C8 6DB8 2339 oc CL38°ENTER THE OPTION IN THE RIGHT MOST CPUt i 
€20703C 18 2312 ; ~ 6098 C540DeD7E3C9DED5S 2339 4 : 
@COE 2313 MENUS3 EQU = *-1 | 6DA3 40C9D540E3C8C540 2339 ' 
poe cet coe ees 6€25 2314 MENUSC DC CL23°9--RETURN TO MAIN MENU® | €*  6DAB DICIT7CBER400D4D6 2339 i 
540E 30640D4C1C9 2314 6083 E2E340C307E4 2339 asst: : 
DS40D4C5D5£440 2314 6059 40C4C1E3CI40EZE6 6DD8 2340 MENUTO OC CL32* DATA SWITCH AND RESET THE HALT.* 
6€25 2315 MENUS EQU #1 €)}  6DC1 C9E3C3C840C 10504 234) 
ESCBCIEZ0DE0TES 6C47 2316 DC =_—« CL 34" THIS OPTION ALLOWS A PROGRAM TO BE® _  - 6BC9 40D9CSE2C5E340E3 2340 : 
9D6D540C 1030306 2316 6D91 C8C540C8C2D3E34B 2340 
E6E240C1400709D6 2316 | i 60D8 2341 MENU71 EQU = #-1 
CTD9C 10440E 30640 2316 60D9 E4E2C540C3D7E440 6DFC 2342 MENUTA DC CL36*USE CPU DATA SWS FOR ENTERING DaTa: * 
c2c5 2316 | 6DE1 C4C1E3C140E2E6E2 2342 
“ODTE405C3CBC5C4& GCSE 2317 MENUSA DC CL23* PUNCHED FROM THE OISK.¢* €: DEI 40C6D6n940C505E3 2342 
4C6C609D6D440£3C8 2317 | 6DF1 CSD9C9D5SC740C4C1 2342 
C540C4C9E2D248 2317 6DF9 E3C17440 2342 
6CSE 23168 MENUS2 EQU *-1 . | eG 6DFC 2343 MENU72 EQU #-1 
CSDS5E3C5D9400605 6€81 2319 MENUSB DC CL35*ENTER ONE OF THE FOLLOWING OPTIONS:* | 60r0 C3C360C5SD05E3C5D9 6E1T 2344 MENU7B OC CL27*CC-ENTER IN DATA SwS 1 «2° 
C54006C640E3C8C5 2319 ree GEO5 S0C9D540C4C1E3CL1 =—«—_—(€ss«2.G es 
40C6D6D3D306E6C9 2319 | (2 6€0D 40E2E6E240F 1404E 2344 eee 
D5C740D607E3C9D6 2319 | 6E15 40F240 2344 , : oe 
DSE2TA 2319 _ 6€17 2345 MENUT3 EQU = 9-1 ; 
___ 6€82 2320 MENUS3 EQU = %-1 | €:  6€18 C8C860C5D5E3C5D9 6E44 2346 MENUTC DC CL45*HH-ENTER IN DATA SWS 3 + 4 AND RESET HALT E3.° 
F1606040E30640CS 6€98 2321 MENUSC DC CLZ3"1-- TO ENTER PROGRAM ID* ! ' 6E20 40€90540C4C1E3C1 2346 - 
D5E3C50940D709D6 2321 GEZB 40E2E6E240F3404E 2346 
CTD9C 104400 9C4 2321 {>  6€30 40F440C105C440D9 2346 
6€98 2322 MENUSS EQU = #-1 | 6E38 CSE2C5E34058C1D3 2346 
29AaUGTS OTNOVTS. 220ECT5 1LOMARTE PROG 1D pags | Oo are 29AUG75| OTNOV75 22DECT5 1OMART6 PROG ID D44-3 | 
827804 827805. 827836 8 = 827872 PAGE 22 | 6° NO. 827804 827805 (827836 827872 PAGE 22a 


we : 3 . : _. . i. oo. a aS — 7 : , 
we ee wish won Yet? eet ae eo aa 





168M MAINTENANCE DIAGNOSTIC PROGRAM 


0443 
ERR LOC 
6E40 


6E45 
SE4D 
6E55 
6E5D 
6E65 
6E6D 


6E72 
6ETA 
6€82 
6E8A 
6E92 
6E9A 


6EA2 
GEAA 
6EB2 
6EBA 
. 6EC2 
6ECA 
6ECE 
6ED6 
SEDE 
6EE6 
6EEE 
6EFS 
GEFA 
6FO2 
6FOA 
6F1i2 
6FI1A 
6F22 


6F 28 
6F30 
6F38 


6F3C 
6F44 
6F4C 
GF4E 
6F50 
6F52 
6F54 
6F56 
6F58 
6F59 
6FSA 
6FSC 
i. 6F5E 


6FSF 
6F63 
6F67 
6F68 
SF6E 
6FT0O 
OFT4 
6FT78 
6F80 
6F88 
6F90 
6F98 


DATE 
EC NO. 


OBJECT CODE 


‘€340C5F345 


DIDI60C505E3C509 
40C9D540C4C1 E3C1 
40E Z2EGE240F 1404E 
40F 240C 105C44009 
C5E2C5E340C8C1D3 
€340C5F448 


D5050560C505E3C>S 
D940C90540C3D7TE4 
40E 2EG6E240F 26840 
F34G0GE4OF 4400105 
C44009C5E2C5E340 
C8C1D3E349C5F548 


C5D5€3C50940E3C8 
C5400607E3C9D6D5 
40C90540C4C1E3C1 
40E2E640F 2684003 
C90D5C5407B40C9D5 
40C4C1E3 

C140& 2E6E240F340 
4E40F44006060940 
D6EDTE3CIDED540F1 
40C 105€ 440D9C5E2 
CSE340E3C8C540C8 
C103E348 
D2CSEBDTESD5C3C8 
4O0D5D6E340E2E4D7 
D7 0609£ 3C5C46840 
FSF4&F7F140C9E240 
D5D6E340C4C5CaC9 
D05C5C44B4040 


“‘D9ECS5C1C4EB60C4C9 


E2024009610D64006 
OS40C4E7 


ETETESESE9E9S0ES6 
CLE240E6D9C9ESE3 
C505 
6F53 
TLEC 
oco0 
4000 
OOTF 


FOFOFOFO 
FOFOFOFO 

Fl 

404040404040 
04C5 

00000000 
00000000 
O3C505C7E3C840C3 
D6E4D5E340D6E5C5 
09C6030640604009 
CSE2E3C109E34001 
062 , 


29AUG75  OT7NOVT? 
827804 827805 


ADDR 


6E44 
6E71 


6E71 
6EAl 


6EAl 
SECD 


SEFS 


6F27 


6F2T 
6F 38 


&F4D 


OF 4F 
6F51 
6F53 
6F55 
6F57 
6F58 
6F 59 
6F5B 
6F5D 
6F5E 


6F62 
6F 66 
6F 67 
6F6D 
6F GF 
6F73 
6FTT7 
6F99 


s 


$/3 3340 AND CaRD UTILITIES 





PART NO. 4248224. IBM MAINTENANCE DIAGNOSTIC PROGRAM . PART NO} 
PAGE = 230° g% PAGE 
——~ MOD 12 | 0443 $/3 3340 AND CARD UTILITIES =—=<~- MOD 12 
y 
STMT SOURCE STATEMENT ““ERR LOC OBJECT CODE ‘ADDR STMT SOURCE STATEMENT 
2346 cae 6F9A DICLOICIEZEB40C5 BFC2 2381 PARERR OC CL41 "PARITY ERROR - RESET 3741 AND RESTART JOB* 
2347 MENUT4 EQU #-1 6FA2 09D9D609406040D9 2381 
2348 MENUTD OC CL45"RR-ENTER IN DATA SWS 1 # 2 AND RESET HALT E4.° : 6OFAA C5E2C5E340F 3F7F4 2381 
2348  f 6FB2 F140C1D5C440D9C5 2381 
2348 6FBA E2E3C109E3400106 2381 
2348 6FC2 C2 2381 - 
2348 6FC3 F3FTF4F140C9E240 6FDF 2382 NOTIN DC CL29°3741 1S NOT IN THE INPUT MODE* 
2348 6FCB D506E340C9D540E3 2382 
2349 MENUTS EQU = ¥-1 ; 6FO3 C8C540C9D507E4E3 2382 
2350 MENUTE OC CL48*NNN-ENTER IN CPU SWS 2, 3 + 4 AND RESET HALT ES5.° f 6FDB 400406C4C5 2382 
2350 Rts : 6FEO D7E4&E340C9E340C9 700A 2383 PINW DC CL43*PUT IT IN THE INPUT MGDE AND RESET THE HALT® 
2350 © 6FE8 0540E3C8C540C9D5 2383 
‘2350 it GFFO DTEGE3400406C4C5 2383 
2350 , 6FFB 40C105C44009C5E2 2383 
2350 7000 C5E340E3C8C540C8 2383 
2351 MENUT6 EQU  #-1 ¢ 7008 C103E3 2383 
2352 OC CL46*ENTER THE OPTION IN DATA SW 25 LINE # IN DAT® —_ 700B 5050 TOOC 2384 x80 oc XL2*5050! FOR 2560 READ LENGTH (80) 
2352 Peas 700D 0004 TOOE 2385 x4 DC XL2°0004° 
2352 1 €: OOF 0004 7010 2386 FOUR  0C XL2*0004! 
2352 ae 7011 0003 7012 2387 THREE OC XL2*0003* 
2352 7013 00 7013 2388 COUNT OC XL1°00* 
2352 > 7014 0001 7015 2389 ONE oc XL2*0001° 
2353 MENUTE DC TL44°A SWS 3 + 4 FOR GPTION 1 AND RESET THE HALT.?* ; 7016 0000 7017 2390 ZERO OC xL2*0000° 
2253 "7018 0000 7019 2391 NUM oc XL2*0000¢ 
2353 C: 701A 0000 701B 2392 STATUX OC XL2°08 
2353 7O1C FOFOFOF1 701F 2393 FOF1  0C XL4*FOFOFOFL® 
2353 7020 0000 7021 2394 SECNT DC 1L2*0°8 
2353 | C: 7022 0000000000000000 7029 2395 SEQNO 0C BIL1*0O* 
2354 ER5471 DC CL46"KEYPUNCH NOT SUPPORTED, 5471 IS NOT DEFINED. * | “- 702A 900 702A 2396 EFLAG 0C XL1*°00¢ 
2354 s : 702 00 702B 2397 ALTFLG OC XL1#00* 
2354 | €%  702zc 00 702C 2398 COUNTR DC = XL1* 008 
2354 702D 0000 702E 2399 CTR oc XL2*08 
2354 TO2F 0000 7030 2400 CTRil NC XL2*O* 
2354 | €% 7031 0000 7032 2401 SAVa - OF XL?*0000° 
2355 KBRDYB EQU 4-1 | 7033 0000 7034 2402 SAVXR1 OC 2XL1*0¢ 
2356 OSKXX DC CLZO*READY-—DISK 1/0 ON OX? 7035 0000 7936 2403 SAVXR2 0C 2XL1*0* 
2356 & 7037 2404 ASTLIN EQU * 
2356 a 7037 4040404040404040 7064 2405 oc 46CL1i* ¢ 
2357 '  703F 4040404040404040 2405 : 
2358 BWRT OC CLIB*XXYVZZ WAS WRITTEN® ' €7 1047 4£040404040404040 2405 
2358 TO4F 4£040404040404040 2405 
2358 Poe 7057 4040404040404040 2405 
2359 RCOO 0C AL2(RC00@a) ADDRESS OF COMP DATA Cc: TOSF 404040404040 2405 
2360 RDOO OC AL2(ABUF) ADDRESS OF NON-COMP DATA oo.“ 7065 4040404040404040 7087 2408 oc Ci3se * INDICATES BYTES CHANGED® 
2361 RCOO@ DC XL2*0CO0* T06D 40405C40C9D5C4C9 2406 
2362 FUNREG OC XL2*4000° €: 7075 C3C1E3C5E240C2E8 2406 
2363 LEN128 OC XL2*OO7F* LENGTH COUNT FOR 128 BYTES | TO70 £3C5E240C3CBCiDS 2406 
2364 COLOR2 DC XL1*OO* 7O85 CTC5C4 2406 
2365 SCDFG DC XLER* 008 | ¢: 7088 2407 cINE €QU # 
2366 STATUS OC XL2*00* | 7088 O3CIDSCSETET4040 70D4 2408 DC CL77T*LINEXX RECORD OF 32 BYTES IN LENGTH* 
2367 TRANS OC XL2*00° 7090 D9C5C30609C44006 2408 Ahn Me : 
2368 FLAG DC xL1*00* FLAG BYTE: ; \ C 7098 C640F3F240C2E8E3 2408 
2369 « | 08 — LAST RECORD FLAG / “" 70A0 €5E240090540D3C5 2408 
2370 * 10 - tGAGTNG & SYSTEM TEST MODULE. 2 TOA8 DSC7E3C840404040 ‘2408 
2371 * 20 - DATA DECK IS BEING READ ee T0B0 4£040404040404040 2408 
2372 * 80 —- LOADING A TAP DECK : "7088 4040404040404040 2408 
2373 SEGCTR OC CL4*0000° TO0CO 4040404040404040 2408 
2374 DO oc CL4*0000° Cc: T0C8 4040404040404040 2408 
2375 Dl oc CLitie. ' "— -70D0 4040404040 2408 
2376 BLNK DC .tL6* ® x 7005 4040404040404040 70F3 2409 LINE OC cL31° ORIGINAL OATA ON DISK* 
2377 ME oc CL2°meE* - C: TODD 40400609C9C7C905 2409 x Be 
2378 SAVEIO DC XL4* 00? 7OE5 C10340C4C1E3C140 2409 
2379 LASTCD OC XL4*00" : TOED 060540C4C9E202 2409 
2380 LCROVR OC CL34*LENGTH COUNT OVERFLO — RESTART yoB® € TOF4 2410 CHGLIN EQU * 
2380 TOF4 C3CB8CTS40ETET4040 7121 2411 oC CL46"CHG XX INDICATES BYTES CHANGED 
2380 ' ss OFC CIOSC4COC3CILESCS - 2411 
2380 i; €> 7104 £240C2E8E3C5E240 2411 
2380 | | 710C C3C8C1D5C7C5C440 2411 
» 22D0EC75 LOMART6 PROG 10 044-3 on : 29AUGTS OTNOVTS 22DEC75 19MART6 | PROG ID 
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IBM MAINTENANCE DIAGNOSTIC PROGRAN 


D443 
ERR LOC 


7114 
Tlic 
7122 
T12A 
T4132 
TL3A 
‘7142 
T14A 
T14F 
7157 
TiSF 
T16T 
T16F 
T1177 
TTF 
7181 
7189 
7i91 
7199 
TIAL 
71A9 
7161 
7185 
7180 
71C5 
71C0 
7101 
1102 
7104 
71D5 
7108 
T1DA 
710¢€ 
TIDE 
T1E0 
FlE2 
T1IE3 
TiES 
TIES 
TiET7 
T1ES 
TIES 
TIED 
TAEE 
71lF9 
T1F2 
TIFS 
71lF8 


TIFE 
7203 
7206 
7207 
7208 
720C 
7200 
7215 
7210 
7221 
7222 
7228 
722A 
7228 


 722€ 


" PATE 
EC NO. 





$/3 3340 AND CARD UTILITIES 


OBJECT CODE ADDR 
4040404040404040 
404040404040 
4040404040404040 T14E 
4040C4C1E3C140C1 
£2400 9E 340E6C9D2 
D340C2C540E6D9C9 
£3£3C50540E30640 
C4C9E2D240 
40C505E3C5D940C1 7180 
40F 1400905400969 
CTCBE340D4D6E2E3 
40C4C 1E3C L40E2E6 
40£3D64009C560C5 
DS5E3C50940C4C1E3 
C148 
40C505E3C50940C1 7184 
40F240C9D540D9C9 
C7C8E340D4D6E2E3 
40C4C 1E3C140E2E6 
40C9C640C4C1E3C1 
40C 9£240C 3D6D9D9 
C5C3E34B 
4OD9CSE2ZC5E340E3 7100 
C8C540C8C1D3E340 
E30640C3D605E3C9 
D5E4C54B . 
SC 7101 
0000 7103 
oo 71D4 
FOFOFO 7107 
FOF 7109 
FLE7 7108 
8001 7200 
0000 71DF 
0003 TEL 
00 TLE2 
00 TLE3 
10 T1E4 
o0ce TLEG 
01E0 TIES 
ODF4 TEA 
opoo TLEC 
00 TED 
5949 TIEF 
S31€ TiFl 
D4D6ESC5 TLES 
6150 TET 
000000000000 71D 
7LFE 
0000000000 7202 
0000C0 7205 
00 7206 
oo 7207 
FOFOFOF 7208 
00 7206 
0000000000000000 7220 
0000000000000000 
00000000 
00 7221 
000000000000 7227 
0002 7229 
00 722A 
90 7228 
ooFO 
OOF 2 
0051 
0040 
0880 722D 
29AUG7S ss: OTNOV7S 
827806 827805 








oem, 


ie 


Q 


PART NO. 4248224 
PAGE 24 
<——— MOD 12 

STMT SOURCE STATEMENT 

2411 

2411 

2412 | oc CL45* DATA AS I¥ WILE BE WRITTEN TO DISK* 
2412 

2412 

2412 

2412 

2412 

2413 KEEP oe CL5O* ENTER Al IN RIGHT MOST DATA SW TO RE-ENTER DATA. * 
2413 

2413 

2413 

2413 

2413 

2413 

2414 KEEPL OC CL52* ENTER A 2 IN RIGHT MOST DATA SW IF DATA IS CORRECT.§ 
2414 

2414 

2414 

2414 | 

2414 

2414 

2415 KEEP2 OC CL28* RESET THE HALT TO CONTINUE.* 

2415 

2415 

2415 

2416 ASTER OC CLitse 

2417 CTRI oc IL2*0o* 

2418 CTR2 OC . IL1*O° 

2419 CHARO OC XL3*FOFOFOS. 

2420 CHARI OC XL2*FOFIE 

2421 CHARI? OC XL2*F1F 7° 

2422 XREG oc xL2°*8001° 

2423 WORK oc xXxL2*0o* 

2424 SVPREQ OC XL2*0003°* 

2425 PUNFLG OC xL1*0o* 

2426 ADDR oc XL1*00° 

2427 SIXTEN OC TLL *16* 

2428 TWOOO OC IL2*200° 

2429 FORBO OC 1L2*480° 

2430 BUFWRT OC AL2(BUFFER+500) 

2431 ABUF oC AL 2 ( 6UFFER¢256) 

2432 NPRT Bc xXL1*00° 

2433 APATCH DC AL2Z(DPATCH) 

2434 ADUMP DC AL2(0DUMP) 

2435 MOVE pc FC CLL 4&@* MOVES” 

2436 CEND DC Cl2*76é* 

2437 SBYTE OC 6IL1°0* 

2438 OSKFLD EQU * 

2439 oC Fs SIL E*O* 

2440 PSBYTE OC 31L1°0° 

2441 SFLG2 DC XLL*00* 

2442 SECFLG OC XL1°90° ‘ 

2443 CARDNO DC XtL4*FOFOFOFI* 

2444 FIRST OC XL1*00* 

2445 SAV20 OC 20XL1°O0° 

2445 : 

2445 , 

2446 FLAGC OC XL2*00* 

2447 SAV oc 61L1°O* 

2448 TWO oc it2*2* 

2449 STATUL OC XL1*00° 

2450 CRDFLG OC XLi°00O* 

2451 MFCU = EQU X*FO? FOLLOWING THREE EQUATES APPLY 
24652. MFCM = EQU K*F2é TO THE VALUES CROFLG CAN ASSUME 
2453 M1442 EQU = X*51° , 

2454 M3741 EQU X*40* 

2455 READBF OC xL2*0e8s9* 

220EC75 LOMART6 PROG 10 044-3 
| 827836 627872 PAGE 24 






* . x *) - f A . . / 
Cis SB se - ae sow. Ls 2-8 
ee » Bowe. 606006 *y ret A 


covenant tan witesialire aibehateten aot seman: eee semi ity cen oe mints me te AOI RP OOO 


_ 0443 $/3 3340 AND CaRD -—- MOD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
& OABO 2456 DUMMY EQU READIN - 
" -722E OAB0 722F 2457 ADUM OC AL2(0UMMY? 
7230 OB00 7231 2458 ACRO OC AL2(SAVCRD) 
& 0880 2459 INPUT EQU x*0880° 
O21A 2460 PRINT] EQU X*Z1A* 
7232 0030 7233 2461 NUMPUN DC = XL2*0030° 
€} 7234 0000 7235 2462 TSTN OC xXL2*0* 
7236 0000000000 723A 2463 SAREA OC xXL5*O¢ 
6210 2464 RECORD EQU  LD5471 
© 7235 2465 DAT  EQU  TSTN 
: 2466 * 
: 7238 2467 ERASE EQU * 
{" 723B 4040404040404040 729A 2468 BLANK DC 96XL1"40* 
7243 4040404040404040 2468 
7248 4040404040404040 2468 
€ - 7253 4040404040404040 2468 
' -725B 4040404040404040 2468 
_ 7263 4040404040404040 2468 
f "7268 4040404040404040 2468 
~" 7273 4040404040404040 2468 
_ 7278 4040404040404040 2468 
€ 7283 4040404040464040 2468 
“-728B 4040404040404040 2468 
7293 4040404040404040 2468 3 
€3 7298 00 7298 2469 LWRT OC  IL2°08 
729C 90 729C 2470 PFLAG OC  IL1°Ot 
7290 00 729D 2471 DOFLAG OC ILi*O° 
729E 00 729E 2472 OCPFG DC It1'O 
729F 00 729F 2473 LSTSCN OC = EL 1°08 
72A9 0000 72Al 2474 TEMP2 DC I£2¢0° 
€= 72a2 0000 72A3 2475 TEMPG6 DC IL2*08 
724 0000 72A5 2476 TEMP7? OC It2*O* 
— -T2A6 C1C3E3 7248 2477 oc = CL 3S ACT * 
€-72a9 00 72A9 2478 ACTO OC = XE:1 #00" 
72a 000000 T2AC 2479 WORK1 OC 3xL1*O* 
72AD 2480 VTIMB EQU ¢ 
&% 72A0 CiC3E3 T2AF 2481 pc 8—s« CL BACT 
7280 0000000000000000 72C9 2482 VTIM DC 261L1°0* - 
7288 0000000000000000 2482 
(; 72C0 o000000000000000 2482 
72€8 0000 2482 68 
72C2 2483 SCTR EQU VTINBe2Z1. 
72C9 2484 HDG1B EQU %-1 
72CA FOF0404040404040 72F6 2485 oC = CL. 45:00 03 
7202 40F0F340404040F0 2485 
€2 7 2DA F440404040404040 2485 
72E2 FOFT40404040F0F8 2485 
TZEA 40404040404040F1 2485 
—€= = 12F2 £140404040 2485 . 
T2F7 F1F2404040404040 731F. 2486 HOGA OC CL4i°12- 15 
T2FF 40F1F540404040F 1 2486 
€3 7307 F640404040404040 2486 
730F F1F940404040F2FO 2486 
7317 40404040404040F2 2486 
€&  -731F F3 2486 
_  T31F 2487 €0MS1B EQU *-1 
7320 F3F3F4FO40C6C1C9 7344 2488 EDMSI OC 
€* 7328 03€5C440£30640C5 2488 
“ _-%330 ETC5C3E4E3C540C1 -2488 
7338 40£2C90640F 1F040 2488 | 
€5 7340 E3C9D6C5Ez “**~ 2688 : 
734% 2489 EDMS2B EQU 
7345 E3C8C540C9DSC6D6 7371 2490 EDMS2 OC 
€ = 734D D9D4C1E3C9D60540 2490 
7355 C2C5D306E640C9E2 _ 2490 
7350 40E3C8C540F2F440 _ 2490 
€> 7365 C2ESE3C540C4C9C1 2490 
736D C740E2DSE2 2490 
oar 29aUG75  O7NOV7S5  22DECTS  19MARTO 
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__ IBM MAINTENANCE DIAGNOSTIC PROGRAM 


UTILITIES 


*-1 a a. ae 4 a 
CL45°THE INFORMATION BELOW IS THE 24 BYTE OZAG SNS* 


16 


CL37°3340 FAILED TQ EXECUTE A SIO 10 TIMES®: 


PART NO~ 
PAGE 


’ 


6248224 
27a 


SEKSETSKESSETS SESS SVS SSS SSSSSESESKSSTE 


ERASE AND BLANK MUST BE TOGETHER * 
SHEKESESSESESESKSS SESEESESESSESSESES 


Sept yr ise ats 





or es. uO 


19 = 20 23e 


or Gs. 





PROG 10 
PAGE 
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168M MAINTENANCE DIAGNOSTIC PROGRAN PART NO. 4248224 IBM MAINTENANCE DIAGNOSTIC PROGRAM . PART NQ. 4248224 
PAGE 25 t PAGE 2°A 
0443 $73 3340 AND CARD UTILITIES =-—= MOD 12 0443 $/3 3340 AND CARD JTILITIES --— MOD 12 


‘ & 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT | ERR LOC OBJECT COVE ADDR STMT SOURCE STATEMENT 
7372 €3C1D9C440D9C5C1 738F 2491 MSGCNR CC CL30*CARD READER NOT READY OR ERROR? ig 753C 4OF1LF3 2514 
737A C4C5D940D5D6E340 2491 ° 753F E3C8C9E240C4C5C3 7561 2515 MSGDCK 0C CL35"THIS DECK PUNCHED USING PROGRAM D44a? 
7282 DICSC1C4ES40D6D9 2491 7547 D240D7E4D5C3C8C5 2515 
738A 40C509D9D6D9 2491 : TS4F C440E4E 2C905C740 2515 
7390 SBD7E4D5C3C8 7395 2492 MSGPUN DC CL6*$PUNCH® _ 7557 070906C709C10440 2515 
7396 SBCS5D5C4 7399 2493 MSGEND 0C CL4*SEND?* T55F C4F4F4 2515 ; 
739A D4C9EZE2C9D5C740 73CO 2494 MSGCNT DOC CL39*MISS:NG CONTROL CAKD-USE $PUNCH OR S$END®* te 7562 C9D5E5C103C9C440 758D 2516 DC CL44*INVALID HEX NUMBER ENTERED FOR CYLINOER/HEAD 
73A2 C30605E3D9D6D340 2694 756A C8CS5SE7T40D5E4D4C2 2516 
73AA C3C1D9C460E4E2CS 2494 7572 C50940C5D5E3C509 2516 
7382 405807E4D5C3C840 249% - 757A C5C440C606D940C3 2516 
73BA D609405B8C5D5C4 2494 7582 E803C9D5C4C50961 2516 
73Cl E4E2C540D7D9D6C7 73E8 2495 MSGDUP DC CL40*USE PROGRAM DUP TO PUNCH 96 COLUMN DECKS® 758A C8C5C1C4 2516 
73C9 DSC1D440C4E4D740 2495 c 758E 61D9C5C3D6D9C4 7594 2517 MSGHEX OC CL7*/RECORD® 
7301 £3064007E405C3C8 2495 7594 2518 MSGTBB EQU #-1 
7309 40F9F640C30603E4 2495 7595 C9D5E5C1D3C9C440 75C6 2519 DC CL5O*INVALID CYLINDER SELECTED —- VALID CYLINDER NUMBERS * 
73E)} 04D540C4C5C3D2E2 2495 - 759D C3E803C9D5C4C5D9 2519 
T3E9 40C961D640C4C5E5 7406 2496 MSGNOT DC CL30" 1/0 DEVICE NOT DEFINED IN UDT® 75A5 40E2C503C5C3E3C5 2519 
73F1 €9C3C54005D6E340 2496 7580 C4406040E5C103C9 2519 
73F9 C4C5C6C905C5C440 2496 f 7585 C440C3E8D3C9D5C4 2519 
7401 C9ID540E4C4E3 2496 75BD C5D94005E4D4C2C5 2519 
7407 E2C5E340E2EZ2E6F1 7428 2497 DC CL34*SET SSW17 FOR 3741, SSW18 FOR 14428 75C5 D9IE2 2519 
740F F740C6D60940F 3F7 2497 c 75CT 40C1D9C540F040E3 7502 2520 MSGTB O0C CL12* ARE 0 TO 21° 
7417 F4F16840E2EZ2E6F1 2497 75CF D640F2Fi 2520 
T41F FB40C6D6D940F 1 F4 2497 7502 2521 ERMSGB EQU = #-1 
7427 FaF2 2497 « 75D3 F3F3F4F040C409C9 75F6 2522 ERMSG OC CL36°3340 DRIVE X NOT READY GR UNIT CHECK® 
7429 6B40EZE2ZE6F1C140 7438 2498 MSGSET DC CL16%, SSW1A FOR 5424¢ : 750B E5C540E740D5D6E3 2522 
7431 COD6D940F5F4F2F4 2498 75E3 40D9C5C1C4E840D6 2522 
7439 4040404040404040 7468 2499 oc ClLes¢ 3741 CAN ONLY BE USED BE USED WITH THE? rit 75EB 0940E4D5C9E340C3 2522 
7441 4040F3F7F4F140C3 2499 poe 75&3 C8C5C302 2522 
7449 €10540D060503E840 2499 75F6 2523 ERMS1B EQU *-] 
7451 C2C540E4E2C5C440 2499 1 € 7S5F7 C1C4C1D7E3C50940 760B 2524 ERMS1 OC CLZ21*ADAPTER CHECK ON 3340° 
7459 C2C540E4E2C5C440 2499 a T5FF ©3C8C5C3D240D6D5 2524 
7461 E6CIE3CB840E3C8C5 2499 7607 40F3F3F4F0 2524 
7469 TODTE4D5C2C87040 747? 2500 ONLY OC CLiS***PUNCHE* OPTION. * . e 2525 * 
-————— 7471 0607E3C9060548 2500 { 2526 # ee 
7477 2501 MSGCYB EQU #1 | 2527 * FGLLOWING TABLE CONTAINS VALUES 6 BIT CODE IS TRANSLATED 
7478 C3E8D3C905C4C5D09 7482 2502 MSGCY1 OC CLIL*CYLINDER Xx? \ eS 2528 * TO SO THAT IT WILL BE PRINTABLE. 
7480 40ETE7 2502 2529 * 
7483 €840C8C5C1C44040 748C 2503 MSGCY2 DC CL10%, HEAD yy* 2530 * 
7488 ESES 2503 & 760C 2531 TABLE EQU * 
7480 684009C5C30609C4 7497 2504 MSGCYL OC CLil*, RECORD 22° ~ 760C 40C1C2C3C4C5C6C7T 7613 2532 DC XL8*40C 1C2C 3C4C5C6CT* 
7495 40£9£9 2504 fon 7614 C8C94ASB4C4D4EGF 7618 2533 DC XL 8 °C 8C94A4B4C4D4E GF ° 
7498 2595 MSGSSB EQU ss ; € 761C 50D1D2D304D506D7 7623 2534 DC XL8 *5001D20304D5D607 * 
+498 C3C3C8C8D9D9 749D 2506 MSGSS 0C CL6*CCHHRR! 7624 DB8D95A5B5C5D5E5F 762B 2535 oc XL8*D8D95A585C5D5ESF? 
T49E C505E3C50940D9C5 74B8 2507 MSGENT OC C .*ENTER RECORD TO BE PUNCHED: ® : 762C 6061EZEZE4ESEGET 7633 2536 pc XL 8 °6061E2E 3E4E SEGET* 
T4A6 ©€206090440E3D640 2507 | €: 7634 ESE9D06BECOD6EGF 763B 2537 oc XLB"EBEIDOGBECODEEGF * 
T4AE C2C54007E4D5C3C8 2507 ; 763C FOFLE2ZF3F4F5F6FT 7643 2538 oc XLB*F OF LFZ2F3F4FSFOFT* 
74B6 C5C4&7A 2507 | 7644 FEFOTATBICTD7ETF 7648 2539 DC XL8*FSFOTATBICTIDTE TF 
7489 07C9C4400506E340 76C7 2508 MSGBAD OC CL15*PID NOT FOUND ° | g 2540 
74C1 C606E405C 44040 2508 2540 
TSC? 2509 NSINRB EQU *-} 2540 
74C8 C9DSE5C103C9C440 74F& 2510 oc CL45*INVALID RECORD NUMBER SELECTED - VALID RECORD! } 254] seetesesese 
7400 09C5C30609C44005 2510 2542 @ EQUATES * 
T4D8 E404C2C50940E2C5 2510 | 2543 FERKEEESESLALESSSARESSESRESE SES SEKS BEESSEESREREHERETEHEESOEETETHREODSEE? 
T4SEO 03C5C3E3C5C44060 2510 @ 2544 
74E8 40E5C103C9C44009 2510 2544 
T4FO CSC 30D6D9C4 2510 OOFi 2545 BUSY EQU X*F]® 
T4FS SOD0SESD4C2C509E2 7508 2511 MSINRC OC TL20* NUMBERS ARE 1 TO 30° S 0008 2546 FORRES EQU x*ORge 
T4FD 4£0C01090540F140E3 2511 0043 2547 CONT] EQU xX*438 
7505 D640F3FO 2511 5000 2548 DBYTEO EQU DGSNSB 
7508 2512 MSGSCB EQU_ #-1 | @ 5001 2549 DBYTEL EQU OGSNSB+! 
7509 C9ONSE5C1D03C9C440 7533 2513 oc CL43* INVALID HEAD SELECTED ~ VALID HEAD NUMBERS * 5002 2550 DBYTE2 EQU ODGSNSB+2 
7511 C8C5C1C440E2C503 2513 5007 2551 DBYTE7 EQU DGSNSBe? 
7519 C5C3E3C5C 4406040 2513 @ 0002 2552 TRKCC EQU  xX*QO28 
7521 €5C103C9C440C8C5 2513 0001 2553 OPINCP EQU x*01* 
7529 C1C440D5E404C2C5 2513 00C4 2554 DDDR EQU  x*C4e? 
7531 D9E2«60 2513 ; ¢ OOC6 2555 DNCR EQU x*CéeF 
1534 C1D9CS40FOS0E3D6 753E 2514 MSGSEC OC CLIL*ARE 0 TO 13° 


00CO 2556 DR1 EQU x*co® 


a 
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) 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


0443 $/3 3340 AND CARD UTILEFIES 


ERR LOC OBJECT CODE ADDR: 


o0c8 
ooDe 
none 
OOOk 
0002 
00ce 
coos 
0020 
0204 
O2E2 
0232 
0216 
O21k 
0226 
O2ke 
0222 
o20€ 
. 001s 
: oats 
Qoor 
cose 


oo20 
o08e 


oo7e8 
GOAG 
oocs 
QFE 
GELS 
ORS 
Qr6e 
G1s6 
OLS 


0025 


DATE . 29AUGT7S. O7NOV7S 
EC NO. 827804 827805 - 


CHOOHCHCHOHCH COO OHCCORPOOOC COCO SOLES OS ES 


o--~ MOD 12 
STMT SOURCE STATEMENT 
2557 DR2 EQUsX*CBF 
2558 DR3 EQU x*po* 
2559 OR4 . EQU. X*D8* 
2560 XR1 EQU Ol 
2561 XR2 —eQuU 02 
2562 IARL equ. = x*cor 
2563 ARR —eQuU. kde? 
2564 PLIAR EQU X*20° 
2565 SWITCH EQU = X*20Ah° 
2566 TEST EQU = X*212° 
2567 UTAB EFQU X*232° 
2568 LINK EFQU) = X*216° 
2569 PRINT EQU . X*21A* 
2570 PACK EQU X*226¢ 
2571 UNPACK EQU X*21E° 
2572 HALT EQU) X*222* 
2573 SBYTES EQU x*20C* 
2574 SIO! equ. xK*"18¢ 
2575 CRTFLG EQU X*879° 
2576 SSW17 EQU = X*O1* 
2577 SSwi8 EQU X*80* 
2578 SSW19 EQU = X*40t 
2579 SSWIA EQU = X*20* 
2580 SSw20 EQU X*80* 
2581 L1 equ. 00 
2582 12 EQU 40 
23583 13 EQU§ 80 
2584 14 EQU 120 
2585 15 EQU 160 
2586 16 EQu = 200 
2587 17 ‘FQU =240 
2588 L8 EQquU 280 
2589 L9 EQU 320 
2590 £10 EQU 360 
2591 L11 —EQqU 400 
2592 Li2 EQU 440 
2593 SSW22 EQU X*20° 
2594 SSW23 EQU xX*10° 
2595 SSw24 EQU X*°08* 
22DECTS LOMARTG 
827836 


‘827872 


START IC 
LOCATION 
INDICATE 
INDICATE 
INDICATE 
INDICATE 


PART NO. 4248224 _1BM MAINTENANCE DIAGNOSTIC PROGRAM 


PAGE 


IMMEDIATELY 32XX 

OF 32xX CRT FALF 

3741 IS OUTPUT DEVICE 
1442 IS INPUT DEVICE 

2560 IS INPUT DEVICE 

MFCU IS INPUT DEVICE 


PROG ID 
PAGE © 


26 


D443 S$/3 3340 AND CARL UTILITIES 


em, 


“ ERR LOC OQ&JECT CODE ADDR STMT 


2597 
2598 
2599 
2600 
2691 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
5081 2618 





044-3 
26 


° 
2% 
os 








PART NO. 4248224 
PAGE 2uA 


--~- MOO 12 


SOURCE STATEMENT 


TREP 


RESERERERERESSSESSESCESSSEESEERE FESEEETESSRESECESS SESTSESESESESESSSS SESS 
SEKSESSESESSESSE 


* 


3 


* 


= 


= 


x 


TREP 


DIAGNOSTIC UTILITY 
TREP 


OIse 1/0 ON DI-SENSE SWITCHES 22 WILL SELECT 02 

170 DEVICE IS DEFINED VIA UDT - OFHERWISE: 

SSW17-3741 GR SSW18-1442 OR SSWIA-5424 

MHERE APPLICABLEs READING IS DONE FROM PRIMARYS PUNCHING FROM 


@SECONCARY * 


* 


TREP 


DATA SWITCHES ARE NUMBERED FROM LEFT TO RIGHT STARTE- 6 WITH le 
TREP 


ERKERERKESERGEEESEEEESECERESCEESESESESSES TEES ESEESESET LES SEKSESSHSOAETEE 
KERKSERESR ACERS 


DATE  29AUG7S5. —«s«OTNOVTS «=—s«22DEC 75 
EC-NO. 827806 827805 B27836 


END FMENU 


1OMARTG = tts : PROG ID D44-3: 


627872 ie oon hehe PAGE = =——s_ 226A: 


nn ss «Cnn nn eee eee eee 


am ee emma ee ee eee Tr, : : . a= 2 . . ; Gy 4 he Safar & : : aes as cre eee _ . —_, : eases each 
| a 





IBM MAINTENANCE DIAGNOSTIC PROGRAM 


PART NO. 4248224 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NG. 4248224 
D443 $/3 3340 AND CARD UTILITIES --— MOD 12 0443 $/3 3340 AND CARD UTILITIES === MOD 12 
CROSS-REFERENCE & CROSS-REFERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES f SYMBOL T LEN VALUE OEEN REFERENCES 
ABUF A 002 T71EC 2431 1426 1427 23450 cCTrR2 A 001 7104 2418 21302 21402 
ACRD A 002 7231 2458 1425 1433 1444 i; ¢CyYLa A 0OO1 5257 0278 0220% 0223 
ACTOK A005 5194 90215 0211 ' €3H161 A O0S 62Fa 1760 1779 
ACTO A 001 72A9 2478 21809 CSHOR1] A 00S 62F5 1759 1792 
ADDR A 001 TV1E3 2426 1935 2041 2 Dat A 002 7235 2465 1665* 1666 1669 1674 1676 1678 1679 
ADRCNT A 001 5563 0509 04486 0455 0488% ' DATAL A 00& 5C€86 1133 
ADUM A 002 T722F 2457 1463 DATA2 A 004 5C€94 1136 1156 
ADUMP A002 71Fl 2434 0415 0497 DATOK A 004 602A 1463 1460 
ALTER A 001 5801 12070 1055 ODB8YTEO A O01 5000 2548 2228 2233 
ALTER1 A 006 SBF? 1083 1074 DBYTE1 A OO1 5001 2549 2229 2234 
ALTFLG A 001 7028 2397 ‘ DBYTE2 A 001 5002 2550 2235 
APATCH A 002 TV1IEF 2433 0987 ' OBYTE7T A 001 5007 2551 2054 2060 
ARR C 001 0008 2563 0257 0519 O71Li 1295 1350 1385 1405 1536 1575 1659 1706 1770 . DCPFG A OOl T729E 2472 3 5 5 1ezee 1esz0 
1872 1934 2051 2109 2120 2192 : fe ODCF A 010 6472 1930 0263* 0521% 1249% 1780¢ 17972 19258 
AST A 003 630B 1766 1812 DOCFB A OO1L 6469 1929 0268 0526 1270 1784 1834 1856 1931 
ASTER A 001 7101 2416 1178 ; DOCFE A O02 6449 1914 1947* 1998 2012 
ASTLIN A 001 7037 2404 1129% 1130 1130 1176 1211 | DDCFM A OO1L 646E 1931 0206# 0270 0520% 1248 1779% 1796<¢ 1839 . 
BLANK A O0O1 729A 2%68 0743 1148 1162 1163 1164 1201 1262 1203 1415 1439 1459 1475 DOCFX A OOl 6281 1703 1710% 1713 1715* 1718 1720® 17218 1724* 172598 1726% 1729 
; 2142 . . _ DDOCR Cc ool GOC6& 2555 1983 20328 2077*% 2082 . 
BLNK A006 6F6D 2376 & DODF A 001 OCOO 1757 1783 1786 1788 1806 1807 1807* 18099 1810* 1812 1824 1815 18158 
BRTRY1 A 006 6573 2006 2236 1833 1855 
BUFa A 002 555C 0506 0452 DODR C 001 O0C& 2554 1982* 1999* 2031% 2073 2074* 2079% 2083% 2111 21128 21172 
BUFFER A O01 OCOO0 0037 0264 0267 0506 0525 0643 0645 0649 0670 0713% 0714 0714* 0716 € ODUMP A 001 S31E 0313 0172 0425 0496 24346 
O749 0757 O800 O817 08838 0884* 0885 0885* 0886 0886* 08s? OB887% ' DEC! A 003 5250 0275 0235 0238 0434 0451 0692 0671 
0395 0996 0997 90998 1087 1252 1253 1256 1257 1260 1261 1264 DEFTKR A 004 6618 2062 20512 ‘ 
1265 1269 14288 1491 1757 2430 2431 € DEFTRK A 00& 65F2 2051 2230 
BUFWRT A 002 TIEA 2430 : , ' OFLAG A 001 729D 2471 0654* .0660* 0663 0679 0686 0696 66972 146846 
BUSY C 001 OOF1 2545 _DGPRT@ A 002 6739 2161 
BwRT 4018 6F40 2358 1275 1279 1283 f 9GSNS@ A 002 66A7 2105 2112 
CACT A 003 5253 0276 0210 ; “ DGSNSB A 001 5000 0043 2105 2123 2548 2549 2550 2551 
CARDNO A 004 7208 2443 0623% OGSNS1 A 024 5017 0046 hi 
; CCHHRR A 006 SE60 1285 ( DGSNS2 A 086 506D 0046 2160 2161 
SSS CCONT A 004 5560 0507 ' 0GS2B A 001 5017 0045 2124 2166 SS en ee 
COLGR2 A OO1 6F58 2364 prse A 004 SAEF 0997 , 
CEND A 002 TLFT 2436 08546 : € O1sP1 A 006 SaFD 1000 1018 
CHARO a 003 7107 2419 0449 DGAGAN A 603 6162 14679 1691 
CHani a OGG2 Tid’ 2eeu oy9y 1014 1071 #1090 1136 1139 DONE A OO1L SEBS 1327 1300 21302 1304 
CHARI? A 002 71D8 2421 1015 1073 ‘ ( S0PNCH A 006 593A 0815 0808s 
CHGLIN A oo TO0F4 2410 1086¢ 1169 1182 1188 1201% 1202+ 1203 1207 1234 1235 1236 1237 ” DORD A 003 6276 1686 1673 
CHKXGP A 004 5658 0579 6599  OPATCH A 0O1 5S9A9 0874 0176 1284 2433 
CHK1 A 004 65A0 2021 200% € DPUNCH A 001 5638 0562 0174 0640 0698 0705 
CHNXT A004 5413 0413 0351 i ~ DRIVE# A 001 6419 is70o 1818 1875* 1879% 1957 1958 1959 1961 1962 1964 1965 1977 1997 
Cx & 003 6171 1585 1882 2024 2026 2027 2028 2030 2064 2065 2068 2113 
CKAGN A 004 5E85 1306 1325 13386 . “‘DRTRN1 A O01 6508 2036 2088 : 
CKB8LK2 A 006 5SFD7 1439 1432 \ ORTRN2 A OOL 6530 1988 2092 
CKM A 003 5748 0658 0653 0656 1 ORTRN3S A OO1l 6561 2001 2091 
CKSEC A 004 6152 1575 0432 0502 0989 “Or1 C 001 OOCO 2556 1875 
CLIl A 004 656C 2005 19720 ! DR2 C 001 OOC8 2557 1879 
CNVRT A 00% 57F2 0710 0690 : OR3 C 001 ooDpo 2558 
CNVRTR A 004 56882 0761 Oo711s : €-0R4 C 001 OOD8S 2559 
boxe A 003 zcoe 0277 0215 “DSEC# A 003 §208 0299 0235% 0238 
ONT Aa 004 43C 0426 0417 OSENDT A 003 60F8B 1530 
ae ; eae 62DA 1728 1716 1722 COSKFLO A 001 T71FE 2433 0520 0533 0537 0541 0548 0549 0550 0643 0990 1610s 16113 
E 06 6358 1796 17e9 OSKMSG A 006 500C 0121 0116 
CONTES A 004 63FC 1850 1836 OSKXX A 020 6F3B 2356 0123 0124 1876% 18808 
CONTL C 001 0043 2547 1512 1519 1530 1555 1565 ( DTAHDR A 004 5889 0762 0652 
COUNT A O0O1 7013 2368 O7T1LG*® O741% 07478 0753* “DUMMY A 0012 OA8BO 2456 1457# 2457 
COUNTR A 001 702C 2398 0197 0258 0262¢ 07198 O0721* 0724* 0727% 07304 0733% 080123 O8lis 0812 Que A 001 S8BA 0776 0168 0799 
0815 08218 15762 15908 r D0 A 004 6F66 2374 
CROFLG A 001 7228 2450 O677 O778 1296* 12992 1303% 1330% 1333¢ 13368 1337 1351 1353 1406 “pl A 001 6F67 2375 
1408 1419 03 A 002 6467 1927 1943 
CRIFLG C 001 O879 2575 € 0443 A 0031 0000 0005 
ctr A 002 702E 2399 0999% 1000 1014# 1015 1083* 1090 1161 1168 11771282) =61187 611938 " 048 A 002 G62FC 176i 
3 1194 y . p5 A 002 6465 1926 — 1937 1942 2070 
Creal A 002 7103 2417 21298 21458 €-09 A 002 6463 1925 
CTR11 A&A 002 7030 2400 11348 11398 1142 "ECKSEC A 004 6IBF 1612 1575 
DATE 29AUGT5 O7NOV75 22DEC 75 , 1LOMART6 PROG ID 044-3 Goins 29AUG75 _ O7NOV7S 22DEC 75§ YOMARTSE PROG ID 044-3 
EC NO. 827804. 827805 827836 827872 PAGE 27 | EC NO. 827804 827805 827836 827872 _PaGE 2gqa se 
. ! e os 
@ 


| 


* 


0443 


SYMBOL 


ECROD 
£DMS1 
EOMS16 
EDMS2 
EOMS2B 
EERR 
EE1 
EE2 
EFLAG 
ELOD. 
END 
ENDRES 
ENDRT 
END1 
EPUN 
EPUNL 
ERASE 
EREAD 
ERMSG 
ERMSGB 
ERMS1 
ERMS 1B 
ERR 
ERRCHK 
ERREP 
ERROR 
ERROR 
ERRPUN 
ERR 
ERR2 
ERR246 
ERS4T7L 
FAS 
FASING 
FAS INF 
FAS INM 
FIRST 
FLAG 
FLAGC 
FLG1 
FMENU 
f IRRES 
FORSO 
FOUR 
FROTRK 
€STDP 
FUNREG 
FX2 

_ €X2 
FX3 
FO 
FOFL 
GET1 
GODOT 
GOLOO 
GGRD8O 
GOi 
GG2 
503 

' 604 
GOS 
HALT 





HALT) 
HALTLA 


' DATE 
€C NO. 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


$/3 3340 AND CARD UTILITIES --- MoD 12 


~~ 


004 
037 
ool 
045 
001 
004 
004 
004 
ool 
004 
ool 
003 
004 
002 
004 
004 
001 
G04 
036 
001 
021 
001 
001 
004 
004 
004 
004 
004 
038 
038 
00 
046 
003 
ool 
001 
001 
001 
001 
001 
001 
001 
901 
002 
002 
001 
006 
002 
004 
004 
004 
ool 
004 
004 
006 
006 
004 
004 
004 
004 
004 
004 
Gol 


APPS PPP PEP ESP EP YEP EED OPE EPP PPP PEP PPE P PPE PPP PPPPPEDSHEPEEPPPEPEPE, PPP p 


A 001 
A 004 


29AUG7 
827804 


LEN VALUE 


SEE1 
7344 
731F 
7371 
7344 
5°59 
6746 
675A 
702A 
5634 
5161 
6007 
5TCE 
63F5 
6068 
6008 
7238 
SF 3B 
75F6 
7502 
7608 
75F6 
SF3F 
6102 
5FIC 
5BE3 
6106 
6032 
692D 
6953 
SEF9 
6F27 
62FF 
62F0 
6308 
6305 
720C 
6FSE 
7221 
56FO 
5081 
0008 
TlE8 
7010 
666F 
5448 
6F55 
5810 
5836 
5B4F 
510C 
701F 
S10D 
5E06 
5530 
S8DA 
S6CC 
569F 
5678 
567C 
56D0 
0222 


6772 


6780 . 


5 


DEFN 


1339 
2488 
2487 
2490 
2489 
1394 
2167 
2176 
2396 
0551 
0190 
1519 
0696 
1846 
1478 
1452 
2467 
1379 
2522 
2521 
2524 
2523 
1384 
1536 
1371 
1075 
1623 
1465 
2268 
2269 
1358 
2354 
1763 
1762 
1764 
1765 
2444 
2368 
2446 
0626 
0077 
2546 
2429 
2386 
2094 
0431 
2362 
0720 
0726 
0732 
0158 
2393 
0161 
1248 
0497 
0788 
0618 
0600 
0587 
0588 
0619 
2572 


2191 
2196 


O7NOVTS 
827805 


REFERENCES 


1295 
2178 
2178 
2150 
21560 
1385¢ 
2209 
2009 
0802 
0519 
0164 


0666 
1800 
1474 
1405¢ 


13500 
21988 
2212 
2169 
2169 
1358 
1508 
1378 
1072 
1580 
1471 
Or8S 
1078 
1364 
0843 
1786 
165 
1766* 


1410¢ 
1489e 
O661% 
0630 
0214 
ES1i 


1386 
2062 
0406 
1490 
O722 
o7T28 


‘0734 
' 0156 


0623 
0147 
1057 
0493 
0779 
0605 
o58¢ 
o58a 
osa6 
G6ET 
0152 
0797 
1504 
i385 
2239. 


2179 
2152 
386% 


22256 


2053 
o807* 


G6T4 


4526 
1478 


1365 
22018 


2170 
1371 
1517 
1586 
0421 


L792 
17918 


2417s 
1524 
086924 


0414 
1519 


itt 
0412 


0347 
3556 


O187 


.0906 


1553 
2033 


22DECT5 © 
827836 


CROSS~REFERENCE 


0823 


1532 


2204® 2207* 2212 2213 


1429 


1588 
0595 


1793% 
1799 


1472 
15288 
0703* 


0591 


2193 


1566 


0343 
0922 
1563 
2075 


1443 


6920 


17942 
1820 


1473¢ 
1611 


O787 O816 0825 0844 0855 


0910 


0382 
0951 
1619 
2080 


LOMARTE 
' 827872 


1465 


1065 


146124 


0390 0398 
0959 1045 
1628 1637 





PART NO. 
PAGE 


0914 1061 2618 


OS97 0610 
1136) «61227 
2182 2218 


0638 0785 
1322 1392 


PROG I0 


PAGE 


4248224 
28 


ony 


om 


t 
! 
' 
! 
i 
| 
| 
| 


046-3 


T8M MAINTENANCE DIAGNOSTIC PROGRAM PART NO 4248226 
. PAGE 28A . Soi 
0443 S/3 3340 AND CARD UTILITIES -—= MOD 12 : = 
c CROSS~REFERENCE 
{ SYMBOL T LEN VALUE DEFN REFERENCES 
_ HALTIR A 004 67C8 2221 2192* 2193 22389 
{ HALT2 A OOL 67CC 2223 1992 2022 2039 
- HCYL@ & 002 52C€9 0293 0224 
- OGL A 041 T31F 2486 2155 2156 
- € 4DG1B A 001 7269 2484 2155 
'  HEADL A 032 S2AL 0286 0201 
:  HEAO2 A 033 52C2 0287 0205 
{ HEXL A 002 524A 0273 0236 
“HEXIO A 001 5564 0510 0488 
i: HEX&4 A 002 5562 0508 0461 0467 0473 0483 
'F HREC@ A 0O2 5202 0297 0234 
~HSEC@ A 002 S2CE 0295 0229 
_HSTFLG A 002 52E€2 0303 0245 
IARL €C 001 O0CO 2562 
ICTR A OOi 6468 1928 1939% 2008 2052¢ 
_ ENCCL A 006 62Ca 1724 1719 
{ INCHD A 004 6286 1718 1714 
“INCRE A 003 5C€10 1089 1091 
INCREL A 006 5C€13 1090 1088 
INFGA A 001 6985 2277 1103 
INFOB A OOL 69A0 2279 1107 
_INFOC A OOL 69CE 2281 alll 
€ -INFOD A 001 69FE 2283 1115 
“ INFOE A 001 6A30 2285 1119 
INFCF A OOL 6864 2287 1123 , 
€ INFOG A 001 6A92 2289 1127 
“INFOL A027 69AC0 2278 1103 -1104 
_INFOZ2 A 046 69CE 2280 1107 1208 
f INFO3 A 048 o9FE 2282 LLL «6LI2 
~ INFG4 A 050 6A30 2284 1215 1186 
_ INFOS A 052 6A64 2286 #41119 1120 
f INFO6 A 046 6092 2288 1123. 1124 
“INFO? & 024 6AAA 2290 1127 1228 SS 
INPUT C 061 0880 2459 C629 O712 O715 O756 O818* 0852% 1414 1415* 1416% 1428 1457 1459 
eS 1475* 1476 1491 
“EINVCYL A 004 61£9 1632 1602 
_INVREC A 004 G1FC 1641 1606 1608 
| ETINVTRK & 004 61C3 1624 1604 
“182 & 006 548A 0447 0444 
1896 A 004 5780 0686 0678 
€-XBRDYB A 00) 6F27 2355 0123 
KEEP A O50 7180 2413 1216 
KEEPl A052 7184 2416 1221 
*KEEP2 AO28 T100 2415 1226 
“KPMVC aA 60S 5888 0750 0754 
KPSNS A 004 SFF7 1447 1449 
€Aastco & 006 6F77 2379 
LCROVR A 03% 6F99 2380 1551 
1037 A 004 60C8 1513 15094 
"LD5471 A001 6210 1658 2464 
LEN128 A 002 6F57 2363 1512 ot 
LINE A OOl 7088 2407 1000* 1001% 1002 1002* 1003% 1004 1003* 1006¢ 1007# 1008¢ 1009¢ 1013 : 
" 1085* 10938 1094* 1095* 1096 1100 1159 1196 1200 
LINEL A031 7O0F3 2409 1196 ; 
LINK C 6001 0216 2568 0191 1932 2174 2184 
CAINKMA A 002 6474 1932 2238 
LGADD A 004 550D oO519 0433 0503 0648 0669 0992 
L00P1 A 005 5109 0236 0239 
' €'400P13 aA 004 66€8 2130 2146 
LOOP14 A 004 66£C 2131 2141 
'  £t06P4 A004 5760 0668 0664 0694 
€100P8 A 006 6386 1822 1842 
LSTSCN A O01 729F 2473 1817* 18292 1842 
-tWRT & 001 7298 2469 
“Al C 001 0000 25861 
Lr0 C€ 001 0168 2590 
Oo are 29AUG75 OTNGV75 22DEC 75 ISMART6 PROG 10 D44-3 
—C NO. 827804 827836 627872 .PAGE 


28 | 


| 
|@ 
ee ee Ae oF e : 
Soe fo ae ae - ze Fe a core _ a oat Pg oe se fo {oO 
S © @ i] ® eo @ 6 oe @ @ @ @ e@e e ¢ 


827805 
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0443 


SYMBOL T LEN VALUE 


t11 
L112 
L2 
3 
L4 
L5 
16 
i7 
18 
9 
" ME 
MENU 
MENULA 
MENU1B 
MENUIC 
MENULD 
MENUIE 
MENULF 
MENUIG 
MENU 1H 
MENULI 
MENU1O 
MENULI1 
MENUL2 
MENU1L3 
MENUL4 
MENUIS 
MENU16 
« MENULT 
MENULS 
MENUIO 
MENU2 
ae MENU2A 
MENU2B 
MENU2C 
MENU2D 
MENUZE 
MENU2F 
MENU 26 
MENUZH 
MENUZ2I 
MFNU2S 
MENU2ZO 
MENU21 
MENU22 
MENU23 
HENU24 
MENUZS 
MENU 26 
MENU27 
MENUZS 
MENU29 
MENUSA 
MENUSB 
MENUSC 
MENUS] 
MENUS? 
MENU43 
MENUS 
MENUSA 
MENUSB 
MENUSC 
MENUSD 
’ MENUSE 
MENUSF 
' MENUS) 


DATE 
EC NO. 


POSES PEE PEEP PEPE EPPO EPP EPP PED EE PE DPE EEE PEP PEPEDS EPS EPP EEPEPENAAAAAAANA 


$/3 3340 AND CARD UTILITIES --- MOD 12 


001 
ool 
Gol 
001 
001 
001 
001 
001 
ool 
ool 
002 
ool 
ool 
001 
001 
ool 
001i 
ool 
001 
ool 
001 
040 
035 
O12 
‘029 
013 
013 
035 
030 
022 
032 
ool 
015 
012 
017 
024 
040 
040 
040 
040 
041 
040 
035 
001 
001 
ool 
001 
001 
001 
001 
001 
002 


021 
023 
ool 
002 
001 
001 
023 
035 
073 
023 
025 
027 
001 


G4l. 


0190 
0188 
0028 
0050 
cots 
OOA0 
oocs 
OOFO 
0118 
0140 
6F6F 
6&TFO 
6820 
682C 
6849 
6856 
6863 
6886 
6BA4 
68BA 
68DA 
6902 
6820 
682C 
6849 
6856 
6863 
6886 
68A4 
68BA 


' 68DA 


6962 
6962 
6AB6 
6aCT7 
6ADF 
6807 
62 
6857 
oB7F 
6Ba8 
6BD0 
6985 
6953 
GAAA 
6AB6 
GACT? 
6ADF 
6807 
682F 
6857 
oBT7F 
eBF9 
6COE 
6C25 
6800 
68F9 
6COE 
6C25 
6C5E 
6Cal 
6c9e 
6CAF 
6ccs 
6008 
6CAF 


29AUG75 
827804 


DEFN 


2591 
2592 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2377 
2244 
2246 
2248 
2250 
2252 
2254 
2256 
2258 
2260 
2262 
2263 
2245 
2247 
2249 
2251 
2253 
2255 
2257 
2259 
2261 
2275 
2274 
2292 
2294 
2296 
. 2298 
2300 
2302 
2304 
2306 
2308 
2276 
2273 
2291 
2293 
2295 
2297 
2299 
2301 
2303 
2305 
2310 
2312 
2314 
2309 
2311 
2313 
2315 
2317 
2319 
2321 
2323 
2325 
2328 
2324 


OTNOV7S 
827805 


REFERENCES 


0573 
OSTT 
0602 
0608 


0602 . 


0120 
0082 
0086 
0090 
0094 
0098 
0102 
0106 
0110 
0114 


6320 
0328 
0332 
0336 
6355 
0359 
0363 
0367 


' 6410 


0983 
0324 


0929 
0933 
0937 


0891 


0895 | 
0899 


0566 
0570 
0574 
0578 
0603 
0609 


22DECT5 
827836 


CROSS-REFERENCE 


0929 0930 0970 0971 
0933 0934 0974 0975 
0937 0938 0978 0979 


0970 
0974 
0978 


LOMARTS 
- 827872 


wee 
jt 


PART NO. 4248224 


| 
PAGE 29 | € 
| 
' _ a 
| sie 
| 
; © SYMBOL T LEN VALUE 
| MENUS2 A 001 6C5E 
| £ MENUS3 4 001 6CB81 
| ~ MENUS4 A 001 6098 
| MENU5S5 A 001 6BAB 
| € MENUS6 A 001 6CC8 
-  MENU6A A 025 6024 
| MENU6B A 031 6043 
" € MENU6BC A 023 6D5A 
“ MENU6D A 034 607C 
'  MENU6E A 022 6092 
' { MENU61 A 001 6008 
_ " MENU62 A 001 6024 
:  MENU63 A 001 6043 
i { MENU64 A 001 605A 
' “ MENU65 A 001 607C 
| MENUTA A 036 6DFC 
' € MENUTB A 027 6E17 
. " MENUTC A 045 6644 
i MENUTD A 045 6€71 
| £ MENU7E A 048 6€A1 
| ~ MENUTF A 044 6EF9 
|  MENU70 A 032 6008 
' € MENU71 A 001 6008 
:  MENU72 A 001 6DFC 
|  MENU73 A OOL 6E17 
| € MENU74 A 001 6E44 
|  MENUT5 A 001 6E71 
. MENU76 A 091 6EAL 
| € MFCM C001 OcF2 
| " MFCU C 001 OOFO 
_ _, MINUS! A 002 5071 
' €°MODSIO A 003 5F20 
: “MOVE A004 71F5 
"  MOVL =A 006) «6484 
' € -MOQV2 A 006 «6584 
| ~ MOV3 A 006 6555 
. _.MSGBAD A 015 74C7 
| € MSGCNR A 030 738F 
' “ MSGCNT A 039 73C0 
.. MSGCYB A 001 7477 
' ( -MSGCYL A O11 7497 
MSGCY1 A011 7482 
. MSGCY2 A 010 748C 
| € MSGDCK A 035 7561 
| ~~ MSGDUP A 040 73€8 
| ..MSGEND A 004 7399 
| €MSGENT A 027 74BB 
| ““MSGHEX A 007 7594 
| g-MSGNOT A 030 7406 
{"“MSGPUN A 006 7395 
| ““ MSGSCB A 001 7508 
| _MSGSEC A 011 753E 
| €MSGSET A 016 7438 
| “MSGSS A 006 7490 
| ,.MSGSSB A 001 7498 
| € MSGTB A 012 7502 
| ““MSGTBB A OO1 7594 
| ...MSINRB A 001 74C7 
€-MSINRC A 020 7508 
| AVC A 004 5880 
| ..MVC1 A 006 6389 
| €°MVC1O =A 006 64AE 
| ““wve2 a 006 6672 
j .MVC3 A 006 629A 
"MVC4 = & 006 62E0 
HVC6 A 006 6294 
PROG ID 044-3 | Cour 29AUGT7S 
PAGE 29 | &C NO. 827804 
| e 
| 
| © 
'e@ 





DEFN 


2318 
2320 
2322 
2307 
2326 
2330 
2332 
2334 
2336 
2338 
2329 
2331 
2333 
2335 
2337 
2342 
2344 
2346 
2348 
2356 
2353 
2340 
2341 
2343 
2345 
2347 
2349 
2351 
2452 
2451 
0053 
1372 
2435 
1947 
2012 
1998 
2508 
2491 
2494 
2501 
2504 
2502 
2503 
2515 
2495 
2493 
2507 
2517 
2496 
2492 
2512 
2514 
2498 
2506 
2505 
2520 
2518 
2509 
2511 
0751 
1810 
1946 
2084 


1710 © 


i729 
1709 


OTNOV7S5S 
827805 


_ IBM MAINTENANCE DIAGNOSTIC PROGRAM 


REFERENCES 


0569 
0573 
OS77 
0982 
0608 
1021 
1025 
1029 
1033 
1037 
1021 


* 1025 
1029 


1033 
1037 
0372 
0376 
0380 
0388 
0396 
1043 
0.51 
Q372 
0376 
0380 
0388 


0396 - 


1043 
0778 
1374 


1$40% 
19483 
1973% 
0622* 
1390 
0795 
0545 
0542 
0534 
0538 
0702 
0783 
0805 
0848 
1626 
1312 
0790 
1616 
1616 
1317 


0986+ 
1634 
1634 
1643 
1643 
0750% 
1803% 
19443 
2069% 
1769% 
17284 
17084 


1022 
1026 
1030 
1034 
1038 


0373 
0377 
0381 
0389 
0397 
1044 
0342 
094% 
0945 
0949 
0957 


1299 
14614 
1941 


2018 
0636 


.0545 


1617 


1635 


1644 


2070% 
1728 


22DEC75 
827836 


0443 S/3 3340 AND CARD UTILITIES -=- MOD 12 


CROSS~REFERENCE 


0941 
0945 
0949 
0957 


0905 


1336 


1942% 1943@ 1944 


0546 


0942 
0946 
0950 
0958 


1406 


“LOMART6 
827872 


PART NO. 
PAGE 


1945* 1948 1972 1973 2069 


PROG 1D 


_PAGE 








4248224 
29a 





D64-3 
29A 


rn, 


IBM MAINTENANCE DIAGNOSTIC PROGRAH PART NG» 4248224 — IBM MAINTENANCE DIAGNOSTIC PROGRAM . PART NO. 42468226 


PAGE 30 PAGE 30A 


0443 $/3 3340 AND CARD UTILITIES -— MOd 12 0443 $73 3340 AND CARD UTILITIES --- MOD 12 


CROSS~REFERENCE ; CROSS~REFERENCE 

SYMBOL T LEN VALUE DEFN REFERENCES _ ECSYMBOL T LEN VALUE DEEN REFERENCES 
MV¥Il A 0046 63F5 1847 18442 PUNCH A 001 596A 0837 0166 0856 
MVI2 A 004 6400 1851 1850 { PUNCH] A 004 5970 0845 0839 
MVIG £004 65EA 2042 1941% 2057 ~ PUNFLG A 00L 71E2 2425 0849 
MVIS A004 6600 2058 20578 _PUN4S2 A 006 600F 1457 1420 
M1442 € 001 0051 2453 1303 1333 1353 1419 £{ PLIAR C€ 001 0020 2564 
M3741 C 001 0040 2454 1330 «1408 P24 A 00% 5SFB1 1429 1438 
NEG3 A002 62EB 1756 1804 P5424 A004 5SF9B 1424 1407 
NEWADR A 006 SAC2 0986 O967 1246 { QUITFG A 001 644C 1916 
NOCHY A005 S1A4 0219 0286 ~ RCOO A 002 6F4F 2359 
NOERR A 004% 6120 1545 15346% 1537*% RCO0C@ = & 002 6F53 2361 2359 
NOTBLK A 004 6279 1687 16590 f£ RDAGNI A 004 6015 1458 1462 
NOTDAT A 004 5S7BE 0690 0687 “ RDAGN2 A 003 SFC4& 1434 14246 14418 
NOTOON A 004 5812 O717 0742 RDVTO A 004 5S517F 0208 0218 0252 
NOTEND A 004 5923 0809 0806 { RDOO A 002 6F51 2360 1509 
NOTIN A 029 6FDF 2382 1498 - ~ RDI A 004 5372 0359 0348 
NOT2F1 A O01 5F93 1418 1413 1677 '  RD2 A 004 5112 0162 0157 
NOT3 A 004 547A 0443 04640 : € RD42 A 004 5F18 1370 1354 
NPRT A OOlL TILED 2432 0528 0529% 0647% 0668% 09918 | “ RDBO & 004 590C 0803 0813 
NUM A 002 7019 2391 1486% 1487 1529¢ :  READBF A 002 7220 2455 0789 0804 1359 1370 
NUMOK & 005 S1EC 0240 O23T & READIN A O01 OABO 00z6 O155* 0156 0163 0165 0167 0169 O171L O173 0175 0346# 03478 0350 
NUMPUN A 002 7233 2461 14.64 : 0405 0413 0416 0431 0435 0437 0439 0441 0443 0445 0447 05848 
NXTCHR A 003 6222 16646 1685 ; J585* 0588 0590 0616 0620 0621 0622 0852 0854 0909% 0910¢ 0913 
NXTSEQ A 004 SDFO 1242 1059 oo G € 0915 0966 0986 0988 1051 1054 1056 1058 1060 1071 i073 1083 os 
OK A 004 6087 1508 1494 1085 1086 1133 1160 1162 1163* 1164 1245 1672 2456 
OKHEY A003 617D 1589 1583 _  READL A 004 536E 0349 0338 
ONE A 002 7015 2389 6258 0665 0673 0721 0727 0733 0741 0753 O811 60821 1193 1486 | E°READ2 A 00% 540% 0407 0369 ; : ee 

1590 1707 1711 1715 1721 1724 19465 2008 2052 2145 2145 ' “ READ8O A 001 SEES 1349 0788 0803 1458 : 
ONLY A015 7477 2500 1322 : > RECS &£ 061 5259 0280 0230* 0233 . Bg 
OPINCP C 001 0001 2553 2229 € RECORD A 001 46210 2464 0161 0349 0411 O587 0618 0850 0912 0964 1053 1158 - ue 
OPTil A 00% 5a33 0925 OF16 “RECOQ & 004 SOE@ 0146 0189 : 
OPTI2 A004 SASE 0968 0925 a 8 REPL & 004 SFCO 1433 1442 te ie 
OVFLG A 004 6124 1548 1543 | € RESNS A 004 6225 1665 1675 ; 
PACK C 001 0226 2570 EE4@ 1250 1254 1258 1262 1596 ' ““RIT3? & 004 606C 1484 1409 Go et See ee ee 
PAGN A004 54A9 0453 0489 RTNOL A OOL 508E 0051 0016 
PARERR A 041 6FC2 2382 156 - ERTRY A 004 6214 1660 1670 1677 
PCHAGN A 005 5948 0818 as22 RTRYE A001 6530 1980 1970 2019 
PCHECK A 004 6138 1558 £5423 SAREA & 005 723A 2463 0385* 0393% 04601% 0404 
PDESC A 032 5310 0307 O247* 0251 ; ESSAY A OOL: 7227) 2447 0990% 1248 1274 1278 
PFLAG AOOl 729C 2470 O651¢ 0657* 0638 SAV@ & 062 7032 2401 '1092® 1233 
PIO A 003 5205 0291 6219* 0620% '  SAVCRO A 002 0800 0028 1439 2458 
PINW & 043 700A 2383 £503 i E'SAVEID A 004 6F73 2378 
eK A006 5504 0481 04798 ' “SAVXRL A OOL 7034 2402 21446 1145 1155 1175% 1179 11808 1186 L577# 1592 
PK1 A 002 5488 0459 O452¢ 0461% 0462 O467% 0468 0473% 0474 0479 0483¢ SAVXR2 A 00L 7036 2403 1167* 1171 1186* 1190 7 = asi o23 
PK2 & 002 54CD 0465 0462% _ ESavz0 A 00) 7220 2445 1414# 1476 a ; : 
PK3 A 002 54E2 0471 0468+ |  SBYTE A OOL T1IFD 2437 0429 0431 0501 09886 1578 1598 
PKS A 002 54F7 0477 O4 740 i SBYTES € 001 020C 2573 0217 1873 1877 
PLINE A 001 S531E 0308 | ESSCANRD A 006 65A8 2024 1952 
PNCHCD A 0046 5702 0692 O67 0682 0685 0689 i  S$COFG A O01 6F59 2365 
PNCHBO A 00l SFS5SD 1404 8662 0693 0704 0819 0853 '  SCNVTC A 00% 6310 1770 6625 
PPLVL A OO 52DC 0301 0246¢  ESSCNVTE A 004 6411 1858 1848 
PPNEC A 021 52FB 0305 G246% SCNYVTR A 004 64515 1859 1770 1772 1774 
PPTID A004 SFEB 1443 2440 1451 SCTR A OOL 72C2 2483 
PRGIDL A 003 S6F3 0827 06224 €3SEC@_ A 001 «5258 0279 0225* 0228 
PRINT € 002 O21K 2569 O148 0198 0202 0212 0248 0339 048% 0490 0494 0543 9606 0633 “SECCNT A 003 555A 0505 0434 0441 0445% 04467% 0449 0451% 04924 

CF8G 0792 0902 0939 0943 0947 0955 0968 1061 1075 1309 1314 / SECFLG A OOL 17207 2442 0876% 

L318 1387 1495 1500 1548 1558 1614 1623 1632 1643) 2168 2153 ' € -SECNT A 002 7021 2394 0645% 0665¢ 0673¢ 1487 

2358 2167 2176 2210 “SELDRV A 004 641A 1872 0078 
PRINTE C OOL O21A4 2460 6079 0083 0087 0691 0095 0099 0103 0107 O12 0117 0121 0182 SEQCTR A 00% 6F62 2373 

O317 0321 0325 0329 6333 0352 0356 0360 0364 0370 0374 0378 " SEQNO A 001 7029 2395 0650* 0671% 0672 O712* 0760 

O386 0394 0407 0416 0563 0567 057i 0575 0592 0600 08460 0845 |  SETCRD A O01 SE6L 2294 0619 O7T77 O851 1352 

O88 0892 0896 O91F7 0927 0932 0935 0972 0976 0980 12010 1019 ' SETUP & 004 58FE 0800 0791 0824 : 

O23 1027 1031 1035 1062 1097 1101 L105 1109 2113 2217 1:22 i € SFLG2 A 00l 7206 2441 0875¢ 

YL25 1197 1204 1208 2212 1227 +1222 1280 | “"SEGlL € 001 0018 2574 . 
PRTBUF A 001 4ACO 0040 ' $101 & 003 6530 1990 1957* 1969 19718 1994 
PRTLN A O0Ol 5565 OSLI G456 0460 0466 0472 0478 04808 0481% 0482% 0487 i € 351010 A 003 6508 2037 20248 20258 
PSBYTE A 001 7265 2446 0426 ° 0500 0549% 0550% 1244 1599 1601 1603 1605 1607 1610 1612 i ““SiGlLL & 003 6508 2034 2026 
DATE 29AUG75 O7TNOVTS 22DEC 7S IOMAR 76 PROG 10 044-3 Coase 29AUGTS CINOVTS 22DEC75 ISMARTG Se PROG ID | D443 | 
.£ NQe 827806 827805 827836 827872 PAGE 30 _ EC NO. 827804 - 827805 827636 827872 gre PAGE BOA: 
- ' 
| @ . : 
ida ee ee ee ee 
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ISM MAINTENANCE DIAGNOSTIC PROGRAN 


0443 


SYMBOL 


$102 
$163 
$104 
$105 
$106 
S107 
$108 
sic9 
SIXTEN 
SLORVR 
SNSAP 
SNSAPR 
SNS24 
SNS24R 
SSWSET 
SSwWiA 
$Swi7 
$SwW18s 
$Swl9 
$S¥20 
S$SW22 
$$w23 
SSwW24 
STATE 
STATUS 
STATUX 


STATUL 
STFLG 
STINE 
STPFLO 
STPFLE 
STPFLR 
STRET 
SVPREQ 
SWITCH 
TABLE 
TODCF 
TDOCFa 
TODCR 
TODDF 
TODDFa 
TODOR 
TEMP2 
TEKeE3 
TEMPS 
TEMP6 
TEMPT 
TEM 
TEST 
THREE 
THRU 
THRUL 
TIO 

— T1010 
TIOL 
TIO15 
T1018 
T1019 
T102 
T106 
-T105 
T1O7 
T1OB 
TIO9 
TOOTRK 


OATE 
ec xO. 


5/3 3340 AND CARD UTILITIES -— 


PPP PPP PP PrP PPPRPP POLS PEPE P PPP PPP POP PP PPPPrPBPr PEPPANHAAGAANA PY PPP EPP rprPPrPrPrrp i «4 


LEN 


003 
003 
003 
003 
003 
003 
003 
003 
001 
004 
004 
004 
004 
0Cc4 
004 
001 
001 
001 
001 
001 
ool 
oo1 
001 
002 
002 
002 


001 
001 
001 
004 
004 
004 
004 
002 
001 
001 
ool 
062 
002 
001 
002 
002 
002 
902 
002 
002 
002 
002 
ool 
002 
004 
006 
004 
004 
004 
004 
004 
004 
004 
004% 
004 
006 
064 
004 
006 


VALUE 


6656 
665D 
6668 
653A 
66C5 
6570 
655E 
6561 
TIES 
643C 
66D0 
6742 
66AB 
66CC 
5EB8 
0020 
0001 
0080 
0040 
0080 
c020 
0010 
0008 
6461 
6F5B 
7018 


T22A 
525A 
5713 
6284 
5622 
62E6 
620C 
TILES 
O20A 
760C 
6457 
645D 
6440 
O44E 
645F 
6448 
T2ai 
6300 
6283 
T2A3 
72a5 
66A9 
O22 
7012 
5490 
54A3 
6536 
65DE 
65E2 
6652 
63DF 
6568 
6664 
6540 
6580 
6544 
6564 
6504 
661C 


29AUG75 


827804 


DEFN 


2076 
2078 
2081 
1986 
2115 
2010 
2000 
2002 
2427 
1889 
2120 
2165 
2109 
2118 
1328 
2579 
2576 
2577 
2578 
2580 
2593 
2594 
2595 
1924 
2366 
2392 


2449 
0281 
0642 
1706 
0547 
1732 
1649 
2424 
2565 
2531 
1920 
1922 
i917? 
1918 
1923 
i915 
2474 
1767 
1704 
2475 
2416 
2106 
2566 
2387 
0448 
0452 
1985 
2038 
2039 
2075 
1836 
2004 
2086 
1991 
2011 
1992 
2003 
2033 
2064 


O7NOV7S 
827805 


REFERENCES 


2065 
20684 
2067% 
19584 
21136 
1961 
1974s 
19758 


20662 


i9T4 
2114 


2099 
19768 


1s72e 
2161 
21206 
2195 
2109% 
1308 
1306 
1307 
1306 


2216 
2224 


13346 
1328 
1331 


9217 
1873 
1873 
1873 
21104 
15398 
1362% 
14684 
16686 
02418 
0631 
0269 
0530 
17068 
0415% 
0058 
13086 
0748 
1922 


1877 


2196 
1540 
1363 
1469 


0244 
0547 


1707@ 
0497% 


1367 


1923 

2074 

20734 
1820¢ 
17714 
222% 
21212 


2084 
2077 
2083 
1822 
1858 
2164 
2163 


2i1ile 
0162 


2117 
1324 


0436 

0450 

19642 
20282 
203G2 
20648 
18182 
$972 
2071s 
19598 
19624 
19658 
is7Te 
2015 

2055 | 


0438 


2100 
20298 


2071 
18198 


19608 
19638 


19762 
2027¢ 


22BECTS 
827836 


MOD 12 
CROSS-REFERENCE 
2067 
1975 
2199 2202 2205 2208 2225 
1542 
1375* 1376 1377 1430 143) 1436% 1437 
1470 
1838 
1708 17118 
O987* 1621 1630 1639 
1328 1331 1334 
2079 
1824 isze 
0442 0446 0504 
2096 
AOMARTE 
827872 


PART NG. 


PAGE 


1447% 1548 


1450 


PROG ID 


PAGE 


rR 


4248224 
31 
| 


roe, 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


i 
C 


SYMBOL 


D443 


TRANS 

TRKCC 

TSTOAT 

_ TSTEND 
TSTN 

- TWO 

_ TwOOO 

€ UMFCU 
UNPACK 


“oy 


ah, 


: € ueP1 


. 


UP2 
UTAB 


{ 14462 


D44=3 | 
3k 


U3741 
U5471 
( VREAD 
” VREADR 
_oVTIM 
( VTIMB 
~ VTOCAD 
_ vTocop 
WAIT 
WINRW 
_ WINRWR 
( WINRWT 
WORK 


Saat 
WRITE 
ARTVEY 
XEXiT? 


atm, 
S 


_ XX03 
é Xx11 
© az 
XX13 
€ Xx14 
XX15 
_ XxX22 
€xx31 
XX32 


DATE 
EC NO. 


$/3 3340 AND CARO UTILITIES 


PEP PrP PrP PPPPPEPPOPrP OPY,PPPPrPPPOAP «+4 


OrppPYpyp p 


PrPYrrPrrprPrPpPrrprrrpp 


LEN 


062 
ool 
004 
004 
002 
002 
002 
003 
001 


002 
002 
001 
003 
003 
003 
004 
004 
001 
ool 
005 
oo1 
004 
004 
004 
004 
002 


ool 
005 
ool 
004 
604 
002 
ool 


603 
003 
06% 
00% 
004 
004 
004 
004 
004 
004 
00% 
005 
004 
004 


VALUE 


6F5D 
0002 
6247 
60F1 
7235 
7229 
T1lE6 
OAOC 
O21E 


66FA 
66FC 
0232 
OA12 
OA15 
OAOF 
5215 
5226 
T2c9 
72Ad 
62F0 
5165 
60DA 
6475 
65EE 
65E6 
TLDF 


T2AC 
6907 
66AA 
623F 
6090 
7100 
ocol 


0002 


SCFF 
506B 
SD1E 
5899 
5B9D 
5874 
59CB 
5A0B 
SADF 
59E3 
5B4C 
5033 
5CDD 
SCE1 


29AUGT5 


827804 


DEFN 


2367 
2552 
1674 
15286 


2462 — 


2448 
2428 
0018 
2571 


2135 
2136 


‘2567 


0020 
0021 
0019 
0257 
0261 
2482 
2480 
1758 
0196 
1520 
1934 
2043 
2041 
2423 


2479 
2264 
2107 
1672 
1492 
2422 
2560 


2563 


1265 
1191 
1173 
1053 
1054 
1039 
0888 
0912 
0913 
0900 
1019 


1178 - 


1158 
1159 


OTNOVTS 
827805 


Sana 


REFERENCES 

1492% 1493 

2228 

1667 

1525 

1682% 1683 

0812 

1297 

0221 0226 

0531 0535 

2131* 

2132* 

0055 

1301 

0115 0146 

0208 

0257* 0259 

2483 

0206 1796 

0170 

1522 

0265 0523 

1934* 1936 

1995 2006 

0154* 0155 

0612* 0615 

1152 1229% 

0954* 0962* 

2016 2017% 

1660 1684 

1506 

0057 

0210 0215 

0264* 0629 

0683 0683 

0739% C748 

0818 0820 

1089% 1092 

1170 1173 

LI9L*® 12334 

15289 1589% 

1935 1936s 

2082 2087 

0716* 0717 

0732 0735 

0757# 0759 

1165 1167 

1192* 16606 

2132 2137 

1195 

1172 1185 

1166 

1040 

1052 

1069 1062 

0901 

0912 

092% 

1238 

LL77# 

1132 

1157 
220EC75 
827836 


MOD 12 
CROSS-REFERENCE 
15208 1521 
2465 
0231 0242 0402 
0539 0613 0963 
0337. 0368 0579 
0271 
1267 1782 1831 
1937% 
C345* 0346 0364*% 
0908* 0909 0953 
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312 & PRIMARY tocat REGiIiSTERS (CONTINUED : = 7 7 Se seeeekeRce geen e <e 
313 KESSKAEKEKSERSESCTS SLERSHSSTAECSSHS GSLSSHESSSESRAAS SS SATHS SKSERKES SSELASE SKE SS ae © 5S 2 5 6539 RESARERL OC 21x°00° : RESERVED ; 
ee : r , 4 386 , "GO8 & EXTENDED FUNCT SENSE ® 
315 * KRECS RUM BER GF RECORD S & ie a . C5 3A . EFSENSEL OC K*SO : EXTE : 
316 = * 
317 SSRHSAIEKSSVHSSLSESSSSHSESRAGSTSSES SKSRSS COSTS SR LSSSEATRKES TERE TSESSES SSS ESET c see : ao 6 3 8 : CSZEROL OC X*OO® : BYTE OF ZERS : 
318 € s & * 3 : ’ i . 7 gies : 
319 ¢ SDH ¢ SK I P DBDiSsPtatle&#&#eE RT K 1G HK € ; 7 o53¢€ 655 3 DISENSE OC 24XK°GO : DREYE 1--SENSE 
320 ¢ % (FROM FELLED $ co 2 . | ; ny _ 
32i EOSASSALSS SSS ILS RLS SSSEREKRSS SRS SSA SAE LERE SSS SE SSKE SERS SERFESA BS TEL SSE SRSES Me eas : ©6686 4-065 5 5 - OICURPA OC 2x? a0? : DRIVE 1--CURRENT PA : 
322 * * * { e2ee ie, oe Ss, See ct dsigesss 
g p f 2 Dos 394 29 $5 5 6- O05 5 7 * DLOLDPA DC 2x00 # DRIVE 1--OL0 PA * 
323 * SOL # SK 1 P : : : Ae & ; Ty LO . if IOS ALECLEAURSREREHS OEEESETESESSARSSSSSECOESES SS FESRERES HES ESS SORES TIETESSS 
Soot e : ey f : i 3907 #98 7 Ste eee : or SERSESCERR ESS 
325 ESHLEEAEOHTS AES ESTRSESSSSSLLALSSERKT AS ASSHSSRELESERSSHSERSESSESS SV ORHLTSSS i ae? SOUGMSRSEN SESS FED NE TTEEERSSSES CORTESE COST ERO Dee ee ar * nis 
OMPRES* 78 Pe 398 * CS ADDRESS® LABEL * COMMENTS * 
oak eee eee OO rears ae | C 390 se eee eReE REST RHE EHH ee EET SEE HEHEHE SE SHEETS SE * oe 
327 * FELG® DEFECLYs DEFECT® DEFECTS RECORD * DATA @ TRACK @ TRACK © ye 406 # * * s 
328 a © * % e4$/370)% (S/3) 9 % % , | : , = | = . a 
329 SPSESEFHSESE OSOEEKESSAOHKSE AE SSE SS SIESGEHLSSHK SSA SRS REKSKES EES SHE SIHS SS ASS c shes ; 9558-65 58 : DIRDCMY OC &x*go°* : DRIVE 1--RD USAGE one 
336 CLOKEASSSERGER SS SK FLSHSSETSE RSE ELVES SSIIAG LHS FSKES SHISHVSCRSELEL SS SPES TH YS mee . a fe So ahee ‘ nie Snag * BR lem~SK USAGE CNT® 
331 * NOTEL : TRACK ORTENTATICN MARKS GEFINE AS FOLLOWS oe 7 6350+ 465 50 : DISKCNT DC 2x*GOo os TYE i-~SK U: - 
332 % 0 0 0 ~~ END GF Ha me : , Pa eee Te ane ee : 
333 ¢ 001 <-- END OF RO COUAT oa aoe : © 5S 5 € o5 7 § : O25ENSE BC 24X*O0 : DRIVE 2—-SENSE : 
as ee oe & ~ 5B 4 ah: RP 2R OG! % DRIVE 2--CURRENT PA & 
335 ¢ Oi 1 — END OF DATA €. ppd z GO FT 6 on a | i O2CuRPRA OC Z2HOCG : : 
336 6 10 0 -- END OF COUNT ° a . : seatehotn : Se te ap vs 
337 # 220 -~ ERD CF 1ST SEGMENT KEY ae : os 7 8 5 7 §$ : DZ2OLCPA DOC Z2K'OG : DRIVE 2--O10 7 
338 * 1 1 1 -- END OF 1SY SEGMENT CATA sage Da aaa inegee as . ™ ace 
339 SOE eSSGH ESE TORSIELGESS LESHLSSRES HSS EIUKSSESSSHS LEH SSRGSHSESSASSE LS SESESS See ote! : C5 7A - O5F TO DeROONT OC 4KP065 : ORIVE 2--RD USAGE OH 7 
a oor Oe eee Breer | 413 8 O 5 7 E~ O 5 F F % OLSFCNY OC 2a*5O* & DRIVE g--SK USAGE CNTs 
342 cory CSASSGN c ppt 8 . : : 
3G) FSESRETES ES HH ESOEREES EES GEOESESLOE SE SSGELER TEREST EREELEGRERLRESLLGSESEK we, eo ~ % ‘Rare ne wane * COUMT BUFFER=-RIGHT @ 
344 *#TONTRGOL STGRE ALLGDCATICONS TilL64F 4 | ps : OSB &G- O05 87 - DOCFCRGR BC Bx° ao : COUNT : 
345 CESSES SGSOF TEESE SHRERKESESEESER SES OERY SSECRER ELS EER SS SHBESY SELES SESS EHS | & ; rie * ne ry *oge &% ORIGINAL REC NUMBER * 
346 © CS ADDRESS # LAGEL + Coe BE H FS # G oe : a 8 3 : BRGRES ac x?6G r ORIG ss 
347 S38 Bee THe HRY KSEE SESE HE KEE eH H EHS SE ec 2 Se Ee GH ; z : . , iia ean eee eeheee Rides 
348% 0500-95607 #42 SDCFORGI. OC BX*0G* * COUNT BUFFER--LEFY * (gg aoe : oOf8&9- 0539 . REVAREAZ DF 49x%°CO A RESERVE 7 : 
349 8 & . % x - : ~ CEcetee oc xenge * EXTEMCED EURCT SENSE 3 
350 * 6508-045 69 # OSDISPL OC 2Xx*Ga? ® PLZCEKLE TS I454 = po oes ; G5 5 4 : EFSENSER GC KOO : EXTEMOED FU ENS : 
351 * * s * | &e oa. e CSZEROR | 7 € s 
352% OF50A-05 08 * DSOISP2 BC 2x°6G & SHORT=1 39/LONG=1264KL4 & ie : 95 8 b CSZEROR DC X°90° : BYTE OF ZERO : 
353 & € & & . < i _ i sot sf / eee 7 
3546 %* COSC -05 00D @ OSOISPS DC 2xX*oGe  SHORT=L3S/LONG=1264DL> . & re . o6@8@f - 8 5 0 3 : USSENSE DOC Z4K'00° A ORIVE 3--SENSE : 
355 © % + i : 2 ‘ are eT . 
356 © OS GE~ 65 OF @ TRKCATS DC |exiag? * TRACK CAPAC Ty CXTR + aoe : 05 04-+- @5 0 § ie D3CURPA OC 2x* 50° rf DOREYE 3--CuURRENT PA 
357 & & a 7 a 2 : _ it, : : Bt ese x 
358 * GSicg-c5i2 * RECLYG ne ge OG? m PECGAD LENGTH COmST + oo pe 7 @¢5 0 & 25 07 : CD33LDPaA HC 2x*00 : DRIVE 3B--OLB Pa 
353 ¢ 2 2 + ed . . : : ot 2, | 
3460 ¢ O05: 2-085 1 3 *# DODDORDRE HO 2x? Ho? * QAIGinAL DPDBER & € 43} *® O50 8-905 C6068 * OSRDCNT OC 4x700 @ OMEVE 3--RO USAGE CHT 
§ ‘ 7 PROG IG FaQ=% 
DATE  15AUG75 O6NOV7S PROG 10 ca ae cents ore PAGE 3A 
EC NOw. 827765 827848 PAGE 3 fe 4 
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FAOL 3340 DISK M;SCROCODE —---—- MOD 12 PART NOw} 4247623 FAOL 3340 OISK MICROCODE -~--- MOD 12 PART NO. pewiee* 
PaGE & C PAGE 
j 
LOC. OBJECT CODE STM SOURCE STATEMENT x LOC. OBJECT CODE STM SQURCE STATEMENT 
432 © ¢ ‘ * eh 504 * | 
433 * 050C-0500D * D3SKCNT DC 2X*00* * DRIVE 3--SK USAGE CNT* 1 aoe Bet art Oe ree rer ee 
434 * * * - 
435 * OSDE-05F 5 *% D&SENSE OC 26x*00! * DREVE 4--SENSE * & oor = MESSAGE (BITS 4-7) 
436 * © * & GGG ere wee nn nn ee ne ee ee 
437 O5F 6-05 F 7 * D4CURPA OC 2x*00* * DRIVE 4--CURRENT PA * 310 # SENSE FORMAT SUMMARY 
438 * x * c Sil & : 
439 ¢ Q5F8-05F 9 * D40LDPA DC 2x*00° * DRIVE 4--OLD PA * a A a RE aca ro rg en ee PS ee ee rien 
440 9 * * ‘< 513 FORMAT 0 1 2 3 4 5 & 
441@ OS5SFA-05F D0 * D&RDCNT OC &x'00* * DREVE 4--RD USAGE CNT CE ed ico a te ae Be tO tae Tree ee wo ee 
442 & * * & ; 
443 * OS FE-05F F- © D&SKCNT OC 2x*00° * DRIVE 4--SK USAGE CNT# ! ree : STATUS READ 
444 8 * & * 1 a ee a en am anaes an em am eee 
445 SR Bee SCHP REE KREKRE RE KLE EES KAKA REE HE RE EEE ER © 518 *BYTE 9 G& ORIVE ADS 0 C Cc BYTES 
4h4e # * * « : 519 # CHK SSTAT READ 
447 ¢ 060060 -06F F * DDDFORG DC 256x'00* * DODF BUFFER * C se Saves soe ee eg age ek Oe ee ae 
448 & * * ¢ ie 7 
49 REPERESESEFESTSE SHEEEKESEEHSSESEKESSE SSS KEKE EL NTESEASSESSSEL SL SRELESAESSSSKE . 522 * SEQ CHIL READ 
45) SSRSSEEEEESEEESESESESEESRSESESAREARSELESELERELKE KEEKLKKSCERSESS SSS TSEKES SSKHLEKE c 323 Fee een ete va tere eet nn ae en cen ce ee oe a A a 
452 ¢ NOTE 1: SWP REQUEST OPTIGN BYTE DEFINE AS FOLLOWS: * - 524 BYTE 11 0 ACCESS DST 0 H H eyes 
453 ® BIT 0 -— ALLOW OPERATION ON 1256 DATA MODULE * 525 * ERRORS REA 
454 © BIT l -— ALLOW SEEK TO CE TRACKS * Cc 526 ¢ aman tes — eran err Cr ern rn ee mm mmm mes men 
455 & BIT 2 —— FORCE SYSTEM RESET * S527 sBYTE i2 O RDsWR FHE 0 R a G 
456 & BIT 4 -- FORCE WRITE HOME ADDRESS * 528 * SAFETY 
C57 SCOREESESEESSESESESESSEETKSESEESESKESESSKKEKK ESAS KET SES EAEKESKERESKSES SS ASVSHERLS c 5259 & Pena ae aaa ae <a cn Oe am ee a a cm oe 
459 END COPY-MEMBER CSASSGN 530 *BYTE 13 0 CTL INFC FBO G 6 0 C 
460 copy HANDBOOK 531 * BUS OUT 
461 &© NOTE: FOR DETAILED SENSE INFORMATION SEE FUNCTIONAL SPECIFICATION c 255 see . be eee a ae ore 
462 ® = 
463 ® SENSE INFORMATION SUMMARY os : BUS IN 
&&& F-4 Fad REP ED CI RAD CD AP PEO ER RD EID EHP AI A ED DO EP EE A OP LIE ED A CPD CED CEB OO ET a Gate ED MN AD RD HO HN OP EY eave NDP OTD OR ta TAD FD ODE CD SENN cre 
465 * BYTE BiT SENSE INFORMATION SUMMARY .. 536 *BYTE 15 G CTL INFC -TO 0 0 0 e 
466 rem er ee es oe ae aren om or ar an > PP EP ee CE <TD CO LAA ARES A A RO A LD EP CEP AE AS ES OY AS EE ND OEP A OOD OED OL CMD ED TS SA CD ee ee : TAG BUS 
eS ad ~ SE A LI SN A EE AP EP A ITD EY LOD ED OS AED SAEED AP SI EP KID A ED ENP KINO GRD AY GLO IY GS A RY <A IP AD AED AD ele te IEP | TOM OP A OO UIE ET MESO ERED ATED CHA 
ae s GRC EE VENT Ian SCCIRER C 539 *BYTE 16 O SET READ SCN C 0 RESTART SEEKS 
% /WRITE DISPL. CNTR 
469 & 2 UNUSED a * 
470 & EQUIPMENT CHECK  & ee en an me Pee mn Se nn ana am mem 
pea * . : eat chece . C: 542 *BYTE 17 O CNTLR OXCc 0 0 RESTART SEEKS 
472 € 5 OVERRUN 543 © CHECKS DISPL. 
473 ¢ 6 TRACK CONDITION CHECK wee S44 ¢ ere ee See ot 
47% @ 7 SEEK CHECK oS 545 *#BYTE 18 © UPGM DETEC 0 0 0 ERROR o 
& 75 Qe ees oer ee oe a a on a ow oe Re ee RD CEE a EE OSE le AE OE  .  ERD EY ED ee Oe EY Ee ae Es tee lee 5D Ge aT ee ae ae “ cay 2 — RROR S$ 2 I Ss Pp e 
416 0 UNUSED wn nn nnn nn nn nnn nnn nnn none 
&77 ¢ 1 INVALID TRACK FORMAT : 548 *BYTE 19 C CNTLR 0 0 0 pices 0 
“78 % 2 END OF CYLINDER eee ; INFC CHKS SPe 
Ff r ce ae 0 em er ow IR AR AOR CA SE EL CEH EI NP AA IE OL NE AE IN NY ND TO Pw ee AE DP DO EP IP HE Ri LAID ID EDD EN: ENE NY I EP 
Aca s : Z so RECORD FOUND C 551 *BYTE 20 © OEVICE 0 0 0 PTTRN 0 
re * INFC CHKS HIGH 
481 * 5 FILE PROTECTED es he 
“62 ¢ 6 WRITE INHIBITED we —— ER. 8 in a a a 
483 6 7 OPERATION INCOMPLETE ye 556 *BYTE 21 0 0 oO o 0 PTTRN 0 
284 Benn nn en ee ae. : _ rate cs aaa ten as LOw 2 cient a 
ene : feheEe Lae phepene oe G 557 *8YTE 22 O SYMP. © 0 SYMP. 0 0 
487 ¢ 2 UNUSED : | 558 * CODE CODE Sencar Ae Nik, 
488 @ 2 3 ENVIRGNMENTAL DATA PRESSENT i © 559 * Sake aS a a a al wat ane aan 
489 © 4 UNUSED 7 560 *BYTE 23 0 SYHP. 0 0 SYMP. 0 0 
490 5 UNUSED S61 * CODE COOE eee ee ihe eee 
491 6 DATA MODULE SIZE . 8 ao : nr ae Sree ee ee 
492 % 7 DATA MODULE S$iZ a 
493 t= eee ee ge eR \ 566 1090 INVALIO DEVICE INTERFACE CHECK 
494 « 3 R-BYTE ; S67 * 1001 DEVICE TAG BUS PARITY CHECK. 
495 ¢ i & 568 ¢ 1092 DEVICE BUS OUT PARITY CHECK 
496 Ga-——— we sasha al abide alent and aaa cies | 569 * 1003 DEVICE TAG AND BUS GUT PARITY CHECKS 
497 & Q-BYTE ge 571 * 1100 DM SEQ CHECK IN STATE O 
498 % i ~ 572 * 1110 OM SEQ CHECK IN STATE 1 
s NDER | g 574 © 1130 DM SEQ CHECK IN STaTE 3 
cor s . ieee nes i & : 575 * 1140 DM SEQ CHECK IN STATE 4 
503 6 CYLINDER HIGH & HEAD €: 577 1160 DM SEQ CHECK IN STATE 6 
eC HOS “erties” borane? PeOGETG PRON ee nUo-(BsTIEs” ~ez7ea. | - caer 
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LOC. OBJECT CODE STM 
578 
$79 
581 
582 
583 
564 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
598 
599 
601 
602 
603 
604 
605 
606 
607 
608 
609 
612 
6i3 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
629 
630 
631i 
632 
633 
634 
635 
636 
637 
638 
639 
640 
6e] 
642 
643 
644. 
646 
647 
668 
649 
650 
65i 
652 
653 
654 


DATE 15AUG75 
EC NOw 627765 


O6NOV75 
827848 


i 8 





#2 GOSS RBER HER BSA BEEK RHRESSRERAEBREARERRHKSHRAHREHRERRAHRAARAHREHEEBEHEHEHERERRARHAHR ARS! 


MOD 12 


PART NO. 
PAGE 


SOURCE STATEMENT 


1170 
LIEF 
1200 
1201 
1262 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1204 
1205 
120C 
1200 
120E 
120F 
1301 
1310 
1400 
1401 
1402 
1404 
1408 
1410 
1420 
1440 
1480 
1500 
1501 
1502 
2503 
1504 
1505 
1506 
1507 
1508 
1509 
150A 
150B 
150C 
450D 
150E 
150F 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1603 
L6OA 
1508 
L&OC 
1600 
1 60E 
160F 
1910 
1913 
L912 
191.4 
415 


197 


4918 
19i9 


OM SEQ CHECK IN STATE 7 

OM SIZE CHECK AND DM SEQ CHECK 

ACCESS TIMEOUT OURING RECAL-STATE O-*MOVE OUT® 
ACCESS TIMEOUT ODUKING RECAL-~STATE 1-*RESET® 
ACCESS TIMEGQUT OURING RECAL-STATE 2~*MOVE Iéé 
ACCESS TIMEOUT ~ INVALID CONTROL STATE 

ACCESS TIMEOUT —- INVALIO CONTROL STATE 

ACCESS TIMEGUT = INVALID CONTROL STATE 

ACCESS TIMEOUT DURING RECAL~STATE 6-*LINEAR MODE® 
ACCESS TIMECUT =~ INVALIO CONTROL STATE 

ACCESS TIMEQUT DURING SEEK-STATE 8-*DECELERATE® 
ACCESS TIMEOUT - INVALID CONTROL STATE 

ACCESS TIMEOUT DURING SEEK-STATE A-* ACCELERATES 
ACCESS TIMEOUT ~- INVALID CONTRCL STATE 

ACCESS TIMEOUT DURING SEEK-STATE C-*LINEAR MODE TO ONTRK® 
aCCESS TIMEOUT - INVALID CONTROL STATE 

INVALICO TIMEOUT - STATE E - "GN TRACK? 

ACCESS TIMEGUT — INVALIO CONTROL STATE 

SECTOR CUMPARE CHECK 

FALSE DRIVE CHECK 

FALSE RO/WR CHECK 

WPETE CURRENT CHECK 

TRANSITION CHECK 

CONTROL CHECK 

RO/WRT INTERLOCK CHECK 

INDEX CHECK 

WRITE OVERRUN 

CAPABLE /ENABLE CHECK 

MULTIPLE HEAD SELECT CHECK 


INVALIO OVERSHOOT CHECK 
SNVALID OVERSHOOT CHECK 
INVALID OVERSHOOT CHECK 
OVERSHOOT CHECK ~ IMVALIO CONTROL STATE 
OVERSHOOT CHECK ~- INVALIO CONTROL STATE 
OVERSHOOT CHECK ~- INVALIO CONTROL STATE 
OVERSHOOT CHECK DURING RECAL-STATE 6 
OVERSHOOT CHECK - INVALIO CONTROL STATE 
OVERSHOGT CHECK DURING SEEK-STATE &-*DECELERATE* 
OVERSHOOT CHECK ~ INVALID CONTROL STATE 
OVERSHOOT CHECK SURING SEEK-STATE A~* ACCELERATE® 
OVERSHOOT CHECK -— INVALID CONTROL STATE 
GVERSHOOT CHECK DURING SEEK~STATE C~°LINEAR MODE®* 
OVERSHOOT CHECK - ENVALID CONTROL STATE 
INVALID OVERSHC JT CHECK ~ STATE E - "LOST SERVO? 
OWERSHOGT CHECK ~- INVALIO CONTROL STATE 
SERVO OFF TRACK CHECK-SET A/t ON DURING ACCESS OPERATION 
SERVO OFF TRACK CHECK-SET Ryw ON DURING ACCESS OPERATION 
SERVO GFF TRACK CHECK-SET KR/w ON DURING ACCESS GPERATION 
SERVG GFF TRACK CHECK~INVALID 
SERVO OFF TRACK CHECK-INVALIG 
SERVO OFF TRACK CHECK~ INVALID 
SERVO OFF TRACK CHECK-SET R/wW ON DURING ACCESS OPERATION 
SERVO OFF TRACK CHECK-INVALID 
SERVO BFF TRACK CHECK-SET RY GON DURING ACCESS OPERATION 
SERYVG GFF TRACK CHECK-INVALID 
SERVG OFF TRACK CHECK-SET R#W GM DURING ACCESS OPERATION 
SERVO GFF TRACK CHECK-INVALID 
SERVO OFF TRACK CHECK-SET R/w ON DURING ACCESS OPERATION 
SERVO OFF TRACK CHECK-INVALID 
SERVO OFF TRACK CHECK-SET R/W ON CURING ACCESS UPERAYION 
SERVO GFF TRACK CHECK-ITNVALIO 
INTERVENTION REQUIRED 
TRANSMIT TARGET ERROR 
HICRGPGH DETECTED ERRORS 
SYNC OUT TIMTM: ERROR 
UNEXPECTED ORIVE STATUS AT 
TMITIAL SELETTILY ~ INTERVERTION REQUIRED 
TRANSHIT HEAD ERROR 
TRANSHLT OFEFERENCE ERROR 
FILE STATUS MOT AS EXPECTED DURING READ IPL 
PROG ID 
PAGE 


FAOL 





Loc. 
| 
SH. 
| 
me 
: \ 9035 
0028 
be 0029 
9038 
1c 
€ 0032 
a! OO26 
i 0023 
pe, 002F 
6023 
& GO2ZE 
ay 0026 
0036 
fp 002) 
€5 CO31 
COSF 
, G037 
he 0020 
COL & 
FaQ-1 ¢ DATE 
5 % EC AO. 
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STA 


655 
656 
657 
658 
660 
661 
662 
663 
664% 
665 
666 
667 
668 
670 
671 
672 
673 
674 
675 
676 
678 
679 
686 
681 
682 
6843 
654 
685 
686 
687 
688 
683 
691 
693 
654 
695 
696 
697 
696 
699 
700 
TO2 
703 
T04 
TO5 
T0& 
TO7 
708 
70S 
rene 
Ti 

Tie 

7i3 
Tie 
Tis 
716 
717 

Te 

Tis 
726 
Tél 

T22 

723 
Te 
T25 
126 

Ted 

T28 
729 
739 
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* 

i 

we 

FT 
HES 
ADS 
Fel 
coe 
¢ 

& 

* 
IxC 
FTG 
FTR 
SCN 
FHE 
OST 
Fad 
FTO 
FCT 
CCH 
CCL 
$80 
S81 
Bod 
FIL 
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MOD 12 PART NO. 42417623 
PaGE SA 
SOURCE STATEMENT 
19LA SEEK VERIFICATION CHECK ON PHYSICAL ADORESS 
1918 SEEK INCOMPLETE 
191C NO INTERRUPT FROM DRIVE 
1910 DEFECT SKIPPING - ORIENTATION CHECK 
9001 TAG VALIO MISSING DURING RO/WRT OR ECC OP 
9002 NORMAL END/CHK END MISSING CURING RD/WRT OR ECC OP 
. 9003 NO RESPONSE FROM CONTROLLER ON CONTROL OP 
9004 TIMEOUT WHILE WAITING FOR INDEX/ACTIVE TRACK 
$005 ECC H/W CHECK 
9006 CONTROLLER ADORESS CHECK (3/6 FAILURE) 
$007 PRE-SELECTION CHECK 
9009 BUSY AISSING AFTER SEEK START 
9104 ! WRITE FAIL 
9108 CONTROLLER BUS IN PARITY CHECK 
9110 OEY BUS IN PARITY CHECK 
9418 CONTROLLER BUS IN AND DEV BUS IN PARITY CHECK 
9120 ORIVE SELECTION CHECK 
91406 CTL INTERFACE BUS OUT PARITY CHECK 
9180 CTtL INTERFACE TAG BUS PARITY CHECK 
9200 FALSE CONTROLLER ERROR 
$202 ECC CHECK 
9204 MONITOR CHECK 
9206 ECC AND MONITOR CHECK 
g2u8 WRITE DATA CHECK 
9200 WRITE DATA AND MOMITGR CHECK 
9210 GAP COUNTER CHECK 
9214. GAP COUNTER AND MONITOR CHECK 
$220 SHIFT REGISTER CHECK 
S222 SHIFT REGISTER CHECK ANO ECC HAROHARE CHECK 
9240 NO PLO INPUT 
9286 PLO CHECK 
FORMAT 4 
4946 HA FIELO, ECC UNCORRECTABLE 
4941 COUNT FIELD. ECC UNCORRECTABLE 
4542 KEY FIELO, ECC UNCGRRECTABLE 
4943 DATA FIELDS, ECC UNCORRECTABLE 
4944 HA FIELD. NO SYNC BYTE FOUND 
4945 COUNT FIELDe BRO SYNC BYTE FOURD 
4946 KEY FIELD, NO SYNC BYTE FOUND 
4947 DATA FIELD. NO SYRC BYTE FOUND 
EWO COPY-MEMBER HANDBOOK 
cory EQUATES 
EXTERNAL REGISTER ASSIGNMENT -<- SENSE TYPE 
HER Zi FILE TAG in 
DER Li HARDWARE ERROR SENSE 
BER gy ADAPTOR DIAGNOSTIC SENSE 
DER 2 FILE BUS F®% 
DER 27? CHANNEL Ou. REGISTER 2 
EXTERNAL REGISTER ASSIGNMENT ~~ CONTROL TYPE 
OER io DATS TRANSFER CONTROLS 
DER 5 FILE TAG Gave 
DER i3 FILE TRAP RESET 
DER ro) SCAN GP CONTROLS 
DER 7 FILE HARDWARE FLAGS 
DER 3 DEVICE STATUS 
DER 14 FLLE Bus OUT 
DER & FILE TAG GUT 
DER ae FILE SYTE COURTER 
DER 1 CHANAEL BUFFER COUNTER HY 
HER 17 CMANNEL BUFFER COUNTER LOW 
BER 3} SENSE BYTE O 
DER 23 SENSE BYTE 2 
DER 29 CHANNEL EN REGO 
OER 10 FILE IN REGUL 
PROG ID Fade-i 
PAGE Sa 


ee 





FAO) 3340 DISK MICROCODE -~--- MOD 12 PART NO. 4247623 FAOL 3340 DISK MICROCNDE ---—— HOD 12 PART NO. 4247623 
PAGE 6 +. PAGE 6A 
Ne : 
LOC. OBJECT CODE STM SOURCE STATEMENT “ £6C~5- OBJECT CODE ST SOURCE STATEMENT 
731 LOCAL REGISTER ASSIGNMENT - O00€F 801 READOP EQU XSOEF READ OF 
732 % ,  90GF 802 WRITEQP EQU x*orF WRITE OP 
0000 733 LO DLR o<a> WORK REGISTER 0089 8032 SNSIMFC EQU  xXx°8eg9* SENSE INTERFACE 
eco! 734 Lk OLR 1<0> WORK REGISTER - O08A 80% DIAGSET EQU xX®B8A® DIAGNOSTIC SET 
0002 735 L2 OLR 2<0> WORK REGISTER goss 805 SETHAR EQU x*eBS SET HAR REG 
0003 736 L3 DLR 3<0> WORK REGISTER Gosc 806 SETOIFF EQU x*®8BCt SET DIFFERENCE REG 
0604 737 14 DLR 4<0> WORK REGISTER ~ OO8F SOT CONTROL EQU X'BF CONTROL TAGS 
0005s 738 15 OLR 5<0> WORK REGISTER . & go08 * 
0006 739 L6 DER 6<0> WORK REGISTER 809 *% EXTERNAL REGISTER FBO--UNDER RO ERROR SYTES TAG 
0607 740 17 OLR 7<0> WORK REGISTER fh 810 ¢ 
0008 74k 8 DLR 8<0> WORK REGISTER & 6080 811 ECCLOW EQU = x*8a* READ ECC LOW 
ooo? 742 GEN1 DER 9<0> GENERAL MARKS REG_i 00°90 812 SCCHi EQU xX*eoF READ ECC HIGH 
000A 743 UNCK DLR 10<0> UNIT CHECK MARKS e- «60016 813 PHYADDR EQU xX*10° READ PHYSICAL aDORESS 
0008 Tee STAT DLR 1)<0> STATUS BYTE &- 0002 81% CTLRERRi EQU xX*02* READ CONTROLLER ERROR BYTE } 
oooc 7%5 QBYT DLR 12<0> Q-BYTE coool 815 CTLRERRZ EQU xK*OL? READ CONTROLLER ERROR BYTE 2 
0000 746 RBYT OLR 13<0> R-BYTE o, 815 # 
OOOE 747 PAC DLR 14<0> PHYSICAL ADDR HIGH © 817 2 EXTERNAL REGISTER FBO--UNDER READ OF TAG 
OOoF 748 PAH DLR 18<0> PHYSICAL ADDR COW 81s + i 
749 8 ry 0020 819 CLKG3 EQU xX*108 CLOCK 
750 & \. 6020 820 CLKG2 EQU  xX*208 CLOCK G2 
oc10 751i ZER DLR 0<1> WORK REGISTER CONTAINS ZERO 0020 B2L ROG EQU sx #308 READ G4 
OOLL 752 CEBi DLR i<i> COMMAND XEQ BYTE 1 - 00646 822 RDG1 EQU x40? READ Gi 
O012 753 CEB? DLR 2<i> COMMAND XEQ BYTE 2 ed $23 ove: at X°508 ates _ 
9013 754 MSCL OLR 3<1> MISC UPGM MARKS REG_} 2060 824 RDG2 Us K *60F 
0014 755 MSC2 OLR 4<1> MISC UPGM MARKS REG_2 - 0070 825 RDG3AM EQU  x'708 READ G3 AM SEARCH 
OCLS 756 FLAG DIR 5<1> FLAG BYTE=-FROM ODCF . OGE0 826 SPROG2 EQU XK*EO! SPECIAL READ G2 
OC16 157 CHI OLR 6<1> CYLINDER HIGH--FROM DDCF (23546? 827 
0017 758 CLO DLR 71> CYLINDER LOW--FROM DDCE (3340) 7 828 & EXTERNAL REGISTER FBO--UNDER WRITE OP FAG 
0018 759 HEAD DLR 8<1> HEAD LQw--FROM ODCF (3240) bs 829 € 
OO1L9 760 REC DLR 9<i> RECORD NUMBER--FROM DDOCE 0626 830 WRGZ equ xX*2ce WRITE G2 
OOlA Tok KCRT DLR 1C<L> KEY LENGTH--FROM DOCE » 8046 631 FMTGL EQU X°4GF FORMAT Gi 
oo18 762 OCNT DLR LL<i> DATA LENGTH LOW--FROM SOCE : o0s0 832 FMTG3 EQU K°SO8 FORMAT G3 
o01C ’ 763 NREC DLA 12<1> NUMBER OF RECGRD~~-FROx DDCE 6060 $33 FNTGZ EQU xX *H0F FORMAT G2 
COLD 764 SDH DLR 13<1> SKIP DESPLACEMENT HIGH y oo7e 824 FMTERASE EQU X*708 FORMAT ERASE 
OOLE 765 SUL DER 14<L> SKIP DISPLACEMENT LGH \. GOBG 835 eres ear xrEOe oe os a 
COLE 766 FFL DLR <1> FLAG BYTE--FROM FILE : Core 836 SPFMTGL EQuU x*CoF ECIAL 4 Per ae 
76? © : " ¢  O0€O 637 SPFNTG2 EQU  xX*EG? SPECELAL FORMAT G2 
C010 768 #O OLR 0<1> WORK REGISTER © See 838 2% 
0011 769 wi DLR i<1> WORK REGISTER 2 839 + EXTERNAL REGISTER FBO--UNDER SET HAR TAG 
0012 770 wW2 OLR 2<i> WORK REGISTER 2 i ee 840 * 
0013 771 “3 OLR 3<1> WORK REGISTER 3 "9080 841 FORWARD EQU xX*80° DIRECTION BIT FOR SEEK 
CO1L4 772 W4 DL& 4&<1> WORK REGISTER 4 6040 842 DIFF256 EQU x*®4QO8 DIFFERENCE COUNT 256 BIT 
0015 773 WS OLR 5<1> WORK REGISTER 5 ec 843 & 
9016 174 W6 DLR 6<1> WORK “:EGISTER 6 w 844 * EXTERNAL REGISTER FBO--UNDER CONTROL TAG (X*8F*} 
OOL7 775 WT OLR 71> WORK REGISTER 7 845 * 
0018 776 WE OLR 8<1L> WORK REGISTER & e 0008 846 SKSTARY EQU x*O8? SEEK START 
0019 777 WS DLR 9<1> WORK REGISTER 9 \. 9006 847 RSTATIN EQU xX*04® RESET ATTENTION 
GOLA 778 W10 DLR 10<1> WORK REGISTER 10 oocc 848 CHKRST eEQuU  xX*OC# CHECK RESET 
0018 779 Wil DLR L1<1> WORK REGISTER 11 - 0002 849 REZERGO EQU  xX*Q2t REZERG 
OOLC 780 W12 DiR 12<1> WORK REGISTER 12 \. 9009 850 SNSDIFE £EQU K?o09¢ SENSE DIFF REG 
oore 781 wi3 DLR 13<1> WORK REGISTER 13 0005 851 SNSHAR EQU  x*#05¢ SENSE HAR 
OOLE 782 Wis DLR 14<1> WORK REGISTER 14 9003 852 SENSTATO EQU X*03* SENSE STATUS BYTE. 0 
OOLFE 783 Wis DLR 15<L> - WORK REGISTER 15. ; C 0083 853 SENSTATL EQU X*83" SENSE STATUS BYTE 1 
7184 ¢ 0043 854 SENSTATZ EQU X*438 SENSE STATUS BYTE 2 
785 * EXTERNAL REGISTER FTO € 0023 855 SENSTAT3 EQU xX*238 SENSE STATUS BYTE 3 
786 *# 1 ke OOL3 856 SENSTAT EQU X*138 SENSE STATUS BYTE 4 
0061 787 SETUNSUP EQU xX*O1* SET UNSUPPRESSIBLE REG 0068 857 SNSROWR EQU xX*OB* SENSE RD/WR 
0082 788 POLLDEV EQU x82! POLL DEVICE & 0007 858 RWCTRL EQU x07? READ/WRITE CONTROL 
0002 | 789 POLLCNTL EQU x¢o2¢ POLL CONTRGLLER | * 0040 859 WRGATE EQU = K £408 WRITE GATE 
0083 790 SELDEY EQU x°g3¢ SELECT DEVICE 0020 ®60 UNSQELCH EQU = x*208 
0003 791 SELCRTL EQU x*QO3° SELECT CONTROLLER & 0010 861 ROGATE Eau x*10° 
0084 792 ROSTATUS EQU x°B4! READ STATUS | S&F 0080 862 AMSRCH EQU X*80! AM SEARCH 
0085 793 SETROWR FQU x*e5¢ SET READ/WRITE ; 863 * 
090% 794 ROERROR EQU X04! READ ERROR SYTES eS 864 % EXTERNAL REGISTER FTE 
0005 795 RSTROWR EQU x°'ose RESET READ/WRITE 865 * 
0008 796 ECCCNTL EQU x*'08* ECC CONTROL 00s0 866 SELACT EQU  xX*BOF SELECT ACTIVE 
0009 797 XHETCNTL TQU = x*O9F TRANSMIT CONTROL €: 0040 867 TAGVALIC EQU xX#40¢ TAG VALIO 
OOOA 798 ROCNTL EQU = xX*'OAS READ CONTROL ' Xe 9026 868 CHKEND EQU xX*20! CHECK END 
OooCc 799 DISPCEHI EQu K*OC® DISPLAY CE LAMFS HIGH 0010 869 CEALERT EQU xX*108 CE ALERT 
0000 800 DISPCELO EQU x*OD* DISPLAY CE LARPS LOW C 0008 870 NORMEND EQU xX*0B* NORMAL END 
DATE 15AUG75 O6NOV7S PROG ID FAO-1 , DATE 15AUG75 QO6NOV7S5 PROG 10 FAO-1 
EC NG. 827765 827848 PAGE 6 “ EC BO. 827765 827843 : PAGE 6A 
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“00 12 


SOURCE STATEMENT 
SYNCIN EQU  X*04* 
INDEX EQU  X*O02* 
ERRALERT EQU = x"01° 
2 
* EXTERNAL REGISTER 
s 
DUMMY EQU LO 
s 
* EXTERNAL REGISTER 
* 

CTLRCHK EQU  xX*80* 
INFCHK EQU = xX*408 
DRVCHK EQU = X'20° 
RWCHK EQU  xX*10° 
ONLINE EQU  x*08* 
ATTN EQU X04" 
BUSY EQU = =x*02° 
SKDONE EQU X'Ol1®* 
s 
® EXTERNAL REGISTER 
s 
IDXMK = =©£0U = X*028 
ACTRK EQU- x*91° 
s 
* . EXTERNAL REGISTER 
& 
LOSTORT EQU xXx*20* 
STATOVN EGU  xX*'0B¢ 
RGIUNORT EQU = Xx*02° 
ACTRACK EQU xX*Ol1¢* 
s 
* EXTERNAL REGISTER 
% 
CMDOVN EQU = x*808 
DATAQVN EQU x'4O0* 
DATACHK EQU  xX*10° 
NOAM EQU = x*088 
NOSYNC EQU x'OQ4* 
DATAFND EQU  X*02° 
TRKOVN EQU = X*10° 
s 
+ EXTERNAL REGISTER 
s 
TAGATE EQU  xX*80° 
SELHOLD E£QU  x*40* 
FORCERYC EQU = X*208 
RESPONSE EQU xXx*'O8* 
FOTOFL £QU  xX'04! 
OSYNCIN EQU  x*02* 
ALLOWFBI EQU = x*O1* 
s 
* EXTERNAL REGISTER 
s . se 
1OPBUSY EQU xX*80* 
CHOUTVAL EQU = X*40* 
DIFFZERO EQU x*40* 
ENDCHXFR EQU xX*208 
ALWCHXFR EQU = X"108 
& 
® EXTERNAL REGISTER 
¢ : 
SCANRD E£QU  x*80* 
SCANHI EQU  X*'4O* 
SCNSPLIT EQU X*20° 
LASTREC EQU  xX*108 
ALWFXFR EQU  x*08? 
FILEOQDD cQU xXx*O4* 
TOFILE €QU  x*O2* 
Kole 
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ATTACHMENT SUSY 

CHANNCL OUT REG VALID 
OIFFERENCE COUNTER EQUAL ZERO 
ENO OF CHANNEL DATA XFER 
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SCAN READ GR CHO 
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SCAN SPLIT FIELD 
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OATA TO FILE 
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MOD 12 


SOURCE STATEMENT 
* EXTERNAL REGISTER 
* 
ADTCKRST EQU X*80* 
ICATIN EQU X*40* 
OMATTN EQU  xX*20° 
IOCGNB §=6EQU = X*10° 
ERRTRAP EQU xXx*08* 
INVPRTY EQU  x*02° 
ALLOWIOX EQU x*O1* 
s ‘ 5 
+ EXTERNAL REGISTER 
* 
SPRESET EQU xX*'80* 
CHKRESET EQU X*40* 
ERRMODE EQU xX*20° 
ENDTRAP EQU xX'O8* 
SCNSAT EQU  X*04* 
SCNEQ EQU  x*02* 
ENDFILEX EQU x*O1' 
z 
« EXTERNAL REGISTER 
s 
op0DD 8s EGUS—Ci‘éK*102:* 
& 
* EXTERNAL REGISTER 
= 
DATACHAN EQU X*80* 
CHANODD €QU Xx*40* 
LSRCSR EQU  xX*20" 
LSRSELOR EQU = X*10* 
ALOWCHAN EQU  x*08* 
ALOWFILE EQU X'04* 
SUBTRACT EQU = X*02° 
CHNLIBYT EQU = x'oO1®* 
s 
* EXTERNAL REGISTER 
¢ 
CSOVRUN EGU x*80* 
CICHECK EQU xX*40* 
CHANXCHK EQU  Xx*10° 
ADAPTCHK EQU xX*08* 
RCSCHK €QU  x*C1°* 
& 
* EXTERNAL REGISTER 
. ) 
SYNCOUT EQU x*80° 
RECYCLE EQU X'40! 
TIMEOUT EQU Xx*20° 
FILEXCHK EQU X*10* 
FBOCHK EQU  xXx*O8* 
FTOCHK EQU  xX'04! 
FBICHK EQU  x*02° 
‘EXTARCHK EQU = X"01° 
s 
* LOCAL REGISTER 
s 
STACKCMD EOU X*80* 
FINCHXFR EQU = X*40* 
FIXDDCF EQU xXx*20° 
XFRHACNT EQU X*10° 
XFRDDDF EQU x08" 
SETRWON EQU xX*04* 
UPDTROUS EQU x*02* 
ODDXFER £QU  xX*O1* 
s 
¢ LOCAL REGISTER 
s i 
INTREQD] EQU x*80° 
INTREQD2 EQU x*40° 
INTREQD3 EQU x*"20° 
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CHECK RESET CHANNEL 
FORCE ERROR MODE 

END OF TRAP COUNT 
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CHANNEL ODD XFER 
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ALLOW DIFF COUNTER FILE 
SUBTRACT 
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HES 


CYCLE STEAL OVERRUN 


CIO/CI1 PARITY CHECK 
CHANNEL TRANSFER CHECK 
ADAPTER CHECK 

RCS PARITY CHECK 
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RECYCLE | 
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FILE TRANSFER CHECK 
FBO PARITY CHECK 
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FBI PARITY CHECK 
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FINISH CHAN XFER 
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TRANSFER HA AND COUNT 
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FAO] 3340 DISK MICROCODE ~—--- MOD 12 PART NO. FAOL 3340 OISK KICR°CODE --—-- HOD 12 PART nNOe 4247623 
PAGE PAGE SA 
LOC. OBJECT CODE STH SOURCE STATEMENT Loc. OBJECT CODE Stm SOURCE STATEMENT 
Goole 10211 ENTREQDS EGU x*208 INTERVENTION REQD —- ORIVE 4 ee np ices 
2008 1042 CTROFLO!L EQU x*o88 USAGE COUNTER OVERFLOm -- ORIVE 1 OOFF 10 EGU 
0004 16213 CTROFLD2 EQU X*04! USAGE COUNTER OVERFLOW -- DRIVE 2 0080 1083 ALOW)2 EQU x*B80* ALLOW OPERATION ON 1248 DATA MOOULE 
6002 1014 CTRGFLO3 EQU x#dO2* USAGE COUNTER OVERFLOW -- OREVE 3 0040 1084 ALOWSKCE EQU X*4Q& ALLO# SEER TO CE TRACKS 
0001 1015 CTROFLD4S EQU X*OL® USAGE CGUNTER OQVERFLOK -- ORIVE 4 a pi Perce ay epee GCLeE oye aa ege ee 
1LO0t6 @ 
1017 * LOCAL REGISTER STAT 0002 ee SVEREG EQU x*o2° SvP REQUEST LATCH 
1018 * 
0080 1019 ERRRETUN EQU x*so' ERROR RETURN 1089 ¢ ALS & zeus ASSIGNMENT 
res tool GPeue ” <EGU miles aereka 0062 yosi iaoeue DABR 1 INDEX FOR BASE 
0010 1021 OPEND EQU x*10° OF END 
0008 1022 NKOoGceP EQYU x*oB! wo OF 0003 1092 INDEXCH DABR 3 INDEX FOR CHANNEL TRAP 
0002 1023 UNITCHK EQU x° Ooze UNIT CHECK 600s 1093 EINDEXFL DABR 5 INDEX FOR FILE TRAP LST 
0001 1024 SKCMPL EQU Xo Us SEEK COMPLETE C007 1094 INDEXF2 OABR 7 INDEX FOR FILE TRAP 2N0 
1025 # 0009 1609S INDEXE1 DABR 9 INDEX FOR EXTERNAL TRAP 3ST 
1026 #& LOCAL REGISTER CEel 0006 1096 INDEXE2 OABR i} INDEX FOR EXTERNAL TRAP 2nND 
1027 © ooot 1097 INDEXES OABR i3 INDEX FOR EXTERNAL TRAP 380 
coeo 1028 ROCTODF EU Bt age RO RG COUNT FEELO FO S0DF JOOF 1098 INDEXES DABR i5 INDEX FOR EXTERNAL TRAP 4TH 
00406 1029 FMTHR EQY K&agdgeé FORMAT WRITE COMMAND OOLFE 1069 IWDEXIT DADR 32 INDEX FOR MASKING TRAPS 
0020 1030 WRENABLE EQU XF2oe WRITE ENABLED EiGO ® 
0010 1031 PADTOIOX EQU Xt ge PADOING GOOLE 1102 MIARBB DABR 24 MIAR BLOCK FOR GASE LEVEL 
0co0s 1032 PROCRO EQU x* 08 PROCESS RO COUNT FIELD oo18 1102 BLiARBU BADR 24 MIAR DISPL FOR BASE LEVEL 
0004 1033 PROCNT EQU Ki O4* FROCESS COUNT FIELD 9014 1102 MIARES DABR 26 MIAR BLOCK FOR EXTERNAL LEVEL 
0002 1034 PROCKEY EQU K*02* PROCESS KEY FIELD 0014 pte re DADR 29 MIAR DISPL FOR EXTERNAL LEVEL 
0001 1035 PROCDAT EQU x°oL1t PROGESS DATA FIELC 
1036 # OOLE 1106 BLOCKCH DABR 30 BLOCK ADDR FOR CHANNEL TRAP 
1037 * LOCAL REGISTER CeB2 OOLE LLO7 DISPCH DADR 30 DISPL ADDR FOR CHANNEL TRAP 
1038 © 6006 1108 BLOCKFC ODABR 6 BLOCK ADOR FOR FILE (DDCF) TRAP 
0080 1039 READ EQU x*goe READ COMMAND 0006 LiOS DISPFC DADR 6 DISPL ADDR FOR FILE CODCF) TRAP 
0040 1040 SRCH EQU X#4Q8 SEARCHING OCOOA L110 BLOCKFD OaABR 16 BLOCK ADDR FOR FILE (ODDF? TRAP 
0020 10641 BRITE EQU K*2ct WRITE COMMANDO 0004 LlLik OSPFO DAOR iG DISPL AOOR FOR FILE (DDDF) TRAP 
0008 1042 WHAOK EQU x°os¢ SD BYTES IN CONTROL STORE VALIO OOLA L112 BLOCKS DABR 26 BLOCK ADDR FOR BASE 
0000 1043 ENDHA EQU x*oo* END OF HA 0016 1113 tL.OCKE DABR 22 BLOCK ADOR FOR EXTERNAL TRAP 
aGoe SOseUEGBCEY icou ae ene nd ee < 0006 as piecace OZR 6 LOCAL ZONE FOR BASE 
0002 1045 ENDKEY €QU x*o2°¢ END GF KEY ‘. 
0003 1046 ENODAT EQU x*Q3° END aL eee ae ee press oe 2 He Loeriba EXTERNAL TRAP 
0004 1047 ENOCNT EQu x*o4é END iu 
0006 1048 ENOKEYL €EQU xX*o06* ENC GF FIRST SEGMENT KEY OOOE 11186 ZLSEXTB OZR 14 EXTERNAL ZONE FOR BASE 
0007 1049 ENDDATi EQU x*o7e END OF FIRST SEGMENT DATA ocoD LilS ZLSEXTE OZR i3 EXTERNAL ZONE FOR EXTERNAL TRAP 
1050 *¢ 0009 1120 ZLSEXTFC OZR 9 EXTERNAL ZONE FOR FILE ODCF TRAP 
& MSC OGOA 1121 ZLSEXTFD OZR 10 EXTERNAL ZONE FOR FILE ODOF TRAP 
jose 2 Deeper ener : OOOF 1122 ZLSEXTC OZR 15 EXTERNAL ZONE FOR CHANNEL TRAP 
ooso 1053 RDSNS EQU x*g0* READ DIAG SENSE CHD : 0017 1123 ZLSCH OZR 23 ZONE FOR CHANNEL TRAP 
0040 1054 MUTRK EQU X*40! MULTIPLE TRACK OP . 0011 1124 ZLSFC OZR 17 ZONE FOR FILE (DODCF) TRAP 
0020 1055 MUREC EQU x#20° MULTIPLE RECORD OP 0012 1125 Z&iLSFO OZR is ZONE FOR FILE (DDDF) TRAP 
0006s 1056 iLOxP2 EQY x*08* INDEX PASSED TRICE a 1226 & ; 
0004 1057 IOxPL EQU x*O4! INDEX PASSED ONCE oo a. 2 EQUATES FOR LOADING ZLS$ 
0002 1058 ERASE EQuU x*02° ERASE TO INDEX 
oo0cl 1059 TRKOFLE EQU x*olr TRACK OVERFLOK r.)6COGO4A Li2¢? ZLSRFILE EQU X*4GA® READ DATA FROM FILE 
1060 ~ OCCE 1130 ZLSWFILE EQU x°CEt WRITE DATA TO FILE 
1061 *# LOCAL REGISTER #S$C2 0058 113% ZESFCHAN EQU xX*56° FETCH DATA FROM CHANNEL 
1062 ® ¢ oovDd 1832 ZLSSCHAN EQU x*Ops STORE OATA TO CHANNEL 
00860 1063 SCANSW EQU x*eor BYTE TRANSFER COUNT MARK FOR SCAN OP , 1133 * . 
0040 1064 DOCRODD EQU X*40° BOCR ON OOP ADOR BOURDARY 00206 1134 IOXDOCF EQU X£&208 DOCF iHDEX 
0020 1065 DOORODD EQU x*208 DOOR ON DDD AOOR BOUNDARY | é 0946 1135 IOXDDDF EQU X*4oOr DOODF INDEX 
0008 1066 OLO EQU x*O8* DATA LENGTH EQUAL ZERO ; 4137 END COPY-MEMBER EQUATES 
0004 1067 SIZE12 EQU K*Q4e 12MB CATA HODULE 0000 1138 ORG x*)000° 
0002 1068 KDGT256 EQU X*go2t KL#DL GREATER THAN 256 / BYTEREAD OVERFLOX | @ ae “ cOoPy Frsl2 
& 
eee sore eter ee or OER ENGI eee er" LL41 SCEKESEKKKSKAESSEKSEKKAEKKSSSESEKE SSS SSE SSE SCELSESESSE KE SKSESKSESSE SSE ESE ES 
1071 # LOCAL REGISTER FLAG/SFFLG ! |@ ae : Bes hae ieee 
L072 
0080 1673 DEFCAT EQU X*8O0* SEFECT IR COUNT FIELD \ 1144 © THE FOLLOKING ROUTINES ARE ENTERED AS A RESULT OF: 
0040 16074 DEFKEY EQU X*40* DEFECT IN KEY FIELD o 1145 ¢ le SYSTEM eens CTRSYSRST) 
0020 1075 DEFDAT £0U x*25° DEFECT IN DATA FIELD Li46 * 2o IMPL €FRSTART? 
0004 1GT6 CKPDAT EQU KEO&E COMPRESSED OATA FMT iS/3 GNLYE ~-<CO>=- L147 #¢ Z 
00c2 LOT? SEFTRK EQU x*o25 DEFECTEVE TRACK rf L148 @ i2 ALL BITS GFF TS SYSTEM RESET 
Ooot LOTS ALTTRK EQU X*or? ALTERNATE TRACK : # ies : $2 ALL BITS QM ES IMPL 
1679 # 
1080 ® MESCELLANEGUS O 115i ¢ ROUTINE SHOULD BE ENTERED EN THE EXTERNAL TRAP LEVEL- 
DATE LSAUGTS O6ROVY IS PROG ID FAO-i f DATE LSAUGTS GC&NOVTS ores os nr tga 
EC NO. 827765 827848 PaGE &@ s €C NO. 827765 €27848 
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0013 
0014 
0015 
0016 
0017 
0018 
0019 


OO1A 
0018 
oO1IC 
0G1D 
cOLE 
OOiF 
0620 
0021 
0022 


0023 
0024 
0025 
0026 
0927 
0028 
0029 
002A 
0028 
002c 


062D 
CO2E 


OO2F 


0030 


DATE 


EC NO. 


3340 DISK KICROCODE ----- MOD 12 


€ 
= 


SOURCE STATEMENT 


PART NO. 
PAGE 


IMPL WILL FORCE THIS LEVEL THROUGH THE SVP INTERFACE. 


SSECEEARSKESSESSE SSE SE SSESSSEE KOSS SSSSEKESSESESSESKSKSKS SRST SESS ASS SEK SSE 


s 
TRSTART BU 


* 
* 
* 
T 


T 


e#aAa ee “A828 # 


* 


* 


RESET ZLSeALSe MODE SVP LINK 


RSLSRST SZ! 
$Z1 
$21 
$2zI 
$zi 
$Z1 
SZI 
$2! 
$Z1I 
$ZI 
Lol 
SMODE 
SMODE 
SMODE 
SMODE 
SLKI 
SaBl 
SABI 
SABI 
SaBl 
SABI 
SABI 
SABI 
SABI 


SABI 
SACI 
SABI 
vABI 
SABI 
SADI 
SABI 
SADI 
SABI 


TRSLSRST 
TRSTART2 


ZLSLOCH .X*08* 
ZLSLOCE oX*08* 
ZLSLOC7.X*08° 
ZLSEXTBsX*00! 
ZLSEXTEsX*00? 
ZLSEXTFC,X*008 
ZLSEXTFO,X* O08 
ZLSEXTC eX*00* 
ZLSFC»ZLSRFILE 
ZLSFO,ZLSRFILE 
L0.0 

0-30 

L006 

L0.10 

10,24 

4eX*00°* 

INDEXB »X*CO® 
INDEXCH,X*EO* 
INDEXF1,X*20° 
INDEXF2 oX*20° 
INDEXE1 »X * SF * 
INDEXE2¢X* BF ® 
INDEXE3 »X* SF * 
INUEXES »X "BF * 


MIARG BC TRSEXIT? 
MIARBO,O(TRSEXIT) 
BLOCK8, B(DOCFORG) 
BLOCKCH, B(ODCFORG+X‘8000° } 
BLOCKFC .B(DDCFORG+X* 8000° ) 


* 
¢ 
& 
& 
& 


s 

*BASE LOCAL ZONE 

*EXTERNAL LOCAL ZONE 

INIT LOCATION 7 TO AVCID Z2LS CHECKS 
*BASE EXTERNAL ZONE 

SEATERNAL EXTEPNAL ZONE 

*EXTERNAL ZONE FOR FILE DDCF TRAP 
*EXTERNAL ZONE FOR FILE DODF TRAP 
*EXTERNAL ZONE FOR CHAN TRAP 
*INIT ZLS FOR FILE TRAPS 

* TO READ FROM FILE 

*SFET DUMKY REGISTER 

*CHANNEL MODE 

*FILE 1 MODE 

*FILE 2 MODE 

*BASE MODE 

*RESET SVP LINK REGISTER 

*BASE INDEX 

SCHANNEL INDEX 

*FILE 1 INDEX 

FILE 2 INDEX 

*EXT 1 INDEX 


*EXT 2 88 
*EXT 3 8 
*EXT & 68 


* 

*LOAD SASE 

* MIAR 

sINIT BLOCK ADDR FOR BASE 

INIT BLOCK ADOR FOR CH TRAP 
INIT BLOCK ADOR FOR FC TRAP 


DISPFC,D(DDCFORGL) *INIT OISPL ADDR FOR FILE DDCF TRAP 
BLOCKFO,.B(DDDFGRG+X*'8000°) INIT BLOCK ADDR FOR FD TRAP 
DISPFD,D(ODDFORG) *INIT OISPL ADOR FOR FILE ODDF TRAP 
BLOCKE,8(00CFORG) *INIT BLOCK ADDR FOR EXTERNAL TRAP 


RESET LOCAL REGISTERS 


Lol 
$ZR 
LBI 
Lo! 
LBI 
LBI 
AOD! 
BNC 
$ZI 
EORU 


RSREG 


IMPL MARK 


RSTART2 LBI 
8 


INITIALIZE 
KSYSRST LBI 


FTO,0 
FTO,ZUStOCE 
10.0 

£10 

L220 

12,0 : 
FTO,X*i0° 
TRSREG 
ZLSLOCE,X*08°* 
ZER,ZER 


L2,X*FFS 
TRSRST3 


FOR SYSTEM RESET 
L2.0 


RESET EXTERNAL REGISTERS 


TRSRST3 ANDI 


OBJECT CODE STM 
1152 
1253 
1154 
1155 
200082 100082 1156 
200020 10002D 1157 
1158 
1159 
1160 
280408 138608 1161 
28C508 138506 1162 
08C 708 038708 1163 
28CEO0 138E00 1164 
28C000 138000 1165 
08C900 038900 1166 
OscAaood 038A00 1167 
o8CFOO O38FO0O0 1168 
28014A 13914A 1169 
28024A 13924A 1170 
240000 188000 1171 
299E80 169E80 1172 
298680 168680 1173 
298a80 168A80 1174 
299880 169880 1175 
08E400 O03A400 1176 
0881C0 0281CO 1177 
0883E0 O283EO 1178 
088520 028520 1179 
288720 128720 1189 
O88SB8F O289BF 1181 
2868BF 12868F 1182 
2860BF 12808F 1183 
08 8F BF O28FBF 1184 
1185 
289800 129800 1186 
288873 128873 1187 
089A05 029A05 1188 
O89E65 O29E85 1189 
088685 028685 1190 
08A600 O2A600 1191 
OBBABE O28AB6 1192 
O8AA00 O2aa00 1193 
029605 029605 1194 
1195 
1196 
1197 
1198 
042600 08a600 1199 
09C526 078526 1200 
240000 188000 1201 
040100 088100 1202 
0A0200 088200 1203 
240300 188300 1204 . 
OEE610 OBE610 1205 
228024 1A0024 1206 
28C508 138508 1207 
OF9900 OEDODO 1208 
1209 
1210 
1212 
Oa02FF O8B2FF 12l2 
200030 100030 1213 
1214 
1215 
1216 
0A0200 086200 1217 
1218 
1219 
1220 
OE23E0 O8E3EG 1222 
15aUG75 O6NOVTS 
827765 627848 





OST.X*EO* 


* 

s 

s 

* 

*INIT FTO REG FOR ZLS LOADING 
*SET ZLSLOCE FROM FTO 

s 

s 

s 

* : 

SSHIFT ZONE bIT 

*BRANCH iF NOT ALL REGS RESET 
SRESTORE ZULSLOCE 

FRETURN TO CALLING ROUTINE 

s 

s 

s 


*12 att ON IS IMPL 
* 


€ 

= 

s 

*L2 ALL OFF IS SYSTEM RESET 

s 

s 

% 

SRESET ATTACHMENT 6USY,DIFF CNTR=0 


PROG ID 
PAGE 


4247623 
9 


FAO-1 
9 


“ 


Q. 


e 


Cc 


os 


c 


Mat 


mn nN Oe 


C 
é 


FAO1 


Loc. 


0031 
0032 
c033 
0034 
0035 
0036 


0037 
0038 
0039 
OO3A 
0038 
003C 
C030 
OO3E 
O03F 
0060 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
004A 
0048 
004C 
0040 
O04E 
O04F 
0050 
0051 
0052 
9053 
0054 
0055 
0056 
0057 
00538 
0059 
OO5A 
0058 
GOosCc 
0050 
OO5E 
OO5F 
0069 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
6069 
QO06A 
0068 
006C 


0060 
OO6E 


DATE 
E 


C x0. 


3340 DISK MICROCODE 





mod 1i2 


SNURCE STATEMENT 


FTR.O0 
FHF o FF 
SCN,O 
Dxc 0 
S$B8O,X*OF® 
$81.0 


RESET DRIVES AND CONTROLLER 


OBJECT CODE ST@ 

1222 * 

1223 * 
2A2000 18A000 1224 tB8I 
OE2TFF OSE7TFF 1225 ANDI 
OA2FOO OBAFOO 1226 LBI 
2A3300 188300 1227 LBI 
OE3F OF O8FFOF 1228 2 ANOI 
0A3700 . 088700 1229 LB! 

1230 * 

1231 * 

1232 * 
0A2500 O8A500 1233 LBI 
0a2D80 O8AD8O 1234 tel 
2E207F l8ED7TF 1235 ANOI 
2A2E00 18AEOO 1236 .sI 
0a2506 08a506 1237 LBI 
2A2540 18A540 1238 LB 
0A2603 O8A603 1239 L8I 
201385 101365 1240 su 
OA260A OBAGOA 1241 LB! 
OA2E40 OBAESO 1242 Lel 
201385 1013865 1243 BU 
2A2E00 18AEOO 1244 Lei 
OA260C OBAGOC 1245 LB1 
201385 101385 1246 &U 
2A2600 18A60D 1247 LB! 
201385 101365 1248 BU 
OE256F O8ES5BF 1249 ANDI 
0a0001 088001 1250 TRSRST3X LBI 
2A0140 188140 1251 .6} 
0011F8 OOLIF8 1252 TRSNXTOR BU 
OA2684 O8AGB84 1253 L861 
201385 101385 1254 BU 
280822 1C8822 1255 MV 
2A2689 184689 1256 LB! 
201385 101385 1257 BU 
OB2E00 OCAEGO 1258 MV 
2A2601 18a601 1259 L6I 
201385 101385 1260 BU 
00139C 00139C 1261 BU 
OA07TES O887EB 1262 Let 
274857 104857 1263 T18QF 
OAO70DE OB8S7DE 1264 LBI 
200180 100180 1265 TRSNOATT w#U 
2A268F 18a68F 1266 LB! 
OA2E04 OBAEO4 1267 L181 
201385 101385 1268 BU 
2A2ZE0C 18AEOC 1269 LBI 
201385 101385 1270 BU 
060260 084260 1271 TSOFF 
OA2ZE02 OBAEO2 1272 LBI 
201385 101385 1273 BU 
OA2609 084609 1274 Lol 
OA2E80 O8AE8O 1275 L61 
201385 101385 1276 Bu 
OE25BF O8ES5hF 1277 ANDI 
OECOFF OSBCOFF 1278 ADDI 
2FO101 1cClo01 1279 ADD 
20404A 11004A 1280 NZ 
260260 18426D 1281 TBOFF 
2ECcool 1B8COO1 128? TRSLOOMS ADNI 
0F4110 00C110 1283 ADOC 
028068 OA0068 1284 BNC 
OE027F O8C27F 1285 ANOI 
200068 100048 1286 8 

1287 © 
OE 6080 O9EDBO 12868 TRSEXTRG ORI 
OA2008 O8ac0s 1289 Lol 

1290 # 

1291 # INITIALIZE 

15AUG75 O6NOV7S 
827765 827848 


FIG.O 
FTR,X*80* 
FIR sX*7F* 
FB0.0 

FIGs6 
FTG,SELHOLD 
FTO,.X*038 
TIEPNOCHK 
FTO, ROCNTL 
FBO.X*40' 
TIPNOCHK 
FB0,C 
FTOeX*OC* 
TIPNOCHK 
FTO,X*Od 
TIPNOCHK 
FTGeFF-SELHOLD 
LOeX*Ool® 
L1.x*40? 
TIPSLECT 
FTOsROSTATUS 
TIPNOCHK 
L8,FBI 

FTO. SNS INFC 
TIPNOCHK 
FBO0,L0 

FTO, SETUNSUP 
TI PNOCHK 
TIPUCWPT 
L7e-24 
ATTNelLBs TRSNOATT 
L7_9~34 
TRSNSLP 
FTO,CONTROL 
FEO,RSTATIN 
TIPNOCHK 
FBO.,CHKRST 
TIPNOCHK 
Osl2e¥43 
FBO,REZERO 
TIPNOCHK 
FTO, XMITCNTL 
FBO.X*8B0* 
TIPNOCHK 

FIG »FF-SELHOLO 
LO.FF 

Lieltt 
TRSNXTOR 
OekZeTRSEXTRG 
LOsl 

L1.ZER 
TRS1OOMS 
L2exX*7TFe 
TRSRST3X 


FTR»X*80* 
FTR,X*08* 


FOR IOLE LODP 








X, 


4241623 
9A 


PART NO- 
PAGE 


*END OF CHANNEL TRANSFER, ALLOW 
*CHANNEL TRANSFER BITS IN DST 
*RESET FTIR 

*PESET ALL FHF BITS 

*RESET SCN 

*RESET OXC 

*RESET ANY S80 BITS ON 

*RESET S81 

s 

s 

s 

*DROP TAG GATE,SELECT HOLD, ETC. 
SADAPTER CHECK RESET 

* 

*SET CONTROLLER O ADDRESS 
*RESET FBI 

*RAISE SELECT HOLO 

*SELECT CONTROLLER 

*TAG FLIPPER 

*READ AND RESET 

* CE ALERT TAG 

*TAG FLIPPER 

* 


*RESET CE HI OFSPLAY 
*TAG FLIPPER 

*RESET CE LO OISPLAY 
*TAG FLIPPER 

SDESELECT ORIVE 
#INITIALIZE TO ORIVE 2 
*INITIALIZE 8BSDA TO ORIVE 2 
*SELECT DRIVE 

*READ MOOULE STATUS TAG 
*Ti£G FLIPPER 

@SAVE FILE 6US IN 
*SENSE INTERFACE TAG 
*TaG FLIPPER 

s 


*RESET UNSUPPRESSABLE REGS TAG 
STAG FLIPPER 

*GENERATE UCW POINTER IN L6 
*INIT COUNTER TO RESET 24 SENSE BYTES 
*GO IF NO DATA MODULE ATTENTION 
*CHANGE CNTR TO RESET SENSE/USAGE CNT 
*GO TO O00 RESET 

*#RESET DATA MODULE 

* ATTENTION TAG 

*TAG FLIPPER 

*ORIVE CHECK RESET 

*TAG FLIPPER 

*GO IF NOY IMPL 

*XMIT REZERO TO DRIVE 

*TAG FLIPPER 

*CONTROLLER 

* RESET TAG 

STAG FLIPPER 

*DESELECT DRIVE 

*UPDATE ORIVE ADDRESS 

*SHIFT BSDA 10 NEXT LOWER ORI VE 
*GO FF MORE ORIVES TO GG 

*G60 IF NOT IMPL 

*160 &S TIMER 

* FOR REZERG TO 

* COMPLETE 

SRESEY ZMPL MARK 

*GO RESET Ait ORIVES AGAIN 

* 


* 
*DiSasbeLe ERROR 
* 
s 


TRAP 


PROG ID 
PAGE 


FAO~1 
oA 


FAOL 3340 DISK MICROCODE ----- MOD 12 PaRT NO. 4247623 Fadl 3340 DISK MICROCIDE ----- MOD i2 PART NO. 42417623 





PAGE 10 ¢ PAGE 10A 
< Psa ‘ 
Loc. OBJECT CODE Ste SOURCE STATEMENT LOC. OBJECT CODE ST# SOURCE STATEMENT 
1292 * s * 1362 S8SSSESEHESESKESESSSESESLKEESESTSESSARAE SS SLE SKSSESETES 
OO6F 258271 164271 1293 TBON 6ei25%+2 *GO IF NOT SYSTEM RESET \. 1363 © CLEANUP 
0070 200082 100082 1294 BU TFRSLSRST RESET ALS, DLS,MODE,LOCAL REGS 1364 SHSSSESESHSESSSESSESESRESESEKSKELSERSESLSHERKSEKSESSHESES 
OOT1i 2SBFCO 126FCO 1295 SADE INDEXIT,X*Co?* SUNKASK TRAPS ft 1365 *# 
0072 200104 400104 1296 8 TRSTRAPA @FORCE TRAP A&A ADDRESS ‘ OLLE OCLLES OOLLF& 1366 TCUSTART BU TIPBSGEN GENERATE BSDA (L3=0-3, L2=4-7) 
1297 © O1206 2786823 LE4B23 1367 TIBCF UNE TCHK »STAT, $¢3 GO IF NO UNIT CHECK STATUS 
GOOFS O8GFBE OQZ2BFBF 1298 TRSEXIT SADI IENDEXIT.X*BF* RESTORE TRAP A POINTER fo: 0121 280103 1c8103 1368 _ MY Liels copy BSDA TO Li 
C074 699490 969490 1299 SMODE ZER.20 *SET FODE BUFFER FOR EXTERKAL TRAP i OL22 200104 1001C& 1369 Bu TCUSETUC SET UNIT CHECK STATUS IN $BO 
00765 O8E100 03A106 1300 SEKI 140 @RESET PREVENT 1/0 FLIP LATCH IN Sve 0123 CTCB26 OF4826 1370 TIBOF SKCMPL > STAT, #43 GO IF NG SEEK COMPLETE STATUS 
OOTG Z2A081F LS86LF i301 Lei L&,0¢ SKMARKE} CS OFSPL POINTS ¥O SK MARKS c C124 2001C8 1001CS& 23721 BU TCURSTSSB RESET SEEK BUSY 
GOT? 044890 014890 1302 SINC ZEReLGsi ZERO SK MARK 1 8 0125 082302 OCA302 1372 MY OST.L2 POST SEEK COMPLETE 
8078 044890 014890 1303 SINC ZEReL Bel ZERO SK MATK 2 : 0126 083708 ocs70e 1373 KY $81 ¢STAT POST OTHER STATUS IN SBI 
0079 0408C7 0048C7 13204 LINC LT LSeO GET SVP OPTION BYTE t. 0127 O&2380 O8E380 1374 ANOI OST, iQPBUSY RESET ATTACHMENT BUSY 
OOTA OEOT8O osc7ecG 1305 ANDI (7, ALGH12 ZERG SVP OPTIOK3 EXCEPT ALLOW 126B 0128 2A082060 188820 1375 LBEI 18,0¢€SKMARK2) GET SEEK MARKS 
OOTB 240887 104887 1306 SINC L7-L8s0 RESTORE BYTE ; 0129 240896 104890 1376 SINC ZEReLBeO ZERG MARKS 
OC7TC OAOCB3A O8683A 1307 LBE L&,DCEF SENSEL} CS DESPL POINTS Ta EF SERSE i - L377 SSeseeeeseses Sees 
OO7TD 240890 104690 1308 SINC ZER,L 8-0 ZERG DM ATTN PENDING MARKS i 1376 @ SPECIAL MOTE: THE CONTENTS GF CeS- ADDRESS O12A WILE ALWAYS BE THE 
OOTE 2A27TFF LSATFF 1369 tBI FE « FF RESET FHE, PARTICULARLY 81T 7? i i379 3 FIRST BYTES WRITTEN ON DISK ON CYL O HD 2, Ri (OR 
OOTF 001202 001202 i310 8 TEPEOLE *G6O TO ISLE Looe = 13380 * ALTERNATE ASSN). THESE BYTES ARE LOANED FIRST IN 
i311 MoLOK % i ; L388] SkesSees SER SSSERS CoSo FROM DISK ON IPL. 
61060 1312¢ OS <0>8 012A OE6008 O9EDOS 1582 ORE FIReERRTRAP DISABLE ERROR TRAP 
1313 ¢ & : 0128 088520 028520 1383 SABI INDEXF1L, IOXONCE SET FILE INDEX TO POINY ¥C OOCF 
1314 * SENSE BYTE ZERO SUBROUTINE e : 012C 2886720 128720 1384 SABI INDEXF2, LOXDOCF ot ee ee 8 se se ee 
1315 # ¢ OL20 O8A600 O2a60CG 1385 SADIL OISPEFC.O(O0DCFORGL} FILE DDCF TRAP DISP TO DOCF ORIGIN 
0100 244690 114690 1316 TRSNSLP SINC ZERsLbéci ZERO 2 BYTE Oi2E— 280144 13Gi4A 1386 SZ! ZLSFC,ZLSRFILE REAM FROM FILE TO DDCF BUFFER 
0101 OECTOL OBC702 2317 ADDIE L7sk SINCREMENT COUNTERS O12F O8AADG O2aA00 1387 SADE DISPFDO,O(DDDFORG! FILE DODF TRAP DISP TO DODF ORIGIN 
0102 628100 Oavi00 1318 BNC TRSNSLP #60 YO NOY OGKE GL3C 28024A 13924& 1386 $Z1 ZLSFO.ZLSRE ILE READ FROM FILE TO ODDF BUFFER 
0103 OFSODO OEDODO 1319 EORU ZEReZER SRETURN TO CALLING ROUTINE OL3i OF25TF OS8ESTF 1389 ANDI FTGseX*7F* OROP FILE TAG GATE 
13zU ¢ 2 i 6132 042500 O08as00 1390 Ler FTG,.X%*00* RESET FILE TAGS AND SELECT HOLD 
132] 8886686966609 46 FE FESESEEECESS SESEKSOSESSSSESSRSSEKESHSE LSS SHKELESSE : Gi23 GAZ2300 O8A300 1391 LBE OST.0 RESET OST, SAVE SEEK COMPLETES 
1322 © ERROR TRAP (AF ROUTINE 0134 O€2928 O8ED28 1392 ANDI FTReERRTRAP+DMATTN RESET FIR EXCEPT DK ATIN INTRPT 
1323 # TRAP A CONDITIONS ARE: : 0135 2E270S 18E7T09 1393 ANDI FHF. FF-SCNSAT-SCNEQ-ERRMODE RESET FHF 
324 ¢ le SYSTEM RESET (FHE BIT 0) . 0136 243300 188300 1394 Ler OXC -X*ON* RESET OXC 
1325 ¢ Ze TEMEQUT (ADS 62) : 6137 OazFOO OB8AFOO 1395 Lol SCN eX* Ou? RESET SCN 
1326 ¢ 3. FRONT END CHECKS (CHES G1le2e4_e7¢ ADS B3-73 : 0138 Za09g00 i8g900 1396 LSi GEN1.X*00* RESET MARKS 
1327 # 4. ERROR ALERT (FTI 87) ; 0139 2A1100 189100 1397 LBI CEB1»xX*00* RESET MARKS SS 
1328 # : C13A 2€1208 180208 1396 ANDI CEbB2eWHAOK RESET MARKS, SAVE WRITE HA OK BIT 
1329 €89€S96666609 8 ERE ESESECESESESESESNSEESKESSEEESEESOSTSKESRERSSR EE | 0138 GAL300 089300 L399 LBI MSC 1i.X*00# RESET MARKS 
1330 * = 013C 2A1400 189400 1400 LBI MSC2eX*00* RESET MARKS 
01046 OE2FF1 OSEFFL 1331 TRSTRAPA ANOI SCNeFF-ALWEXFR-FILEDCD-TOFILE RESET FILE XFER HARDWARE i 0130 OAOdBOO 988600 i401 tel STAT »X*00* ZERO STAT REG 
0105 0A2300 08A300 1332 tBI OST.6 *RESET CHANNEL TRANSFER HARDWARE a OLZE 2AO01E 18B801E 1402 LBE LO, D¢CUCWPTR) FETCH DISPLACEMENT GF UCW POINTER 
0106 062768 086708 1333 TSEOFF O,FHF #42 *GO JF NOY SYSTEM RESET O13F 0400C6 0040C6 1403 LINC 46¢10,0 FETCH CURRENT DEVICE POINTER 
0107 06502F QO002ZF 1334 TRSFORCE B TRSYSRST * 014C OEC61E OBC61E 1404 ADOIL 6,24 DISPLACEMENT TO CURRENT PHYS ADOR 
9108 OAE104 OBA104 1335 LLKR L&E SAMPLE S¥P REQUEST LATCH : 0141 24468E L11468E 1405 SINC PACoL6e1 STGRE CURRENT 
0109 058407 064407 1336 TIBON SV&REQ,L4S, TRSFORCE GO SYS RST IF ON 0142 24068F LO468F 1406 SINC PAHeL6s0 PHYSICAL ADDRESS FOR DEVICE 
O1OA 280435 108435 1337 KV L4,FTI SSAVE FTISHES Lo 0143 001202 001202 1407 38 TIPIDLE GO TO IOLE POINT 
0108 OB0026 ocse02B 1338 KY LGeHES @ AOS FOR SENSE | ‘i 1408 ©& 
O10C CBO1L29 0C8129 1339 AY L1,ADS © ASSEMBLY RGUTINE 1409 €8EEREESESEESESESERERSKSESEE SEE SRE SHES SSSES SS FEES 
01090 2a0820 168820 61340 L6I LBeX*20° @€SET FORMAT 2¢ MESSAGE 0 Se 1410 * SUBROUTINE TO SET UNIT CHECK ACCORDING TO Ll 
OLOE GEDOOL OBDCO1 1341 ADDI ZERsil WAILT--IN CASE TRAP i € LOL] 9855485568496 FFE SESSESEESEEESEESEEEESEESTSOEETE 
CLOF Z22B10E TAOLIOE £342 BNC s-) OCCURS DURING SET R/K ! 1412 * 
0110 2ZE2578 18E578 1343 ANOI FIGsFFE-TAGATE-FGTOFI DROP TAG GATE, DIAG GATE IF UP a 0144 2B043F 1C843F 1413 TCUSETUC MV L4- S80 COPY Se0 
OLIL 200994 10099A 1344 BU TEFRESP ORGP WE GR CE IN CASE THEY *RE UP : 0145 2E04rQ 18C4FO 1414 ANDI L4&,X* FOF ; MASK OFF SEEK BUSY BITS 
Cll2 27C414 LF4414 1345 IBOFFE 7414,%42 GQ EF NOT ERROR ALERT i O146 2F 444} 1O0C44i 1415 OR Lael O28 IN UNIT CHECK 
O113 Zacgic 188810 1346 L681 LBeX416° *#SET FORMAT 1- MESSAGE O _¢ ©1477 OB3F84 OCBF8& 1416 VU SBO06L4 SET UNIT CHECK IN SBO AND RETURN 
0114 OAOTO3 O887G3 1347 LB! L7exX°O3e *POST EQUIPMENT CHECK : u 1417 * 
O115 OA1000 089000 £348 LB ZER-O *RESTORE ZER i 1418 SESSSSESESHSERERSHESTRLESCKESESSEKESAREAKSESSE SLES STEKO SS 
0116 099896 069890 1349 SMODE ZERc24 SIHIT MODE BUFFER FOR BASE | & 1419 @ SUBROUTINE TO RESET SEEK BUSY ACCORDING TO L2 
O11? o89eodl 029801 1350 SAGE MIARBB,BECTRSERREG) CINIT MEAR | a 1420 SOSS4E45R5ESESESERESESESL ESSE SHESEESEESER SESS SISES 
O118 O8B81D G2B8iD %352% SADI WMIARBO,CETRSERREG! * FOR RASE 1421 ¢ . 
GilS OE6D08 OSED0B 1352 ORI FFR,X*085 *DISABLE TRAP A by 0248 080402 OCB8402 1422 TCURSTSB KY L4eL2 cory BSCA 
OLLA 28BFCO 1ZerCG £1353 SADI INDEXIT,x*Co® *CHANGE INOFX TO GO FROM i « 0149 OFE44F0 OSC4FO 1423 ORI LaeX*FO® DON'T RESET UNIT CHECKS 
O1LB 260104 100164 1256 8 TRSTRACA & EXTERNAL TRAP ¥O BASE i OL44& OF 3FC4% OCFFC4 1424 ANDY S80,L4 RESET SEEK BUSY AND RETURN 
OLLC 02011C O80211C 1355 NOP # * - 1425 * 
1366 # ¢ | €: 1426 *€€¢G6ESEESEEREEEEESESECKSEEDESE EEESEECECEE LSE SSS SEES ESESESE SES ES SS SETS HS 
O1LD CSEFBF O2BFRF L357 TRSERREG SADE INDERKIT,X*BF* @RESTGRE INDEX 1427 # ROUTIKE TO CONVERT CCHH TO 12 48 FORKAT 
OLiE 001909 ooi9e9 £3556 3 TSNNORM+} #6G TO SENSE ASSEMOLY ROUTINE i 1428 ¢ REGISTERS AT THIS TIME: 
1359 & 1 OW: 1429 ¢ to -- POINTS TO CLO IN CS 
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FAOL 3340 DISK MICROCODE MOD 12 PART NO. 4247623 FaOl 3340 DISK MICR"SODE ----- MOD 12 PART NO. aaa 
PaGE 11! ie PaGE 
{ to 
toc. OBJECT CODE STM SOURCE STATEMENT C Loc. GBIJECT CODE STM SOURCE STATEMENT 
1432 & te -- POINTS TO TSKPA(PAH) IN CS € 0178 OOCO9IA COO91A 1502 TDS#R2 8 TEFRESP OROP RESPONSE GATE AND RETURN 
1433 *¢ CHI -- LOG CYL HIGH FOR 70MB FMT (MUST EQ TO ZERO) Ne 1503 * 
1434 # CLO -- LOG CYL LOW FOR 7OMG FMT (MUST BE LESS THAN 128) ; 1504 # 
1435 # HEAD -~ LOG HEAD FOR 7O0MB FMY (MUST BE LESS THAN 113 og eet hats aise seoc eee . Hauieen’ agen eees 
1436 x % oO Cc l + See 323ss 
1437 €9449S8065280909FSERFERECEEECEESSESESERESSESE SECSSESSEEELESSELE SS ESS S SESS TES 0170 000170 COO0L7D i507¢ 8 3 UNUSED eesssssesss 
1438 ¢ O1L7E OOOLTE OOOLI7TE 1508+ ‘ 8 * UNUSED Paes 5883 083 
0148 080317 OC8317 1439 TCUCNVIL2 MV L3,-CiG ee ee ea TRIPLING 2 occ 20017F 10017F ee a oes UNUSED sssss3ess33 
M ; 
bse Secasb aseaso vat TEOn Beep aes GO IF at si C: LOL] SS8SEKESESSEEEEESKESSEREESESEEESESCESEKESECESS SBOKKS 
O1lSE 271851 iC$851 1442 TBOFF 4,HEAD, #43 roe oe = 0 ae err : THIS ou GREELEY CCip ANGENCTS ROUTIRE USED 
4F 3 18C30 443 ADDI 361 NCR 3 & ; 
oiee SEesot Gecaat vaca ADOI L391 Nee Us BY a ie peta fo ae i a aaa aa 
FLT 70 144 ADD CLO,k3 3 c vw = : ; 
Diss Shea 140186 ae BNC +42 GO If NO OVERFLOW 0200 2A0201 186201 1516 TOSOCON LBel L2si L2 AND L3 USED FOR OISP CONSTANT 
0153 OEF5840 090840 1447 GORI HEAC oX* 40% CR IN CYL 256 BIT TG PAH GZOl 280414 1C841i4 1517 MV L4eMSC2 MOVE DATA LENGTH 256 TO L4& 
o1ss o7cs9e + OFaoB 1449 SDEC HEAD:LB +] STORE PAH IN TSKPA 5203 oB0S1B 0c8si6 1519 MV LSeDCNT MOVE DATA LENGTH LOW TO. LS 
01585 o07C898 OF4898 1449 SBDEC HEAD sL8e1 STORE PAH ‘ GB 3 ® 
Q156 244897 114897 1450 SINC CLO.Le-1 STORE PAC IN TSKPA 0204 071465 0C5406 1520 TIBOF OLO.MST2,¢4+2 GO IF DATA LENGTH NOT EQUAL ZERO 
O1S7 244007 1140D7 1451 LINC CLOeLOe? RESTORE CLU WITH LOG CYL VALUE 6205 OAG5Oi osssohn 1522 L61 L501 SEY DATA LENGTH TO l 
01586 O7CODs OF40D8 1452 {DEC HEADsL Osi RESTORE HEAD WITH LOG HEAD VALUE 0206 24DA0A 135A0A 1522 7T6CN 3eKCNT,TOSOCL Stsaeses 
0159 OF900D0 OEDCDO 1453 EQRU ZER,ZER RETURN TO CALLING ROUTINE O207 240304 18830% i523 | ioe. 
1456 & 0208 90A0200 08820G 1524 ° 
1455 54696 625SE 2559S 8ESSTHSESEESERESESSES ESSE -<GHD>- o2c9 200200 1c0200 1525 6 TOSDC2 FOR Ki=0, DI SP1l=212+4DL 
1456 © COME HERE TG CHECK FOR A WRITE CRO -<GHD>- O20A OAOZIF oe oe TOSOC1 A606 ete 
1457 © IF WRITE IS NOT ENABLED -<GHD>—- C2GB OFO31A occ 31 2 ’ 
1458 SFSEEREESEKESESESESESSTEESESESSRSSTSECSEOBS ~-<SHD>—- o20C OF4210 O0C210 1528 ADDC L2,ZER FOR Kis=0, GISPL=2874KL<¢DL 
1459 *& -<€GHD>- 0200 2F0305 icC305 2529 FDS0C2 ADD £3215 
O1SA 254C67 154C67 1460 TCUCKHWRT TBCON 5,QBYT,TCUCKSIZ CHECK FOR -<GHD>- O20E GF4204 ODC204 1530 ADOC L2,sL4 eeeeee ; 
O1SB 078C67 OESC67 1461 TBOFF 66CBYT,ICUCKSIZ WRITE COMBAND -~<€GHD>- 620F OCEB2FF OaC2FF 1531 EORET L2gX*FF? FORM THE 1°S COMPLEMENT 
015C oOSCCé? O74C67T 1462 TBON 7,Q8YT,ICUCKSI2 pnee Eanuae o ake ' Pee O2i0 2E83FF WAC3SFF 1522 SaeN Ste Hece ue Ge “4 a 
0150 GAOBO0 088800 1463 t6i LP. X*60oF Gs RMAT Of = O21i O6C416 034416 1533 elo 3 ® 
O1SE OaoTsl O8878i 1464 LBi L7oxX*81° POST INTERV REO'D = WRT INHIBITED O222 OCCSEC O3CSEC 1534 TDSDCC TADDI £L5.236 TEST FIELD LENGTH 
CiSe 286103 1€81603 1465 TCUDKBERR MY LisL3 MOVE B8SDA TO £1 FOR SUBROUTINE 9213 G08216 20216 1535 BCY TESOC3 GO IF GREATER THAN 19 
0160 2001C4 L001C4 1466 BU TCUSETUC TUBH ON UNIT CHECK FOR - TIQ-<GHN>- 0214 240588 186588 i536 LB £52139 DISP2/3=139 FOR SHORT FIELD 
O161 QE&6D46 O9ED40 1467 OR? FIR, ICATTR TURN GON I0 ATTENTION LIGHT -<GHD>- 0215 co02e18s 000218 1537 8 TOSDC4 
O162 OAZ6B4 OBa684 1468 LBI FTO,ROSTATUS CHANGE TAG TO READ MODULE STATUS O216 OECS5TE Oscs57E i538 TDSOC3 Aa ere aia ari la 
0163 201365 101385 1469 BU TIPNOC HK TO TAG FLIPPER ~<GHD>- 0217 OF4410 ODC410 1839 A L4, 
016% 252263 146263 1470 TIBON ONLINE, FBI, t~% LOOP UNTIL ORIVE GOES OFF LINE O218 OCES4FF OAC4SFF 15%0 TOSCT4 EGRI L4&sX*FFé FORM THE 1°S COMPLEMENT 
0165 2E20BF 18EDoF 1471 ANDI FITR,FF-IOATYN TURN OFF IC ATTENTIGN LIGHT <-<GHD>- 0219 2E85FF LACSFF 1541 EORI L5eX*FFE OF DISP2/3 
0166 201908 101908 1472 8 TSNNGRM GO TO ERROR ROUTINE AND NOP COMMAND OZ1A 255F21 155F2! Sere i eee Se oe tune ase cau cnear ne 
1473 8 -~<GHD>- 0218 280604 10-8604 & Vv of 
G16 ZOOF6A 1O0F6A 147% FCUCKSIZ 6 TEOCKSI2Z GO TO CHECK FOR CORRECT SIZE ~<GHD>-— O2iC 280765 1c87C0S 1544 My LTL5 OISP3 TG Lé65L7 
1475 END COPY-MEMBER TCU. 0210 CAG4E0 088400 1545 L8i 14,0 
1476 CoPyY TOS C21E 2B051A ICB851A 1546 MV L5,KCNT COPY KCNYT TO FORM DISP2 
LOTT SPSSVSSS HEEL EEEEEESEESESERESESSEACSSEL SSE OSERHSSESESRSE OZ1F 2ESFC4 19DFD4 1547 ORI FFLGsKk°0G! TURN ON INDICATOR FOR EXIT 
1478 #® THIS SUBROUTINE READ OR WRITE THE G& GAP G220 24DAl2 135Ai2 1548 TBGN 3,KCNT, TOSDCC GO If KC WY NOT ZERO 
1479 * 4128 S8YTES) FOR A MOVED FIELD O221 OELFFS OSDFFE 1549 YOSDISP ANDI EFFLGoxX* FB! TURN GFF INDITATOR 
1480 SESHSESSSESERHSD SESE SEEEEKSES ESS SRES SS SSES SESH S SHSSS 0222 289485 129485 1550 SABI BLGCKBsB(DSOISPL¢exX*8000") SET BLOCK ADOR Ih ALS 
1481 @ O223 OACOSB osscoos 1551 LBs L0,DEDSDISPi? SET DISPLACEMENT ADORESS 
C168 2A260E 1BA60E 1462 TOSRDGS L181 FTO, READOP SET READ OP 022% 058082 064082 1552 SINC 1291076 STORE DISPI/2/3 IW CS 
0169 2A2E30 18AE30 1463 Ls FBO.RDGe SET READ G4 MODIFIES 0225 OaG40D 088400 1553 Lei L4,X*DD* INITIALIZE TRACK CAPACITY COUNTE? 
OQ16A 20016D 100160 1484 8 TOSMRG “0226 2A05FS 18685F9 1554 Let L55X*F9t TO 2*S COMPLEMENT OF DECI (67113 
1485 * 0227 OFBZ2FF OAC2FF 1555 EGRI t2eX*FF® USE DISPL TO GENERATE RECORD LENG? 
0168 OAZSOF OBSAGOF 1486 TOSWRGs LBI FTOeWRITEQP SEY WRITE OF ~ 0228 2E83FF LAC3FF 1556 EGRI i3,X*FF® > 
Q16C GAZEBO D8aEbO 1487 Lol FED «WRG SET WRITE C4 MODIFIER ‘ 0229 2A07T03 188703 1557 LBI LI _,~-45 ae 
O16D 2E6580 iSE580 1488 TDSMRG ORI FTG» TAGATE RAISE TAG GATE O22A 2A06FF 1Se6FF 1558 LBi LAoXS FFE >>>> RECORO LENGTH = DISP1 = 45 
OL6E OELFIF OB8DFIF 1489 ANDI FELGsKt1F® RESET DEFECT MARKS IN FLAG e 0226 OFOTO3 OCC7TO3 1559 aod L7el3 >? 
O16F 2B1EiG 1CSE10 1490 HY $02 ,ZER ZERO $D we O22O 2F4602 1DC662 1566 ADDC iLsel2 >> 
0170 Oadacs 088805 i491 ial L866 INITIALIZE TIMER G22d 04608% 004686 1561 SINC L4,lO0r0 STORE TRK CAP CNTR AND REC LENGTH 
O171 047575 017575 1492 TOSLOPL TI8ON TAGVALIO,FTI,TOSWR1 GO if TAG VALID € O22E 089a05 029a05 1552 ee ace ee aren cee 
Ol7e 2ECBEFF 1BTSFFE 1493 ADDI U8,.X*FF* DECRMENT TIMER BY 1 ut QO2Z2F OFS0DO CEDOCDG 1563 ORY Rez 
O173 204171 LiGl7k 1494 BNZ TOSLOP? GG WEIT IF TISER NOT ZERG 1566@ COCHSSEEREEESSEREEEDESEASESESAG SS ORKESS SSOBVERHSRSS 
0174 006706 O00TG& 1495 8 TEFLSOL GO POST NG RESPONSE ERROR @ 1565 *® THIS SUBRGUTINE UPDATES THE TRACK CAPACITY 
O175 OEZS7F OBESTF 1496 TOSHWRI ANDI F7G,FF-TAGATE DRUP TAG GATE 1566 * CGUNTER ITF COMMAND IS FORMAT WRITE 
O176 OAOBFF O8B8EFF 1497 LBi LO ,X* FFE {O40 TIMER LG6HhT ESEMASESTCERE TEST ERARELSFESSRSE KL SCRISSSRSRS LSKSSS 
O177 253576 147578 1498 TOSLOP2 YVISON MORMEND.FTI.7OSWRe GO IF NORMAL END RETURNED er £568 & ‘ ‘ s . pices gee 
0178 2EC8FF 1BCB8FF 1499 ADDL LB,xX*FFS DECR TIMER 0230 265152 195152 1569 TOSUPTRK TIBOF FATWR,CEBL,TOSEXIT GO IF NOY T WRITE 
0179 204177 410377 15006 erMezZ TOSLOP2 SO WAIT IF TIMER NOT ZERO 0231 055550 C5555D i570 TIBON CMPDAT, FLAG. TOSOOSD GO IF wRCCO CMD ~€E02= 
O17A 200724 10072A 1501 8 TEFNORE? GG POST NO RESPONSE ERROR C. O222 275F34 105F34 i571 TIBGF CMPDAT;FFLG, FZ GO IF TRK FMT IS COMPATIBLE 
DATE 15AUGTS O6NOV75 PROG ID Fat-i . CATE 15AUG75 O6NOV7S PROG 10 FAO-1 
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FaOl 3340 DISK MICROCODE MOD 12 PART NO. 424762 FAOL 3340 DISK MICRCTODE —---- MOD 12 PART NO. aeeT eee 
PAGE 12 | é PaGE 
LOC. OBJECT CODE STM SOURCE STATEMENT ¢ LOC. OBJECT CODE STM SQURCE STATEMENT 
0233 040962 035962 1572 TBON 3,REC, TOSEINVTK GO IF ORG REC NOT 1 o 1642 * . 
0234 0442C6 0142C6 1573 LINC L6eL2e1 FETCH TRACK | ~ 0275 2018186 101818 i643 TOSINVCE b& TSKINVSK GO POST INVALIO CTRL FIELD -<GHD> 
0235 O7C2C7 OF42C7 1574 LOEC L7,t2e) CAPACITY COUNTER | 1644 MBLOK SPN Son 
0236 056653 076653 1575 TBON 7,FTO,TOSRECLN GO IF WRITING - 0276 200276 100276 1645¢ B ® UNUSED ees ae ets 
0237 2440C3 1140C3 1576 TDSFORRO LINC L3,eLOel FETCH KEY LENGTH | ~ 9277 000277 000277 1646+ 8 * UNUSED petits 
0238 26C1C4 1B41C4 1577 LOEC L4,Ll,5 FETCH OL HIGH | 0278 000278 000278 1647¢ 8 e UNUSED ete ett 
0239 0680C5 0a40C5 1578 LDEC L5eh 006 FETCH OL LOW « 0279 200279 100279 1648+ . 8 + UNUSED Rees Seseees 
023A 204445 15C445 1579 TOR L&ol5 TEST OATA LNGTH FOR ZERO -  Q27A 20027A 10027A 1649¢ 8 * UNUSED Bee eter ee 
023B 004230 610230 1580 BNZ 42 GO IF DL NOT ZERO 0278 000278 000278 1650¢ 8 * UNUSED eo ea 
073C 0A0501 088501 1581 LBI L5e1 SET DL TO 1 -  027C 20027C 10027C 1651+ 8 * UNUSED eet seees ete 
0230 04C341 034341 1582 TBON 3413, TOSUPL GO IF KL NOT ZERCG | 0270 600270 009z27D 1652¢ & * UNUSED eRe Reese se 
O23E 2ECS5AT LBCSA7 1583 ADDI £5,167 AOD G3,ECS+G22ECC | O27E OO0OZ7E OCOO2Z7TE 1653+ 8 e UNUSED lie tated 
O23F OF4410 ODC41i0 1584 ADOC £4,ZER TO DATA CENGTH  O27F 20027F 10027 ate ae Oaks UNUSED ssssessssce 
0240 200245 100245 1585 e TOSUP2 GO UPCATE TRK SAP CNTR ~. 9300 1655+ 
0241 2ECSF2 18C5F2 1586 TDSUPL ADDI LS. 242 ADD G3, ECC, G2» ECC »G2, ECC | eee ee aie SUBROUTINE DETERIINES WHETHER THE CEFSCT AFFECTS THE. 
4 4 7 TO DAT NGTH ~ 
Hepes bEGsOR ieceon ise apo. tes. ADD THE xe pre es 1658 * KEY FIELD, DATA FIELD OR THE NEXT COUNT FIELD 
O244 OF4410 O00C 416 1589 ADDC L4eZER LENGTH ALSO | 1659 SESSSESERKSEKCSSSSSSLEKSSSESCKKLE SKS SEKESSSSKSSERVEIRSEKSLSESSSCESLSE KS 
4 PDATE TRACK - 1669 * 
ooae oEacaa teeta iol re ADE rots ise CApACiay COUNTER . 0300 048090 024090 1661 TOSSTART SINC SDHsL0e2 STORE SKIP DISPL FOR 
0247 2C1LFEO 1O0FEO 1592 TANDI FFLG»X*EG* TEST ANY DEFECT | 0301 25019E 14419E 1662 SINC SOlLetls4 CURRENT COUNT FIELD 
0248 00424F G1024F 1593 BNZ TOSCKSRH GO If THERE IS 0362 O4CO9F 03409F 1663 SINC FFLGeLOe3 STORE CURRENT FLAG BYTE 
6249 ODSESD OS5DE5D 1594 TOR SOteSOH TEST SD=0 -<CD>- | 0303 044199 014199 1664 SINC REC eList STORE CURRENT RECORD NUMBER 
O24A 224245 19024F 1595 BZ TOSCKSRH GO If YES | 0304 24409 114094 1665 SINC KCNT O01 STORE CURRENT KEY COUNT 
0248 2EeSFF LAC5SFF 1596 EORI L5sX*FF® FORM THE 1°S COMPLEMENT 0305 268098 oe ee sbeC Pee aero OL LOW 
024C OEB84FF OAC4FF 1597 EORI Le,X* FF? OF RECORD LENGTH 0306 280814 B8B1é 16 ® 
024D 2FDEOS 1FDEO5 1598 ADDI SDL ALS SUBTRACT SKIP OISPLACEMENT 0307 CE0801 O8C8Ol 1668 ant betcceee ee aere berelgs BITS 
C24E 2F5004 190004 1599 ADOC SODH,L4 by RECORD LENGTH 0308 O06C188 084188 1669 : ells 
O24F 065253 095253 1000 TOSCKSRH TIBOF SRCHeCERZeTOSRECLN GO IF NOT SEARCHING 0309 ODSDSE OSODSE te os eee ae eeear SO VaLUES 
& RESTORE TRACK CAPACITY CNTR 3 243 9033 LO7i 8 ; 
aoe Sees ieee ets ical OEE eee a See Seed ee ‘ e508 Setesc bosra6 1672 FTIBOM CHPDAT.FFLGeTOS4DATA GO IF COMPRESSED DATA FHT ~<C0>- 
0252 OF90D0 OEDODO 1603 TOSEXIT EORU ZEReZER RETURN TO CALLING ROUTINE 030C 2A020¢ i88208 1673 LBI L2,Di{OSDISPL? SET CS POINTER TO OFSPL 
1604 © ; | C30D 0442C6& 0142CéE 1674 LINC L6el2e1 FETCH DISPL 
6253 OEC202 OBC202 1605 FOSRECLN ADDI £222 UPDATE CS POINTER O30E 244207 eee dd cane bree po uteet eres 
ao aiaces peste ay TOEe iss eer TT EMETIA LAOH: CS Baie Oeeeie ODC61D 1677 ADDC L6,SDH WITH SKIP DISPLACEMENT eae 
0256 OFOT705 OCC7GS 1608 ADD L7eL5 INCREMENT TRACK ote eceout peda cre ~ ada eee RECORD 
0257 2F4604 10C604 1609 ADDC L6eL4 CAPACITY COUNTER 03 A ° 
0258 028250 0A0250 1610 BNC TOSSTRIC GO IF NO OVERFLOW 0313 2ALEZ2E 189E2E 1680 Lar SDL 46 SKIP Bee Ate 
0259 2€5301 190301 1611 ORI MSCleTRKOFL TURN ON EVEN TRK OVERFLOW HARK 03:4 OF1EO7 OCDEC7? 1681 ADO SOL oL7 0 
025A 2Aa060D 18860D 12612 TOSRSTCT LBI L6,_X*DD® INITIALIZE TRACK 0315 OF5D06 oODpDD06 1682 ADDC SDHsi6 FIELD 
0258 OAOTF9 O887F9 1613 Lai LT eXtF9& CAPACITY COUNTER (8711) 0316 20033C 10033¢ a Oe cig Peo a eee Ueno errs 
25C€ 230250 060250 1614 TOSSTRIC GO STORE TRK CAP COUNTER 684 * 
: 1615 r O317 2E9F40 LADF4O 1685 TOSWFLD EGRI FFLG,DEFKEY SET FLAG TO MOVE KEY FIELD 
1616 0316 24D0A18 135418 1686 TBON 3eKCNT,€¢3 GO IF KCNT NOT ZERO 
0250 256668 176668 1617 TOSOCSD TBON 7,FTO,TDOSSREC GO If ACTUALLY WRITING ~<CO>- 0319 OEC202 oO8C202 1687 ADDI L292 BUMP CS POINTER TO D183 
025E 045252 015252 1618 TIBCN SRCH,CEB2s TOSEXIT GO IF STILL SEARCHING -<CO>- O31A GESF60 OADF60 1688 TOSCKDAT EORI FFLG,DEFKEY¢DEFDAT SET FLAG TO MOVE DATA FIELD 
O25F O55F64 055F64 1619 TEBON CMPDAT,.FFLGs TOSFGOK GO iF SPEC FLAG BIT ON -<CO>- 0318 0442C6 0142C6 1689 LINC £&6eL2e1 FETCH DISP2 FOR KEY age 
0260 2E5FO4  19DF04 1620 CRI FFLG»CMPDAT TURN ON CHPR DATA FLAG -<CO0>- O31C 2442C7 1142C7 1690 LINC LT7ei2el OR DISP3 FOR DATA FIELO 
0261 275272 105272 1621 TBOFF 5,CEB2,TOSAFTRO GO IF END OF RO COUNT FIELD -<CD>- 031D OFOTLE OCC71E 1691 ADD L7+SOL TEST WHETHER DEFECT 
0262 241275 105275 1622 TOSINVTK TIBON READ,CEB2,TOSINVCF GG POST INV CTRL FLO IF RO CKD DIAG O31E opeele ppc ese qe: aoe See er eae Sey ee te (eae 
3 GO PO NVALIO TRK FMY ERR -<CD>- O31F 226328 
ae aire FOpECo ey TOSFGOK rane PEG sKreOs nest coh ANG DEFECT ~<CO0>- 0320 245623 115F23 1694 TIBON DEFKEY es FFLG, #43 GO IF KEY FIELD JUST CHECKED 
0265 004268 010268 1625 BNZ TOSSREC GO IF THERE IS -<Cd>- 0321 OESFAOQ OADFAC 1695 EORI FFLG,CEFCNTSCEFDAT SET FLAG TO SAY BOVE NEXT ENT 
0266 005250 05DE50 1626 TOR SOt,.SOH GO If $0 -<CO>- | y 0322 000337 000337 1696 B ¥OSzZSD GO zenoven aN CURRENT COU 
0267 224268 190268 1627 82 TOSSREC 1S ZERO -<CD>- , * 0323 241000 189000 1697 LBI SDH,O CALCU E - 
0268 OAO4SFA C884FA 1628 LBI LoeX*FAS SUBTRACT 1415 (REC LENGTH) -<CD>- 0324 2ALE2E L89E2E 1698 LBI SDL ¢ 46 TO MEASU 
0269 2EDE6E 1BDE6E 1629 ADDI SODL,X°6E® FROM SKIP -<CD>- C 0325 2COAEC L3DAEC 1699 TADDI KCNT,236 
026A 2F5004 100004 1630 ACOC SDHeL4 DISPLACEMENT -<CD>- co 0326 228328 1A0328 1700 BNC *+2 
0266 OSCF6E O74F6E 1631 TOSSREC TBON 7,PAH,TOSODOTK GO IF ON THE ODD TRACK -<CD>- : 0327 OA1LE34 089E34 1701 LBE SOL 52 é : 
026C 2C€9918 120918 1632 TEORI REC +24 CHECK FOR RECORD 24 ~<CD>- | C: 6328 Cree eeoeue ace acee sre ERO ene cee ne puede 
026C 224270 190270 1633 BZ TOSSOVFL GO If IT ISs SET TRK UVFL MK —-<CO>- i 0329 OF5006 ODDD0s6 ’ 
026E 209930 120930 1634 TOSODDTK TEORE REC +48 CHECK FOR RECORD 48 -<CD>- ; 032A 00031A O0031A ur0s Cane sl eee ease ere a shia EE EDECES! AFFECTS OATa FLO 
O26F 2046271 110271 1635 BNZ TOSSEXIT GO IF NOT -<CD>- 2, * 
0270 2€5301 190301 1636 TOSSOVFL ORI MSCl,.TRKOFL SET TRACK OVERFLOW MARK eee € 0328 245F2F eas ee TOSCKMVS ree Been acer eure GLisee. IN KEY FIELD 
71 OF90D0 DOD 77 T EOR Ry ZER RETURN -<CD>- 032C 050431 075431 ‘OL= 
cite : Pe teat sae ee sae ~<CO>- |» 032D OCDBEC O3DBEC 1708 TADDI DENT 9236 : TEST FOR SHORT OR LONG FIELD 
0272 240600 188600 1639 TOSAFTRO Lal L6,0 INIT £6 AND L7 TO MERGE -<CD>- _ %  032€ 200330 100330 1709 B TOSTSTSH 
0273 049700 088700 1640 Lael L7,.0 TO COMMON ROUTINE TO -~<CD>- 032F 2CDAEC L3DAEC 1710 TOSDEKEY TAODDI KCNT.236 TEST FOR SHORT OR LONG preLD Pe 
0274 200237 190237 1641 6 TOSFORRG UPDATE SD AFTER RO CNT -<CO>- € 0330 028337 0a0337 1711 TOSTSTSH BAC TOSZSD GO IF SHORT FIELD -- MOVE L 
J & 
DATE 15AUG7T5 O6NOV75 PROG ID FaO-1 ~ DATE 15AUG75 O6NOV75. pace + Oak 
EC NOw 6827765 827848 PAGE 12; %. EC NO. 827765 827848 
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FAOL #3340 DISK MICROCODE ----—- MOD 12 PART NOe 4247623. FAO] 
PAGE PAGE 13A 
/ 
LOC. OBJECT CODE STM SOURCE STATEMENT toc. OBJECT CODE STM SOURCE STATEMENT 
i 
0331 2A03FEF 1885FF 1712 TOSLONGF LB1I L3,X°FFE bee aoeen. pala ees TOXWAIT ee INDEX ,FTI « TOXRETUN SOeRcMERY OETECTED 
0332 2EDETF LBDETF 1713 ADOI SOiel2? TEST IF SKIP i 1 178 ADCI LB, 
0333 OF5003 oODDD03 1714 ADDC SDHet3 DISPL < 129 0363 OF4S71C ODC7TLO 1784 ADOC L7+ZER TIMER 
0334 028337 040337 1715 BNC TOSzZS0 GO '€ iY IS -- MOVE FIELD i 0364 028361 0a0361 1785 8NC TOXWAIT GC TO CONTINUE WAITING 
0335 2EDEO2 IBDEG2 1716 ADDE SOL-2 CALCULATE 157 SEG LENGTH t 0365 2A0404 188404 1786 LBI L4,X*O46* SENSE BYTE 18=TIMEOUT WAITING INDEX 
0336 200339 100339 1717 8 TOSSTRSD GO UPDaTE SD BYTES FOR CURRENT CHT 0366 200707 100707 i787 B TEFNRERR GO POST UPGM DETECTED ERROR 
0337 ZALEGO 189E00 1718 TOSZSO LBI SOL.0O ZERO SO LOW 0367 2E2DFE 18EOFE 1788 TOXRETUN ANDI FTR,FF-ALLOWIOX RESET INDEX LATCH 
8 DH ZERO SO HIGH 0368 2A0801 188801 1789 é LBI 18 ,ALLOWIDX SET MASK 
Saae aaa PoresE ey TOSSTRSN tae emie 2 STGRE SO HIGH ; 0369 2ELLEF 1SDLEF 1790 ANDI CEB1sFF-PADTOIDX RESET PACDING MARK 
: 5 D LOW 036A 02036A 08036A 1791 Nop os DELAY 
033A 040:9F OO04619E 1721 SINC SDtLeil,C STORE § 
033B 27809F  LESCO9F 1722 SDEC FFLGsi052 STORE FLAG BYTE | 0368 2F60C8 1DE0C8 1792 Z GRU -FTR GLB SET ALLOW INGEX AND RETURN 
033C OFS0D0 OEPODO 1723 TOSDONE EORU ZERscER RETURN TO “ALLING ROUTINE | 1793 
L724 SESSTRESESHEKAESEREEAEESSE SSE SSSE SHEL LEEKS SE SLSE SES IESSER SSL FH -<€C0>- } f 1794 ¢ 
1725 @ THIS ROUTINE DETERMINES WHICH FIELO WITHIN THE ~<CD0>- ee PREPARE TO 00 A SINGLE CYLINDER SEEK 
e MPR -0 RECORD THE DEFECT AFFECT -<CD>- [ 
ee e CORRES SEU RECE oer er : -<CD>- 036C 201580 LOLS8O 1797 TOXCYLSK BU TRDOPOWN DO GPERATE OOWN 
1728 8 O<= SD <129 MOVE RL DATA -<CO>- 0360 2E09FB i8C9FB 1798 ANDI GEN1-FF-SETRHON RESET R/W TAG UP MaRK 
1729 @ 12S9<= SD <383 SPLIT RL DATA E157 SEG = SD-129¢2}) -<€CD>~ CS3SE 264F76 194F76& 1799 TBGFF 1,5PAH, TOXNEOC GO IF CYL 256 GFF -- NOT END OF CYL 
1730 2 383¢= SD <4460 MOVE R2 DATA -<C0>- i Os6F OCBESL O2CESD 1890 TEGRI PAC. 349-256 TEST END OF PACK (ON CE CLY) 
1731 & 460<= SD <T14é SPLIT R2 DATA (CiST SEG = $0-46042) ~<CO>- | 0370 0243732 090373 1801 BZ TDXLBOO GO IF CYL ADOR = 349 
1732 8 Fl4é<= SD <791 MOVE R23 DATA -<CD>- C371 2C8ES5C 12CESC 1802 TEORY PAC, 348~256 TEST END OF PACK 
1733 * T9l<=e $0 <1045 SPLIT R3 DATA {iST SEG = $0~-79i423 ~€OOd- ' O372 204376 LiO0376 1863 BNzZ YTOXNEOC GO If CYL ADOR NOT EQUAL 348 
1734 *® 12645¢€= SD <1122 HOVE R4& DATA ~<C0>- | C373 040800 088800 1804 TOxLB0C Lul L8,X*00? FORMAT © MSG O 
1735 & Lizg2<= SO <1376 SPLIT R& DATA (157 SEG = §$D~1122¢2) -<C0>- ae Se rade aeiede taae TOXLTLZ ig eee eel ede MARK 
1736 * 1376<= SD <1462 MOVE MWEXT COUNT FIELO -<CO>- ! } ; 1806 
1737 © 1462<= SO DEFECT FURTHER OOWN (NEW SO=S0-1416} ~<C0>- | 02376 O8060F OC860F 1807 TOXNEGC MV i, PAH MOVE PAH TG L6 
L73Q SSSSESSESAHERERESEE SESS ESERSHSHSE SHED SSHHESCE SSEKSSESASHSSSKSES SS -<CD>- { on eaece ee 18608 MY £55PAC MOVE PAC TC . 
1739 @ -<CD>- G3 064C 8C640 1809 ANDI L&_ekK*aoe SAVE CYL 256 ONLY 
0330 OACBFF O88SFF 1740 TOSSDATA iLBI LOsX*FFE SET CONSTANT -<CO>- | 0279 2£C50i 180501 1616 ADDI L5el INCR Cyt ADDR 
O33E 2AO07FD 1887FD i741 LOI LT, xX*FDe ee -<CD>- | pa fe beds 1811 BRC = 842 GC IF NO CARRY se 
033F GA0601 088601 1742 Let Léel ae -<CO>- : %640 09C6460 1612 ORI LG» X*&O® TURN ON CYL 25u ¥ 
0340 CEDE36 OBDE36 1743 ADDI SOL.-202 SD = -<CD>- O3TC OOLTO4 001704 1813 8 TSKHIDSK GQ DO HIDDEN SEEK 
0341 2F 5007 1ODDD07? 1744 ADDC SDHGLT SD - 714 -<CD>- Z 1814 MBLOK bet Neots eee a 
0342 208354 120354 1745 BCY TOSPAST2 GO IF SO><0; DEFECT AFTER G2 ~-<CO>- 0372 200375 100370 LBL5+ 8 * UNUSED sssssessess 
0343 ZA050C 188500 1746 LBi = =L5,0 INITIALIZE REC FOR SOK ~<CO>- i OTE 2008TE {POGGTE, 2 ShG 8 : UNUSED iirsattaess 
03466 CEDE4B OBDESB 1747 TOSOID4 ADDI Spi .75 SO = -<£D>- | Bae 90037F  GOO3TF ee e pice UNUSED teresssass: 
0345 OF5D06 OD0DD06 1748 ADDC SDH,.LS6 SD ¢ 333 -<CO>- ¢ ¥ 
0346 00835060 620359 1749 ccy TDSD2 GC if S$D>*0: DEFECT IN D2/D& -<CO>- | : LBLG FELEEEORERESESSERESSEEEE RE SEES ESSERE ESEESE SABES SES 
O347 ZPEDEFE LBOEFE 1750 ANDI SDL,254 So x -<€CDo- } 1820 * RETURN HERE AFTER SUCCESSFUL HIDDEN SEEK 
9348 2F5010 100010 1752 ADDC sSOH.ZER $0 + 254 -~<CO>- z YS2] SALASASSAASHERSSSESESRSSCAKASEKASRVSEAEKCEATSESRALS SSE KLEBRSSS 
0349 20834C 12034C 1752 TOSMYS?® BCY  TOSSPD) GO iF SD>#0; SPLIT 01/03 -<Cp>- i meee sewens er tee eat Ae suebecd arabes utan. cee 
\ Buy & i 3 kL TO SAY ~<CD>- DBC SKC RE W! i ; 
| Saaet eed pees oe SE esa er na wenere ae en O4Gi OCOSE4  G308F4 1824 TADD! HEAD. 12 CHECK FOR CYL BOUNDARY 
O34C ZEDEG2 1BDEOZ 1755 YOSSPO) ADOT SDLe2 ADJUST SOL YG 2ST SEG LENGTH -<CD>- 0402 204406 110606 1825 BNZ TOXL¥L2 GO IF HEAD NOT EQUAL TO i2 
0340 081005 oC9D05 1756 MV SOK LS SET REC AUMBER TO SOM ~<CD>- | 0403 241800 189800 1826 iBI = HEAD-O RESET HEAD BYTE 
C34E 2E5F20 19020 1757 ori FELGeDEFDAT SET DEFECT IN DATA FLAG -<CO>- fee ce. ace re toe ee eee ENE ace Pee 
5 : * ; rt od! As De - > c : 
034F 200339 100339 1758 8 TDOSSFRSO GO STGRE SC AND FLAG <C00> Boas ane ee toto! ese ane Sree, age 
0350 2EC501 28C5OL 1759 TOSH2 ADDI L562 INCR REC NUMBER FOR SDH ~<OD>- Ber onli nk ioiene bee Tig a eee ec sels ee 
0351 2EDEb3 180Eb3 1760 ADDL SDL«-T? SD = ~<CB>- D FED iAEY ECR R : 
0352 2F5008 100008 1761 ACDDC SDH.L8 " SO - 77 -<CD>- 0608 2E13.-% 1603F3 1831 ANDE BSCisfF-IOFPETOXP2 RESET PubEX PASSED MARKS 
0353 000349 000349 1762 8 TOSKYSP GO CHECK MOVE OR SPLIT -<CD>- 0409 200425 = =100425 = 1832 6 FOXROG1 GO KMIY RO M&A OP 
035% 0A0502 088502 1763 TOSPAST2 Loi L592 INIT REC NUMBER FOR SOH ~<lO>- € 1633 % tee a | = ; - 
0355 OEDEGA OCBDE6A 1784 ADDY SOL»,-150 © SO = ~<CD>— oF es ee ee tt 
0356 2F5D07 100007 1765 ADOC SOHeL? SD ~ 662 -<OD>~ 35 $s > T 3 
0357 228344 1A0 344 1766 ‘BNC TDSD104 GO IF S5>=03 DEFECT §R OB/O4 ~L60%— e: ot a re are) prec te ees ee nec et ns Ce ers 
0358 OCEDEAA OB8DEAA 1767 ADDI SDL+-86 SD = =<COd>- 
0359 2F5008 190008 1768 AODC SOH.L8 SD - 326 -<CO>~ 040A ZE2DFE LSEDFE {838 TOXINCEX ANDI FYR;FF-ALLOWIOX RESEY INDEX LaTCH 
0354 208350 120350 1769 BCY  TOSNODEF GO IF SO><=0; DEFECT COWM FLD -<Ci>- ¢. 6406 280235 1€8235 1839 MV L2eFT! COPY FILE TAG If 
0358 2ESF80 190F80 1770 GRI = FFLG. DESCENT SEY OEFECT IN COUNT FLAG -<CO>- " 0400 22040C 18040C 1840 NOP DELAY,00 NOT DELETE 
035C 000337 000337 1771 8 TGSZS0 GO ZERO SD AND STORE SO/FLAG -<CD>- oar ae enor aceon Pe ahi See cee soned at dap dtae beac 
035D OEDEZE OsDE2E 1772 TOSNODEF ADOI SDL .46 ADJUST SD FOR ~<CD>- e ° 
O35€ 2F5010 100010 1773 ADOC SDH.ZER NEXT COUNT FIELD -<CO0>- c: OSOF 265231 195231 1843 TIBOF SRCH,.CEB2,TOXNTSCH GO IF NOT SEARCHING 
O35F OF90DG OED0DO 1774 EORU ZERsZER RETURN TO CALLING ROUTINE -<CO>- ne ecaeas Ae cese age Seg ceeeeaan ae 
1775 END COPY-MEMBER TOS ‘ 
1776 Copy TOXx €. 0412 OE2F40 O8€F4O0 1846 TOXRESP ANDI SCN.X*40t RESET FILE XFER CONTROLS 
LIFT SESOSSSSEEKEHS SE SSSA TESS KSSESLSSESSSHES 0413 20099A 1C099A 1847 BU TEFRESP RESPONSE ¥C FILE 
1778 © WALT FOR INDEX SUBRGUTIME C 0414 240017 lQ04D17 1848 TOON OsREYT,2¢3 6Q TF EGNORE CNT FLO OATA CHK HARK ON 
LI7G SSSSHESOTLESSOSSSERLSASERSESS ZERELOTSE ~ 0415 OAOT24 O887T2% 1849 L681 L7,CNTCNTR GE¥ CGUNT COURTER MARK 
1780 ¢ 0416 240790 104790 1850 SinC ZER.L7,0 . SEF COUNT COUNTER MARK OFF 
0360 ZAO7EO 1887EO0 1781 TOXWADEX LSI L7—-32 IMTTKALIZE TIMER C 0417 271318 165318 1851 TIBOF IDOXP2eMSCIeTOXIOX? GG TE NOY LOX PASSED TWICE 
DATE 15AUG7T5 O6NGV75 PROG ID FAO-1 ¢ DATE ASAUG75 O6NOVTS . PROG if FACE 
EC NC. 827765 827848 PAGE 13. © EC #0. 827765 827848 PaGE 13a 
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3340 DISK MICROCODE MOD 12 PART NG. 4247623 FAO] 3340 DISK MICRUCODE -~—~-- MOD 12 PART NO. 
PAGE 14 é PAGE 
CBJECT CODE STM SOURCE STATEMENT € toc. OBJECT CODE STM SQURCE STATEMENT 
FAOL 3340 MICROPROGRAM~--—---——M12 r 0455 000310 00C310 1919 TANDI 13,X*10° GO IF NOT 
EC=827848 PN=4247622 BUS=CO < 9456 224458 190458 1920 B2 TDOXNOP DATA CHECK 
OBJECT CODE STM SOURCE STATEMENT i 0457 O000CO& 000004 1921 8 TERCEANZ GQ TO CHECK END ANaLYSIS 
O40D1A O04D1A 1852 TOXIOXP2 TBON O,RBYT, #42 GO IF IGNORE CATA CHECK MARK ON é: 1922 @- 
200820 100820 1853 8 TEFNRE GO POST NO RECORD FOUND i 1923 © GP CANCELLED BECAUSE OF INDEX 
2E13F3 1803F3 1854 ANDI MSCLSEF-IDXPI-IOXP2 RST INDEX MARKS 1924 ¢ 
0E030& 080304 1855 TOXIDXL ADOI MSC 1, 1DXP1 INCR INDEX PASSED COUNT - 0458 079258 0€5256 1925 TOXNOP TSOFF 6,CEB2,TOXCNTOP GO If COUNT FIELO OP 
OA2684  OB8A68% 1856 L8I FTO,ROSTATUS RD MOD STATUS TAG . 9459 OTEFSA OF6F4A 1926 TIBOF NFEILEXFReSCNeTOXINVTK GO IF ROT CLOCKING 
001584 001584 1857 BU TRONOFBE TAG SUBRTN 045A 2ED9FF 1LBDOFF 1927 TOXSCNCY ADDI RECLFF DECREMENT REC NUMBER 
056225 O76225 1858 TBON TsFBI,TOXACT GO IF ACTIVE TRACK 0458 2CLLOF 1lOD1OF 1928 TOXCNTOP TaANDdI cee TESTER Ene DONE 
GESFOL OACFOL 1859 TOXFLPHD EGRE PAHeL FLIP HAR ADORESS 045C 20445F 11045F 1929 BNZ TDXGOON 
OESSOi OADEG! 1860 EORI HEAD s} FLIP HEAD ADDRLSS 0450 269353 105353 1930 TIBUF MUREC,MSC1>TOXOPOON GO IF NOT MULTIPLE RECORD COMMAND 
OBZEOF  OCAEOF 1861 TOXSTHAR MV FBG, PAH LOAD HAR IN FBO O45E 069053 085C53 1931 TBOFF 3,NREC, TOXOPDON GO IF NO MOZE RECORD TO PROCESS 
OE2ZE3F OB8EE3F 1862 ANDI FBO~x*3F* MASK OFF CAR 256 BIT 045F 2E5103 LSDLO3 1932 TOXGGON GORI CEBLePROCKEY+PROCDAT TURN GN PROCESS FIELD MARKS 
CA2688 O8A686 1863 LBI = FTO» SETHAR XMIT HAR TAG 0466 245362 115362 1933 TIBON MUTRM MSC 1 e#4+2 GO If MULTE TRACK OP 
601584 001584 1864 BU TRONOFBI TAG SUBRTN 0461 CES510%  O90104 1934 ORI CEB1,PROCNT TURN ON PROCESS CNT MARK 
1665 TOXRDGL EQU # READ Gl ENTRY 0462 O5SCF64  O74F64 1935 TBON TePAH, TOXOODTK GO IF ON ODO TRACK 
OE2F40 O8EF40 1866 TDXACT ANDI SCN,X*40° RESET FILE XFER CONTROLS C463 20041F LOO4lLF 1936 B TOXFLPHD GO TO SWITCH HEAD AND READ GL 
Z2E27CG1 18E702 1867 ANDI FHF eENDFILEX RESET END OF FILE XFER ¢ 1937 @ 
2—33FB 18F3FE 1868 ANDI OXC,FF-ALOWFILE RESET ALLOW OLFF CNTR FILE %, 1938 @ 
2A260E 18A60E 1869 tel FTO,READOP SET READ OP TaG 046% 266318 195318 1939 TOXODDTK TIBOF MUTRK»MSCL.»TOXIOXP2 GO IF NOT MULTI TRK OP (NO REC FNDS 
OAZE49 OB8AE49 1870 LGI FBO,ROGLES RD Gi TAG MODIFIER 0465 OT9F69 CESF69 1940 TIBOF DEFTRK,FFLG,TOXNIDEF GO IF NOT DEFECTIVE TRACK 
088520 028520 1871 SABI INDEXF1, IDKDDCF SET PGH POINTER TO DOCE 0466 2A086D 188800 1941 TOXMDEFTK LGE L&,X*OD® PRESET DEFECTIVE TRACK ERROR MSG 
288720 128720 1872 SABE INDEXF2,IOXDOCF SET PGM POINTER TO noCc# 0467 240746 LBET4E 1962 TOXLT46 LBI LT eK*&6® CO ee eee CHECK 
28ui4% 139148 1873 S2¥ ZLSFCeZLSRFILE SET ZLS TG READ FROM FILE 0468 201908 101908 1943 6 TSNNORM u 
CBAS00 224600 1874 SADI DISPFC,DIDDCFORG) SET DISPLACEHENT 0469 ZACSOE i18880E 194% TOXNTDEF LOI LBex*OE* PRESET ALTERNATE TRACK ERRGR MSG 
ZEL2FR 18D2F8 1875 ANLT CEB2,X*FS? SET TRK ORIENTATION TO ENC GF HA 046A 2A1S0i L8990% 1945 LBi RECek Sy ee are L 
20768 2868708 1976 LBI L798 SET UP FILE xFER COUNT 0468 2B040F  I1CB40F 1946 MV- L4&—PAH MOVE HEAD a 
901452 ©G01452 1877 8 TROLLEY GQ SET il MSEG FIMER 0460 GS0E7H OT5FTB 1947 TIBON ALTTRK,FFLG,TOXALTRK GO IF ALTERNATE TRACK 
1876 * G46D 265256 190250 1948 oR! CEBZ.K*508 TURN ON SEARGH MARK AGAIN 
1879 # INDEX PROCESSING AND NOT SEARCHING 046E 26043F 18C43F 61949 ANDI L&oX*3ré RETAIN HEAD aDDR ONLY 
1880 * O46F ZCC4ES LICSES 1950 TADOL 14.-23 CHECK FOR CYLINOER BOUNDARY 
OCL207 GOD2Z07 1881 TOXNTSCH TANOE CEH2,X!U7* TEST TRACK ORIENTATION O470 224366 19636C 19st et Os ela rr UTODEN Seer IF YES 
004438 0230438 18862 BNZ TOXNHAGP GO IF NOT SA OP C472 275474 105474 1952 BOF El2e 9 
271335  1€5335 1863 TOXEMTWR TIBOF ICXP2,MSC1,TOXIOXOK GO IF NOT INDEX PASSED TWICE O472 2CC4FO L3C4FD 1953 TADDI 14-3 parce Gn sot DE eoteer 
200724  10072A 1884 8 TEFNGREP POST NG RESPONSE ON HA OP 0473 224366 19036C 1964 Bz TDXCYLSK 6 DO H E é 
OA04A0 O0884A0 1885 TOXIOXOK LBI = L4s-96 RE-INITIALIZE TIMER AGAIN 6474 ZEDB8OL 180801 1955 TOXNT12 ADDI HEADel INCREMENT HEAD ADDRESS 
GE030% O8D304 1886 ADDI MSC1,IDXPi INCREMENT INOEX PASSED COUNT 0475 OCCSFE5 O3C4F5 1956 TADDI L4e-]1 CHECK FOR LOGICAL CYL BOUNDARY 
20071C 10071C 1687 8 TEFRETRY GO WAIT FOR SYNC IN AGAIN 0476 004479 O10479 1957 BNZ TOXSKPL GO IF noT 
OEZF40 OB8EFFSO 1888 TOXMHAGP ANDI SCN.X*408 RESET FILE XFER CONTROL 0477 2A1806 189800 19586 LBE HEAD.0 aeRO eae nee 
268536 1A7538 1889 TROFE 2,FTI #42 SKIP IF NOT CHECK END 0478 O£570i O90701 1959 ORI ChOci UPDAT L ) 
901580 00158D 1890 BU TROROFBI GATE FIO TG FBI 0479 2ECFOlL 1AaCFOL 1960 TOXSKP1 ADDI PAHS ee er 
060322 0C8322 1891 MV L3,FBI copy FILE Bus IN 047A 000421 000421 196i 8 TOXSTHAR 6 ; 
20099A 10099A 1892 BU TEFRESP RESPONSE TO FILE O47B GOOD63 000063 1962 TOXALTRK 8B TERALTRK GO TO UPDATE CCHH TO NEXT GOOD TRK 
06923F  0A523F 1893 TIGOF WRITE-CEB2,TOXNTWRT GO IF NOT WRITE COMMAND 1963 MBLOK 
256640 8176640 1894 THON 72F TO, TOXOPC GO IF ACTUALLY WRITING O47C 200470 100470 1964+ 8 * UNUSED ssszessssss 
070254 004254 1895 TOXNTWRT TIBOF NORMEND,L2,TOXINCOP GO IF NO NORMEND (OP INCOMPLETE) 047D 000470 000475 1965¢ 6 * UNUSED sssssesssss 
255248 15526A 1896 TOXOPC TBON 5eCEB2,TOXINVTK GO PUST O47E OOOSTE O0O4TE 19664 8 * UNUSED teess2s223% 
079244 OF524A 1897 TBOFF 6¢CEK2_ TOXEMVTK INVALID TRE . O&7F 20047F L0047TF 19674 8 * UNUSED sssssersess 
27024A LF524a 1898 YBOFF 7eCEB2, TOXINVTK IF NOT DATA FIELD oP \ 9 $00 1968+ DS <0>6 
050248 044248 1899 TIBON NORMEND,L2-TOXNEGK GO IF OP COMPLETED ON DATA FIELD 1969 ENC COPY-HMEMBER TDX 
068244 0A426A 1900. TIBOF CHKEND,L2—TOXINYVTX GO ITF NO CHECK END (OP CANCELLED) ~ 9500 1970 ORG %905008 
064347 0694347 1901 TIBOF DATAOVN,L3,%4+2 GO IF NOT SYNC OUT ERROR Gy 197) Cory STORAGE 
960C0D OOOCOD i902 8B TERLELS GO TO POST SYNC OUT ERROR 1972 S#8SS2SCSEETETEESESESEEESELSSESEVESTESESSLSEESS 
240344 104344 1903 TIBON CHDOYN,L3,TOXINVTX GO IF CRD OVERRUN 1973 & DATA STORAGE BLOCKS 
24C34A 134344 1904 TIBGON TRKOVN,L3eTOXINVTH GO IF FRACK OVERRUN LOTe EFVERKEEEEESESRESSRHEEESEEEEEESSE SALESTESES 
200CO0F LOOCOF 1905 8 TERNSYER GO TO CHECK END ANALYSIS 1975 * 
200870 100870 1906 TOXINVTK 8B TEFINVTK GQ POST INVALID TRACK FORMAT ERROR é 0500 1976 ORG (*+2551/256%256 
1907 # =* 500 1977 DOCFORG EQU #* 
252740 14674D 1908 TOXNEGK TIBGN ENDTRAP FHF, #42 GO If END OF TRAP COUNT ON 0500 00 1978 OODCFORGi OC 8x*o0® ODCE LEFT HALF 
000746 «60007458 §=1969 B TEFLE2i GG POST FORMAT 2 ERROR © 1979 * 
2TE7T4A «61 F6T4A 1910 TIGOF EMDFILEX,FHMF,TOXINVTK GO IF KOT END OF FILE XFER i? 0508 00 1980 OSDISPL OC 2x00 2124 (KL475 9408 
2EZ701 IBETOL LOER ANDI FHF, ENDFILEX RESET END OF FILE XFER 050A 60 1981 DSDISP2 OC 2x*o0* SHORT=1393 LONG=1264KL 
062851 Of6851 1912 TIBOF CSOVRUN,HES,*42 GO IF NOT CYCLE STEAL OVERRUN - Q50C 90 1982 DSOISP3 OC 2%*008 SHORT=1393 LONG=12640L 
000750 o00750 1913 8 TEFLBOC GO POST CYCLE STEAL OVERRUN MSG < OSOE 00 1983 TRKCNTR OC 2x*o0° TRACK CAPACITY COUNTER 
OF2F40 O8EF4O0 1914 ANDI SCNexX*40* RESET FILE XFER CONTROLS 0510 00 1984 RECLNG O0C 2x*00* RECORD LENGTH CONSTANT 
276754 10675A 1915 TIBOF SCNSAT,FHE.TOXSCNCU GO CONTINUE IF NOT SCAN SATISFIED « 6512 00 1985 DOORORG OC 2x*008 ORIGINAL DODR VALUE 
000951 000951 1916 TOXOPDON 8 TENSTART GO 70 END PROCEDURE C0514 00 1986 OOCRORG DC 2X*00° TOLAt GVTES RE ADOUNTER 
1917 # 0516 00 1987 BYTEREAD OC 2x*o0! TOTAL BY ADOUN 
668258 0AS258 1918 TOXINCOP TIBOF CHKEND,L2,TOXNOP GO If NQ CHECK END C 0548 00 1988 TSKPA DC 2x*o00* NEW PHY ADORESS FOR SEEK 
1SAUG7T5 O6NOVTS PROG ID FAO-1 |. DATE L5AUGT5S O6NOV7S PROG. ID 
627765 827848 PAGE 14 ©. EC Noe 827765 827848 PaGE 
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FAOQL 3340 DISK MICROCODE ----- MOD 12 PART NO. 4247623 FAO] 3360 DISK MICRGCODE ----- MOD 12 PART NOw. 4247623 
PAGE 15 C | PaGE 15A 
LOC. OBJECT CODE STM SOURCE STATEMENT € toc. OBJECT CODE STM SOURCE STATEMENT 
oe Toen Seieces a oe ee ee can Piel a + 0703 24750A 11750A 2059 TEFWAIT! TIRBON TAGVALIDsFII,TEFDRPTG GO IF TAG VALIO ON 
\. 0704 OEC801 08C801 2060 ADDI 1t8,1 INCR TIMER 
OS1E 00 aes aes oc x*06* ACTIVE UCW POINTER 0705 028703 0A0703 2061 BNC TEFWAITL GO IF NO TIME OUT 
OS1F 00 1993 SKMARKL OC x*008 SEEK IN PROGRESS/SEEK INCOMPLETE teres a a ape a ub dora ates See ENeE Eves 
ae peer er aane >. Re eee Seer alee een cor BCcES (ocai - 0707 0A0812 088812 2063 TEFNRERR LBI L8,X*12 SET UPGM DETECTED ERROR 
oes oe Poe eo eee coe oe. SUE Rc OnreT nei GM BYTE 0708 OA0703 088703 2064 TEFL703 LBI L7,X*03° POST EQUIP CHECK 
ee s ¢ 0709 201908 101908 2065 - 86 TSNNORM GO TO ERROR ROUTINE 
: > QO70A OE257F O8ESTF 2066 TEFORPTG ANDI FIGeFF-TAGATE DROP TAG GATE 
0522 60 poe eontee oc 2X* 008° SEEK BUSY FLAGS & TIMER 0708 OF88C8 OEC8C8 2067 EGRU L8,L8 RETURN 
2068 * 
0524 00 Osan oc oc x*00# COUNT FIELO COUNTER FOR RDCKD CmD €. 2069 SESE8E5 HEF SSSEEEKEEEEEEEEESESESSEESS EKER HSESEEES 
2070 ® THIS ROUTINE RAISES TAG GATE FOR RD/WR OP 
0525 00 gook : pc 21xX*00* $268498888UNUSEDS8SS8eseREs68 r. 2071 * AND WAITS FOR END OF FIELD 
Gesinee Sous -CECENSELIBE er Epvennen CONES OME RENSEDERT &. 2072 SKERSERSEEKEEREESSEEESKEFERERSERECESHEECRESEESESSES OS 
2073 * 
Sons . (BITS O-3 ARE DM ATTN PENDING? O70C OFOBF7 O8CBFT 2074 TEFWAIT ANDI STAT,FF-NOOP RESET NOP STATUS 
¢ 3 
0538 00 2006 CSZEROL DC x*00* ONE SYTE OF ZERO FOR DATA FIELD al i a Shae * os nee wae Tee OR ee nee 
2007 © 3 ‘ 
053C 00 2008 DISENSE OC 24x*008 DRIVE 1 -- SENSE BYTES { pl * Deep igre nee ence t es 
ere oo Sate A CrOPR a Sr rods ORLUE = aon en PA OTOE O7E61A OF 661A 2079 TBOFF 7,FTO,TEFRSTAT GO IF NOT WRITING 
Bcue on Sci GIRbEHTES bE ead BeauE : mo REA UoKGE sie OTOF 2E6FO2 i9EFO2 2080 ORI SCN, TOFILE TURN GN WRITE TO FILE CONTROL 
055C 96 2012 DISKCNTR DC 2x*00° DRIVE 1 -~ SEEK USAGE COUNTER neon roe a een ob eae Sen ee eae 
2013 0712 SEARO taesié boas sae Pre ahios Secs care ere 
9 
ae ee Sone Bscunes +3 Serene Bore : = RRR EE 07123 CB22@0 O0CA200 2084 MV FBI eDUMMY GATE FI TO FBi 
Bete be Sot BSer Oe Gc Se veci ue Seco Be O714 07731A OD731A 2085 TISGF ALOWFILE,OXC,TEFRSTAT GO IF NOT USING DIFF CNTR 
Beta c6s SOE Ip sRBCh Pe EC Coro perce 2 oem | ace eouNieR 0715 040C1A 035C1A 2086 TBON 3¢NREC, TEFRSTAT GO IF NCT LAST REC 
O57E 00 2018 D2SKCNTR OC 2x*00° DRIVE 2 —~ SEEK USAGE COUNTER OTe 2 tact. eaoete. 20ek YeOR 2eee erence nar ar COEF 0h 
seis ) | Stig criaia essit foes Tiebe OLomngcotferasvar oo ar‘hor Last Ac 
; ° ® RSTA G F NOY LAST R 
0680 900 Seay OUStanee oc 8x*6o* DGCF RIGHT HALE na 2E6F 10 I9EF10 2090 soe iteie ORI SCNoLAS TREC TURN ON LAST RECORD MARK 
: EF EERSTAT O Ns ALWEXER SET ALLOw FILE XFER TO START OP 
0588 20 ones opener oc x*o00* ORIGINAL REC OF DDOCF FOR RODEN CMD C71B 283607 108607 2092 MV FCT sk? LOAD FILE COUNTER 
’ O71C 080704 OC&704& 2093 TEFRETRY MV L7,L4 LOAD TIMER 
ae oe tose CSTEMP1 ae eer e: Berle cates cece dak O710 25752C 15752C 2094 TEFSYNLP TIBON SYNCIN,FTI,TEFSYFND GO If SYNC FOUND 
Sa5c ‘ 25X*G0 % SSSSUNUSEDSESSSSSSTLS SS O71E 678520 OE7520 2095 TIBOF INDEX,FTI,*+2 GO IF NO INDEX 
OT1F 00040A 000604 2096 TEFIOXFO B TOXINDEX GO TO INDEX PROCESSING 
058A 00 goa! FFSENSER ve X*008 EXTENDED FUNCTIONAL SENSE RIGHT 0720 2£752C 15752C 2097 TIBON SYNCIN,FTI,TEFSYFND GO IF SYNC FOUND 
0721 268576 1A7526 2098 TIBSQF CHKEND,FTI,TEFNCE GO IF NO CHECK END 
0568 06 eee CSTEROR oc x*oo¢ ONE BYTE SF ZERO FOR DATA FIELD C722 226722 180722 2099 TEFCE NOP s DELAY 
0723 020723 080723 2100 NOP « DELAY 
aes oe ate ea eecee oe Sccone peee : = eCAREAy car 0724 25851F 16751F 2101 TISON INDEXe#TIeTEFIOXFD GO If CHECK END AND ALSO IWDEX 
bene os enae prac pen ae Sour ees = crores 0725 200CCO0 100C0C 2102 8 TERCKEND NO INDEX--GO ANALY CHECK END 
Oabe OD Sosa GARDCHTRCOE eee Bnive eee BEAD Deane Counties 0726 25752 15752C 2103 TEFNCE TIBON SYNCIN,FTI,TEFSYFND GO IF SYNC FOUND 
050C 00 2035 O3SKCNTR DC 2x* 00° DRIVE 3 -- SEEK USAGE COUNTER ieee es oie ataE apne ee ANC RERENT 
2036 % 0729 028715 OAOTID Sipe BNC Vee Sune GO IF oY THe out 
Nace eo ones Labsaeras BE Sane aa : = intent oa - OT2A 200402 188402 2107 TEFNGREP LBI &4,sX*O2° SET SENSE BYTE 18 TG NO WNE/CE ON R/S 
BFCe Gn SOg6 DEGTEPA be ee roee pe are Be .  072B 200707 100707 2108 8 TEFWRERR - GO SET NO RESPONSE ERROR 
2109 # . 
OSFA 00 2040 D&ROCNTR OC 4X*008 DRIVE 4 -- READ USAGE COUNTER : : 
OSFE 00 2041 D4&SKCNTR DC 2x*o0* DRIVE 4 -= SEEK USAGE COUATER € Si ; RE eee a eee eRe ee 
Sas - O72C 240000 188000 2112 TEFSYFND 181 £0,X*008 SET UP DOCF POINTERS TO SO HIGH 
ne ~. O072D 240180 188180 2113 LB1 L1,Xx*80° a6 TO SD LOW 
se 2004 ae ae xcs O7Z2E 2A020E 18820E 2114 LUI &2Z,0¢TRKCNTR) INIT L2 TO DISPL OF TRK CRTR -<CD>- 
0600 0000000000000000 2046 DDOFORG 0C 32X"0000000000000006* DDDF BUFFER (256 BYTES) é eae cee oe aE Sn ak F LYGrTCeLRCEE parce eee ee ‘cee 
068c 2047 ODDFORGR EQU ODDFORG+x*ag® eg ee aope36 165238 2117 THON 6,CEB2; TEFLASTB BYTE IF WRITING OR NOT HA/CNT OP 
re 0732 000077 O00D77 2118 B TERGETSO GO TO FETCH SDH AND SOL 
Saco cone eee STORAGE ¢, 073? 0440C%4 0140C4 2119 TEFPAC LINC L&ridel FETCH PAC 
205i SHESSESSESKKSSSHSESCHATKSEKRSESAAHSASESSKSSKELRLAS*USE KES SRVES ~ eose ieee Bieice ae THe ne Llel perce Pp 
2052 ® THIS SUBROUTINE RAISES TAG GATE; WAITS £OR 73 7 a - a aa 
2053 © TAG VALID AND DROPS TAG GATE Oe ogee Seceeae ares eae cerry . 
2054 C5580F 90558554 2999 FOES 5S4SETEFSETESEREEEEE OES te. OT OT OGSOOE = sOUAOOr: a Ge ‘ LING: EELGILO o} FETCH FLAG GYTE 
2055 @ 1 : 
o700 242685 18A685S 2056 TEFSETRW LBI FTO, SETROYR LOAD FTO WITH SET RW TAG co oie : START. TO RAE FOR Gh ON Senet meee ere 
Aree Siaaee veacce a 5ee TEFTGVAL cat fee cere chee Gate 0738 056743 076743 2127 TEFLASTA@ TIBON ENDFILEX,»FHF,TEFNECE GO IF ENO OF FILE XFER 
975 R € 073% 25851F 16751F 2128 TIBON INDEX,FTIeTEFIDXFED GO IF INDEX FOUND 
DATE  15AUG75 O6NOV75 | PROG ID Fa0-1 . DATE _1SAUG7 | 
5 O6NOV7S PROG ID Fa0-1 
FO NOs. “Beites 827896 PAGE 15 © €c wo. 827765 827848 PAGE 15A 


FAOl 


Loc. 


O73A 
0738 
O073C 
0730 
O73E 
O73F 
0740 
O741 
0742 


0743 
0744 
0745 
0746 
0747 
0748 


O749 
GT4A 
OT74B 
O74C 
O74D 
O74E 
OT4F 
O756 
C751 
O752 
0753 
0754 
0755 
0756 


C757 
O7T58 
o759 
OT5A 
0758 
O75C 
0750 
O75é 
O75F 
0760 
0761 
O762 
G763 
OT64 
S765 
0766 
OT67 
O766 
0769 
OT6A 
0768 
O76C 
Ga7e0 
OT6E 
O76F 
0770 
OT71 
O772 
0773 
0774 


DATE 
EC NO. 


| | ¢ 
®®eeeeeeeeeeeeeeeeevseeeegeenan5ann4gnQnnnegn 


3340 OISK MICROCODE ----- MOD 12 


QBJECY CODE 


STM 

O5E743 076743 2129 
248522 127522 2130 
OSET43 O76743 2131 
273540 1C7540 2132 
0A0822 0886822 2133 
201E44 LOLE44 2134 
CECTOL OBCTO1L 2135 
228738 1A0738 2136 
20072A 1Q072A 2137 
2138 

2139 

2140 

053549 047549 21341 
25B51F 167S51EF 2142 
248522 127522 2143 
OECTOL OBCTOL 2144 
228743 LAOT4S §=2145 
20072A 10072A 2146 
2147 

2148 

2149 

OSEF4D OT6F40 2150 
252740 146740) 2151 
OAOB21L O8882i 2152 
201644 LOLE44 2153 
2009GA L009SH& 2154 
2€ 2701 LBETOR 2155 
062852 386852 2156 
GAGBOC O8BE0C 2157 
200C 0A 100COA 2158 
QE2FEL OSEFFL 2159 
OBO312 OC832 2160 
2E€0307 L6C307 2161 
Z2EC349 280349 2162 
OLOSO3 040903 2103 
2164 

2165 

2166 

2167 

2168 

2A020€E 18820E 2169 
20020A 10020& 2170 
25E670 176670 2171 
2FB44E lEC4SE 2172 
2F854F 1EC54F 2173 
200405 14€405 2174 
O2475F O9075SF 2175 
000C30 090C3D 2176 
OTSF6A OESFSA 2177 
045262 015262 2176 
200768 100768 2179 
0C1210 000210 2180 
204466 110466 2161 - 
045167 915167 2182 
040967 035967 2183 
20077C L0077C 2184 
2A0800 186800 2185 
OA0TNE 088706 2186 
201908 101908 2187 
04527C O1lS27C 2188 
27117C 1C517C 3=2189 
065178 095176 2190 
078196 GE4196 2191 
044097 014097 2192 
270698 104098 2193 
2COESE 1ZDESE 2194 
20C 776 130776 2195 
240076 135076 2196 
2A1E00 189E00 2197 
2A1000 189000 2198 

L5AUGTS O6RNOVTS 
827765 827848 


SGURCE STATEMENT 


s 
* 
% 
TEFNECE 


+ COME HERE 


* 
TEFXFEND 


TEFLS21 


TEFFCTOK 


TEFLBOC 


TIGON ENOFILEX,FHFeTEFNECE GO IF 
TIBON CHKEND,- FTI. TEFCE GO IF 
TIGGN ENDFILEX,FHEeTEFNECE GO IF 
TIBOF NORMEND, FTI,» #43 co IF 


PART 
PaGE 


NOo 


END OF FILE XFER 
CHECK END 

END OF FILE XFER 
NO NORMAL END 


tBI L8eX*22° POST ERROR - NO END OF FILE XFER 
8 TWREMT2ZE GO POST EQUIP CHECK 

ADDI tTel INCR TIMER 

BNC TEFLASTB GO IF NO TIME OUT 

6 TEFNOREP GO POST NO RESPONSE ERROR 


TIBGN 


TIBON INDEXeFTIZTEFIOXFD GO 


START TO WAIT FOR NORMAL END OR CHECK END 


NORMEND oF TIeTEFXFEND GO IF NORMAL END 
IF JNOEX FOUND 


60 IF NOT VIME GUT 


TIBON CHKEND. FTI, TEFCE GO If CHECK END 
ADDIE L7el EINCR TIER 

BNC TEFNECE 

8 TEFNOREP 60 POST 


WHEN DATA XFER COMPLETE 


NO RESPONSE ERROR 


GO fF INHIBIT FILE/CS XFER 


POST ERROR ~- NO END GF TRAP COUNT 
GO POST EQUIP CHECK 


RESET END OF FILE XFER 
GO FTF NO DATS OVERRUN 
POST OATA OVERRUN MSG 


OVERRUN BIT 


TBON 7eSCN»TEFFCTOK 

TIBON ENDOTRAP ,FHF eTEFFCTOK GO IF END OF TRAP COUNT GN 
tél LB,xX*22° 

8 THRFHT2E 

BU TEFRESP RESPONSE 
AROL FHF »EMDFELEX 

TIBOF CSOVRUN; HES, 843 

Ler LB,K* OC * 

8 TERLTOS GO POST 
ANDI SCN. FF-ALWEXFR-FELEOOD-TOFILE 
MY L3.C&B2 

ANDY L3,X*O78 

ADDI L3.D(TEFDETCOD) 

BR B(TEFDECODI -L3 


SSSCESCESS EES LSSESESSESESSERSESESSESES SSS SESESES SESS 
@ THIS ROUTINE HANDLES DISK PROCESSING 


* 


AY THE END OF HOME ADDRESS 


SPRSSSCERS FS SECKSESCSK ESSE SKE SLC SSC VSECSRSESSSSEEESESSLSS 


2 
TEFENOHA 


TEFPAGK 


TEFLSOD 
TEFNDEF 
TEFNOTS 
TEFWRO 


TEFSKP3 


tol L2,XK*OE® POINT £2 TO TRK CAP COUNTER 
BY TOSRSTCT GO INITIALIZE TRK CAP COUNTER 
TBON 7.FTOsTEFWRO GO IF JUST FINISHED WRITING 
EOR L4, Pac COMPARE THE 
EGR L5- PAH PA BYTES 
FADD L4eL5 TEST FOR COMPARE 
62 TEFPAOK GO if COMPARE 
8 TERPACHK GO 70 POST PA CHECK 
TIBOF DEFTRK,FFLG,TEFNOEF GO [F NOT DEFECTEVE TRACK 
TIBON SRCH,CEB2 s#e2 GO IF SEARCHING 
B TEFNOTS NOT SEARCHING 
TANDI CEB2eX*16° TEST FOR HEAD SWITCHED 
BNZ TOXDEF TK GO IF SWITCHED 
TIBON FMTWR-CEBieTEFLEOD GO IF FORMAT WRITE 
TBON 3cRECe #42 6O IF NGY RECORD ZERO 
6 TEFCLKRO GO READ RG COUNT INTO BUFFER 
L8I iB, xX*OD* FORMAT O, 
Ls! L7sX*06° MESSAGE C 
b TSNNORY ERROR 
TIBON SRCH,CEB2,TEFCLKRO READ RO COUNT ITF SEARCK BIT OFF 
TIBOF PROCRO,CEEL,TEFCLKRO GO IF NOT PROCESS RO CNT 
TIBOF FMTWR-CEBL,LTEFRORO GO IF NOE WRITING 
SOEC CHI ,Lle2 STORE CHI In OOCF 
SINC CLOlOei STORE CLO IN DDCF 
SOEC HEAD sl Oe4 STORE HEAD EN DOCF 
TADDI SOL,-178 TEST SKIP DESPLACEMENT VALUES 
8CN TEFSKP: GO IF SD > 176 
TBCN 3¢SOHsTEFSKP1 GO IF SO INDEED > 178 
L8I SOL 20 ZERC 50 
tBi SOH,0 BYTES 
PROG ID 
PAGE 


4247623 


RST FILE AFR HARDWARE 
HOVE ORTERTATION CODE 

SAVE TRACK GRIENTAT ION BITS 
ADD DISPLACEMENT TO BRANCH REG 
DG GRIENTATION BREAK OUT 


| 


1 
t 


wee 


FAO1L 
16, 


! 
i 
LOC. 


O775 
C776 
OTTT 
GT78 
O779 
OT7A 
O778 
OTIC 


O7T70 
OTTE 
OT7F 
0800 


0800 
osol 
0802 
6863 
0804 
0805 
O8C6 
0807 
9808 
6809 
0804 
OBoR 


O6oc 
o8oad 
O8OE 
O80F 
0816 
O81 
o8i2 
0313 
0814 
0815 
0816 
O817 
0818 


0819 
OB1A 


G&SiB 
oOs1c 
0810 
O81e 
O8lF 
0820 
0821 
C822 
0823 
0824 
0825 
0826 
0827 
0826 
0829 
OB2A 
0828 


ote 


om 


o82c 
0820 


FAO~-1 DATE 


16 


Rie 


EC "0. 


3340 DISK MICROCODE ----- MOD 12 


CBJECT CODE STM 
20077A }O0CT7TA 2199 
O41F73 OOSF7T3 2200 
CEDE2D O8D0EZ2D 2201 
OC8TTA C2077& 2202 
OEDDFF OBODFF 22063 
201006 101000 2204 
2ELLF7 lBDIFF 2205 
20145C 10145C 2206 

2207 
Q00770 00077 2208+ 
COCTTE OOCT7E 2209+ 
2007 7F 1OOTTF 2210+ 
2211+ 
2212 
2213 
2214 
2215 
2216 

OTE604 OF&6604 2217 
25930A 16530& 2218 
200280 100280 2219 
Ool1DOLF OOLDIF 2220 
245235 115235 2221 
265107 195107 2222 
24122C 20522C 2225 
2Ciior LODIOF 2224 
064008 O©10808B 2225 
259352 165311 2226 
000951 OGO951L 2227 
255219 155219 2228 

2229 

6012365 COL36% 2230 
2602680 2O0zZzBG 2231 
O61219 O8621i0 2232 
265312 195312 2233 
O6091E CBS91E 2234 
201544 1CIiS&A 2235 
251L1% 45113 2236 
055111 O55il1l 2237 
050017 O44017F 2238 
254D18 154D18 2239 
o78D18 CE4018 2240 
0003990 000Ss9D) 2241 
9001516 OO151I0 2242 

2243 

26121E 1852iE 2244 

265312 195312 2245 
2246 

O7S5F1E GCOSFIE 2247 
259914 165914 2248 
270914 1FS5914 2249 
200981 ico9Bi 2256 
0248.4 090824 2251 
OA0800 088800 2252 
OA0714 O88714 2253 
2EQ9EF 1EC9EF 2254 
201908 101908 2255 
249228 125228 2256 
241249 105249 2257 
00099D 0009390 2258 
201652 101652 2259 
2009CO 1009%CQ 2260 
004820 010820 2261 
05C620 074620 2262 
OOLDLF COIDLEF 2263 

2264 
2265 
2266 

0A01 84 088184 2267 

0501C6 0441C6 2268 
15AUG75 O6NnOVTS 
627848 


827765 


PART NOe 4247623 
PAGE 16A 
“SNURCE STATEMENT 
B TEFSKP2 GO STORE SO IN DOCF BUFFER 
TEFSKP1 TBGN O,FELG, TEFSKPS GO IF CNT MOVED 
ADDE SDtLe-211 . UPDATE SD TO 
BCY TEFSKP2 ‘MEASURE FROM END 
ADDI SDH.-1i OF RO COUNT FIELD 
TEFSKP2 8 TWRCOUNT GO WRITE RO COUNT 
TEFRORO ANDI CEB1sFF-PROCRO TURN OFF PROC RO CNT MARK 
TEFCLKRO 8 TROCGUNT GO READ RO CNT INTO CS BUFFER 
MBLOK 
8 * UNUSED ssssessesss 
8 s UNUSED ss2es3s33e3 
8 * UNUSED ssseesseses 
BS <0>8 
ERCESESCESSESKE SHEL EASEEREERKS EHS SSSERESHES SSL SHEE LSELES 
@® THES ROUTINE HANDLES OISK PROCESSING AT THE END 
% OF RO COUNT OR ANY COUNT FIELD 
SEREFRESSSVECSSSESKEKSSESAESSLEAERESR SRS SKSERE SERS SHETSS SSS 
* 
YEFCOUNT TBOFF 7.FTG,TEFNRRCT GO IF NCT WRITING 
TIBON ERASE, MSC1,TEFEND GO IF ERASE 
BU TDSUPTRK GO UPDATE TRK CAPACITY COUNTER 
8 TWRKEY GG WRITE KEY FIELD 
TEFNHRCT TIBON SRCH-CEBZ.TEFSRCH GO IF SEARCHING 
TIGBOF FNTWR,CEBL, +2 GO IF NOT FMT WRITE 
TIBON READ,CEB2,TEFCKDD GO IF READ CKD DIAG CHO 
TANODI CEB1L-.X*OF® TEST ENO OF COMMAND 
BNZ $43 GO IF NCTY DONE 
TIBON ERASE, MSC1L,.TEFSPK GO IF ERASE (SPACE OVER KEY) 
TEFEND & TENSTART GG TO END PROCEDURE 
TRON §,CEB2,-TEFNTROC GO IF NGQY END GF RO CNT 
= END OF RO COUNT FIELD 
eB TROCOMP GO COMPARE FCCHH EVEN/SODD CHT -<CDO- 
TEFENDRE BU FOSUPTRK GG UPDATE TRK CAPACITY COUNTER -<CO>- 
YISOF READ,.CEBZ , #42 GO if NOT REAO 
TIsOF HMUTRK,HSC1.TEFROK GO IF WOT ROSVERIFY K-3D CAD 
TBSOFF 3,REC,.TEFRETO GG IF RECGRD 0 cc eis 
TEFSPK B TROSPKEY GG SPACE OVER KEY FIELD 
TEFRDK TIBSON PROCRO,CEBlLeTEFSPK GO SPACE KEY IF 
TIBGON PROCNT,CEBL ,.TEFSPK PROCRG GR PROCNYT HARK ON 
TEFROKS TBON 4-¢RBYT, TEFNEEDL GO If READ RO-CDD Cmo 
TBON 5,RBYT, #43 GO IF READ C-K-D CHD OR 
TBOFF 6 RBYT.€4+2 READ VERIFY K-D CMD 
TEFNEEOL BU TEFGETKD GO GET Ki AND On 
8 TROKEY GG READ KEY FIELO 
= END GF ANY REGULAR COUNT FIELO 
TEFNTROC TIBOF REAO-CEG2,TEFRECO GO 1F NOT READ 
TIBOF MUTRK.RSC1, TEFROK GO fF NOT RO/VERIFY K-0 (RUST EE 
= RD RO K-D COMMAND?) 
TIBOF CMFDAT,FFLG, +3 GO TF NOT COMPRESSED DATA 
TBON 6,REC -TEFROKS SKIP COMPARE FCCHHR IF RECORD nO 
TBOFF 7,RECeTEFRDKS 1S 2NO>- 3RD, OR “4TH GE GROUP 
TEFRECO BU FEFCHPR 7 GO COMPARE FCCHHR 
BZ TEFCMPOK GO IF COMPARE 
TEFRNRF LB LB, X*004 GG Fast 
TEFL714 LBI L7oX*l4® NO RECORD FOURD 
ANDI GEN1,FF-XFRHACNT RST XFER HA/CNT MARK 
8 TSNNORM 
TEFCMPOK TIBON WRITE,CEB2,TEFWKEY GO IF WRITING 
TIBON READ,CEB2,TEFCKVKO GO IF READ 
TEFSCAN BU TEFGETKD GO GET KL AND OL 
8 TSCKEY GO SCAN KEY AND DATA 
TEFWKEY BY TEFCHPKO COHPARE Kt AND OL 
6N2 TEFNRE GO POST NO RECORD FOUND 
TBGN 7,16-TEFNRFE IF Ki AND DL MISCOMPARE 
TEFWRK 8 TMURXEY GO WRITE KEY FIELO 
= 
¢ THE FOLLOWING HANDLES READ CKO DIAG CHO AFTER ORIENTATION 
s 
TEFCKDD Lisl L1,.X*84* SET CS POINTER TO REC 


LINC Lb6etle4 


GET CURRENT REC NUMBER 


FAO~-1 
16A 


PROG ID 
PaGE 











‘ 


t .: 


| 
| 
| 


Q 
FA01 3340 OISK MICROCODE ----—- MOD 12 PART NO. 4247623 FAO] 3340 DISK MICROCTDE ----— MOD 12 PaRT NOW 4247623 
PAGE 17 é PAGE 17A 
| 
| 
| 
tOoce OBJECT CODE STM SOURCE STATEMENT | c toc. OBJECT CODE STM SOURCE STATEMENT 
G82E 0681C7 OA41C7 2269 LDEC LT7eliee GET ORIGINAL REC IN DOCF Se O86A 2£5103 190103 2339 ORI CEB1,xX*03* TURN ON PROC KEY AND PROC DATA MKS 
O82F OFB8647 OEC647 2270 EGR 1617 COMPARE i * 0868 245352 115352 2340 TIBGN MUTRK»MSC1eTEFROCNT GO READ COUNT IF MULTI TRK OP 
0830 025510 O9151D 2271 BZ TROKEY GO REAO KEY/DATA IF EQUAL O86C 0F&5104 090104 2341 ORI CEB1.PROCNT TURN ON PROC CNT MARK 
0831 056211 O55211 2272 TEON §&,CEB2,TEFSPK GO IF NOT EXO OF RO CNT Los 6860 255577 155577 2342 TEFWRCNT TIBON CMPDAT,FLAGsTEFWCCOD GO IF wRITE COMPRESSED C-D -<C0>~ 
0832 240005 188005 2273 Lal LO, X*058 POINT LO YO KL _ O86E 070373 OF5373 2343 TEFREGWC TIBOF TRKOFL»MSCl»eTEFWROK GO IF NOT TRACK OVERFLOW -<CO>—= 
0233 2A0185 188185 2274 Lol L1eX*85* PCINT Li TO OL HIGH O86F OTCFT4S OF4F74 2344 TBOFF 72PAHs TEFWADEX GO WAIT FOR INDEX IF ON EVEN TRACK 
0834 20080D 100860 2275 8 TEFENDRO GG PROC END OF RG CANT , 0870 0A0800 088800 2345 TEFINVTK Luli 18-0 POST INVALID 
e276 * - s. 0871 OAO711 O88711 2346 TEFL7Zil iB! L7,X*1i* TRACK FORMAT 
22T7 # THE FOL: OWING HANDLES SEARCHING {RECORD ORIENTATION) C672 201908 101908 2347 8 TSNNORM 
22T6 2 y 0873 201000 101000 2348 TEFWROK 6 TWRCOUNT GO WRIVE COUNT FIELD 
0835 O79F39 OE5F39 2279 TEFSRCH TIBOF DEFTRKeFFLG,TEFEROC GO IF NOT DEF TRACK ‘. 0874 O0C3E0 COOZED 2349 TEFWADEX 8uU TOXWADEX GO WAIT FOR INDEX 
0836 040938 035938 2260 TSON 3,REC,BH2 GO IF NOT LECGRO ZERO O875 OEL3FE O8D3FE 22350 ANDI MSC1,FF<TRKOFL RESET TRACK OVERFLOW MARK 
0837 275139 105239 22a TEBOF PROCKT CEB) »t¢2 GO IF PRGCESS CUUNT OFF f 0876 00045A 00045A 2351 8 TOXSCNCU GO DO INDEX PROCESSING 
0838 200767 100767 2282 8 TEFLSOD GO POST FORMAT ty, MESSAGE D SENSE * 2352 
0839 255238 155238 2283 TEFEROC TSON 5,CEb2:%+42 GG IF NOT END OF RO CNT OB77 059979 065973 2353 TEFWCCD TRON 6,REC,**2 GG WR COUNT IF (R~i}/4 -<€CD>—- 
O83A CSCFTF OV4SFTF 2284 TBON 7,PAH,TEFCDTRK GQ IF O00 TRACK O878 25096E 17596E 2354 TBON 7-RECs TEFREGHC IS AN INTEGER -<CD>- 
0838 260981 1009B1i 2285 BU TEFCMPR GO COMPARE FCCHHR O87 CACLS4 O8818& 2355 Lul Ligx*S4é POINT L1 TO RECGRD NUMBER -<CO>—- 
GB3C 02483 O9083F 2286 82 TEFRCDFD GG IF COMPARE Q6B7A 270199 1C419S 2356 SDEC REC.1L154 STORE UPDATED REC NUMBER -~<CO>- 
O83D 200280 100280 2287 BU TOSUPTRK GO UPDATE TRK CAPACIVY COUNTER O87B 2A0060 186000 2357 Lar L0.X* 00° iG POINTS TO SDH -~<CDO>—- 
O83E 201548 10i54A 2288 8 TROSPKEY GG SPACE KEY FIELD ‘ 2358 ® Li POINTS TO SOL ~<CD>- 
O83F 069244 O0A524% 2289 TEFRCDFD TIBCE WRITE.-CEB2,TEFNTWRT GO EF NOT WRITE K-D OR os7Tc 2ELLFA 18D1F8 2359 AKDY CEB1LeFF-PROCNT FURNM GFF PROCESS CGUNT MARK -<CD>- 
0840 265344 195344 2290 TIBOF MUTRK, MSC] TEFNTWRT REPEAT WRITE K~D oe70 2EB2G1 180262 2360 ADO] CEB2s1 FRK GRIENTATION TO END OF CNT -<CD>- 
0843 2009C0 1009CO 229% BYU TEFCHPKD GO COMPARE KE AND OL CS87E 0692800 O0080G 236i te TEFCOUNT €Q PROCESS END OF COUNT ~<CD>- 
O8f2 204611 210813 2292 BNZ TEFSPRK CO ¥O SPACE OVER K-D FIELOS 2262 © 
0843 2£5€611 174611 2293 TBON TeLOrTEFSPK fF KL AND OF MISCOMPARE Gare 601479 001479 2463 TEFCOTRK 8 TROCOTRK GO PROCESS GOD RO COUNT 
C865 E9249 O0AD240 2294 TEFNTWRT EGRI CE&2,SRCH TURN OFF SEARCH BIT : *. 236% ol OKn 
0845 200280 2002BO0 2295 Bu TOSUPTRK GO CHECK ITF NEXT RCD FIT ON TRACK 6909 2365+ DS <O>28 
0846 055111 O55111 2296 TIBON PROCNT,CEBioTEFSPK GO TF PROCESS NEXT COUNT FIELDS : 2266 SSECSEASHEEKESSRESKESSESSESSERLERSROSHS VS SSS HE ERE 
0847 249228 125228 2297 TIBON WRITE,CEB2,5 %EFWRK GG IF WRITE € 2367 © YHIS ROUTINE HANOLES DISK PROCESSING AT 
O64 661226 085226 2298 YEIBOF READ,CE82-TEFSTAN GG FF NOT READ 2368 # THE END GF A KEY FIELD 
0849 000814 000814 2295 TEFCKYKD 4s TEFRDKS GO CHECK BHICH READ CHD fo 2369 SHSESEHEKEGCHSEAKKERSESSELESLSEVH SS SOKSSESS SSS SSSSSS 
2300 SSH ARKESERSEESSEECHERLSESSSSRSRSTSSSSSL ERS SSSSS SH LS *. 2370 * 
2301 @ THES ROUTINE HANDLES DESK PROCESSING AT 0306 0593502 055302 2371 TEFKEY TImQN ERASE oMSCL» TEFSPD GO YF ERASE 
2302 * THE END OF A DATA FIELDS 9901 065203 695203 2372 TIBOF SRCH,CEB2,t42 GG iF NOT SEARCHING 
2303 SESSSEDESES EERE SES SL SEKSLEEHERSESKSESS ESSE SHS SSS SSSSTS 0902 G01559 001559 2373 TEFSPO 8 TROSPDAT GO FO SPACE OVER DaTa SIELD 
2304 & 6903 27&605 1F6605 2374 TOOFF FoF TOyFo2 GO If wOT WRITING 
RELA 295253 115253 2305 TEFOATA TIBON SRCH,CEBZ,TEFCLKCT GO Lf SEARCHING : 0904 20L03F 10103F 2375 B TWROATA GO WRITE DATA FIELD 
S646 2021GF LODIGOF 2306 TANDI CEBL»X* GFF TEST TO SEE EF CMD IS DONE : 9605 259162 165102 2376 TIBON PROCKEY-CEBIL,TEFSPR GO TF PROCESS KEY MARK STILL ON 
Cast 22485E 19085E 2307 62 TEFCONTY GO IF YES 0906 061208 085208 2377 TIBOF READ sCEB2e #42 GO SCan OATA IF MOT READ 
B86. 045350 015350 2308 TIBON MUTRK MSC1, #43 6G 1F MULTI TRK TYPE CMOS o9c7? 00153F OOi53F 2378 8 TROCATA GO READ DATA FIELD 
O86E 965150 095150 2369 TIBOCFE FMTWR,CEB1,#o2 GO FF NOT FMT WRITE CMD 0906 201658 1601658 2379 8 TSCDAYA GO SCAN DATA FIELD 
O84F GEDSOL GBDSC1 2310 ADOT RECel INCREMENT RECORD NUMBER 2380 FESERSEESEO EE EEECHESESE ERE SES SSE PETE PSSST SSLRSESSESSABSASH 
9850 275153 105153 2311 TIBOF PROCNT,.CEB1,TEFCLKCT GO READ CNT IF NOT PROC CNT Pa 2381 *® YHIS ROUTINE HANOLES DISK PROCESSING AY THE END 
0851 645160 015160 2312 TIBSOM FHTWRyCESL > TEFHRONT GO IF FORMAT WRITE u 2382 % OF FIRST SEGMENT OF A SPLET FIELO 
0852 2E11F8 IBOLlFB 2313 TEFPDCNT ANDI CEEBLsFF-PROCNT TURN OFF PROC COUNT MARK 2383 SRSSESESEKKKL EH SHEREEC SRE LEG EG HKKS SE SKSSEVS SOS SSTE RS OL SSHR 
6853 2T5F5D 1D5F5D 2314 TEFCLKCT TIBOF CHMPDAT,FFLG,TEFCTNXT GO IF NCY COMPRESSED DATA ~~ CCO>— e 2384 * 
0854 0A0184 088184 2315 i81 Lisx*B4* POINT L1 TOG RECORD NUMBER -<C0>=- is 6909 2B0614 iCG61A 2385 TEFKEYL KY L6 eK Cory KEY LENGTH ¥G LS 
GBS5 2401C6 104106 2316 LInHC LbsL1,0 FETCH RECORE NUMBER ~<CD>— O9SOA 20090C 16090C 2386 & +2 
0856 258658 164658 2317 TBGN 6el6,%¢2 6D RO COUNT IF ~<CO>- P 2387 * 
0857 27C650 1F4650 2318 TBOFF Tel Go TEFCTHXT Rf 15 AN INTEGER ~<CD>- ‘ OSOB 080618 OCGOIB 2388 TEFDATAL MV Lo» DONT COPY BATA LENGTH TO Le 
esse 2—C601 ABC601L 2319 ADOI tibet INCR RECORO NUABER ~<Cdo~ o90C 2B07iE Cavite 2369 mY L7, SOL COPY FIRST SEGMENT LENGTH TO i? 
6859 278186 3E4186 2320 SDEC Lbstis2z STORE UPDATED REC NUMBER ~<CD>— 0900 CEST7Fr OACTFE 2390 EORE LT, FF IMVERT FIRST SEGMENT LENGTH 
O85A 240002 288003 2321 LBi 16,xX*O34 10 POINTS FO CYL Low? : -<fD2- ‘ OQ9OE DFCTOE OFCTOS 2391 ADOL &Tek6 FORM SECOND SEGMENT LEG 
2322 * Li POINTS 1G CYL HIGH. ~<C0>- O90F OACEBC 0BB6BD 2392 LBI L6, WRG4S SET UP WRGS TAG MODIFIER 
O85B 2E0261 1BD208 2323 ADDI CEB2],1 TRK ORTENTATION TG END OF CNT -<CDo- O910 ZEL2FE 18D2FHB 2393 ANDI CEs2,xX*Fas UPOATE ORIENTATION MARK 
08sec 000800 600800 2324 B TEFCOUNT GO PROCESS END OF COUNT -<0G2~ & O91 CELFLE Q8DFIF 2394 ANODE FFLG—s Kee? RESEY DEFECT MARKS IN FLAG 
O85D 20145¢C ROLG5C 2325 TEFCTNXY 8 TROCOUNT GG READ COUNT FIELD ~<CDo- OSi2 2BiE1C IC9EIG 2395 mY SOL eZER zEaD Sp 
2326 ¢ ~<CO>- re B913 270915 1F4915 2396 TBOFFE TeGENL eto" GU TF €LLE GRO XFER SWITCH GFE 
Q5E O59373 065373 2327 TEFCONTU TIBG: ERASE MSCLsTEFWROK GO IF ERASE & OF914 ZE6FO4 19EFOS 2397 ORI SCNe FILEORS TURN GM FILE OOD TRANSFER 
DBSF 249362 125362 2328 TISGM MUREC -MSC1,%43 GQ IF MULTIPLE RECORD CHMOD 0915 27E61T LF6617T 2398 THOFF PyFTOy,t42 GSO RF READ OP 
0860 OALCEF QB9CFF 2329 Ls MREC 9 FF FORCE NREC TO FF or, 0916 GO1LD37T C01N37 2399 t FHRRWCOM GO RAISE TAG GATE 
0861 000955 000951 2330 TEFEHOPC 6 TENSTART GO TO END PRPOCEOURE €: OF? 2A0630 188630 2400 Lal LéeRhDG4 SET ROG4 TAG HOOIFIER 
N862 2TETHE AD&TSS 2331 TiBOF SCNSAT,FHF,TEFMOHIT GCG IF NG SCAN HIT 0918 OEZFOF OBEFDF 2401 ANDET SCN,FF-SCNSPLIT RESEY SCAN SPLIT FIELD 
0363 O7AT6} HEE’ 2332 TIBOF SCNEQ,FHE,TEFENDPO GO FF NOT STAN EQUAL ~, O919 201532 101532 2402 8 TROCNTR £0 UPDealTE READ USAGE COUNTER 
0864 264440 19Ce4G 2333 ORT STAT sSCANEQUL POSY SCAN EQUAL STATUS Sa 2602 SEKHSREETRARSETSES *HERELESS FRETS HA KBHOOSCAKSEESEERY 
0865 000951 900951 2334 8 YENSTART CG YG €NO PROCEDURE 240% @ THES SUBROUTINE RAISES RESPONSE GATE 
O866 OE2F 4G CBEF4O 2335 TEFNOHEIT ANO1 SCNextage TURN OFF ALL FILE XFER CONTROLS LR 2405 ¥ AND THEN DROPS tf 
0867 2EDCFF AiBDCFEF 2336 ADO NkREC pg X° FF e SUBTHACT 2 FROM N tae 2606 SPESEIRESESSEGEAESSETSEFEESESSSS IRV ESA SER HKSSSSLETD 
0868 2286561 LAQ861 2337 SHE TEFENDPG SO TO ENC PROCEDURE IF #=FF 2407 © 
0869 OED9O01 080902 2338 ADDI RECyt INCREMENT RECORD NUMBER C O9LA 2£5506 19E508 2408 TEFRESP ORI FIG sRE SPONSE RZISE RESPONSE GATE 
DATE 15aUuG75 O6NOVTS PROG 10 FAO-i , DATE 15AuG75 O6NOV75 . PROG 1D FA0-1 
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FAOL 3340 DISK MICROCODE 
LOC. OBJECT CODE STM 
0918 OF25F7 OB8E5F7T 2409 
o91C 280888 108888 2410 

2411 

2412 

2413 

2414 

2415 
O91D OE14FS& O8D4FE 2416 
OGLE O75F22 ODSF22 2417 
OD1F 0£5401 090401 2418 
0920 OBLALO OC9A1O 2419 
0921 081890 0C9B890 2420 
0922 0A0085 088685 2421 
0923 2400C1 1040C1 2422 
0924 240005 188005 2423 
0925 04400A O140DA 2424 
0926 248008 124008 2425 
0927 OCCLFE  O3CIFF 2426 
0928 228920 1a092D 2427 
0929 004870 010870 2428 
092A Z2D1ALB 14DA1B 2429 
0926 004870 010870 2430 
092C 2F54Ci 1D04C1 2431 
0$20 2D1ALB 14DA1B 2432 
O92E 200270 i30870 2433 
092F 24DB2C 135B82C 2434 
0930 OF54CO ODD4CO 2435 

2436 

2437 

2438 

2439 
0931 26051F  1C851F 2440 
0932 OF8555 OFC555 2441 
0933 0£0503 08C503 2442 
0934 244006 114066 2443 
0935 2F8657 1EC657 2446 
0936 2F4546 1006546 2445 
0937 0481[6 O0241C6 2446 
0938 OF8656 O€C656 2447 
0939 2F4546 106546 2448 
093A 244006 1140C6 2449 
0938 2F8658 1EC658 2450 
093C 2F4546 10€546 2452 
093D 044106 0141C6 2452 
093E OF8659 O£FC659 2453 
O93F OF45C6 ODC5CE 2456 

2455 

2456 

2457 

2458 

2459 
0940 244005 1L140C5 2460 
0941 2401C6 1041C6 2461 
0942 27COC7? 1F40C7T 2462 
0943 OF855A OFC55A 2663 
0944 2F8654  1€C654 2464 
0945 OF875B OECT5B 2465 
0946 2E0601 18C60L 2466 
0947 2F4546 100546 2467 
0948 2F45C7 1OCSCT 2468 

2469 

2470 

2471 

2472 
0949 200757 100757 2473 
0944 000800 000800 2474 
0948 200900 100909 2475 

094C 20084A 10084A 2476 
094D 060800 000800 2477 
094E 20094E 10094E 2478 

DATE 15AUG75  O6NOVTS 

EC NOw 827765 827848 





MOO 12 


SOURCE STATEMENT 


ANOL FTGeFF-RESPONSE DORGP RESPONSE GAT 
MVU L858 RETURN 

SKEKSESSESE KEKE SKEKKERSESHESSESESSS SSE SKEKSES SSE LEIS 

* THIS SUBROUTINE FETCHES Ki AND Di FROM ODCF 

* AND PUTS THEM INTO OLS 

SECKSESKSESES TEKSESHKESEEEKE SES ESESEELEERS SESE SERS 

* 


TEFGETKD ANDI MSC2,FF-DLO-DL256 


TIBOF CMPDAT.FFLGs.TEFNTCCD 

ORI MSC 2-DL 256 SET OL 256 MARK 

MY KCNT,ZER ZERO KL 

MVU DCNT,ZER ZERO OL Low ANC R 
TEFNTCCD Lui L0,X*85? SET CS POINTER 

LINC £1,400 FETCH DATA LENGTH 

LBI LO.X*'OSst SEY CS POINTER 

LINC KCNT,LO,1 FETCH KEY LENGTH 

“LINC OCNT,L0.2 

TADDE Lig FF TEST OL HIGH 

BNC TEFNT2Z56 GO fF OL < 256 

BNZ TEFINVTK GO POST ERRUR IF 

TADD KCNT,OCKT OL HY = 286, CHK 

BNZ TEFINYTK GO POST ERROR IF 
TEFORL1 ORU MSCZ,L1 SET OL256 AND RET 
TEFNT256 YADD KCNT,OCNT DL HI -=256¢~ CHK 

BCN TEFINVTK GO POST ERROR IF 

TBON 3,0CNT,TEFORLI GO IF O: MOT ZERO 

ORV MSC2,L0 SET COLO AND RET 


SHESSEKSES ELSE SHESSSHSSE KEK EKEKKSLSKSE SSS KEKKLESS FSSKHES 


* THE FOLLOWING SUSRGUTINE COMPARES FCCHHR 
SKLEKKESREKSKAHKSHKKSKSHELHSSE ASSESS SKS VSSRSES ES EKLSESKSHSE 


g 


TEFCMPR MY L&,FFLG 
EGR LSeFLAG COMPARE FLAG 
ANDI £5,X*03: 
LINC L6eLOei FETCH CYL LOW 
EOR L6rCLO COMPARE 
OR L5eL6 
LINC L6elle2 FETCH CYL HIGH 
EOR L6sCHI COMPARE 
OR L5,L6 
LINC Loel Ook FETCH HEAD 
EOR L6eHEAD COMPARE 
OR L5eL6 
LINC L6ek2o) FETCH RECORD 
EOR L6eREC COMPARE 
ORY iSel6 

@ 


SERSSERERSES SESE SE KES SESE KLE SHS SE SHSEESKSE HSS S KEKE SE SSESSSSS 
¢ THE FOLLOWING SUBROUTINE COMPARES KLE AND OL 
SOCESESEESE SES EEEEEDESESR SESE SS ERE SERS SESS SE SESESRS HERE 
s 


E 


ETURN 


HIGH 


OL>256 
KLeDE 
NOT 
URN 
KL4OL 
NOT 


UR 


TEFCMPKD LINC LSsLOel FETCH KEY LENGTH 
LINC L6sL190 FETCH DATA LENGTH HIGH 
LOEC LT7,LOol FETCH OL LOW 
EOR L5-KCNT COMPARE KL | 
EOR £6,SC2 COMPARE OL HIGH 
EOR L7,OCNT COMPARE DL LOW 
ANOEL L6s1 MASK DATA LENGHT HIGH 
oR L516 | * 
GRU -LSyL7 RETURN 
SSESSVSSSSESCKSCERKSESEKRESSSSESESRSESSE TSE ASEKERSEL SSKSSESLE SKS 
* ORIENTATION BREAK OUT 


SSSEKSESKSELSESHESESSE SREKTCS KEKE KS KLSSSSESISETHKESE SESE SSS 
s 


TEFDECGO 8 TEFENDHA $ 
B TEFCOUNT 3 
8 TEFKEY 3 
8 TEFOATA 3 
o TEFCOUNT $ 
8 s $ 


PART NOo 
PAGE 


RESET DLO AND DL256 MARKS 
GO IF NOT COMPRESSED FORMAT 


FETCH DATA LENGTH LOW {LO=08} 


LOw = G 


LOK <=256 


PROG ID 
PAGE 


4247623 


18 


FAO-1 
16 


a re ee enc armen eer cent me emma 


rae “h, 


FAO] 


c 


oO Oo 9 


em 


oy 


eo 


~ @ © 


me 


C 


Loc. 


OS4F 
0950 


095% 
0952 
0953 


0954 


0955 
0956 
O9S7 
0958 
0953 
O9S4 
0958 
O95C 
0950 
OS5E 
O95F 
0966 
C961 
0962 
0963 
0964 
0965 
0966 
0967 
0968 
0969 
096A 


0968 


0g6C 
0960 
O96E 
O96F 
0970 
o971 
0972 
0973 
0974 
0975 
0976 


~ DATE 
Ce 


C NO. 


3340 DISK MICRO CODE -~--- HOD 12 


OBJECT CODE 


200909 
000906 


oOcilis 
024954 
SO03E0 


201580 


064955 
ZEOSBF 
270854 
0A2300 
200a56 
ZA0LBe 
240106 
0adg400 
2FC41C 
OE B4FF 
CFCE04 
908965 
0A04606 
2A0500 
2éAc0scl 
200A006 
OCLES8O 
078869 
OA05O01 
200A00 
2EC502 
OF 4410 


200400 


2011C6 
040400 
OO1EBS 
283005 
0&2340 
OA3D00 
o7cocs 
2400C4 
0011C8 
008442 
204979 


15AUGT5 
827765 


100909 
000908 


oodiloG 
090954 
0003£0 


161580 


034959 
i8C9OBF 
IC4BSA 
064306 
LOCAS5SO 
168186 
2O41C6 
083400 
LFC4iC 
OAC4SFF 
OFCE04 
020965 
088400 
128500 
188601 
1Q00A00 
OOiE8O 
OE4869 
688501 
100A00 
16C502 
0DC410 


100a00 


1G11C6 
088400 
OO1EB5S 
1c6005 
08E340 
086000 
OF40C5 
104004 
0011C8 
060442 
110979 


STM 


2479 
2480 
248i 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
249% 
2432 
2493 
2494 
2495 
2496 
2497 
2498 
249¢ 
25006 
2501 
25602 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
25i1 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 


2541. 


2542 
2543 
2544 
2545 
2546 
2547 
2548 


O6NOV75 
827848 


PART NO. 4247623 
PaGE 18A 
SOURCE STATEMENT 

8 TEFKEY2 3 

& TEFDOATAL $ 
s 
& 
& 
= 
& “ 
& 
= 
s 

END COPY-MEMBER TEF 

caPpy TEN12 

SSECSRKESRSESKSKE SSSA SSKKSKKSEKRKASSHE SSE SKKESKKSSSSVVSISSS 
+ END PROCEDURE FOR READ, WRETE AND SCAN 
SSLSSKESKAK THES SS SKSSSERSERHKSSSKS SERS SE SEKSSSEKLIS SESS ICES 
= 
%=--->FINISK PADDING IF IN PROGRESS 
x 
TENSTART TANDI CEB1LePADTOIDX PAD TO INDEX? 

B82 TENOPOWN GO IF nO 

BU TOXWADEX GO TO WAIT FOR INDEX 
® TBON 7,PAH, TENOPOUN eeeee THESE INSTRUCTIONS NOT 
& ORI MSCL,ERASE *%ee* NEEDED IF WE ONLY PAD 
¢ 6 TOXFLEHD eeese EVEN OR OOD HALF TRACK 
TENGPOWN BU TROOPOWR ISSUE OP DOWN TAG 
& 
%--->FINISH CHANNEL TRANSFER EF IN PROGRESS 
x . 

TIBOF FINCHXFReGENL, TENDCF GO IF TRANSFER NOT IN PROGRESS 7 


ANDE 

TE BOF 

LB% 
TENDCEF 8 
LBI 
Linc 
LBI 
Ad01 
EORE 
ADD1 
BCY 
LBI 
LBi 
LAl 
6 
BU 
TEOFF 
LBI 
B 
ADDI 
ADDC 


TENCHCNT 


GEN] »FE-FINCHKER 
NOOP STAT, #43 


OST +O 
TENDOCE 


Li, D(ODCFORGR*6E) 


6261-0 
L4.0 

£4, NREC 
L4,FF 
16,14 
TENCHCNT 
L4o0 
15,0 
L@,x*ois 
FENHOP 
THRCHTNT 
6eLSete3 
LSs1i 
TENHOP 
L5ed 
L4,ZER 


RESET MARK 
GO IF COMMAND HOT NO-GP'D 
TERMINATE TRANSFER & RESET CHANNEL 
GO TO NEXT STEP IN EMD PROCEDURE 
ADDRESS OF INITIAL N 
FETCH STARTING N 
INITIALIZE WORK REG 
ADD 1 TO FINAL W & MOVE TO WORK REG 
SUBTRACT (NFL) 

FROM NI 7 
GO IF RESULT IS NOT NEGATIVE 
INTETALIZE ¥ TO ZERO 

If NF=NI 

18 NEEDED FOR CONTROL LATER 
SKIP THE CALCULATION 
CALCULATE (NI-NF) (KL*DL—-2)5 
GO If NOT 1 BYTE XFER 
LOAD 1 TO CNTR 
GO CONTINUE IN NEXT BLOCK 
ADD 2 

TO THE RESULT 


* NOW £4 &€ LS CONTAIN Y=(NI-NFICKL4DL} 


B 


TENHOP 


FOR ADDRESSING 


SEELSASAESSKLSARESEKELSELESKSSEKSERSE ASSESS LSSSESSISSETSES SSE KR PVCS S SS SSSEVS 


* SUBROUTINE TO CHECK CHANNEL COUNTER aft0 RESTORE DDCR 
SERSAESKSEKSTSS RS SSESKSE SS ESSE GEEKS SAKES SHKS SSE SEHS TES HS SRE TKS SESOKS 


= 
€ BEFORE ENTERING. SET ACTUAL CHANNEL SYTE COUNT -1 INTO LS & 
¢ LOAD L8 WITH DISPLACEMENT ADDRESS FOR THE RETURN SRANCH 
2 
FENAJAK BU TIORDOOCR FETCH CURRENT DOCR VALUE 
ist L4,0 SEF £4 FOR CCH 
BU THRCHKCR GO CHECK CHANNEL COUNTER 
mV 600.15 CHANNEL COUNT TO 600 
ANDI OST»CHOUTVAL MOVE 60G TO CIO 
LBE 800.0 HIGH DIFFERENCE IS ZERO 
LOEC L5S,LOek FETCH INITIAL 
LINC 14-400 DOCR 
BU TIOUDDCR GG TO SUBROUTINE TO UPOATE BOCR 
TEGR L4,L2 CHECK WI ORDER RESULT 
BNZ $¢+3 GO IF NGF EQUAL 
PROG ID FAO-1 
PAGE 18A 
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c 
Faol 3340 DISK MICROCODE MOD 12 PART NQ. 4247623 
PAGE 19 C 
toc. OBJECT CODE ST# SOURCE STATEMENT C 
0977 008543 660543 2549 TEOR L5,L3 CHECK £0 GROER RESULT 
O978 224978 19097B 2550 82Z #43 GG IF EQUAL 
O97 240829 188829 2551 Lor L6,X*29? POST LSR UPDATE ERROR 
O9TA 201E44 101LE4% 2552 B TWREMT2E FINISH POSTING FMY 2 ERROR 
O976 210908 140908 2553 BR BI(TENAJAXD S48 RETURN DIRECTLY OR BY RETURN BRANCH 
O9Tt 801047 001047 2554 TENTIGAL 8B TICTENDL RETURN 
UST OQOOATE OOCATFE 2555 TENTENAL B TENTENB RETURN 
O97TE COOAGL OO0GA61 2556 TENTENA2 B TENTENB2 RETUBN 
2557 MBLOK 
O9TF OOCOTE OOO9TF 2556 B % UNUSED seesszssess 
OAOO 25594 OS <O>8 
OACO 258C00 164C9C 2560 TENNOP TRON &,QBYT» TENWRKD GO EF write oP 
236) & 
2562 S-m—SF IRISH CHANNEL TRANSFER FOR READ KEY-DATA 
2563 @ 
OAS] OS8BO8 064808 2564 TISON UNITCHK »STAT,TENWSOGO GO IF UNIT CHECK IS Of 
OAOL OADTSS C88736 2565 LBi L7,DUTIOTENAS§ LOAD DISPLACEMENT FOR SUBR RETURN 
OAOS 27CSOT 1F4907 2566 TBGFE 7-GEN1L >» TENGOWAT 6Q TF OOO KXFER OFF 
OA0G O40407 034407 2567 TOON 3614, TENGOWAT GO fF HIGH COunY NOT ZERO 
OaOS OCCSED O3C5FD 2568 TADDI LSeX*FD® GO iF COUNT 
OA0G G2EAGE OB0A0B 2567 BAC TENT 1083 IS L€SS FHAN 3 
OAOT 20101F LOLOLF 2570 TEMGOWAT 5 TEGFeAIT GO TO SUBR, WAIT FOR EXD SF CHNL AFR 
OADE OFDOOL GBDOOL S571 TEMWS500 ADDI ZERei $30 #EICROSECOND 
D409 025806 OACA0B 2572 Bat TEN#5SO0 WAIT LOOP 
Of HOOo7e O000TZ 2573 8 TERETNCOR GQ TQ CHECK €GR END CHAR AFER 
ME OSE323 O96313 2574 SERTIOSS TIBOF OFFFZERO, OST, TENNOZER GO EF DIFF CNTR ZERO IS OFF 
Q00214 ONOALA 2575 8 TENT HK SO CHECK CHANNEL COUNTER 
2576 ® 
2577 S--mSFINISK CHANNEL TRANSFER FOR KAITE KEY-DATA 
2578 # 
CAOL OCSS8B1A O64BLA 2579 TENWRKD TISON UNIT TCHR »STAT, TENCHEK GO Gf UNIT CHECK IS POSTED 
GAGE 95C850 O74850 2580 ToON 7LLE.TENDODCE GO Tf ZEAD LENGTH DATA TRANSFER 
OAOF O4A312 O26312 2581 TIBON ENULCHRER, OS? , VENEERS GO IF END OF CHANNEL TRANSFER Gs 
OR10 eAde2h LRas25 2582 VENLS2Z25 LeY L5,K*25¢ POS? ERROR ~ NO END OF CHAN XFER 
OALL 201E 44 LOLE44 2583 8 THRERT2E 60 POST EQUIPMENT CRECK 
DALE £46315 2146315 2584 YENEND TIBON DIFFZERD, DST ,TENZER GO fF OLF FERENCE COUNTER ZERO Or 
GOALS ZAGB24 188826 2585 TENNOZER LBE L&EgK*°26# POST ERROR ~ DLFF COUNTER WOF ZERO 
DALG 201 ES&S LOLE44 2586 8 TWREMTZE GO POST EGUIPAENT CHECK 
GATS O42300 O8430G 2587 TENZER {63 DSTO otGP BATA TRANSFER, RESET CHAL HOWR 
ORG OOLICS OGLiCB 2588 BU TECROLER FETCH TURRENT DDODR TO 62 AND LS 
Gai? 201 E87 LOVEBT 2589 bil TWROHKGR GG CHECK THE CHANNEL COUNTEK 
SAIS 2C1Ore 1GiOFB 2596 Bu TLIOOOBR: FETCH DOOR TH L2 £ L3eTNCREMENT BY 1 
Oa le € ORES 100450 25914 8 J ENDDCE MOVE GN TO WEXT STE IR END PROC 
OAL & 2592 TENT!Gu4s EQU + 
OCALA GAZ206 OBAS50 2593 TENC HK Lear DST +e RESET DATA TRANSFER AND CHAL WDWR 
GAB 2010FB LOLOFE 259% BU FEODGDRI FETCH DBOR TO L2 € L3e INCREMENT BY 3 
OAIC O£0112 O8B8ile 2595 TENDOOR LE? LisDiODGRORG } DISPLACEMENT GF BODR IN CS 
CAID 044106 O141C6 2596 LINC LGsl baie FEVCH INEVIAL 
OALE C401CT OOG1C7 2597 LINC i7,L2,9 NOOR 
CALF ZEROFF iACGFF 2598 EQHRI L&,FF SUBTRACT 
GAazo OEBTFF SAaCTFF 2599 ECORI ive FF TRETEAL 
OAci OFCTCS OFC 703 2600 ANDL L7ei3 FROM ms 
OAZ2 2F4602 IDC 602 2601 AODL Lbeh2. . Finai ODDK be. 
OAZ3 OT8CZE DESCZ& 2602 TEGFS G,QBYT >» TENLINE GO TF wKoT 
OA2% 270026 1F4C26 2603 TBOFF 7F-OBVTs TENL JHE SCAN OP 
O825 200A45 1G0A4B «660% © TEHSCAOP GO HANDLE SCAN OP 
2605 Semone LE & LL? CONTAIN K=e(O0DDRF-3D0DR1) 
Ca2G 278R2% LDEGS2F 2606 TENLGRD TIROr GHITCHK,STAT;TEMWKYST GO 18 UNET CHECK I5 OFF 
OAL? 259146 36542F 2667 TiSOM PROCKEY pCEBL oTENWRISY GO EF PROCESS KEY 15 On ‘ 
OAZE & i i7S5i2D 2606 ViOON PROCDAT,CEBL, TENDER GG TF FROCESS DATA IS ON 
OAZY E iCCSIiB 2689 ado LS, OCNT 400 OGATaA LENGTH i 
Ga? O ODOC 410 2619 ADOC LeeZER FO TOTAL TRANSFER COUNT & 
CACH OTt OFS420 2614 ThOOF DLESE es MSC Zo TENDER 6G TF DATA LENGTH NOT 256 
Ob20 OFCST Oi 2632 AODET ifed ADD 256 TO COUNT a 
OA2D CFOSIA OoCSLA 2613 TENDER age LS ye YVONT ADD KEY LENGTH *. 
OQa2E OF Seis ORO GiO 2624 AUDGC i@eZER TO TOTS: SYTE TRANSFER TOUNT 
OAZF O52C4% 069043 2615 TENSRTSY FSOOR G,QBYT, TENUROS GO TF WRITE OF f 
OA30 208547 260547 2616 FEGR LSet? TEST FOR Rey IN LOw BYTE POSITION ‘ 
0A31 02443E O9DAZE 2637 BP FEXL ODOR 6O TF EQUAL 
OA32 06.234 065234 2618 TENROK VUROF READsCESs . S42 60 TF READ € 
DATE 15AUGT75 O6NOV75. PROG ID FAC-1 
EC NOe 827765 827848 PAGE i9*. 
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LOC. 


OA33 
CA34% 
O&35 
OA36 
0437 
OA38 
GA3S 
OA3& 
OA3B 
OASC 
0a3l 
OAZE 
O&3F 
OA4D 


DASE 
OAS2 
RASS 
OA4ae 
OA4SS 
GA4S6 
GA&? 
CASE 
CASS 
GASA 


GA4S6 
Oa4e 


GA 


&D 


CASE 
DAG 


0AdSo 
CASE 
0852 
GA53 
C&54 
0455 
OA5E 
ORST 
CASE 
CASY 
OASA 
CASS 
OASC 
OA5SS 
OL5E 
GASF 
Gabo 


BASE 
DAS i 
DAGZ 
OA62 
CALS 
GASS 
CALS 
CAG? 
AGB 
Oaey 
O86A 
OLS 
NAb 
AbD 
CAGE 
OaGt 


DATE 


&c 
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GBJECT CODE 


06CD035 
201E41 
270934 
2EQ9SFE 
0E5102 
QET394 
OE2393 
2A2100 
643100 
240737 
OOLOLE 
208446 
20 4A32 
z00aso 


OEB4FF 
ZEBSFF 
QFO7OS 
2F&604 
OO8A4B 
Z2EBEFF 
OESTEE 
CECTOL 
Z2FGSiG 
QDOGASE 


JE T3902 
GESD0T 
DE2340 
283006 
O012109 


268696: 
ZEOSDF 
£F8B54 
GOLOFG 
2G16EB 
eLfooge? 
OOGBEA 
QADLSS 
G41 ag 
260 19C 
O6545¢F 
CGOILSES 
ZABLOR 
2OORBES 
Z2ASE OG 
GAGSIE 


2E09 44 


O2O91o 
O27 HATE 
CECTER 
2SOR7F 
POLEEB 
55CC46 
Goibve 
25514 7F 
OHALO508 
ZASLOT 
200L 78 
OC i2G7 
O24476 
CES208 
280006 


V5AUGT5 
827765 


STM 
084035 2619 
LOLE41 2626 
1F493% 262i 
18C9FE 2622 
090102 26253 
O9F391 2624 
O@F393 2625 
12A100 2626 
666100 2627 
188737 2628 
OOLOLE 2629 
160446 2630 
RiGA32 263% 
100A50 2632 

2633 
OACSFE 2634 
LACSEF 2635 
OFC7TOS 2636 
10C6é04 2637 
OQ20A4BR 2638 
LACSFF 2639 
OACTFF 2640 
OBCTOL 264i 
10€610 2642 
BOORSC 2643 

2644 
G2F302 2645 
OCBDGY 2546 
O8E360 2647 
1CEDCS 2648 
GOLICS 2669 

2656 

2652 

2652 
LA@96E 2653 
L8TSDF 2654 
1E485&@ 7655 
GOLbFG 2658 
iOIBEbB 2é57 
Cesog2 Z45& 
OCOBFA 2659 
G88184& 2860 
Q224199 2661 
1G64i9C 2662 
095450 2663 
HOISFS 2664 
188iC8 2665 
lOOBEF 2664 
L66S09 2667 
O88@7E 2658 
10096C 264% 

2670 

267i 

26%2 

2673 
ONSIG 3676 
OSOATF 2675 
TSC SEE 2brs 
LSGQTF 2677 
LOiSES 4675 
OF406C £679 
O4517TF 2680 
USSL7F 2681 
DE8568 2682 
L8B8iOF 2683 
LO0ATS 2éB4% 
OOD297 27686 
OSOAT6 £686 
030708 2687 
ABSO0G 2668 

CéKOV7TS 
$27868 


« e 















PART NO} 4241623 
PAGE 19A 
SOURCE STATEMENT 
TBOFF 3,RBYT, #42 KEY-DATA CMO 
& TWRLE24 POST ERROR 
TBOFF 7,GEN1,%-1 GO POST ERROR IF ODD XFER OFF 
ANDI GENI,«X®FE® RESET MARK IN CASE 2ND TIME AROUND 
ORI CES81;,PROCKEY SET MARK SO THAT 14,15 NOT UPOATED 
ORI DXT eK*91° SEY UP CHANNEL 1 BYTE TRANSFER 
ANDE ODxXC.xX*93°* RESET CHANNEL OOD XFER AND COUNTERS 
LBI CCH,.O CHANNEL TRANSFER COUNT 
LBI CCL .o IS ZERO FOR 2 BYTE TRANSFER 
LBI L7eOC FIOTENAS) LOAD DISPLACEMENT FOR SUBR RETURN 
& TIOCRRFR GO TO SUBROUTINE TO TRANSFER 1 BYTE 
TENLGOK TEGR L4eLlL6 TEST FOR X=V IN HIGH BYTE POSITION 
BNZ TERNOK GO 1f NOT, ERROR INDICATED 
8 TENDOCF CONTINUE INTO NEXT STEP OF END PROC 
theo—SHEXT CALCULATE (X-Vi FOR BDECREMENTING ODDR ON WRITE OP 
TFENWRO® EORI] L4oFF SUBTRACT 
EORE LSeFF V 
ADOL & 7,45 FROM 
ADOC ibeli x 
6CY TERSCNOP 6G IF POSIYIVE VALUE 
EORE &6,FF COMPLEMENT 16 
EQRE Le FF AND LT 
ADDI <.Tel AND 
ADOC LGeZER AOG i 
8 TERSCHOR DON’ Y TURN ON SUBTRACY BIT 
Go eme SSUBTRACT €X-V¥!} FROM CURRENT ODOR 
PEMSCNOP GRI GAC » SUBTRACT JURN ON THE LSR SUBTRACT 817 
YERSCHOR AY 800,L7 MOVE LOwk DIFFERENCE TOWARD CHANNEL 
ANDO’ OST, CHOUTVAL iGe DIFE TO Cis 
KY BOO,LS HIGH DIFF TOWARD CHANNEL 
BU TFIOVOLOR DECKREMENT COOP BY CALCULATED VALUE 
& 
BeomreSKRESTGRE DOCK LF REQUIRED 
& 
TENDOC & FIGOF FIXOGDCS -GENL + TENHACNT GG IF RESTORE NOF REGUIRED 
ANDE GEM: , GFF IXDOCE RESET MARK ey 
TIBQE UNTTCHK , STAT, #42 GO Tf WO UNTT CHK 
Bu FSCRODCE GO RESTORE CCHHELDLDL IN DDC FM 0:5 
ou TSXwINS CONVERT CCHH FROM 3340 FO S/3 
Let LG, DiDDCKORGL E21 ROAQ DISPL OF FLAG BYTE FOR SuaR 
BU TENFLGO? GG ZERO BITS Ge~2 OF FILE FLAG 
Lisl LisGtOOCKORGReS} DISS. ACEMENT GF REC InN ES 
SINC REC LTS? SYGRE REC & 
SINC NREC LILO 3 BYTES 
TIBGF OPCKROCL ASC! TEMXCDCE GO TF BOCK LTE EVEN 
BU FROGS. SH7FT DOCE BACK TO OOO SGUNCARY 
PESXOOCE Lei CCL eS TRANSFER LO BYTES 
eu TENSODS & SG DG CHANNEL TRANSFER 
LBy 5.9 FER BY S TRAMSFERREB 
LOE LOsU4TENTENA?Z | SET UP OLSPLACERENT FOR SUBR RETURN 
3 PENA GAR SO CHECK CHAR CNTR € RESTORE DOCK 
gs 
Bmw D>YRANSSOR NB OR CGUAT FIELG If REQUIRED 
& 
TEMTEHB? EQU x 
TERHACAT TEaNOT GEHL. RFRHACHT FEST iF THIS SYEP 18 REGD 
Bz TENRTBOF OO Tf NOT RESUERED TO PO PHAS 
ANDY GEN) sf F ZF RMACNT BESET FTNIS MARK 
TIBGOH NOC, STAY. TERR BODE Pee %0 MERT SYEP LF Nhe oe 
6u TSN ESS ¥ SCHH FROM 3340 Th $23 
TRON FeRBYT. FENRDAA GO if FHIS 95 aA READ HA 
TIBGiW PROCRO,CEEL,TENXOCOF 60 LF PROCESS RG 1S GN 
TI8GH FROCNT+CEBL.TENXZOCOF GO TF PROCESS COUNT £5 On 
Lisi 15.8 SET UP Fu 
Let cci.? TRARSFER 9 BYTES 
& VERNALC ES ANG Gre ba if 
FEMRGHA TANDZ CEbZ,h*O7* HAS TO CHECK Oe ERD SE HA 
Bz TENCHS GG GF Fy Fs 
OR i CE82 o WHACK SEY WREITE He , 
L63 LO oDtCODCERGH 24 } FETCH CFS PLAC EMEHT 





PROG 10 


PAGE 


FAG~1 
19A 








C. 
MOD 12 | PART NG. 4247623 FAOL 3340 DISK MICRNCODE 





MOD 12 PART NOw 4247623 





FAQL 3340 DISK MICROCODE 
PAGE 20 + PAGE 20A 
{ - 
LOCe OBJECT CODE STM SOURCE STATEMENT - - LOC. OBJECT CODE STM SOURCE STATEMENT 
OA7O 240180 188180 2689 LBI = L1, 04DDCFORGR) ee ee ®* SDL - 0830 0018DC 00180C 2759 BU TSKWINS GO CONVERT CCHH FROM 3340 TO S/3 
OAT 040000 004000 2690 LINC SDH»i0,0 FETCH ‘  0B31 089405 029A05 2760 SABI BLOCKS8,B6{D0DCFORGL) RESTORE ALS BASE BLOCK POINTER 
OAT2 24010E 10410E 2691 LINC SOLst1,0 THEM BOTH 0832 0C1207 000207 2761 TANDI CEB2sxX*O7* TEST FOR END OF HA ORIENTATION 
OA73 OAOOLA O8801A 2692 LBI LO,0¢SDFORHA) FETCH DISPLACEMENT OF STORED SO - 0333 024842 090642 2762 Bz TENCNTR GO IF END OF HA 
OAT& 044090 01409D 2693 SINC SDHelOel STORE THE NEW jp Ne 2763 © BU TENFLGO2 GO ZERO BITS 0-2 OF FILE FLAG 
QATS 24009E 10409E 2694 SINC SDLst0s0 SD BYTES FOR THE WRITE HA 2764 * ADDIE t1e2 ADDRESS OF R IN CONTROL STORE 
OA76 0A05%% 088504 2695 TENCHS LBI L5s4 SET UP TO oo 2765 * - SINC RECeL1s0 STORE REC TO R LOCATION IN BUFFER 
OA7? 0A3103 068103 2696 LB81 86h TRANSFER 5 BYTES TO CHANNEL - QB34 0A0400 088400 2766 LBIE = L420 SET UP TO 
OA78 0a0002 088002 2697 TENALSF LbI LO, OfPDCFORGL+2) LOAD DISPL OF FLAG BYTE FOR SUBR 0835 OA05O7 088507 2767 LBI L507 TRANSFER 9 BYTES TO CHANNEL 
QA79 OOOBFA O0OBFA 2698 BU TENFLGO2 GO ZERO BITS 0-2 OF FILE FLAG » QB36 283105 1€8105 2768 TENXPZ2 MV CCLst5 PUT FINA! VALUE OF CHANNEL 
OATA 26547C 195470 2699 TIBOF DDCRODD,MSC2,TENCHXFR GO IF DDCF IS ON EVEN 8QUNDARY ' 0837 282104 ECALOS zie? av COE a ae e See ee eee et 
OA7B OO15F5 0015F5 2700 Bu TROMODD ALIGN DCTF TO NOD BOUNDARY 0838 25C83E 17483 B ol8e 
OA7TC 200CEF 100BEF 2701 TENCHXFR BU TENSDDCF STORE DOCF TG CHANNEL - 0839 07883C O0£483C 2771 TBOFF 6518, TENZPZ GO IF NOT 1 BYTE TRANSFER 
OATO OAOB70 088870 2702 LBI = L8, DC TENTENAL} SET DISPLACEMENT FOR SUBROUTINE ‘  @B3A 0AOSOL 088501 2772 LBI «LS eX#O18 BYTE TRANSFER COUNT IS 1 
OATE 20096C 10096C 2703 8 TENA JAX GO CHECK CHAN COUNT & RESTORE DOCR 0838 200B3E 10083E 2773 B TENZDODF por ore ee 
OATE 270% TENTENB] EQU # .  ©83C 2EC502 18C502 2774 TENZP2 ADDI L5e2 A HANNEL 
CA7F 000800 000800 2705 TENXDDDF 5 TENDDDF CONT INUE '  QB3D OF4410 000410 2775 ADOC L4seZER COUNT FOR ACTUAL COUNT 
2706 MBLOK OB3E O00BDE O008DE 2776 TENZDDDF BU TENSDODF GO TRANSFER ODDF TO CHANNEL 
0B00 2707+ DS <0>8 OB3F 0011CB 0011C8 2777 BU TLORDDOR FETCH CURRENT DDOR 
2708 © ‘9840 20LEB7 i01EB7 2776 BU TWRCHKDR GO CHECK CHANNEL CUUNTER 
2709 #——->TRANSFER DODF IF REQUIRED 0B41 2010FB 1010FB 2779 BU TIOODOR1 INCREMENT DOOR BY 1 
2710 * - 2780 © 
OB00 070942 0C4942 2711 TENDDDF TIBOF XFRODDF,GEN1,TENCNTR GO IF THIS STEP NOT REQUIRED ee #--—>UPDATE THE READ USAGE COUNTER IF REQUIRED 
O80 2E09F7 18C9FT 2712 ANDI GENL »FF-XFRDDOF RESET THIS MARK 62 * 
0602 050b42 044842 2713 TIBON NOOP,STAT,TENCNTR GO IF THIS COMMAND IS NG-OP*O O0B42 07895D O£6950 2783 TENCNTR TIBGF UPOTROUSsGENLeTENTOTCY GO IF UPDATE NOT REQUIRED 
0603 278C17 LE4&C17 2714 TBOFF 6sQBYT, TENFROHA GO IF THIS IS A READ OP 0B43 0A00L6 088016 2784 Lbl Lt0,0(BYTEREAD) DISP OF BYTE COUNT FOR THIS OP 
080% 056706 056706 2715 TIBON SCNSAT, FHF ,#42 GO IF SCAN HIT 0844 2440C6 1140C6 2785 LINC LoslOrl FETCH HI BYTE COUNT 
0805 OCOOAIA OO0A1A 2716 8 TENCHK GO RESTORE ODDR FOR NO SCAN HIT _  QB45 27COCT = 1F4OCT 2786 LDEC- LT7oLOok ee 6h4o le 
O©B06 OADOIC O8801C 2717 LBI =LO,D¢STANSTOR) DISPLACEMENT OF STORED SCAN BYTES 0B46 244090 114090 2787 ss zeton BERG TENE BYERS 
OBO7T 2A2100 18A100 2718 iB CCHsO CCH IS G FOR DDDF RESTORE ON SCAN 0847 04009G 004090 2788 SIN she 
0808 0440C1 014001 2719 LINC LlelOol CCL OBTAINED FROM SCANSTOR BYTE 1 —-« @B48 2A001E = =18801E 2789 LBI «=: LO»OL UC WPTR) GET ADDR G& CURRENT DEVICE POINTER 
OB09 083101  0C8101 2720 HY CCL sth SERESAEEECERASSEREERSERESEREH ESS OS 0B49 2400CL 104001 2796 LINC LislOr0 L1 CONTAINS THE POINTER TO SENSE 
OBOA 2400C8 1040C8 2721 LINC L8,L020 FETCH SUSR CONTROL DATA XFR BYTE OB4A OECLIC OBC11IC 2791 ADOT £1,528 AOD DISPLACEMENT TO READ USAGE CATA 
OBOB 2E14DF iI8D40F 2722 ANDI MSC2sFF-DDDRODO ODDRODD MUST BE OFF NOW .  OBSB 2441C2 2141C2 2792 LINC L2eLlel FETCH 
OB0C OOOBDE  O008DE 2723 BU TENSDODE GO TRANSFER DDDF Tu CHANNEL '  OB4C 044103 014103 2793 LINC U3eL1e2 READ 
060D 0011CB 0011CB 2724 BU TIGROODR FETCH DDOR OB4D 244104 114104 2794 LINC L4ellel USAGE ore. 
OBOE 2A0401 188401 2725 LBI = L4yX*O1° SET DDDR INCREMENT COUNT TO 256 FGR - OB4E 240105 104105 2795 LINC L5eL1,0 COUNTER 
OBOF 0A0591 088501 2726 LBI =L5,xK*"O1* NO TRANSFER, OTHERWISE 257 -  OB4F OFO50T  OCC507 2796 ADD L5eLT adD 
OB1O 25C813 =174813 2727 TBON 7eL8¢TENCHKDR GO IF ZERO BYTE XFER OB50 2F4406 100406 2797 ADOC L4sL6 CURRENT 
Ob1il 061413 085413 2728 TIBOF SCANSW,MSC2,#42 GO IF 257 IS CORRECT - ©B851 2F4310 100310 2798 AcpE pornee vACUE 20 
OB12 2EC501 18C501 2729 ADOI L5o2 MAKE INCREMENT 256 "9852 0F4210 ODC210 2799 ADOC L2eZ 
0813 201EB7 101EB7 2730 TENCHKOR BU = TWRCHKOR GO CHECK DDDR 0853 279456 15456 2800 Benoa ae ee ee poe guvescns Pa coUNTER 
0824 280604 1C8604 2731 MV L6st4 MOVE HI DIFFERENCE 0854 2EC301 180302 2801 A L3, 
OB15 280705 1C8705 2732 MV L7»L5 MOVE LO DIFFERENCE - 0855 0F4210 00C210 2802 ADDC L2,ZER BECAUSE 6YTEREAD CNTR OVERFLOWED 
0816 200A4B 100A4B 2733 B TENSCNOP GO RESTORE OODR OB56 07C185 OF4185 2603 SOEC L5eL151 STORE 
0817 0A0400 088400 2734 TENFROHA LBI 14,0 INITIALIZE CCH TO ZERO .  0857-27C184 1F4184 2804 SCEC LeeLlyt THE 
0B18 040800 068800 2735 LSI L8,x*008 AND CONTROL BYTE FOR 2-256 BYTES .  OB58 o7cias orslee hd soe tS ee 
0819 25CD29 174029 2736 TBON 7 ,RBYT, TENOFCCH GO IF READ HA OP 0B59 240182 1 2 2 vb le 
OCB1A 278626 164826 2737 TIBOF UNITCHK,STAT,»TENKLOL GO IF NO UNIT CHECK POSTED - OB5A 26025D 18425D 2807 TBOFF O-L2,TENTOTCU GO IF NOT COUNTER OVERFLOW 
OB1B 059142 065142 2738 TIBON PROCKEY.sCEBieTENCNTR GO IF PROCESS KEY FIELD IS ON OB5B OO1LLF4  O011F4 2808 BU TIPBSGEN GENERATE 4SDA 
pele 270126 1F5126 2739 TIBOF PROCDAT,»CES1,TENKLOL GO IF PROCESS DATA IS OFF OB5SC OF4A42 ODCA42 2809 : OR UR - Ae een ta DACA UE AND ERD OR 
OB10 2B051A 1C851A 2740 MV L5,KCNT MOVE KEY COUNT TO CHAN CNTR + 0850 20011 10011F 2810 TENTOTCU 8 U 
OBLE 06DA42 0B5A42 2741 TBOFF 3,KCNTsTENCATR GO IF KEY LENGTH ZERO ; a a 7 ' 281] SPARSE ERTESERE RE SEESEE SEES ES ERES ESE SEEEEEEESESSE SHEE 
OB1F OC9AOL  O2DA0L 2742 TENKTEST TEORI KCNTeX*OR* TEST FOR KEY LENGTH OF 1 2812 *  — SUBROUTINE TO STORE ODODF TO CHANNEL 
OB2ZO 204824 110824 2743 BNZ TENLTEST GO if IT IS NOT e 2813 SFHEEEEEEEESEEESSEEESTEESESSSEESERESESE SES ESET ESE SEES 
0B21 2A0802 188802 2744 LB1 LB,xX*O2* INDICATE 1 BYTE TRANSFER 2814 * RULES FOR USING THIS SUBROUTINE: 
0822 240500 188500 2745 LBI L590 SET CCL FOR THIS CONDITION A * le . Sea ee eee Oe Tey eeesnebs SEY Leaso2! 
0823 000836 000836 2746 8 TENXP2 AND PRUCEED 816 & ’ - 3 
0824 2ECS5FE 18C5FE 2747 TENLTEST ADDI L5,X*FE* SUBTRACT 2 FROM CHANNEL COUNT ; © 2817 * IF 2-256 BYTES ARE TO BE TRANSFERRED, SET L8='00* OR*04%. 
0825 000836 000836 2748 8 TENXP2 AND PROCEED 2818 * IF EXTENDED CHANNEL OP(READ KEY-DATA)» MASK L8 WITH X*03 
0826 2A0600 188600 2749 TENKLDL UBI 6,0 SET N TO ZERO FOR FOLLOWING SUUR @ ed 2 2e SET CCH» CCL=(N+1 (KL4DL-2). 
Ob27 OO1EBO OC1E8O 2750 BU TWRCHCNT GO CALCULATE CHANNEL COUNT & SET IT 820 + 
0628 000B36 000836 2751 B TENXP2 CONTINUE OB5E 25C86E 17486E 2821 TENSDDOF THON 7eL8,.TENFGONE GO If NO DATA TRANSFER INDICATED 
0829 089A06 029A06 2752 TENDFCCH SABI SBLUCKE,BIDODFORG) SET BLOCK ADORESS TO ODDF €: OBSF 089E86 O029E86 2822 SAB] S8LOCKCH,B(DDDFORG+X* 8000") SET BLOCK TO DDDF BUFFER 
0826 OA0182 088162 2754 [Bi LIZDLDDDEDRGeX*e0"42) EVEN ALIGNMENT DISP OF CHI”  ppel 261163 185163 2826 soe ROCTODE Ceeigees, SKIP IF NOT READ RO COUNT 
8 5 LBI =L1,D(PDDFORG+X*80°4+2) = = EVEN ALIGNMENT DISP OF CHI. 8 ’ 
OB2C 26942F 1A542F 2755 TIBOF DDDRODD»MSC2,TENLSOK GO IF EVEN ALIGNMENT IS CORRECT ¢ OB62 28BE02 128E02 2825 SADI DISPCH,D(DDDFORG+2) CHANNEL DISPLACEMENT POINTS TO FLAG 
062D 2A0082 188082 2756 LBI «= LO, DEDDDFORG+X* 80°42) ODD ALIGNMENT DISP OF FLAG “ 0863 2A3390 188390 2826 LBI  OXCeDATACHAN+LSRSELDR RESET OXC TO SET UP FOR CHAN STORE 
OBZE (A0103 088103 2757 LBI L1,DC0D0DFORG+3) GDD ALIGNMENT DISP OF CHI 0864 080700 039700 2827 S21 ZLSCH» ZLSSCHAN SET ZLS TO STORE TO CHANNEL 
Of2F OOOBFA COOBFA 2758 TENLSOK 6U TENFLGO2 GO ZERO BITS 0-2 OF FILE FLAG C. 0865 278867 1£4867 2628 TBOFF 65L8e%42 GO If NOT 1 BYTE TRANSFER 
DATE 15aUG75 O6NOV7S ; — . PROG 10 FA0-1 C DATE ee pemoy | ave 1D rags 
- EOS NO. 82776 2 
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FAOi 3340 DISK MICROCODE ~---- MOD 12 PaRT NOe 4247623 FAOL 3340 DISK MICROCUDE MOD 12 PART NOW 4247623 
PAGE 2i: pe PAGE 21a 
ks 
| 
LOC. OBJECT CODE STM SOURCE STATEMENT ! os toCe OBJECT CODE STH SOURCE STATEMENT 
0@6%6 0F&7301 09F301 2829 ORI DxC »-CHNL1I6YT SET CHANNEL 1 SYTE TRANSFER BIT | 2 0C17 0C1207 000207 2899 TANDI CEB2.X*O7?* TEST TRACK ORIENTATION 
G: «7 069469 0A5469 2830 TIBOF COODRODD ,MSC2, #42 GO IF DDDR 1S GN EVEN BOUNDARY \ 0C18 024C2A OS0C2A 2900 82 TERNSCNT GO If HA FIELD 
OB58 0E7340 09F 340 2831 ori DXxC eCHANODD SET OOD TRANSFER CHANNEL BIT | 0C19 279225 1E522D 2901 TBOFF 6,CEB2,TERCNT GO IF ANY COUNT FIELD 
0B69 24496C 11496C 2832 TIBON FINCHXER,GENL»TENOPEN GO IF EXTENDED CHANNEL TRANSFER | ¢ @€1A 070221 OF5221 2902 TBOFF 7eCEB2, TERMSG46 GO IF KEY FIELD 
OBA 2A0734 188734 2833 B81 L7,O( TIOTENAL) SET UP RETURN POINTER AND : t OC18 25431F 15431F 2903 TIBON NOSYNC,L3,TERMSG47 GO IF NO SYNC #YTE FOUND ERROR 
O658 OOLOLE  OOLOIE 2834 8 TIOCHXFR GO TRANSFER OODF TO CHANNEL | OC1C 26121E 18521£ 2904 TIBOF READ CEB2,#+2 GO IF NOT READ -- MUST BE SCAN 
064C O0€7308 O9F308 2635 TENGPEN ORI DXC pALOWCHAN ALLOW CHANNEL CIFFERENCE COUNTER |} g  0C10 000000 000000 2905 - 8 TER DOECC GO TO ANALYZE DATA FIELD DATA CHECK 
0860 2A2310 18A21060 2836 tsi DST sALWCHXFR INITIATE CHANNEL TRANSFER € OC1E 200D01F LOODLE 2906 8 TERUNCOR GO POST UNCORRECTASBLE DATA CHECK 
OBSE 2837 TENTIOB: EQU * OCiF OEC8O1 O6C8O1 2907 TERMSG47 ADDI 18,1 SET MSG TO *47°* 
GBEE OFS0D0 OEDODC 28386 TENFGONE EORU ZER.ZER RETURN : f o0c20 0€5101 090101 2908 ORI CEB1,PROCDAT OONT XFER OATS FIELO 
2839 SESESEKAEESERESELEAKKERSSEKSSESSSLASLAKE SES SESKSESSVESSS Re 0C21 OFC8O1 O8C&OL 2909 TERMSG46 ADDI L8—1 SET MSG TO °46* OR *425 
2840 * SUBRGUTINE TO TRANSFER DOCF TO CHANNEL O0C22 008845 026845 29310 TEORI LBeX*45* GO IF NOT NO 
284] SESESESKESRESSESSESSESESESRERESESSLASEESKSES ESSEESSSESSKSS ' fr 0023 204C25 110C25 2911 BNZ TERMSG45 “SYNC BYTE KEY 
2842 & oe OC24 0E5102 090102 2912 ORI CEB1, PROCKEY DONT XFER KEY FIELD 
2643 ¢ BEFORE ENTERINGe SET CCL TO (CHANNEL COUNT~2) OC25 O£C801  OsC801 2913 TERMSG45 ADDI 18,1 SET MSG TO *45* GR "41° 
2644 * , 0C26 261228 185228 2914 TIBOF READsCEB2,TERL704 GO IF NOY READ OP 
CB6F 042300 08A300 2845 TENSODCF Lal OST,0 RESET ALi OW CHANNEL XFER “6 0£27 OTCD2A OF402A 2915 TBOFF 7,RBYT,TERNSCHT GO IF NOT READ HA UP 
0870 0A3380 08B380 2846 Le! OXxC »X*80! SET DxC FOR CS TO CHANNE? XFER OC28 2E09FT 18C9FT 2916 ANDI GEN1,FF-XFROODF DONT XFER RO COUNT FIELD IN DODF 
0871 O89E85 O29E85 2847 SABE BLOCKCH,B(DOCFORGL+xX*8000*) SET BLOCK TO DOCF BUFFER : o0c29 200C2B 100C28 2917 8 TERL 704 CONTINUE 
_ 0872 286E02 128E02 2848 SADE DISPCH,D(DOCFORGL+2) SET DISPLACEMENT TO FLAG BYTE |< OC2A 2EO9EF I8C9EF 2918 TERNSCNT ANOI GENL,FF-XFRHACNT DONT XFER COUNT FIELD 
0873 265475 195475 2849 TIBOF DDOCROOD eMSC2,%42 GO IF DOCR EVEN OC2B <A0704 188704 2919 TERL704 LeI L£7sX*04* POST UNCORRECTASLE DATA CHECK 
0874 0E 7340 09F 340 2850 ORI OxC »CHANOODD SET CHANNEL ODD TRANSFER | - OC2cC 201908 101908 2920 B TSNNORM GO TO ERRGR ROUTINE 
0875 08D70D 039700 2851 SZ1- ZLSCH,ZLSSCHAN STORE TO CHANNEL ' + @C€20 0C0310 00C€310 2921 TERCNT TANDI L3eDATACHK GO IF COUNT FIELD 
6876 2A2100 18A100 2852 LBI = CCH» O SET UP CCH OC2E 004C33 010C33 2922 -  BNZ TERCHKIG _ DATA CHECK 
O877 OAOT5S5 088735 2853 LB] LT7sD( TIOTENA2) SET DISPLACEMENT FOR SUBR RETURN - » QOC2F 058333 064333 2923 TIBON DATAFND,L3,TERCHKIG GO IF DATA FOUND 
OB7e OOLOIE OOLCIE 2854 8 TIOCHXER GO DO THE CHANNEL TRANSFER eke 2924 * NO SYNC BYTE FOUND AND NO DATA FOUND FOR COUNT FIELD OP 
0872 CF90D0 8ED0D0 2855 TENTIOB2 EORU ZER.ZER RETURN 0C30 250233 175233 2925 TBON 7,CEK2,TERCHKIG GO IF END OF RO COUNT FIELO 
2856 SFSESEESSESESESESSESSESESESSCSEHRESSEEASESSESSSESESSSHSSKSERSSKSSSESSLVE ; je 2 0C31 O003E0 O003EO 2926 BU - TDXWADEX GO WAIT FOR INDEX 
2857 * SUBROUTINE TO SET BITS O-2 OF FLAG BYTE TO ZERO —\  9€32 00060A GO004GK 2927 TERDOIDX 6 TOX INDEX GO TO INDEX PROCESSING 
2858 $8468EESE4EE5S494E$SEEKETESESHTESSSSSESERESES SS SEVKESSESAKECSSES : 2928 © 
2659 © ss 2929 © COME HERE TO CHECK IF COUNT FIELD DATA CHECK TO BE IGNORED 
2860 © BEFORE SNTERING, SET LO TO POINT TD FLAG BYTE me 2930 © 
; 2861 # 0C33 265225 195225 2931 TERCHKIG TIBOF SRCHsCEB2,TERMSG45 GO POS} ERROR IF NOT SEARCHING 
OB7A 240005 104005 2862 TENFLGO2 LINC FLAGeL0,0 FETCH FLAG BYTE FROM CONTROL STORE : ¢ 6C€34 061225 085225 2932 TIBOF READeCEB2,TERMSG4S GO POST ERROR IF NOT READ CMO 
0878 OE15SIF  O8DSIF 2863 ANDI FLAG,X*°1F* RESET BITS 0-2 ' & 0C35 OCB8D02 o2CD02 2933 TEORI RBYT,X*025 GO POST ERROR IF 
O87C 244095 114095 2664 SINC FLAGeLOe1 STORE IT BACK IN SAME LOCATION 0C36 204C25 110C25 2934 BNZ TERMSG45 NOT RD CKD CMD 
0870 OF9CDO0 CEDODO 2865 EORU ZERsZER RETURN _,  0C37 2E4D080 19CD80 2935 ORI RBYT»X*80° TURN ON IGNORE CNT DATA CHECK MARK 
2866 “8LOK ; Oe OC38 2E2701 18E701 2936 ANDI FHF ,ENDFILEX RST FILE XFER 
OB87E OOOB7E  O0OBTE 2867+ 6 * UNUSED 22253223235 0C39 201580 101580 2937 BU TRDOPOWN DO OPERATE DOWN--RST READ/WRITE 
CB7F 200B7F 10087F 2868¢ 8 * UNUSED sisrsesszss ; oe OC3A 200780 100780 2938 BU TEFSETRW SET READ/WRITE AGAIN TO RST DATA CHK 
0coo 2869+ DS <0>8 \  0C38 2€12F8 18D2FB8 2939 ANDI CEB2.X*Fe° SET YRK ORIENTATION TO END OF HA 
2870 END COPY-MEMBER TEN12 , OC3C 201436 101436 2940 8 TROOGN GO READ HA ON ACTIVE TRACK 
2871 copy TER : os gt 294] 99598046556 F8E555ERESEEKESISESROESSHAESKESECTSES HESS OESLESERESSES SESE SEBS 
SETS PUSTOE SS FARR SeT eee ewe ett re Te eee ee  C 2942 # COME HERE TO POST PA MISCOMPARE IN HOME ADORESS FIELD 
2873 * CHECK —EnO ANALYSIS RGUTINE 2943 S8ESSSSS8EFESEETSEKEESEESEOOSESERES SS OESSEEEREETSEREESESTESBESEST ES 
2BTG FEROS EESEESESEESEEEEESESERERECES SUSHESCRO SEEKS SESE SS rc OC3D 2Aa081a 18B881A 2944 TERPACHK LHI L8,X*1la® POST PA CHECK 
2875 # % QC3E OO11F4  O011F4 2945 BU TIP8SGEN GENERATE BSDA 
OCOO OE2FFT OSEFFT 2876 TERCKEND ANDI SCNyFF-ALWFXFR TURN OFF ALLOW FILE XFER OC3F 2A071F 18871F 2946 LBI L7eD(SKMARK1) FETCH SEEK IN- 
O0CO!l 001580 001580 2877 BU TROROFB I GATE FI TO FBI -' 0C40 2407C6 1047C6 2947 LINC L69L750 COMPLETE MARKS 
OCO2 080322 0C8322 2876 MV L3eFBI Copy FILE BUS IN C  0C41 0F4662 000642 2948 OR LOeL2 POST SEEK INCOMPLETE FOR THIS DRV 
0CG2 20099A 10099A 2879 BU TEFRESP RAISE RESPONSE TO FILE 7 0L42 040786 004786 2949 SINC L6eL720 RESTORE MARKS 
OCG4 26030C 18430C 2880 TERCEANZ TIBOF CMDOVNeL3,TERNOVRN GO IF NOT COMMAND OVERRUN F OC43 2A07LT 188707 2950 TERL7O7 LB! L7.X*07* POST SEEK CHECK 
0CO5 2A0808 188806 2881 LBI L8,Xx'oB* POST CHD OVERRUN MESSAGE : to 0C44 201908 ° 101908 2951 'B TSNNGRM GO TO ERROR SENSE ROUTINE 
OCO6 OSESOA O7660A 2882 TBON 7,FTO,TERLTO5 GO fF WRITING 2952 ¢ 
OCOT 2A0408 188406 2883 Le £4.X*08* PRESET HO SWITCH TIMER EXPIRE CHECK \ 2953 SHOREEEESE ESSER KS EEEEESSESESESESESOEEEEESEESSESLESESESTEE GE EEESDSEOEES 
ocos8 0C1207 0C0207 2884 TANDI CE62,X*O7° CHECK FOR KEAD Gl OP i & 2954 * THIS IS THE INLINE SCAN HARDWARE DIAGNOSTIC WHICH IS EXECUTEC 
OCO9 224707 190707 2885 8z TEFNRERR GO POST UPGM DETECTED ERROR IF IT IS 2955 * FOLLOWING ACCEPTANCE OF AN SIG SCAN REAO OR COMMAND 
OCOA 0A0TOS 088705 2886 TERL7O5 LBi L7.X*05° FOST OVERRUN ’ 2956 £888SSS4SEEEEEKEKEEESESEEE EES E$OESEESSEESEREEEEESSS4KEESEECEESEHESESE ETS 
ocosB 201908 101908 2887 8 TSNNORM GO TO ERROR ROUTINE ' © 2957 * 
CCOC 06430F  09430F 2888 TERNOVAN TIBOF CATAOVN,L3,TERNSYER GO IF NOT SYNC OUT ERROR 0C45 100011 100011 2958 TERTABLE OW X*QOLL® THIS 15 
GCOO CA0814 088614 2889 TERL8IS LBE 18,X*14* POST SYNC OUT ERROR #SG ( «@. 0C46 10FFOO 10FFOO 2959 DW X*FFOO! THE DATA 
OCOE 200708 100708 2890 TEREQPCK & TEFL7O3 GO POST EQUIPMENT CHECK © O0C47 10FF11 10FF11 2960 DW X*FFLL IN CONTROL STORE 
OCOF 2A0810 1888160 2691 TERNSYER LSE 18,X*10° INITIALIZE FMT 2 MSS O 0C48 LOOOFF LOOOFF 2961 Dw X*OOFF®* WHICH THIS 
OL10 25E60E 17660E 2892 TBON 7eFTOs,TEREQPCK GO IF WRITE OP (UNDEFINE CHK END) CG 0C4S 101100 101100 2962 Ow x*1300° TEST 
0cil OCO310 00C310 2893 TANDI 13-DATACHK : GO IF DATA CHECK > 4 "01 e ‘ 
Oct2 204C16 110016 2894 BNZ TERDATCK {NOT CHD GVERRUN) Ces R teen weeone Sag 2 om anonee , RECESDES 
OC13 050332 044332 2895 YIBON NOAMsL3,TEROGIOX GO IF NO AM FOUND ‘ o, OC4B O89EBC O29E8C 2965 TERSTART SABI BLOCKCH.BITERTABLE*X*8000") B8LOCK ADDRESS OF TABLE 
OC14 O1430E OD430E 2896 TISGF NOSYNC,L3¢TEREQPCK GO IF NOT NO SYNC FOUND 1G OC4C 288E45 120E45 2966 SADI DISPCH,D{TERTABLE) OIESP GF TABLE 
0C15 OECi04 082804 2897 ADDI 18,X*04' INITIALIZE NO SYNC BYTE FOUND MSG OC4D 28D7CE 1397CE 2967 - §24% ZLSCHe,ZLSWFILE SELECT FBO FOR TRAP C*S 
O6C16 2£C830 1680830 2898 TERDATCK aODI L&eX%*30* IMITIALIZE OATA CHECK MSG C OC4E 243300 188300 2968 LBI OxXC,»X*00* TURN GFE CHANNEL CONTROL BITS 
’ ! iad 
; ; | 
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PART NOc 4247623 
PAGE 22 c PAGE 22A 
OBJECT CODE STM SOURCE STATEMENT ce LOC. OBJECT CODE STM SOURCE STATEMENT 
peeree Q9EF8B 2969 ORI SCN,» SCANRDSALWEXFR SET SCAN READ OR AND ALLOW FILE XFR co 3039 + 
60 088600 2970 iBE FCT ,X*oDs SET FCY FOR END GF FILE XFR ON TST 4 - QD00 O€2F46 O8EF40 3040 TERDOECC ANDI SCN,X*S08 RESET FILE XFER CONTROLS 
220C51i 1B0C51i 2971 NOP os ALLGw TIME FOR 2 TRAPS 0001 23368 1GF3FB 3061 ANOI OXC.FF-ALOWFILE RESET ALLO® DIFF CNTR FILE 
220C52 180CS2 2972 NOP # ¥O COMPLETE ~ OD02 2E6FO1 LSEFOR 3042 oRI SCN NFILEXER SET INHIBIT FILE TO CS XFER 
2E6504 19E504 2973 oRI FIG, FOTOFY GATE ©G TO FE ‘“ 9003 2E2701 18ETOL 3043 ANDI FHF eENDFILEX RESET END OF FILE XFER 
2E6510 1S9E5210 2974 oR! FTG.X*108 Copy Fa O004 2E2DFE LGEDFE 3044 ANDI FTIR,FF-ALLOWIDX RESET ALLOW INDEX 
2E2544 186544 2975 ANDE ETGsX"442 TG FE 7~ 0005 OEGFOA OSEFOA 3045 - ORI SCN ALWEXFR¢TOFILE SET ALLOW FILE XFER AND WRITE MODE 
greece anoces 2976 TERTESTL BU TERSYNC SYNC IN FOR ID BYTE, HG TRAPS TAKEN ~ QDO6 240622 188622 3066 LB1 LGeX*# 228 LOAD HIGH COUNT 
OCFA 2977 Bu TERSYNC SYNC IN, *FF*=->FB86 NCOT 2A2E06 L8AEQ06 3047 LBI FBOeX*068 LOAD FBO WITH MOD 16 COUNT 
200CFA LOOCEA 2978 Bu FERSYNC SYNC IN; ©00°->FBO, DETECT * FF -- O0DO& 242608 18A608 3048 Lui FTO,ECCCNTL SET ECC CONTKOL TAG 
Bete moetoe g219 TANDI FHF ,X*OQ6® SCAN SATISFIED AXD SCAN EQUAL ©  OD09 243655 188655 3049 Lei FOYT 9 X# 558 LGAD FILE CRIR (TOTAL©87902X"2256°) 
4C60 190C6CG 2980 BZ TERTEST2 SHOULD tOTH BE OFF ODOA OE2FFS OBEFFD 3050 ANOE SCN,FF-TOFELE RESET WRITE MODE 
Oa0826 688826 2981 TERL82E Lut La@,x*28¢ ERNOR-= SCAN COMPARE FAILURE » 9p08 900781 000781 30513 : BU sti‘iéTE GALL: GO RAISE TAG GaTe 
0E2540 68E540 2982 ANDI FTG.X'40?2 TURN GFF DIAGNUSTIC SITS EX ETG ODOC 2&6520 19E520 3052 OR! FTG se FORCERYC RAISE FORCE RECYCLE 
OAZFOG OBAFOD 2983 LBI SCNeX*008 TURN OFF SCAN AND FILE CONTROLS O00D CESN01 CSEDOL 3053 oR! FTIR eALLOWIOX TURN ON ALLOW ZINDEX 
2€6765 LSETOS 2984 ORI FHF »SCNSAT¢ENDFILEX RESET SCAN ANO END OF FILE XE - ODOE CA0TO0G 088700 3054 Lal L7,0 SET TIMER TO wAIT FOR OP COMPLETE 
201644 LO1ES4 2985 8 TWREMT2E GO TO PUST FMT 2s MSG 8 ERROR CDOF 058521 067521 3055 TERECCLE TIBON INDEX.FTEeTERCORR GO IF INDEX ALERT 
200CEA 1GOCFA 2986 TERTEST2 BU TERSYRCE SYNC IN, ‘FF®->FBO, SCAN HEF & EQUAL OVLO 05351C 04751C 3056 TIBON NORMENDsETI,TERNORME GO IF NORMAL END 
200CFA 1OOCFA 2987 Bu TERSYNC SYNC IN, DETECT *FF*, SET FHF & & 6 ODL1 OS5ET16 076716 3057 TIBON ENDFILEX, EHF, TERFCTO GO IF FILE COUNTER IS ZERO 
07675B 006758 2988 TIBOF SCNSATeFHE,TERL828 SCAN SATESFIED SHOULD BE ON * 0012 OEFC801 0BC801 3058 ADDI L8yl INCR VIMER 
Hide oer one piece SCNEQ, FHF, TERLE28 STAK EQUAL SHOULD BE ON 0013 OF4710 ODCT10 3059 ADOC L7-ZER oe peas 
Le LBel SET MARK TQ EXECUTE TEST 3 OD14 O28D0F OAODOF 3660 BNC TERECCLP CONTINUE WAITING IF NO TEME OU 
OE2ZF7E  OB8EFTF 2991 TERTST3& ANDI SCNeX*TEF® RESET SCAN READ CONTROL BIT ~ OD15 200724 LOOT2A 3061 6 TEFNOREP GG POST NO RESPONSE ERROR 
OE670%  O9ET0& 2992 ORI FHE » SCNSAT RESET SCAN SAT ANO EQUAL BITS 3062 ® 
OE6FCO O9EFCO 2993 oRI SCNe SCANRD+SCANHI TURN ON SCAN RD OR AND SCAN HI BITS C 3063 @© FILE COUNTER REACHES ZERO 
2CO0CFA 100CFA 299% BU TERSYNC SYNC INe TRANSFER *11* TO FO 3064 * 
2€6510 19E510 2995 GORI FTGsX*10# GATE FO 0016 2€2701 L6E701 3065 TERFCTO ANDI FHE,ENOFELEX RESET END FILE XFER LATCH 
262544 18E544 2996 ANDI FTGsX*'44! TO FI - 0017 05351C 04751C 3066 TIBON NORMEND eFTI,TERNORME GO IF NORMAL END REACHED 
peers OBEFTFE 2997 ANDI SCNPX*7TFS RESET SCAN READ CONTROL BIT OD18 OECGFE OBC6FF 3067 AODI Lbe-i DECREMENT HIGH COUNTER 
E670% O8E704 2998 GRI FHF »SCNSAT RESET SCAN SAT AND EQUAL BITS 0019 204D0F LLODOF 3068 BNZ TERECCLP CONTINUE WAIT 
CE6FCO  OSEFCO 2999 oRI SCN» SCANRD¢SCANHE TURN ON SCAR RD OR AND SCAN HI BITS ODLA OE25DF O&8E5DF 3069 ANDI FY¥GeFF-FORCERYC TURN OFF FORCE RECYCLE 
200CFA LOOCFA 3000 BU TES SYNC SYNC IN, *00°->FBO .. 0518 OO0D0F OOODOF 3073 8 TERECCLE CONTINUE WAIT 
200CFA ROOCFA 3001 BU TERSYNC SYNC IN, “FF*=->FB0(3), *00*->FBOC 4) : 3071 
200CFA LOOCFR 3002 BU TERSYNC SYNC IN, *FF® DETECT,SCN SAT,NOT EQ43? € 3072 © MNORMAL END DETECTED 
3003 ¢ END OF FILE XFR_e SCAN SAT,NOT EQ(4) a 3073 
oeeree opts 3004 TISGF SCHSAT,FHFeTERL828 GO IF SCAN SATISFIED IS OFF ODIC 001580 001580 3074 TERNURME BU TRORDFSI GATE FI TO FBI wae 
16675 3005 TIBON SCNEQ,FHFE »sTERL828 GO IF SCAN EQUAL IS ON OD1D 20099A 10099A 3075 BU TEFRESP RESPONSE TO FILE 
O7C876 OF4876 3006 TBCFF 7518, TEROUT GG I¢ TEST & JUST EXECUTED . ODlE 256254 17625A 3076 TBON 7,FKI,TERZPATN GO IF ZEROS DETECTED —- CORRECTABLE 
040800 088800 3007 LBI L8,0 RESET TEST 3 MARK ODIF 249843 188843 3077 TERUNCOR LBI L6_X*43? POST UNCORRECTABLE DATA CHECK MSG 
200C 55 100C65 3008 8 TERTST34 GO EXECUTE TEST 4 - 0020 200C26 100C28 3078 8 TERL704 GO POST DATA CHECK 
OA2FOO OB8AFOO 3009 TEROUT  LBI SCN,X*008 RESET SCAN CGNTROLS we 3079 
2E 6705 19E705 3010 ORI FHF o SCNSAT+ENDFILEX RESET SCAN AND END GF FILE XFR 3080 * INDEX DETECTED —— DATA CHECK MAY BE CORRECTABLE 
242540 18A540 3011 Ler FTGeX*40* RESET DIAGNOSTIC CONTROL BITS r 3081 * 
601600 601600 30212 8 TSCOR PROCEED TO COMMAND BREAK OUT ‘9021 OAO7T00 088700 3082 TERCORR LBI L7,0 INITIALIZE LOW RESIDUAL COUNT 
3013 % 0022 O5E72A O7672A 3083 TERRSCNT TIBON ENDFILEX,FHF»TERLOWCT GO IF LOW COUNT GENERATION DONE 
3014 # DIAGNOSTIC SYNC IN SUBROUTINE FOR ABOVE TEST - 0023 OECTO! O8C701 3084 ADDI LTei INCR COUNT 
3015 ¢ \ 0D24 028027  OAO0D27 3085 BNC TERSKPA GO IF NG CARRY 
2E6502 19E502 3016 TERSYNC ORI FTG,DSYNCIN RAISE DIAGNOSTIC SYNC IN 0025 2A0823 188823 3086 LBI L8,X*23* POST ERROR - NO END OF FILE XFER 
020C78 080C78 3017 NOP * ALLOW TIME FOR TRAP TG OCCUR ,  OD26 201E44 101E44 3087 8 TWREKTZE POST EQUIPMENT CHECK 
OF9000 OEDODO 3018 EGRU ZER.ZER RETUKN \  0D27 2€6502 19E502 3088 TERSKPA ORI FTG »X*02* RAISE AND DROP DIAG SYNC IN 
3019 MBLOK 028 O£25FO O8E5FD 3089 ANDI FIG,X°*FD® TO DECRMENT PCT BY ONE 
200C70 100C7D 3020¢ 5 F* , ye UNUSED sisssesssss ¢ 0029 000022 O000D22 3090 B TERRSCNT GO CHECK FOR END OF FILE XFER LATCH 
200C7E lOOC7TE 3022¢ ts & UNUSED sssesseeses OD2A OE2F40 O8FF40 3091 TERLOHKCT ANDI SCN,xX*40* RESET FILE XFER CONTROLS . 
OCOC7TF OOOC7TF 3022¢ 8 + UNUSED esessessess. 0D28 CE25DF O8ESDF 3092 ANDI FTG»FF-FORCERYC TURN GFF FORCE RECYCLE 
3023+ oS <0>B C OD2C 2A2604 184604 3093 LB! FTO, RDERROR SET READ ERROR/ECC TAG 
3024 € - OD2D OA2ZE02 O8AEO2 3094 LBi FBO.,CTLRERRI READ CONTROLLER ERROR TAG MODIFIER 
3025 S8SSSECECECESSSERESESEOTEECSESE SEE SESS SE SELSSER SLEKSSSKESERKER SL ESLALSS OD2E 201583 101583 3095 BU TROSOTIM GO TO TAG SUBROUTINE 
3926 ¢ ERROR CORRECTELON CODE ANALYSES ~. OD2F 05€232 076232 3096 TBON 7,FB1e#43 GO IF ZEROS DETECTED 
3027 « SELSSAERSESESEE SCH ESEES SELSESEESESE ‘- 0030 0A0405 088405 3097 TERECCHK LBI 14,X*05° SENSE BYTE LB=ECC HAROWARE CHECK 
3028 * REGISTER USAGE IN ROUTINE f EXIT REGISTERS IF CORRECTABLE 0031 200707 100707 3098 8 TEFNRERR GO POST UPGM DETECTED ERROR 
3029 * LO = DISPLACEMENT HIGH 4 £0 : OISPLACEMERT HIGH « 0032 O0A2E80 O8AE80 3699 LBI FBO, ECCLOX RD ECC LOW TAG MODIFIER 
3030 * £1 s DISPLACEMENT LOW f Ll s DESPLACEMENT LOW & 0033 201583 101583 3100 BU TROSBTIN TAG SUBROUTINE 
3031 ® £2 3 DATA LENGTH HIGH 4 t2 & --- 0034 080522 0C8522 3101 Mv LS5eF6I SAVE LOW PATTERN BYTE | 
3032 * 13 : DATA LENGTH LOW 4 13 ¢ o-- € 0035 OA2E40 OB8AESO 3102 LBr FeO, ECCHI RO ECC HIGH TAG MODIFIER 
3033 @ L4 ¢ HIGH PATTERN / 4 : HIGH PATTERN ~ OD36 201583 101583 3103 BU TROSBTIN TAG SUBROUTINE 
3034 © £5 : LOW PaTTERN 4 tS ¢ LOK PATTERN CD37 280422 108422 3104 fv L4,F61 SAVE HIGH PATTERN BYTE 
3035 @ 6 : RESIDUAL COUNT HIGH J t6 2 =-<- » 0038 204445 15C445 3105 TOR L4,L5 CHECK FOR ZERO PATTERN BYTES 
3036 * LT? 2 RESIDUAL COUNT LOw / 17 : SENSE BYTES 0-2 C 0039 024D30 090030 3106 BZ TERECCHK GO IF PATTERN BYTES ARE ZERO 
3037 *# L8& s TIMER / C8 ¢ ERROR FORMAT € SESSAGE 003A 280214 108214 3107 MV £2,4SC2 COPY HIGH 
3038 SSSESSSESESESSECSESSSSESHEKESESSESCESSSSCESESESSSESSSESSESSSESSESESSSVSTSSE SKE Cc OD3B OEO0201 O8C20i 3198 ANDI G2ek DaTA LENGTH 
15AUG7TS G6NOV75 PROG ID ~—s FA0-1 ~ ~DATF 25AUG75 G6NOV7S PROG ID FA0-1 
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FAOl 3340 DISK MICROCODE ----— MOD 12 PART nO. 4247623 FAO] 3340 DISK MICROCODE MOD 12 PART NOW 4247623 
PaGE ee Cc: PAGE 23A 
lc 
LOC. OBJECT CODE STM SOURCE STATEMENT |; © OC. OBJECT CODE STM SOURCE STATEMENT 
' 
OD3C 080318 oC8316 3109 MV L3,0CNT CoPy LOw DATA LENGTH | r- OD7TE OOODTE COODTE 31794 8 * UNUSED sessssseess 
0030 280002 1c8002 3110 Mv LOsL2 SET DISPLaCEMENT 1 \ OO7F 200D7F 1OOD7F 3180+ 8 * UNUSED sssessesssss 
003E 280103 108103 3111 Mv Lietls EQUAL TO DATA LENGTH ! OEO00 3181¢ os <0>8 
OO3F 2€C307 18C307 3112 ADOI 3,7 < 3182 ENO COPY-MEMBER TER 
0040 0F4210 00C210 3113 ADDC 2eZER < IF RESIDUAL COUNT IS © 3183 copy TEE 
0041 2E83FF 1AC3FF 3114 EORI L3,FF < GREATER THAN OR EQUAL 3184 ¢—----—-.~.~-- ieee anes Senicaap aoe met 
0042 OE82FF OAC2FF 3115 EORI L2.FF < TO DATA LENGTH + 6(ECC), 3185 ¢ * 
0043 OFC307 OFC307 3116 ADDI L3,L7 < THEN THE DATA CHECK @ . 3186 & TEE -- FORCE ERROR ROUTINE (ALIAS *DIAL-A-BUG* ) & 
0044 2F4206 10C206 3117 ADOC LZsL6 < 1S UNCORRECTABLE ' 3187 © * 
0045 OOCDIF O200D1F 3118 BCyY  TERUNCOR < | we 3188 & CALLING PREREQUISITES: * 
0046 2EC301 18C301 3119 ADDI 13,2 GO IF RESIDUAL COUNT ! & - 3189 & * 
0047 OF4210 0O0f210 3120 ADDC L2eZER NOT EQUAL TO | 3190 * FEB —— FORCE ERROR BUFFER (16 BYTES) s 
0048 204D4E LlOD4E 3121 BNZ TERDISPL (DATA LENGTH # 9) - 1 | 3191 * BYTES 0 &€ 1 = VALIDITY FLAG (VALID=X*FFFF®*) s 
0049 04C41F O3441F 3122 TBON 3914, TERUNCSR GC IF HIGH PATTERN NOT ZERG tUNCORR) 1 Ree 3192 # BYTES 2 &€ 3 = Q AND R BYTES OF SIO COMMAND CODE * 
004A 080804 0C8804 3123 Mv L8et4 REVERSE 3193 * BYTE 4 = BYTE © OF DIAGNOSTIC SENSE BUFFER * 
OD4B 280405 1C8405 3124 MV L4,L5 HIGH AND LOW a 3194 & BYTE 5 = BYTE 1 OF DIAGNOSTIC SENSE BUFFER * 
OD4C 280503 1€e508 3125 MV L5,18 PATTERN BYTES G 3195 * BYTE 6 = BYTE 2 OF DIAGNOSTIC SENSE BUFFER * 
004D 200D5E 100D5E 3126 8 TERSET53 GO POST CORRECTABLE DATA CHK MSG 3196 % BYTE 7 = BYTE 7 OF DIAGNOSTIC SENSE BUFFER * 
OODGE 2A00FF 188OFF 3127 TERDISPL LBI LO, FF “SUBTRACT 7 | om. 3197 * BYTE 8 = BYTE 18 OF DIAGNOSTIC SENSE oUFFER s 
OD4F 2ECTFS 18C7F9 3128 ADDI UL7e-7 FROM ae 3198 *& BYTES 9 THRU 15 ARE RESERVED s 
OD50 OF4600 oocé6é00 3129 ADOC 16eL0 RESIDUAL COUNT i 3199 # * 
0051 2A0102 186102 3130 L81 Lie2 PRESET : C 3200 Be mn nnnrn n mn  non n= SS SS * 
0052 2A0000 188000 3131 L8!I L020 DISPLACEMENT BYTES ' %  Q£060 00 3201 FEBJUNK OC x*00°* 
0053 2F0107 1€C1i07 3132 ADD List? TO RESIDUAL CNT OEO1 00 3202 FEB oc 5x*00°* FORCE ERROR BUFFER 
0054 0F4006 Opcc06 3133 ADDC 10,16 MINUS 5 - O€OR 3203 FEBL EQU FEB LEFT HALF 
0055 0Q6065E 08465E 3134 TBOFF O.lL6éeTERSETS3S GO IF COUNT >= 7 (CORRECTABLE) G O€8)] 3204 FEBR EQU FEB*+X*80* RIGHT HALF 
2956 OECTOL O06C701 3135 ADDI L7sl GO ZERO PATTERN BYTES . 0080 3205 FEBADDL EQU X*BO8 ADORESS OF FEB IN S/3 (HIGH BYTE) 
GOST 2F4610 10C610 3136 ADDC L6eZER IF COUNT IS LESS ‘ ~ 9000 3206 FEBADD2 EQU. X*60* ADORESS OF FEB IN S/3 (LOW SYTE) 
ONS8 O28DSA OAODSA 3137 BNC TERZPATN THAN (ECC-1) 3207 * 
0059 04C45D 03445D 3138 THON 3,14, TERZLWP GO ZERO LOW PATTERN IF HI PATN ~=< 0 . 3208 # ENTRY POINT FROM TIO ROUTINE 
oD0Sa 280010 1€8010 3139 TERZPATN MV LO,ZER ZERO HIGH DISPLACEMENT - 3209 * 
ODS5B 080110 0C8110 3140 MV L15ZER ZERO LOw DISPLACEMENT "€ o€06 0011¢8 0011CB 3210 TFETIO BU TIGROODDR READ DDDOR INTO L2 & 13 
OOSC 6680410 0C8410 3141 MV L4,ZER ZERO HIGH PATTERN O£07 OAD602 088602 3211 LBI = L6y SUBTRACT SET SUBTRACT FLAG 
‘O05D 280510 1€6510 3142 TERZLWP MV LSeZER ZERO LOW PATTERN -  O€08 OFC300 08C300 3212 ADDI 3e-FEBADD2 COMPUTE DIFFERENCE 
OOSE 2C8003 12C003 3143 TERSETS3S TEORI RBYT.X*03* SEE I€ RD VERIFY K-D CMD \ =O£09 0F4210 00C210 3213 ADDC L2,ZER BETWEEN OLD DDDR 
ODSF 224D1F 190DiF 3144 82 TERUNCOR GO IF YES (CHK IS UNCORRECT ABLE) OEOA 2EC250 16€250 3214 ADOI L2e-FESADD1 AND NEW DODDR 
0060 0A0853 088853 3145 LBI 16,X*§3* POST CORRECTABLE DATA CHECK MSG OEOB 208E11 120E11 3215 BCY #46 IF OLD > NEW SKIP 5 INSTRUCTIONS 
CD61 OAGT24 088724 3146 TERL724 LBI LT7,X*24* SET DATA CHECK AND CORRECTABLE MARK ‘¢ OEOC 0£8602 OAC602 3216 EORI 6, SUBTRACT RESET SUBTRACT FLAG 
0D62 201908 101908 3147 8 TSNNORM GO TO ERROR ROUTINE OEOD 2E€83FF IAC3FF 3217 EGRI L3,FF COMPLEMENT AND 
0063 2C08F5 1308F5 3148 TERALTRK TADOI HEADe-11 CHECK FOR 3340 LOGICAL BOUNDARY - OQOEOE O©82FF OAC2FF 3218 EORI 2,FF INCREMENT 
0064 OO0406E OLOD6E 3149 BNZ TERINCHH GO If NOT e OECF 2EC301 1B8C301 3219 ADDI L361 ’ THE VALUE IN 
0065 2A1800 189800 3150 L8i HEAD +0 SET HEAD VALUE TO ZERO 0E10 OF4210 09C210 3220 ADOC 12eZER t2 6 L3 
0066 270701 1B0701 3151 ADOI CtG,1 INCR 3340 LOGICAL CYLINDER - O£€11 080402 0C8402 3221 MV 14,12 SAVE THE DIFFERENCE IN 
0067 OF 5610 000610 3152 . ADDC CHI.ZER AODRESS BY ONE A OE12 080503 0C8503 3222 My L5,43 2 € L3 
0068 2A0003 188003 3153 Lol L0.DIODCFORGL433 POINT TG CLO IN ODCF 0E13 200EEC 1O00EEC 3223 gu TEESETUP SETUP 600, CIO AND DOXC 
0069 0A0182 088182 3154 L8I L1,01D0DCFORGR+2) POINT TG CHI IN DDCF ¢ OE14 0011CD 0011CD 3224 BU TIOUDDOR UPDATE ODOR TO NEW VALUE 
OD6A 044097 014097 3155 SimC CLOselLOe! STORE NEw CLO IN DDCF .~  O€15 O0£€8602 OAC602 3225 EORI L6,SUBTRACT TOGGLE SUBTRACT FLAG 
O006B 240098 104098 3156 SINC HEAD,»1L0,0 STORE NEw H(LO) IN ODCF O£16 242100 18A100 3226 Leal CCH:0 SETUP CHANNEL COUNTER 
OD6C 240196 104196 3157 SINC CHI .t120 STORE NEW CHI IN DDOCF yr  O€17 2A3108 1868108 3227 LB! CCL eS FOR 10 BYTE XFER 
0060 200467 100467 3158 8 TOXL746 GO TO CONTINUE ALT TRK HANOLING \. QE18 289E8E 129E8E 3228 SABI BLOCKCH,B(FEB+X*8000") SETUP CHANNEL FOR 
ODGE 2ED801l 180801 3159 TERINCHH ADDI HEAD,1 INCREMENT HEAD VALUE 5Y 1 0£19 O8BE0O0 O28E0G 3229 SADI DISPCH,O(FEBJUNK) MULTIPLE 8YTE FETCH 
OD6F 0A0004 088004 3260 LBI LO,D(DDCFORGL++) POINT TO H(LO) IN DDCF f 1A 280758 139758 3230 SZ1- ZLSCHe ZLSFCHAN FROM FEB IN $3 
OD70 240696 ~« 106098 3161. ~ » « SINC. HEADsL0.0 STORE NEW H{(LO) IN DOCF ~ 0O€128 0A3210 088310 3231 LBI DXC +LSRSELDR TO FEB IN 10° 
OD7T1L 200467 100467 3162 8 TOXL746 GO TO CONTINUE ALT TRK HANDLING OEIC OAO07T3C 8 8=—08873C )«=—- 33232 LBI = LT, OC TIGTFEALD SETUP RETURN POINTER 
0072 244376 126376 3163 TERINCOR TIBON ENDCHXFR»OST,#+4 GO IF ENO OF CHAN XFER IS ON . O€1D 00101E OO0101E 3233 ) TIOCHXFR FETCH FEB FROM S/3 
0073 OA2300 08A300 3264 £81 OST,O RESET OST REGISTER Cc OE1E 0A3D09 088009 3234 TFETIOB81 LBI 800-09 SETUP 600 AND CIO 
0074 0011CB 0011CB 3165 BU TIOROOOR GO HANDLE ODDR UPDATE OE1F 0F&2340 08E340 3235 ANDI OST »CHOUTVAL TO UPDATE ODOR 
0075 O00A1C OOOA1C 3166 8 TENDDOR GO FINISH COMMAND . OE&E20 OA3D00 088000 3236 BI 800.0 TO FEB (In $/3) 
OD76 OOOALA QOOALA 3167 8 TENCHK GO FINISH COMMAND €: OE21 0A3302 08B302 3237 LBI OXC » SUBTRACT SET SUBTRALY FLAG 
3168 ¢ : OE22 0011CD 0011CD 3238 ou TIOUD0NR RESTORE ODOR TO FEB (IN $73) 
3169 * OFFLOAD SO DURING HA OR CNT OP . O€23 289A0E 129A0E 3239 SABI SLOCKB.B(FEB) SET GASE BLOCK ADDRESS TO FEB 
3170 © . : G OE2% 240701 188701 3249 LB1 L7,D0(FEBL) SET DISPLACEMENT ADORESSES 
QO77 244000 114000 3272 TERGETSO LINC SODHelOei FETCH SOH OE25 0A0881 088881 3241 , La! L.8,D0(FEBR) IN LC AND £1 FOR FES 
0078 220078 180078 3172 NOP * DELAY »m O€26 2447C2 1147C2 3242 LINC L2eL7ol LOAD VALIOITY BYTES 
OD79 04410€E Q1410E 3173 LINC SOLekie2 FETCH SOL © O£27 0448C3 0148C3 3243 LINC L3-L8e1 IN L2 ANO L3 
OOTA 000733 000733 3174 8 TEFPAC GO TO FETCH PAC AND PAN OE28 2CS82FF 12C2FF 3244 TEORE 12,FF If t2 1S NOT X*FFE 
2175 MBLOK ¢ O£29 004E70 O10E70 3245 BNZ TFETIORS THEN RETURN TO TIO 
0078 O0O0D7E 000076 317T6+¢ 8 s UNUSED ssesssssees : " QOE2A OC83FF O2C3FF 3246 TEORI 13,FF §F L3 1S NOT X*FF® 
oo7Tc 200D7C 10007C 31774 5 # UNUSED sssssseesss OE2B 004E70 OLOETO 3247 BNZ TFETIORS THEN RETURN TO TIO 
0070 000070 000070 31764 8 * UNUSED sessssesses G& OE2C 2447C2 1147C2 3248 LINC L2eh7ol LOAD Q AND R BYTES 
DATE 1SAUGT5 = =—« O6NOVTS | PROG 10 FAQ-1 ~ DATE 15AUG75 O6NOV75 PROG 10 | FA0-1 
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3340 DISK MICROCODE ----— MOD 12 PART NO« 
PAGE 
OBJECT CODE STM SOURCE STATEMENT 
0448C3 G148C3 3249 LINC L3elSel IN L2 AND L3 
2C82FF 12C2FF 3256 TEORI L2,FF COMPARE Q AND X* FFE 
004E32 OL0E32 3251 BZ a4+3 SKIP IF Q IS NOF X*FFS 
OC83FF O2C3FF 3252 TEOREI 13,6F COMPARE R AND X° FFE 
224E 75 L9OETS 3253 BZ TFECHEC K GO IF Q@ AND R ARE X*FFE 
20824C 16C24C 3254 TEOR £2¢0BYT COMPARE CURRENT Q BYTE WITH FEB 
2046E71 LIOETL 3255 BNZ TFETIORT iF NOT EQUAL RETURN TO TIO 
20834) 16€340 3256 TEOR 1.3-R6YT COMPARE CURRENT R BYTE WITH FEo 
2046E71 LIOETL 3257 BNZ TFETIORT IF NOT EQUAL RETURN TO TIG 
2E2720 18E7Z0 3258 ANDI FHFE,ERRMOOE RESET FORCE ERROR MODE FLAG 
O@A74A O267T4A 3259 TIBON ERRMODE;FHE,TFESKIP IF PERMANENT ERROR GO TO TFESKIP 
Z2A0TO1 188701 3260 LB! L7.DiFEBL) RESET DISPLACEMENT ACORESSES 
OAC8S1 088881 3261 L8I L8,D(FEBR) IN LO AND il 
048790 024790 3262 SINC ZERolL7e2 SET VALIDITY BYTES 
048890 024890 3263 SINC ZER, L822 TO ZERO 
2A2100 18A100 3264 LBI CCH,O SET CHANNEL COUNTER 
043100 088100 3265 LBI CCL.9O FOR 2 BYTE XFER 
2B89E8E 129E8E 3266 SABI BLOCKCH,B{FEBtX*8000*) SETUP CHANNEL FOR 
286E0} 12BE01 3267 SADE OSPCHs DC FEB) MULTIPLE BYTE STORE 
080700 039700 3268 $ZI ZLSCHeZLSSCHAN TO FEB IN S/3 
243390 186390 3269 tol Oxe »x*90? FROM FEB IN IOP 
2A0730 188730 3270 LBI L7,0( TIOGTFEA2) SETUP RETURN POINTER 
OOICLE  OQOIOIE 3271 8 TIOCHXER STORE VALIDITY BYTES BACK IN $/3 
058648 064648 3272 TFETIOB2 TIBON SUBTRACT »Lb6e¥e4% | IF SUBTKACT IS ON SKIP 3 
2ECSFE 1BC5FE 3273 AODI L5e-2 DECREMENT DIFFERENCE 
OF 4410 ODC410 3274 ADDC LéeeZER BETWEEN OLD DODDR ANDO 
Z2EC4FF 46CSFF 603275 ACOI €4,FF NEW ODDR BY 2 
2F 0506 10CCS06 3276 ADD .5eL6 INCREMENT OTFFERENCE 
OF 4410 00C410 43277 ADOC L4s,ZER BY 2 OR ZERO 
200EEC lOOEEC 3278 TFESKIP 86Y TFESETUP SETUP 600, CIO AND DXC 
0011C0 OOLICD 3279 BU TIOUDODR RESTORE ODOR TO ORIGINAL VALUE 
240303 188303 3280 LBI L3,0(FEBL<2) SET DISPLACEMENT TO BYTE 3 OF FES 
244366 2143C0 3282 LINC LOsL3el LOAD OIAGNOSTIC SENSE 6YTE O IN £0 
0443062 0143C2 3282 LINC L2eh3e2 LOAD OIAGNOSTIC SENSE AYTE 2 IN L2 
2403C4 104304 3283 LINC L&—el3e0 LOAD OFAGNOSTIC SENSE BYTE 18 IN L4 
0A0383 088383 3284 tel £3,0(FEBRE2) SET DISPLACEMENT TO BYTE 4 OF FEb 
0443Ci 0143C1 3285 LINC Liel3el LOAD DIAGNOSTIC SENSE BYTE 1 IN Li 
0443C8 0143C8 3286 LINC LBel3el LOAD DIAGNOSTIC SENSE BYTE 7 IN L8 
2F8747 1EC747 3287 EOR L7sL7 CLEAR L7 
078156 GE4156 3288 TBGFF 6cL1e%4+2 SKIP IF NOT WRITE INHIBIT 
2E4780 19C780 3289 ORI L7.X*80° SET BIT O IN CODE BYTE 
07C158 OF4158 3290 TEOFF Tell e*+2 SKIP IF NOT OPERATION INCOMPLETE 
2E4740 190740 3291 ORI L7.X*40* SET BIT 1 EN CODE &YTE 
26425A 194254 3292 TBOFF 1,512,442 SKIP IF NOT CORRECTABLE 
2E4720 19C720 63293 ORI L7,X*20¢ SET olT 2 IN CODE pYTE 
2E01 FC 18ClFC 3294 ANCI (€1,X*FC* RESET WRITE INHIBIT &€ OP INCOMPLETE 
OEO2FD O8C2FD 3295 ANDI 12¢X*FD! RESET CORRECTABLE 
O6COS5E OB405E 3296 TBOFF 310,92 GO IF Lo © O 
200E 64 100E64 3297 8 TFECODE GO FORM BINARY BIT NUMBER 
26C162 184162 3298 TBOFF 35119444 GO IF Ll = O 
280061 1€8001 3299 MV 10,11 MOVE SENSE BYTE TO LO 
2E4710 19C710 3300 ORI L7.X*10° SET L7T FOR SENSE BYTE 1 
200E64 100664 3301 8 TFECODE “GO FORM BINARY COCE 
280002 1C8002 3302 MV LOeL2 MOVE SENSE BYTE TO LO 
0E4718 Oo9C718 3303 oR!I L7,X*18¢ SET £7 FOR SENSE BYTE 2 
2A0500 188500 3304 TFECODE LBI 15,0 SET BIT COUNT TO O 
2—0000 1CCO00 3305 TFECLOOP ADD L0,L0 SHIFT 1 BIT TO THE LEFT 
26C069 1864069 3306 TEOFF 3,LO,TFECEXIT EXIT tooP IF LO = 0 
2€C501 1B8C501 3307 ADDI L5el 6UMP COUNT BY 1 
OOOEE5 OCOE65 3308 8 TFECLGOP CONTINUE TO LOOP 
OF 4745 OOC745 3309 TFECEXIT QR  LTrt5 FORM COOE BYTE 
OB9A05 029A05 3310 SABI BLOCKB, B(ODCFORG) RESTGRE BASE BLOCK AGODRESS 
201908 101908 3311 8 TSNNORK GO TO TSN 
3312 @ 
283005 1CB005 3313 TFESETUP MV 800.15 SETUP B00 
0E 2340 OBE340 3314 ANOI OST,CHOUTVAL AND Cio 
0B 3004 OCuDCS 2315 MV B00 oL 4 FOR TIOUDODR 
283386 108386 3316 MVU DXC »L6 MOVE SUBTRACT FLAG & RETURN 
3317 ¢ 
2—2720 (8E720 3318 TFETIORS ANDI FHF -ERRNODE RESET ERROR MODE PRIOR TCO RETURN 
LSAUGT75 O6NOVTS PROG ID 
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FAG] 3340 DISK MICRLECODE —-—--—- MOD 12 PART Oe 4247623 
z PAGE 24A 
LOC. OBJECT CODE STs SOURCE STATERENT 
OE7T1 20GEEC LOOEEC 3319 TFETIORT BU TFESETUP SET UP BOG, CIO & OXC 
OE72 GCIICO CcOoLicCD 3326 BY TIOuoDoR UPDATE DDOR TO ORGINAL VALUE 
OE73 089405 O29A05 3321 SABI 6LOCKB,B(DDCFORG} RESTORE BASE BLOCK ADDRESS 
c Oz7& 001108 O0OL10& 3322 8 TIOTFERT RETURN TG TIQ 
S 3323 # 
OE7S O8SA05 C29A05 3324 TFECHECK SASI SLOCKS,6{00CFORG) RESET BASE BLOCK ADDRESS 
¢  OEFT6 200EEC LOGEEC 3325 : 8U TFESETUP SET-UP 600, C10 S OXC 
'. O€T7 OO11CD OOLICD 3326 BU TICQUDDOR RESTORE SDOR TO ORIGINAL VALUE 
O£78 0&2380 O8E380 3327 ANDY O5ST,1OPBUSY RESET ATTACHMENT BUSY 
2 OE79 280037 168037 3328 Hv i.0,S81 CAUSE O-REG CHECK & ADAPTER CHECK 
‘ OETA 200E79 1NSETS 3329 8 wo} Loop TO CHECK 
33390 MBLOK 
OE7B OOCETB OOOE78 3331+ 8 6 UNUSED ssssssssess 
OETC 200E7C 100E7TC 3332+¢ 8 * UNUSED sesss93s3s88 
OETD O00E7D QOCE7D0 3333¢ 8 s UNUSED sesesssssss 
OETE OOOETE QOOETE 3334+ 8 * UNUSED sssssssssee 
OETF 200ETF 1QOETF 3335¢ 8 * UNUSED sssssssszss 
oF0O0 3336¢ os <0>8 
Cc: 3337 END COPY-MEMBER TFE 
e 3338 Copy TIOL2 
3339 * 
3340 © THIS SECTION HANDLES START £/0 
3341 # 
OFGO OCOCO7 OOCCOT 3342 TIOSIO TANDI QBYTsX*O7° CHECK FOR CONTROL TYPE 
OFO1 O004F03 O10FO3 3343 BNZ #+2 GO If NOT 
OFO2 OADBO9 O88B09 3344 L6I STAT ,ROOP+SKCHPL CHANGE STATUS TO NOP AND SEEK CMPL 
OFO3 OAOBSC 08ss3C 3345 LBI L8,D0(D1LSENSE) SET CTL STGE PTR TO ORV 1 
OFO4 270COT 1C4COT 3346 TBOFFE 4,Q8YT, TIODRVL GO If ORIVE 1 ~<GHD>— 
OFOS 2€COO1 18C001 3347 ADDI L021 INCR TC CORRECT VALUE FOR DRIVE 2 >- 
OFO6 2EC82Z2 18C822 3348 ADDI L&8,X*22° INCR TO CORRECT VALUE FOR DRIVE 2 O- 
OFOT OAOD4SLE OS841E 3349 TIOORV. CBI L4eD(UCWPTR) GET UCWPTR PUINTER -<GHD>— 
OFO8 240488 104488 3350 SINC £82440 SAVE CURRENT UCH POINTER 
OFOS 2EC818 18Ce18 3351 ADDI t8,x*18* POINT TO CURRENT PA 
- OFOA 2448CE 1148CE 3352 LINC PAC st 8el ‘PUT PAC IN OLS 
OFOB 24C8CF 1348CF 3353 LINC PAH,L&,3 PUT PAH IN OLS 
QFOC OF&6D01 OSED01 3354 ORI FTR ALL OWIOX ALLOW INDEX TO CHECK FOR HOT LINE 
: OFOD 081835 oce835 3355 MY HEAD,FTI SAVE FTI TO CHECK FOR HOT LINE LATER 
X OFOE O0011F8 OO1L1IFS8 3356 BU TIPSLECT GO SELECT DRIVE 
OFOF 081722 ocge722 3357 MV CLO,FBI SAVE 3 GUT OF 6 CODE FOR LATER CHECK 
~  OF10 OA2684 084684 3356 LBE FTO.ROSTATUS TAG 1S READ MODULE STATUS 
\ OFLS 201365 101355 3359 BU TIPNOCHK TO TAG FLIPPER 
OF12 276214 106214 3360 TIOOMRDY TIBOF ATTN,» FBI, TIONOATN GO IF NO ATTN 
OF13 001066 001066 3361 8 TIGDOATT GO HANDLE DATA MODULE ATTENTION 
OF14 OA2EO8 O8aEOB 3362 TIONOATN LBI FB0,xX*O8* SET EXPECTED STATUS IN FBO 
OF15 OOL1LF4 OOLIEFS 3363 BU TIPBSGEN GO GENERATE BSDA 
~ OF16 2A071LF 18871F 3364 isl L7,0(SKMARK1) GET SEEK IN 
‘ OF17 2407C6 1047C6 3365 LINC C6,L7,0 PROGRESS MARKS 
OF18 2EC8E7 1BC8E? 3366 ADDI (t8,X*ET* POINT TC BYTE 3 IN SENSE 
‘ OF19 258C2A 164C2A 3367 TBON 6,O0BYT,TIONTSNS GO LF NOT READ CMD 
\. OFLA 27CC2A LF4C cA 863368 TBOFF 7eQ8VTs TIONTSNS ee 
OF1B OC8D07 O2CO007 3369 TEORI RBYT2X*O7* CK FOR RD DIAG SENSE 
e OFIC 004F22 O1OF22 3370 BNZ TIOOIAG GO IF NOT 
\. OF1D 2E5380 190380 3371 _ ORI MSC1sROSNS SET RD DIAG SENSE MARK 
OFLE 20037F 146C37F 3372 TAND &3,S80 IS UNIT CHECK ON FOR THIS ORV? 
~  OFLF 224F78 190F78 3373 82 TIOBEGIN GO IF NOT ON (NOOP IS ON IN STAT) 
% OF20 2A0510 188610 3374 Lol STAT, OPEND UNIT CHECK ON (NOOP IS OFF IN STAT) 
OFZ1 200F78 100F78 3375 8 TIOBEGIN SKIP CKING FOR RD OGN SNS CHD 
C: OF22 2C8D05 12CD05 3376 TIODIAG TEORI RBYTeX* 05° CK FOR RDO AND RESET BUFFERED LOG 
* OF23 204F2A 110F2A 3377 BNZ TIONTSNS GO If NOT 
OF2& 000642 04C642 33768 TAND L6,L2 CHECK FOR SEEK INCOMPLETE 
€: OF25 204F29 LLOF29 3379 BNZ TIOCLEAN GO iF SEEK INCOMPLETE 
=? OFZG 04488f 01488D 3380 SINC RBYTsLB ol STORE R-BYTE 
OF27T 04088C 004ssC 3381 SINC QBYT,LB-O STORE Q-BYTE 
E OF28 200F 78 LOOF78 3382 8 TIOBEGIN SKIP CKING FOR RD BUF LOG CHO 
> OF29 20011F iO01L1F 3383 TIOCLEAN & TCUSTART GO TO CLEAN UP TO POST NOP STATUS 
3384 *% ss 
C ace . COME HERE TO HANOLE NONE SENSE TYPE COMMANDS 
OF2ZA 000642 040642 33867 TIONTSNS TAND L6et2 CHECK FOR SEEK INCOMPLETE 
é OF28 224F30 190F30 3388 6Z TIOSKOK GO IF NOT ON 
- DATE 15AUG75 O6NOYTS PROG ID Fad-1 
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FAOL 3340 DISK MICROCODE MOD 12 PART 0. 4247623 FAOL 3340 DISK MICROCODE MOD 12 ee nO. nee. 
: PaGE 25 | C 
LOCe OBJECT CODE STN “SOURCE STATEMENT i; = £0Ce OBJECT CODE STM SQURCE STATEMENT 
= POST ERROR IF NOT 70MB OM -<GHD>- 
OF2C 07CB29 OF4629 3389 TIBOF SKCMPL,STATeTIOCLEAN GO IF NOT CONTROL TYPE-—POST NOP [ae OF72 27A27B 1&627B 3459 TIOTOMB ‘YTBOFF 6,FBIeTIOSIZER GO 
OEE GEEEao” <OECEGRC as01 ne uke SC SREREY SEER INCOMPLETE fo eta anscs:  10ssts 3461 ENG? tscteco Fee. (NENO? BO SiG 1k INT PENOING! 
OEsE BagThe cosiae aa52 Canc Feiss RESTORE MARKS | ~ OFTS 200543 140543 3462 TAND t5e13 CHECK IF OM ATTN INTERUPT IS ON 
OF30 04488D 01488D 3393 TIOSKOK SINC RBYT»LBe1 STORE R-BYTE i *. OF76 204F79 110F79 3463 BNZ TIODMINT GO POST ERROR IF YES 
OF31 04088C 00488C 3394 SINC QBYT,»L8,0 STGRE Q-BYTE | OF77 OE2DF6  OB8EDF6 3464 TIQSKDM ANOI FTR»X*F6! ENABLE ERROR TRAP ANDO DISABLE INDEX 
OF32 2A0407 188407 3395 tB8i L4ex*07* INIT HOT LINE CHECK MSG soe OF7B 001000 0010G0 3465 TIOBEGIN 8 TIODOSIG GTHERWISEs GO CONTINUE IN NEXT BLOCK 
CF33 OCLSEF OCDSEF 3396 TANDI HEAD »X*EF ® GO IF ANY TAG IN . |S OF79 0A0803 088803 3466 TIODMINT LBI L8.X*03* POST DM INT PENDING, FORMAT 0, MSG 3 
OF34 004707 O10707 3397 BNZ TEFNRERR LINES ARE ON OFTA 001104 001104 3467 8 TIOL700 GO POST CMO REJECT & ASSM SENSE INFO 
0F35 260739 185739 3398 TeOFF 3 CLO. TIOCTROK GO IF OuT oe CODE ALL aes c php : eine sees vevuadacanceibe on 
‘ @ 
orat occioF TocroT sans Tea ccacneor chic uo coe Sepeceer eae OF7B OAOSLE OS88B1E 3470 TIOSIZER LBI LBeX*1LE* POST WRONG OM SIZE STATUS -<GHD>— 
OF38 004707 010707 3401 6NZ TEFNRERR 6 CODE RETURNED 7 OFTC 240701 188701 3471 Lol L7,X*O1® POST INTERVENTION REQUIRED -<GHD>- 
0F39 052246 046246 - 3402 TIOCTROK TIBON ONLINE, FBI e TIOONLEN eo TE Device CN LINE *  OF7D OOO1LSF O0015F . ‘ 8 TCUDMERR GO TO SET UNIT CHECK € I0 aries 
OF3A OO11FS OOLLF4 3403 bu TIPBSGEN ET BSODA - 
OF3B 2D0A43 14CA43 3404 TAND UNCK eL3 CHECK FOR INTERVENTION REQUIRED i OFTE OOOL5A O00015A 3474 TIOCKWRT B TCUCKWRT GO TO CHECK FOR WRITE COMMAND-<GHD>- 
OF3C 004F41 O10F41 3405 @NZ TIOATIN GO If YES - 3475 MBLOK ee ae 
OF3D 2A0815 188815 3406 tBI LBeX*15* INITIAL SELECTION CHECK CF&7F OOOF7F ##OOOFTF 3476+ 8 * UNUSED 233338382283 
OF3E 2F4A43 10CA43 3407 _ OR UNCKsL3 POST INTERVENTION REQ*O c 1000 3477¢ OS <0>8 
OF3F 2A0701 188701 3408 TIOOMER LBI L7.X*01* PCST INTV REQ*D _ Nee 3478 ¢ 
OF40 201908 101908 3409 8 TSNNORM GO TO ERROR ROUTINE 3479 @ THIS SECTION FETCHES DOOR, ODCR AND DDCF 
OF41 OF6D40 O9£040 3410 TIGATTN GRI FTR,IOATITN TURN GN I/O ATTENTION LIGHT c 3480 © 
OF42 201385 101385 3411 BU TIPNOCHK RAISE ANO OROP TAG GATE : 1000 2E83FF 1AC3FF 3481 TIODOSIO EORI (13eFF INVERT USDA 
OF43 072242 0C6242 3412 TIGOF ONLINE sFBI »#-1 GO IF ORIVE NOT ON LINE | 1001 OE82FF OAC2FF 3482 EORI L2eFF INVERT BSOA IN L2 
OF44 2E2DB6F 18EDBF 3413 ANDI FTR,FF-IOATIN TURN OFF 1/0 ATTENTION LIGHT 1002 2F0642 1CC642 3483 AND L6eL2 RESET SEEK INCOMPLETE 
OF45 200F12 100F12 3414 8 TIODMRDY GO HANDLE OM ATTENTION AGAIN |. 1003 040786 004786 3484 SINC 691740 RESTORE MARK 
OFS6 056248 055248 3415 TEOONLIN TIBON ATIN,FBI1,e42 GO If OM ATTN STILL ON 1004 OFOAS3 OCCA43 3485 AND UNCK2L3 RESET INTERVENTION REQUIRED 
OF47 27E24A 1F624A 3416 TBOFF 7,.FB1,TIOBS7OK GO IF SK COMPLETE IS OFF i. aoa? arom pe pi ao cece ere a i AS MASK 
F48 OA0SOF O8840F 3417 LBI L4,X*OF* GO POST UNRESETABLE I 1006 OF3F43 
Ghee ob TOF ioe? 3418 8 TEENRERR TATERRUES ERROR = | 1007 OCOCO7 OOCCO7T 3488 TANOI OBYT,x*07* SEE 1F CMD IS SEEK GR RECAL 
OF4A 2CA208 12E208 3419 TIOBSTOK seo ph oo Go IF po rece CHECK OR [= ee Bees en oc er ee SOE Fe eee ta 3 
OFSB 224F4E 190F4E 3420 8 TIGCKOFF RIVE CHECK ‘ i 
crap Stores leenos daze Hossemt ot Fettnos co'ract equip en’ "e“™ | - 108 desez0 deoeza aca T™°* Gat RecznapoRoos ‘umn oor 00 AaRE-Ow 
OF4D 200708 100708 3422 TIOEQCHK B L703 s K a 0 Z ® 
OFSE OD024A 04C24A 3423 TIOCKOFF TAND 12-UNCK ‘CHECK FOR COUNTER OVERFLOW : 100C O£4901 O09C901 3493 ORI GEN1 »ODDXFER TURN FILE OOD XFER SWITCH ON 
OFSF 024F54  090F54 3424 62 TIOINFOK GO IF NONE 1000 2A0012 188012 3494 LBI L0-D(DDDRORG) SET DISPLACEMENT FOR DLS STORE DDOR 
OF50 OF8A42 OECAS2 3425 EOR UNCK »L2 pret ceouatee OVERFLOW  —- 100E een ee os roe ae ne ep hte pe - 
OF51 O0A0860 088860 3426 LBI L8eX*60° GRMAT 6 \ 1OOF 044 elO, 
—="OF52 OAO7T18 088718 3427 TIOL7lb LHI oe ot pee name et One ante eae noes ae zen RDsNosnac sere Ganact SO ee oece ODCF FETCH IF RD SNS 
OF53 201908 101908 3428 8 TSNNORM TO SET UP SENS 3 101 011C6 0 
OF54 OD027F O4C27F 3429 TIGINFOK TAND 2-560 TEST FOR SEEK BUSY \ 3012 2446082 114082 3499 SINC L2eL0e1 STORE DODCR HI 
OF55 224F59 190F59 3430 62 TIO8ZOFF GO If NOT ON 1013 240083 104083 3500 SINC L3eh000 STORE OOCR LO 
BEET GibGo? Oeseen (8432 TIOL827 co se pace Sek Boy LATCH ERROR . 1014 2A3300 188300 ae a2 sary aaa x*008 SET OXC FOR CHANNEL TO CS DATA XFER 
OF57 OAO827 088827 3432 TIOLS Ls 8eX*2 ’ H ‘ 4 dCs { 
OF58 201E44 101E44 3433 8 TWREMT2E GO POST EQUIPMENT CHECK 1015 089E85 029E€85 3503 SAb1 ®8LOCKCHsB(ODCFORGL+X*8000°) SET BLOK ADDR TO OOCF BUF 
OF59 27CBSF 1F4B85F 3434 TIGBZOFF TIBOF SKCKPL,STAT,TIOCKDM GO If NOT CONTROL TYPE CMD ‘ 1016 goeeos azeroe tare aoe Sched aaah ed i Sg re ata - 2 
OFSA 2A0720 188720 3435 Lal L7eDiSKMARK2) FETCH SEEK BUSY 1017 27C31 1F43 0 T 23,44 a 
OF5B8 27C7TC6 1F47C6 3436 LDEC Loot Tel JUST RESET MARK 1018 0£5440 - 090440 3506 ORI MSC220DCROOD TURN ON ODCR ODD BIT 
OF5C 000642 04C642 3437 TAND L6eL2 CHECK TO SEE IF SK BUSY JUST RESET r 1019 0€7340 09F340 3507 ORI OXC eCHANODD CHANNEL ODD TRANSFER ON 
OF5O 20S5CLE ALIC1lE 3438 B8NZ TWRLBO2 POST CMD RESECT WITH INVALID SEO XK aa rat ie aece = EL ca tensranan See er aa rce 
OFSE OOOF57 OOOF57 3439 6- TIOLS27 POST EQUIPMENT CHECK OTHERWISE 1018 2A21 A 8 He U 
OFSF 2A2604 184604 3440 TIOCKOM LBI. FTO,X*04* SET READ PHYSICAL y  101C 203108 1sp108 3510 LB1 CCti +8 FOR 10 BYTE TRANSFER FROM CHANNEL 
OF60 OAZE10 “OBAEIG 3443 - - - 462 - FBOexX*109 - - . ADDRESS. TAG. Se bie ate ; \- 1OLO 2A07S5E | 18873E 3511 LBI L7,O0(T1IOT1081) SET RETURN POINTER FOR SUBROUTINE 
OF61 2013865 101355 3442 ou TIPNOCHK TO TAG FLIPPER 3512 ; 
OF62 O2040A O08840A 3443 LBI = L4eX*0a* PRESET WRONG DEVICE SELECTED MSG e 3513 * SUBROUTINE TO INITIATE CHANNEL OATA TRANSFER AND WAIT FOR END 
OF63 008362 06C362 3446 TEOR L3-FBI | COMPARE PHYSICAL ORV ADOR 3514 # (L7 MUST BE SET UP BEFORE BRANCHING TO THIS ROUTINE) 
OF64 004707 010707 3445 BNZ TEFNRERR GO POST ERROR IF DIFFERENT 3515 * 
OF65 2A268F 18A68F 3446 LB! FTO.CONTROL SET CONTROL TAG ra OLE 2A2310 ° 18A310 3516 TIOCHXFR LBI OST pALWCHXFR START TRANSFER SEQUENCE 
OF66 OA2E83 OBAEB3 3447 LB! F680. SENSTATI READ STATUS BYTE 1 “ JOLE 246A32C 12632C 3517 TIOFWAIT TIBON ENDCHXFR,OST,»TIGOFEND GO WHEN END OF TRANSFER COMES ON 
OF67 201385 101385 3468 BU TIPNOCHE TO TAG FLIPPER . 1020 021020 081020 3518 NOP « DELAY 
OF68 OT227E OC627E 3449 TBOFF 4,FBI,TIOGCKWRT GO If NO WRT ENABLE ~<GHO>- C: 1021 221021 181021 3519 nop # OELAY 
OF69 0E5120 090120 3450 - ORI CEBL»WRENASLE POST WRITE ENABLES =“ 4022 221022 181022 3520 NOP *# DELAY 
OF6A 056278 056278 3451 TIOCKSIZ TBON 5,F51,TIOSIZER CHECK FOR -<GHD>— 1023 021023 081023 3521 noP 8 DELAY 
OF6B 25E278 176278 3452 TBON 7T7eFBIeTIOSIZER CORRECT SIZE —<GHO>- C: 1024 OE€D001 080001 3522 ADDI ZER-l INCREMENT MICROPROGRAM TIMER 
OF6C 2A0021 188021 3453 Ler L6,0¢SVPOPT) GET SVP OPTION * 1025 22901F 1ALO1IF 3523 BNC TIOFWAIT GO I€ NOT TIMEOUT 
OF6D 2400C1 1040C1 3454 LINC £1440,0 BYTE 1026 241328 165328 3524 TIBON ROSNSsMSC1,sTIOADCHK GO IF RD SNS CKD 
OFSE 060172 084172 3455 TIBOF ALOW1Z,L1,TIQ7OMB GO IF 1248 DATA MODULE NOT ALLOWED C. 1927 C00&i0 000a10 3525 8 TENL825 GO POST NO CHAN ENO ERROR 
OF6F OSA27TT 066277 3456 TEON 66F81,TIOSKOM GO IF 70MB DM ON DR ADORESSED “ 3028 O8CEO08 O38E08 3526 TIOADCHK S21 ZLSEXTB,X*08* CHANGE EXT ZONE TO FORCE ADPT CHECK 
OF70 0F5404 090404 3457 ORI MSC2sSIZE12 TURN ON 12M8 MARK 1029 O8E€800 03A800 3527 SLKI 8,0 TURN ON PCR REQUEST 
OF71 200F77 100F77 3458 8 TIGSKOM GO CGNTINUEs, SKIP CHK FOR DN ATTN C 1024 OA2FOO O8aF0O0 3528 Lo! SCN+O FORCE ADAPTER CHECK 
DATE 15AUG75 O6NOV75 PROG ID FA0-1 ¢ DATE 15AUG75 O6NOV7S5 PROG 10 +A0-12 
EC NG. 827765 827848 PaGE 251° €C 40. 827765 827848 PaGE _ 25a 
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FAOl 


1028 
ro2c 
1020 
LO2E 
1L02F 
1030 
1031 
1032 
1033 
1934 
1035 
1036 
1037 
1038 
1039 
103A 
1038 
103C 
103D 


103€ 
103F 
1040 
1041 
1042 
1043 
1044 
3045 
1046 


1047 
1048 
1049 
104A 
106B 
104C 
104D 
104E 
104F 
1050 
1051 
8052 


1053 
1054 
2055 
1056 
1057 
1058 
1059 
105A 
10568 
105C 
1050 
105€ 
105F 
1060 
1061 
1062 
1063 
1064 
1065 


1066 
1067 
1068 
1069 
106A 


DATE 
EC NO. 


COOCCHCHC COC CC COCO OCR O COOL OLE LOCOCO CeCe 


3340 DISK MICROCODE ----~— MOD 12 


OBJECT CODE 


0010268 
2A10FE 
OE0001 
629020 
261331 
246628 
2FS056 
0A23090 
011007 
200B6E 
200879 
000a08 
OOOAIA 
201155 
201065 
201077 
201071 
OOOELE 
OO0ES4 


OAD001 
0a0178) 
O4008E 
0401 8F 
065444 
COLSFO 
240509 
2a0s7c 
20096C 


0a0002 
0A01 84 
24C005 
244109 
0440DA 
0441C3 
274008 
07010C 
240953 
oaicooe 
2A0186 
27019C 


OCO3FE 
905062 
270358 
05401 
00105A 
040654 
0E54C8 
280418 
2FO41LA 
2F4310 
OCO3FE 
025060 
0£5402 
070363 
060463 
0£5402 
278C65 
001897 
201100 


OES2FF 
2FOAS2 
2F0642 
040786 
OBOELO 


15aUG75 
827765 


001628 
18S90FE 
0280001 
0A102D 
165331 
116628 
1€0050 
084300 
041007 
LO0B6E 
100879 
OO0A0S 
OOCALA 
1011355 
101D65 
101D77 
101071 
OOOEIE 
O00ES4 


o88o0i 
088181 
00408E 
00418F 
095444 
0015F0 
188509 
188B87C 
10096C 


088002 
088184 
134005 
114109 
0140DA 
0141C3 
104008 
oc41DC 
135953 
os9coo0 
186186 
10419C 


OOC3FE 
011062 
1F4358 
090401 
OO0105A 
03565A 
090408 
108418 
icC4la 
10€310 
OOC 3FE 
091060 
09D402 
OF 4363 
0B4463 
090402 
1E4C65 
001897 
101100 


OAC2FF 
1CCA42 
10C642 
004786 


O°8E20. 


STM 


352¢ 
3536 
3531 
3532 
3533 
3534 
3535 
3536 


nn sSJAEA“RA nA nA nin ns sO 


SOURCE STATEMENT 


3537 


3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
2549 
3550 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 


- 3561 


3562 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3580 
358} 
3582 
3583 
3586 
3585 
3586 
3587 
3568 
3589 
3590 
359% 
3592 
3593 
3594 
2895 
3596 
3597 
3598 


O6NOVTS 
827648 


PART NO. 
PAGE 


HANG WITH ADAPTER CHECK 
DELAY TO INSURE 
END OF 
CHANNEL XFER 
IF NOT ROD OIAG SNS 
GO FF CIO/2 PARITY CHECK 


GO 


RESTORE ZER 


RESET ALLOW CHAN XFER & END OF XFER 
GO TO RETURN BRANCH BELOW 


“RETURN 


RETURN 
RE TURK 
RETURR 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 


PAC ADDRESS IN BUFFER | 

PAH ADDRESS IN BUFFER 

STORE PAC AND PAH IN BUFFER TO 
CLEAR GP-REG CHECK AFTER POWER UP 

GO IF DOCF IS ON EVEN BOUNDARY 

SHIFT DOCF TO EVEN BOUNDARY 

SET REG FOR SUBROUTINE 

OISPLACEMENT FOR RETURN BRANCH 

GG CHECK CHNL CNTR & RESTORE DDCR 


FLAG ADDRESS IN BUFFER 
RECORD ADORESS IN BUFFER 
FETCH FLAG BYTE 
FETCK 
FETCH 
FETCH 


RECORD BYTE 

KEY LENGTH BYTE 

DATA LENGTH HIGH 

DATA LENGTH LOW, POINT TO CLO 
NUMBER OF RECORDS,POINT TO CHI 
GO 1F NOT RECORD ZERO 

SET N TC ZERO IF RECORD ZERO 

SET DISPL TO N IN OOCF 

SET N TO ZERO IN DODCF 


FETCH 
FETCH 


TEST HI OATA COUNT 
AND GO IF > 256 

GO IF DATA LENGTH NOT 256 

SET DATA LENGTH 256 BIT 

SKIP 2 INSTRUCTIONS 

GO IF DATA LENGTH NOT ZERO 

SET DATA LENGTH ZERO 81T 

MOVE LO DATA COUNT TO WORK REG 

ADD KEY TO LO DATA COUNT 
“FINISH ADO 

TEST (KL4OL? HE BYTE 
GO IF COUNT IS 256 OR LESS 

SET KEY*DATA COUNT > 256 MARK 

GO IF 256 WEIGHT BIT IS OFF 

GO IF LO COUNT IS ZERO 

SET KEY#DATA COUNT > 256 

GO 1F READ OR CONTROL TYPE CMOS” 

GO CONVERT $/3 CCHH TO WIRCH CCHH 

GO DO COMMAND OECODE ; 


INVERT BSOA 

RESET COUNTER OVERFLOW MARK 
RESET SEEK ENCOMPLETE MARK 
RESTORE MARK 


8 ¢ 
TIQOFEND LBE ZER.X*FES 

ADDE ZERel 

BAC to] 

TIBOF ROSNS,.MSCL,*42 

TBON 1eHES, TIOCADCHK 

EGR ZER,ZER 

LBE CST¥.0 

GR BC TIOCHXERE »L7 
TIOTENAL 8B TENTIOB2 
TIOTENA2 B TENTIOB2 
TIOTENAS 8B TENTIOB3 
TIOTENAS B TENTIOB4S 
TIOTIOA2 8B TEOTIOB2 
TIOTWRAL 6B TWRTIIGB? 
TIOTWRAZ 6 TWRTIOB2 
TIOTWRAS 6 TWRIIOBS 
TIOTFEAL 8 TFETIOnI 
TIOTFEA2 8 TFETIOB2 
& 
TIOTIOB: LOE LO,O(DOCFORGL42 3 

LB L1,D(ODCFORGRE1L) 

SINC PAC.LO-G 

SINC PAH,L1,0 

TIBOF ODCRODD.MSC2,44+2 

BU TROMEVEN 

LBI 15:9 

LBI L8,DITENTIOAL) 

8 TENAJAX 
& 
TIOTENBL Lol LO. C( DDC FORGL+¢2} 

LBI L1,. D(C DDC FORGR 4 } 

LINC FLAGeLO-3 

LINC RECeL1e1 

LINC KCNT,.LOe1 

LINC L3eLlel 

LDEC DCNT.L023 

LOEC WNREC L104 

TBON 3eRECeTICRNTO 

tel NREC,O 

LB L1,0€00CFORGR+6) 

SDEC NRECeL194 
t—-—-SSET UP DATA AND KEY LENGTH MARKS 
TIORNTGO TANOI 13,X*FE® 

BNZ TIOGREAY 

THOFF 74L3,%¢3 

ORI MSC2,DL256 

& #43 

TBON 3+DCNT, #42 

GRI MSC2,D0L0 

MY L4,0CNT 

aoo L4,KCNT 

ADDC £3,ZER 

TANDI £3,X*FE* 

BZ #42 

gai MSC2,KDGT256 

TBOFF 7,.43-eTIGRORC 

YGOFF 3644, TIGRORC 
TEGGREAT ORY MSC2 .KOGT256 
TIGRORC YBOFF 6,QBYT,TIOSKALL 

BU TSK3WIN 

TIOSKALL 6 TIGCMDEC 
e 
@ THIS SECTION HANOLES DATA MODULE ATTENTION 
e - ; 
TIODOATT EGRI L2,FF 

AND UNCK »L2 

AND L6,L2 

SINC £&6e17-0 

My PAC eZER 


RESET PAC 
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meen eee er cee ere ee on eetee eee seme mer oe 
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i068 
106C 
1060 
106E 
106F 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
107A 


1076 
107C 
107D 
LOTE 
1O7F 


1100 


1100 
1101 
1102 
1103 
1104 
1105 


1106 
1107 
1106 
1109 


110A 
1108 
110C 
1100 
L1OE 
LIOF 
1110 


ALi 
1112 
1113 
1114 
1215 
1216 
1117 
1118 
2119 
LliA 
1118 
ilic 
1110 
Llle 
LILF 
1120 
1i21 
1122 


DATE 
EC NOe 


3340 OFSK MICRCCODE 


OBJECT CODE 


260F10 
2A063A 
0406C0 
2F 4043 
240680 
0E6D20 
2A268F 
OA2ZE04 
201385 
001109 
289A85 
240882 
089405 
OA2684 | 
201385 
200F 14 


2A3D001 
0E2340 
OA3D000 
2E33FD 
201140 


OCODFO 
225106 
2E12F7 
2A0801 
0a0700 
201908 


26A708 
OOOE06 
058C27 
25C€C11 


2E12F7 
O4CDOE 
601897 
201704 
OCCOFF 
225700 
0021102 


OCCOFS 
209102 
ocep07 
025116 
2E12F7 
05¢€018 
001897 
0A0718 
2F070D 
211107 
001400 
201400 
001438 
001125 
201424 
001768 
001102 
201 76C 


L5auGT7s 


627765 


iC8F10 
18863A 
0046C0 
10C043 
104680 
O9ED20 
18A68F 
O8AE04 
101385 
001109 
129A85 
106882 
029A05 
O8A684 
101385 
100F 14 


188001 
08E340 
o8BD00 
18F3FD 
162140 


OOCDFO 
191106 
18D2F7 
168801 
088700 
101908 


1A6708 
OOOEO6 
064C27 
174C11 


1802F7 
034D00E 
001897 
LOLTOA 
O3COFF 
191700 
001102 


O3CDF6 
121102 
O2CD07 
091116 
18D 2F7 
074018 
001897 
088716 
icc70o0 
141107 
001400 
101400 
001438 
001125 
101424 
001766 
001102 
101 76C 


STM 


3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624+¢ 
3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3640 
3641 
3642 
3643 
3644 
3645 
3646 
3647 
3648 
3649 
3650 
3651 
3652 
3653 
3654 
3655 


- 3656 


3657 
3658 
3659 
3660 
3661 
3662 
3663 
3664 
3665 
3666 
3667 


_ 3668 


G6NOV7S 
827848 





MOD 12 


4247623 
26A 


PaRT NO 
PAGE 


SOURCE STATEMENT 
HV PAH, ZER RESET Pak 
LUI &6e0( EFSENSEL) GET EXTENDED FUNCTIONAL 
LINC LOek6e0 SENSE BYTE 
oR LOt3 TURN ON DOM ATTN PENDING 
SINC LOcL6,0 RESTORE SENSE 
ORI FITR,OMATIN TURN ON DM ATTN INTERRUPT 
L8E =o FTO,.CONTROL SET TAG FOR CONTROL 
LBI FRO RSTATITN RESET ATTENTION INTPT 
Bu TIPNOCHK TO TAG FLIPPER 
BU TIPZEROW CLEAR LO TO L? 
SABE BLOCKBeX*8S* SETUP FOR MULTIPLE STORE 
SINC £291850 CLEAR 6 BYTES OF CCUNTERS 
SABI BLOCKB.X*OS* RETURN TO SINGLE BYTE MODE 
LBI FTOeROSTATUS TAG IS READ MODULE STATUS 
BU TIPNOCHK TO TAG FLIPPER 
8 TIONGATN RETURN TO NORMAL STREAS 
2 
* THIS SUBROUTINE INCREMENTS DDDR BY 1 AND REAOS THE FINAL VALUE 
s 
TIODDDR) LBi 600.1 LOAD LO DIFFERENCE TO 800 
ANOI OST,CHOUTVAL Copy B00 TO CIO 
L681 800.0 LOAD HI DIFFERENCE TO 800 
ANDI DXC,FE-SUBTRACT TURN OFF SUBTRACT FOR THIS OP 
B TIOQVUOOOR GO FINISH UP AND RETURN 
MBLOK 
DS <0>6 
* THIS SECTION DOES COMMAND DECODE 
s 2 
TIOCMOEC TANDI RBYT,»X*FO® SEE IF R O TO 3 ALL ZERO 
BZ TIOROK GO IF BiTS ARE ZERG 
TICCMRJST ANDI CEB2,FF—-WHACK RESET ALLOW WRITE HA 
LBI L8ex*ol® POST INVALIO CHD 
TIOL700 LBI £72X*008 POST CMD REJECT 
8 TSNNORM 
. . 
TIOROK TIBOF ERRMODE»FHF, +2 SKIP NEXT INSTRUCTION IF NOT ERRMODE 
B TEETIO GG TO FORCE ERROR ROUTINE 
TICTFERT TBON 6,08YT,TI0023 GO IF O IS 2 OR 3 
TBON 7,Qv0YT,TIOOL Go 1F a 1s 1 
s 
* COMMAND BREAKOUT FOR Q EQUAL TO ZERO IS DONE HERE 
s 
ANDI CEB2+FF-WHAOK RESET ALLOW WRITE HA 
TBON 3,RBYT, TIGRNZ GO IF ANY BITS ON 
BU TSK3WIN GG CONVERT S$/3 CCHH TO WINCH CCHH 
8 TSK SEEK SEEK COMMANO 
TIORNZ  TAOOI RBYTeX*FF® CHECK IF R IS O1 
BZ TSKRECAL O01 1S RECALIBRATE 
8 TIOCMRIT GO POST CMD REJECT 
s 
*. COMMAND BREAKOUT FOR Q EQUAL TO ONE IS DONE HERE 
s 
TIOQ1 TADOI RBYTsX*FS® . GO TE INVALIO 
BCY TIOCMRJT R-BYTE 
TEORI RBYT»X*O7* TEST FOR RO DIAG SENSE CMD 
BL ss #2. GO IF YES 
ANDI CEB2¢FF—-KHAOK RESET ALLOW WRITE HA 
TOON TeRBYT, #42 GO IF DDCF NOT USED BY CHD 
Bu TSK3WIN GO CONVERT $/3 CCHH TO WINCH CCHH 
LBI =: L 7, OC TIOQ1L TAB) GET ADORESS OF TABLE 
AOD -L7,RbYT AOD asyT 
BR B(TIOQLTAB) kL? CMD BREAK OUT 
TIOQLTAG 6 TROKOD READ KEY DATA 
8 TROHAROE READ HA RO OOD 
8 TROCKD REAO COUNT KEY DATA 
8 VIOVERKO READ VERIFY DEV DATA 
6 TROCKOD READ CKO OIAGNOSTIC 
8 - TSKRRBLG READ AND RST BFRD LOG 
6 TIOCMRIT INVALIO CMD CODE 
8 TSKRDSNS READ DIAGNOSTIC SENSE 
PROG 10 FAO~i 
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FAQ] 3340 DISK MICROCODE ----- MOD 12 . PART NO. 4247623) FAO] 3340 DISK MIC"OCODE 
PAGE 2747 PAGE 27A 
w. * , . 
LOC. OBJECT CODE STM SOURCE STATEMENT | ‘ Loc. OBJECT CODE STM SOURCE STATEMENT 
: RE LO THRU L7 
1123 001407 001407 3669 6 TRDROKDO READ RO KEY DATA COD * 3739 * THIS SUBROUTINE ZEROS WORK STO 
1124 001402 001402 pa Pelee se a ea coauene eee te C ant? Senate te ene ene eT Tarra Re a Tee 
1125 001897 001897 36 - 
1126 20141E IOL41E 3672 8 TROVKO READ VERIFY KEY DATA | r pes eeeeca Saecnn ans TIPZEROW 7 peo gionk CLEAR 
3673 ® ® . 
27 OSCC3E 074C3E 3674 T10Q023 ¥B8O0N 7,QBYT,TI0Q3 GO IF QO IS 3 | 1158 240600 188600 3744 Ler L6eX*00°* WORK 
= 3675 & - ; | ‘ 115C 0a0700 O8é700 3745 : Le! L7%.X*00* 
3676 @ COMMAND BREAKOUT FOR Q EQUAL TO TWO IS DONE HERE ‘ 1150 2ac000 188000 3746 TIPZERO3 LBI L0,x*008 STORE 
3677 & | 115€ 0A0100 088100 3747 LBI ile X*O0* 
1128 250038 144038 3678 TBON 4,RBYT,.TIOQZRS | 115F 0A0200 088200 3748 Lor L2eX*Go* AND 
1129 054034 054034 3679 TBON 5 ,RBYT, TIGQ2R4 - 1160 284382 108382 3749 TIPBSOA MVXU L3.L2 RETURN 
T,T 3750 ® 
shee Geeace eo eese ee a Oren Foden CG 3751 SESS 4S S4ESSSEKSTSEESSEAERESSEESOSESSEKESHESESHESSSERESESESESESESEED 
112C 2E12F7 18D2FT 36862 ANDI CEB2sFF-wWHAOK RESET ALLGW *®RITE HA 3752 2 SUBROUTINE TO FETCH Q@ ANDO R BYTE FOR SIO 
112D 001CC0 001C00 3683 B TWRKO WRITE KEY DATA 3753 SSSHKSHRSSESSKSSSSESKSAREKSSSESEAKRSSTEKSCITSSASESKSESRESSESSSTTIESTSKSSESSHSS 
L12E 201C19 101C19 3684 TIOQ2R1 8B TWRHAROE WRITE HA AND RO EVEN ’ 3754 % 
L12F 2E12F7 1802F7 3685 TiGQ2R2 ANDI Ocal acne RESET ALLOW WRITE HA | fies pnreeaeee tree se aace TIPGETOQR oY rai ip =okba aan rpl Q-BYTE 
1130 05C033 074033 3686 TBON 7,RBYT,TIO , E 
N T EVEN HEAD 1163 0€2340 QO8E340 3757 ANOI OST,sCHOUTVaL MOVE R-BYTE TO C02 
Tiae celcsi. “40iesy. Seon 8 6 othRcKD WRITE COUNT KEY. DATA | dies 60038 | OC8D3B S758 MV RBYTsCOZ FETCH R BYTE 
1133 001C03 001C03 3689 TIGQ2R3 8B TWRARKO WRITE REPEAT KEY DATA 1165 O58C6C 064C6C 3759 TBON 6-Q8YT,-TIPGOL GO IF NOT 
1134 278002 1E4002 3690 TIOQ2R4 TBOFF 6,RBYT,TIOCMRIT INVALIO CMD CODE 1166 O7CC6C OF4C6C 3760 TBOFF 7-QBbYT, TIPGOL] NOT READ Cad 
1135 25c002 174D02 3691 '  FBON 7eRBYT, TIOCMRIT INVALID CMD CODE | 1167 2&5360 190380 3761 ORI MSC1,ROSNS TURN OW RD SENSE MARK TO SKIP CHKING 
1136 2E12F7 18D2FT 3692 ANOI CEB2-eFF-WHAOK RESET ALLOW WRITE HA 1168 OC8D038 O2CD00B 3762 TEORI RBYTsX*OB* SEE IF RO EFS CMO 
1137 001C2B CoOic2B 3693 8 TWRROO WRITE RO ODD | 1169 025173 091173 3763 82 TIPGO2 | 3 250 IF YES : 
1138 054002 054002 3694 TIGQ2R& YBON 5.-RBYT,TIOCMRIT INVALIO CMO CODE | 116A OC800D O2CD0D0 3764 TEGRI RBYT,X*0D SEE IF RESET OM ATTN CHD 
1139 058002 064002 3695 TBON 6eRBYT,TIOCMRIT INVALID CMD CODE -<CD>- 14368 025173 091173 3765 BZ TIPGO2 GO IF YES 
113A 25C030 174030 3696 TBON 7,RBYT, TICQ2ZR9 GO IF WRITE HA ODD -<CD>- | 116C OF 844C OECS4C 3766 TIPGOl EOR .1L4&,Q8YT COMPARE DRIVE ADDR 
11386 2E12F7 1602F7 3697 ANDI CEB2,FF-WHAOK RESET ALLOW WRITE HA -<c0>- | 116D OEO4SFS8 O8C4FS8 3767 ANDI L4eX*F8* MASK OFF UNWANTED BITS 
113C 201€48 101E4B 3698 8 TwRWCCD WRITE COMPRESSED COUNT DATA -<C0>—- 116E 02517uU 091170 3768 BZ +2 GO IF SAME ORIVE 
11320 201C19 101C19 3699 TIOQ2R9 8 TWRHAROO WRITE HA ANDO RO ODD -~<C0>- | To acces Aeoees rate aa CENT CT ACCES See re eccee apie HA BIT 
3700 © ° 
3701 * COMMAND VALIDITY TEST FOR Q EQUAL TO THREE IS DONE HERE) | 1171 OEF137F OsO37F 3771 ANOI MSC1,FF-ROSNS RESET RO SENSE MARK 
3702 ¢ | ; 1172 OE2706 O8ET06 3772 ANDI FHF »SCNSAT*¢SCNEQ RESET SCAN SATISFIED AND SCaN EQUAL 
Li3E 2E12F7 18027 3703 TIO0Q3 ANDI CEB2e¢FF-WHAOK RESET ALLOW WRITE HA 1173 OF90D0 OED0D0 3773 TIPGO2 EORU ZER,.ZER RETURN 
#7 113F 250043 144043 43704 TOON 4@eRBYT, TIOQ3SRS GO IF SCAN READ COMMAND -<GHD>—- aie . 
1140 054002 054002 3705 TBON 5,RBYT, TIOCNRJIT INVALIO CMO CODE -<GHD>—- C 
4 4 3706 TBON 7eRABYT.TIOCMRIT INVALIO CMD CODE -~<GHD>— ? 3776 ¢ 
ao Seeece Fooean 3707 hig TERSTART PROCEED TO INLINE SCAN OIAGNOSTIC 3777 SSSSSSCSKESSSESESSERESESSSSSESSSSSESTES SSS SSIS STSESSSSSETSESESESSESESRELE 
31143 274002 104002 3708 TICQ3RS TBOFF 5.RBYT,TIOCMRJIT INVALIO CMD CODE C: 3778 * THIS SUBROUTINE GENERATES BIT SIGNIFICANT DEVICE ADDRESS IN 
1144 058002 064002 3709 TBON 6-RBYT,-TIOCMRIT Z 3779 * £3(0—-3) & L2¢(4-7) FROM THE ORIVE ADORESS IN CBYT. 
1145 200C4B 100C48 3710 8 TERSTART PROCEED TO INLINE SCAN DIAGNOSTIC 3TBO 689948 58E5SSEESESSKSESKEESSEKERSSOSESESESESCESKRERSSSRSESECSSSESSSEESESSECE 
3711 * = 3761 & 
3712 © READ/UPDATE DOCR SUBROUTINE | : 1174 200204 188204 3782 TIPBSGEN LBI L2eX*04* INITIALIZE BSDA TO ORIVE 2 -<GHO>- 
3713 © 1175 250C77 144C77 3783 TBON 4sQBYT, #42 GO IF DRIVE 2 -<€GHO>- 
1146 0A3000 O08s000 3714 TIGRODCR LBI 600.0 CLEaR 800 | 1176 2—F0202 1CC202 3784 ADD t2eL2 FORM BSDA FOR ORIVE 2 -~<GHD>—- 
1147 0&2340 OBE340 3715 ANDI OST,CHOUTVAL copy 600 To CIO | 1177 284382 108382 3785 MVXU L3,L2 SET 8SDA IN L3 aND RETURN ~<GHD>- 
1148 2E33EF A8F3EF 3716 TIOUODCR ANDI OXC.FF-LSRSELOR LSR SELECT ODCR 3786 *& 
1149 0&7302 O9F302 3717 ori OXC eSUBTRACT ALWAYS SUBTRACT ON DOCR OP C: 3TBT $89996906 254948 S5SSETESEAESSETESSEESEESEESSES SESE ESTEESEHEEESRDESSESOSSSESED 
114A 20114E 10114E 3718 8 TIOSETUP GO FINISH USING COMMON CODE me 3788 © THIS SUBROUTINE SELECTS THE ORIVE 
3719 ® ; 3789 88S89FS8S88066S494SSSESSEKEESEEESSEESESSESESESESERESESSEEESSESSESE ESD 
3720 # READ/UPOATE DODR SUBROUTINE ff 3790 
3721 ¢ % LIT78 O£258F O8E58F 3791 TIPSLECT ANDI FIGC,FF-SELHOLD OROP SELECT HOLD 
1146 0OA3D00 O8B000 3722 TIORDODR 181 600,0 CLEAR 600 1179 2€6540 19E540 3792 GRi FTG sK°40° RAISE SELECT HOLD 
114C 0&2340 OB8E340 3723 ANDI DST ,CHOUTVAL copy 800 To CIO f 117A 2A2683 18A683 3793 LB1 FT¥O.,X*83* TAG IS SELECT DEVICE 
1140 0£€7310 O9F310 3724 TIOUDDDR ORI OXC eLSRSELOR LSR SELECT OOOR | ~ 1178 O82E00 OCAEOO 3794 my FBOeLO 40 POINTS TO CURRENT DRIVE 
114E 0€7320 O9F320 3725 TIGSETUP ORI OXC eL SRCSR LSR REQUEST | 117C 001335 001335 3795 8 TIPNOCHK TO TAG FLIPPERS RETURN FROM THERE 
114F 0OE€7301 O9F301 3726 ORI DXC »,CHNLI6YT SET UP C: 3796 MBLOK 
1150 2A2100 18A100 3727 tBI CCH eX*00* FOR | * 2170 203170 101170 379T¢ 8 * UNUSED ssssssssess 
1151 043100 O8B1GOQ 3728 ts! CCL .X°00* LSR OPERATION WITH CHANNEL | LITE 201L17E lOLL7E 37984 B e UNUSED <sesssseesss 
1152 2A0738 188738 3729 tBI L7,O(TIOTIOA2) SET UP RETURN POINTER AND | é LIL7F O0117F OOLLTF 37994 & & UNUSED <ssetsssess 
1183 2€337F 18F37F 3730 ANDI OXC.X*7F®* RESET DATA TO CHANNEL , 1200 3800+ os <0>6 
1154 OOL1OLE OOl1O1E 3731 8 TIOCHXFR GO DO CHANNEL TRANSFER | 3801 # 
1155 280338 1€8338 3732 TiGTiGB2 KV 13,C02 MOVE DDOR/ODCR LO INTO t3 G 3E02 £9SS466SS29ESESE4SESKETESEESESESESOSAERSEAEKESSEOESES 
1156 0&2340 O08E340 3733 ANDI OST,CHOUTVAL TRANSFER COOR/CR HI FROM COO TU CO2 { 3803 @ THIS SECTION IS THE BASIC IDLE Loop 
1157 080238 O0C8238 3734 iV L2,.CG2 MOVE ODDR/ODOCR HI INTO 12 ; 380% SESSESESECESSSSESSSESSEKESSREKESESESSESESSESORESEETESEESES 
1158 09000 GED000 3735 EORYU ZER,ZER RETURN - 3805 ¢ 
3736 END COPY-MEMBER TIOL2 © 1200 O04097E OOS9TE 38606 TIPSTKCK TIBSON STACKCMD,GENL-TIPSTKCM GO IF STACK CHD PENDING 
3737 copy TIP12 | 1201 242370 106370 38607 _ TIBON TOPBUSY,OSTsTIPSIG GO IF START IG PENDING 
37ZG CHEFSSSSSSSSSESSE SE SAETESES SSIS AS SSSSTHSS TKS SSSZESLSESES €: 1202 0016CB 0018CB 3808 TIPIDLE &Y TSNSKTMR CHECK FOR TIMECUT ON SEEK BUSY 
DATE 15auG75 O6NOVTS . : PaoG 1D Fao-1 C DATE 1S5AUGTS O6nOVvTS . PROG 10 FAag-1 
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FAG1 3340 DISK MICROCODE ---~—- MOD 12 PARY NO. 424762 FAOL 3340 DISK MICROCODE - ‘MOD 12 PaRT NOw 4247623 
PAGE 28 i ;- - PAGE 28A 
Xt, 
LOC. OBJECT CODE STM SOURCE STATEMENT - LOC. OBJECT CODE STM SCURCE STATEMENT 
1203 OA00CL 088001 3809 TIPSTRIN LBI LO,X*oO1® INITIALIZE TO ORIVE 2 BUSOUT -<GHD>- ~ 1246 025249 091249 3879 BZ *¢3 PROGRESS 
1204 2A0140 288140 3810 LBI Liex*4c® UNIT CHECK MASK, ORIVE 2 -<€GHD>- : 1247 2A0689 188889 3880 Le! STAT X*B9* POST SEEK COMPLETE AND CHECK 
1205 OOLLFS OCLIFE 3611 TIPNEXT 8U TIPSLECT GO TO SELECT DaIVE 1248 00124C 00124C 3881 6 TIPLBIS POST INTERV REQUIRED ERROR 
1206 O8£100 034100 3812 SEKI 160 RESET PREVENT IfC FLIP LATCH IN SVP 1249 2001C4 41001C4 3882 BU TCUSETUC TURN GN UNIT CHECK FOR TIO 
R207 OAELO4 GBA104 3813 LLKR L4,} SAMPLE SVP REQUEST LATCH 124A 2E4880 19C860 3883 ORI STAT szERRRETUR POST ERROR RETURN MARK 
1208 278415 1E4415 3814 TEBOF SVPREQeLSsTIPNOSYP GO IF NO SVP REQUEST 1248 OFSAKI ODCA42 3884 oR UNCKeLL POST MARK FOR INTV REQD 
1209 2AE004 1BA006 3815 LLKR 14,0 GATE X-REG TO L4& ~- 224 2A0825 186815 3885 TIPL815 LBI LBeX*is?® FORMAT 1 MSGE $ 
120A O08E460 O3A400 3616 SLKI 4,0 RESET SVP REQUEST LATCH 5 124D 2A07T01 18870) 3886 TIPL7OlL tBE LTeX*Or® POST INTERVENTION REQUIRED 
1206 2A0521 188521 3817 LBI L5,0(SV¥VPOPT) SET CS DISPL TO SAVE X—REG 124E CO1L39C 00139C 3887 TEPUCH BU TIPUCHPT GENERATE UCH POINTER 
120C 0405C6é 0045C6 3816 LINC £6,1£5,0 GET OLD OPTION BYTE AND 2 124F 2A051E 18851E 3888 L&I L5,00CUCWPTR) POINT TO UCwPTR 
21200 2E&0680 18C660 3619 ANOI L6,ALOWL2 SAVE ALLOW 12MB MARK “42250 240586 1045286 3889 SINC L6ek5e0 SAVE UCW POINTER 
120E OF 4446 O0DC446 3820 OR £4.16 OR IN TO NEW OPTION BYTE 1251 OEC618 O6C618 3890 ADDI L6ex*is® POINT TO CURPENT PA 
120F 040584 004584 3821 SINC €4,£5,0 SAVE X-REG AS GPTIUN BYTE ‘ 1252 0446CE O1l46CE 3891 LINC PaCel6el FETCH PaC 
i210 068415 OA4415 3622 TIBOF FORCERST,LS,TEPNOSVP GO IF FORCE SYSTEM RST KOT ON : 1253 O406CF OO46CF 3892 LINC PAH.L6,0 AND PAH 
1211 289400 129400 3823 SABI WNIAREBsBUTRSYSRST) SET MIAR FOR EXTERNAL 1254 201908 101908 3893 8B TSNNORA GO TO ERROR ROUTINE 
1212 28B642F 12842F 3824 SADI MIAREDsDITRSYSRST} TRAP TO SYSTEM RESET ENTRY c 3694 * 
1213 28816F L2818F 3825 SABI INDEXB,X*8F* CHANGE SASE INDEX TO GO TO PGK 5S o 3895 
1214 201214 101214 3826 8 s HANG TILL PROGRAM SWITCHES ZE9H SHESSSESESKESESHESESSES SEE SESEESSERESESEKEAKSS CEKRSSEKERSESESESESESSE 
1215 OA2E08 OBAEO08 3827 TIPNOSYP LBI FBO,X*08* EXPECTED STATUS IN FBG | Cc. 3697 * A SEEK COMPLETE INTERRUPT DETECTEO IN THE IDLE LOOP COMES 
1216 0A2684 CB8A684 3828 Ler FTO eX*B4* TAG IS READ MODULE STATUS oe 3898 @ HERE FOR HANDLING. 
1217 201385 101365 3829 BU TIPNOCHK TO TAG FLIPPER 2899S F8SSSESESESEEEEKSETEESESESSESESSESESE SESE SSE TVS EEKESSEKSERESESKESSSERE 
1218 ODOL4A 04C14A 3830 TAND £1,UNCK SEE IF INTERV REQD IS ON re 3900 * 
1219 22523F 19123F 38631 62 TIPNEREQ GO IF NOT ON 1255 2A081F 18881F 3901 TIPSKCOM LBI L8.D( SKHARK1L) GET SEEK IN 
L21A 072239 0C6239 3832 YBOFF 4, F6I,TIPSKEXK GO IF NOT ONLINE 1256 0408C4 0048C4 3902 LINC 14¢L8:0 PROGRESS MARK 
-1218 OFBA4S1 OECA41 3833 E€OR URTK eL 1 RESET INTERY REQD 1257 200144 14C144 3903 TAND Liel4 IGNORE SEEK COMPLETE IF SEEK IN 
121C 2B043Fr 1CB843F 3834 MY L4,$880 copy SBO 1258 22523A 191234 3904 62 TIPNSCOM PROG NOT ONeee INTRPT STUCK ON 
121M 2EO4FO 18C4FO 3835 ANODE €£4,X*FO* HASK OFF SK sUuSY BITS 1259 046279 016279 3905 TBON 1Le-FBISTIPSKSAD GG IF INTFCE CK , 
L2LE 2-844) 1EC441 3836 EOR L4eLl RESET UNIT CHECK 125A 04A272 026279 3906° TRON  2,FBIeTIPSKBAD GO IF ORIVE CHECK 
_ 121F 2B3F04 1CBFO4 3837 MY S$B0.L4 COPY NEw STATUS BACK TO S60 1258 284201 108201 3907 MYX L2etl MOVE 8SDA TO L2 sITS 4-7 
1220. G5A23A 06623A 3836 TIPDMEXM TBON 6,FBI,TIPNSCOM GO If SEEK BUSY 125C 040965 004965 3908 TIBON STACKCMD,GENL,TIPSCSTK IF IF STACKED CMD PENDING 
1221 276239 106239 3839 TBOFF 5S,FBI,TIPSKEXM GO IF NO OM ATTN 125D 080402 0C8402 3909 MY L4.L2 COPY B8SDA 
1222 00139C C0139C 3840 BU TIPUCUPT GENERATE UCW PTR 125E O€44F0 O9C4FO 3910 ORI L4,X*FO? DON'T RESET PENDING UNIT CHECK 
1223 GEC618 OBC616 3841 ODI £6,x*18* POINT TO PA BYTES ' 225F 24237D 106370 3921 TIBON ILOPBUSY-.DOSTeTIPSIO GO IF START 1/0 PENDING 
1224 OaOT7OA GB87T0A 3842 tB1 L7,10 SE¥F COUNTER TO 10 - 1260 2F3F44 ICFF44 3912 AND $B0.L4 RESET SEEK BUSY ACCORDING TO BSDA 
1225 244696 114690 3843 SINC ZERelL6e} ZERO CURRENT PAe | ~ 1261 06236C 08636C 3913 TIBOF LOPBUSY-DST,TIPSETSC GO SET SK COMPLETE IF NO SIO 
1226 2ECTEF 18C7FF 3644 ADDI L7—-1 OLD PA, READ AND 1262 2a0820 188820 3914 LBI L8.0(SKMARK2) CS DISPLACEMENT TO SEEK MARK 2 sents 
1227 205225 131225 3865 BNZ #-2 SEEK USAGE COUNTERS ¢ 1263 240882 104882 3915 SINC 12,48,0 POST JUST RST SEEK BUSY MARK 
1228 284201 108201 3846 MVX &2etl MOVE BSDA TO L2 BITS 4-7 “~~ 1264 20126C 10126C 3916 8 TIPSETSC GO POST SEEK COMPLETE 
1229 QES2FF OAC2ZFF 3847 ESRI L2,FF INVERT ALL BITS FOR RESET - 3917 * 
122A 2F04842 1CCa42 3848 AND UNCK eL2 ; RESET COUNTERS OVERFLOW MARK Cc 3918 *© COME HERE TO HANDLE SEEK COMPLETE WITH STACK CMD PENDING 
-1228 2A071F 18871LF 3849 LB8I1 Te OCSKMARK1) GET SEEK 3919 s 
122C 2407C6 1047C6 3850 LINC £6,L7,0 INCOMPLETE MARK 1265 0011F4 0011F4 3920 TIPSCSTK bBU TIPBSGEN GENERATE 8SDA FROM Q-BYTE 
122D 2° 2642 1CC642 3851 AND L6,L2 RESET SEEK INCOMPLETE i 1266 208143 316C€143 3921 TEOR Liel3 COMPARE DEVICE ADDR 
122E 040786 004786 3852 SINC L6-L7,-0 RESTORE MARKS | 1267 00526A OLL26A 3922 BNZ v3 GO 1F STACK CMD NOT FOR THIS DRIVE 
122F OACT3A O&8873A 3853 LBI L7,D(EFSENSEL) GET EXTENDED 1268 O0C0CO7 OOcCO7? 3923 TANDI Q8YT,X*O7* CHECK FOR CONTROL TYPE CMD 
1230 2407C6 1047C6 3854 LINC L6,L7-0 FUNCT SENSE MARKS { 1269 22526C 19126C 3924 6z #43 GO IF STACK CMD IS CONTROL TYPE 
1231 OF 4641 00C641 3855 OR L6,L1 TURN ON OM ATTN PENDING i 126A 284201 108202 3925 Myx eecacas Boece ere To s BITS 4-7 
1232 040786 004786 3856 SINC 16,1720 STCRE BACK 1268 2001C8 1001C8 3926 BU - TCURSTSB R EK BUSY 
1233 O&€6020 O9ED20 3857 ORI FTR sOMATIN TURN ON DM ATTN INTRPT te 126C 082302 OCA302 3927 TIPSETSC MV OsTet2 POST SEEK COMPLETE 
1234 25E255 176255 3858 TBON 7eFBI,eTIPSKCOM GO IF ALSO SEEK COMPLETE | \ 126D 0A0822 088822 3928 LB! L8,0(SBFLAGS) SET ihe TH aan pe is MKS 
‘1235 2A266F 18A68F 3859 LBI FTO.CONTROL DO ATIN 126E€ 0408C4% 0048C4 3929 LINC £441820 GET SEEK BUSY CNTR OVFL BA 
1236 OA2E04 OB8AEO4 3860 . oI FEO eRSTATIN RESET ls 126F 2F8442 1EC442 3930 EOR L4eL2 RESET SEEK BUSY CNTR OVFL MARK 
1237 2013365 101365 3861. 7 > BU; TE PNOCHK . RAISE TAG. GATE ’ { * 1270 240834 104884 3931 SINC 141820 RESTORE SEEK BUSY CNTR OVFL MARKS 
1238 20123A 10123A 3862 8 TIPNSCOM GO DESELECT ORIVE ETCeoce | 1271 2A081F 18881F. 3932 tBI L8,D( SKMARK1 } CS DISPL TO SEEK MARK i 
1239 256255 176255 3863 TIPSKEXM TBON 7,FHI1.TIPSKCOM GO IF SEEK COMPLETE 1272 0408C4 0048C4 3933 LINC L4eL8e0 GEF SEEK IN PROGRESS MARKS 
123A OE25BF OSESBF 3864 TIPNSCOM ANOI FYTGeFF-SELHOLD OROP SELECT HOLD | C 1273 2F84461 1EC441 39346 EOR L4eil RESET SEEK IN PROGRESS 
1238 OECOFF OBCOFF 3865 AODI LO,FF UPDATE DRIVE ADDRESS 1274 240884 104884 3935 SINC 0424820 SAVE SEEK #ARKS 
123C 2F0101 1CC101 3666 add Liell SHIFT TO NEXT LOWER ORIVE | € 1275 2Aa268F 18aA68F 3936 Let FTOsCONTROL RESET INTERRUPT 
1230 005205 011205 3867 8NZ TIPNEXT GO IF MORE DRIVES TO 6O | > 1276 OA2ZE04 OBAEO4 3937 CBI FBO,RSTATTN In DRIVE 
123— 201200 101200 3668 8 TIPSTKCK GO CHECK FOR STACKED CMD | 2277 201385 101385 3938 BU TIPNOCHK TO TAG FLIPPER 
3869 ¢ a S 1278 201234 10123A 3939 8 TIEPNSCOM GO DESELECT DEVICE 
3870 © COME HERE IF INTERVENTION REQ*O BIT IS NCCT ON | 3940 ¢ 
: 387) ¢ 3941 @© COME HERE TO HANDLE SEEK INCOMPLETE 
123F OOOLTF O4CITF 3672 TIPNIREQ FAND 11,580 SEE IF UNIT CHECK PENDING | 3942 & 
1240 205220 311220 3873 BNZ TIPORMEX GO IF PENDING | e 1279 OAO0B81 088881 3943 TIPSKBAD LBI STAT,X*81° POST ERROR RETURN WITH SEEK COMPLETE 
1241 052220 046220 3874 TBON 4eFBI,TIPOMEXK GO IF ONLINE | 127A OAO81B 088818 3946 TIPNOSTK LBI L8.X*1B¢ ‘POST SEEK CHECK 
1242 242353A 106334 3375 TIBON LOPBUSY.DST,TIPNSCOM GO IF START 1/70 PENDING C: 1278 2Aa0707 188707 3945 tel L7eX*O7* POST SEEK CHECK 
1243 2A0B1F 18861F 3876 La! LB, DISKMARKI GET SEEK IN | 127C 20124E 10124E 3946 8 - TIPUCH GO TO ERROR ROUTINE 
1244 O4C46C4 0048C4 3877 LINC 14,18,0 PROGRESS MARK | 3947 + . 
1245 200441 140441 3878 TAND UL6eL1 GO IF SEEK NOT IN | G 1270 00130F O0130F 39468 TIPSIO 8 TIPSIOL GO TO NEXT BLOCK 
DATE 15auG75 O6NOVT7S| PROG 10 Noe : OaTeE 15AUG75 O6NOVTS _ PROG ID FA0-1 
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F201 3340 OISK MICROCODE ----- MOD 12 PART NO. 4247623 FAOL 3340 DISK MICROCPDE 400 12 PART NOW 
PAGE 29 PAGE 29A 
10c. OBJECT CODE STM SOURCE STATEMENT £0C. OBJECT CODE STM SCURCE STATEMENT 
l27E 001312 001312 3949 TIPSTZCM B TIPSTK1 GO TO NEXT BLOCK 132€ 284261 198201 4019 TIPDIFOR MVX t2eLi copy 8SOA TO L2 
3950 MBLOK 132F 2001C8 1001C8 4020 BU TCURSTSB RESET SEEK BUSY 
i27F OOL2Z7EF OO1LZ7F 3951+ 8 * UNUSED ssssssessss 1330 2001C4& 1001C% 4021 BYU TCUSETUC SET UNIT CRECK STATUS 
1300 3952+¢ os <038 333% 082302 OCA302 4022 MV OST »L2 POST SEEK COMPLETE STATUS 
3953 © 1332 O€258F OS8ES5BF 4023 TIPDSORY ANOI FIG,FF-SELHOLO DROP SELECT HOLO 
3954 © COME HERE AFTER SENSE BYTES ALL SET UP 1333 241311 105311 4024 TIBON ROSNSMSC1L,TIPGO3 GO IF RD SENSE Cd 
3955 # Ll HAS 6BSDA InN BITS 0-35 Le HAS BSDA IN BITS 4-7 C 2334 001202 001202 4025 8 TIPIOLE RETURN TO IOLE 
39 e ; 4026 * 
1300 2A081F 1LEBBLE gace TIPSKCHK LBI L8.0( SKMARKL} CS DISPL TO SK MARK 2 | 4027 SHERSKSSEESREKEKSERAKKE SAKE SRS LS SSE SKLKLSESKSESSESE SE SKKSEKERKSEKSE SHES SSSES 
1301 0408C4 00#8C4 3958 LINC £L4,18,0 FETCH MARKS a 4026 = THIS SUBROUTINE RAISES TAG GATE AND LOWERS IT AFTER AN APPRO- 
1302 2F4442 1NC6442 32959 GK Lteiz POST SEEK INCOMPLETE Bs 4029 © PRIATE INTERVAL WITHOUT CHECKING FOR TAG VALIO 
1303 2F8441 1E€C441i 3960 EOR L4ell RESET SEEK IN PROGRESS 4030 FHSSASSKEKESHESERAKKKELEASTESRASAKSST SK SESLKSKSERSS SEO SSEAACHSS SEEKS SLES LVS 
1304 044864 614884 3961 SINC (41891 RESTGRE MARKS 4031 # 
1305 060907 084907 3962 TIBGF STACKCMD,GENLsTIPBAONS GO IF NO STACK CMD PENDING 2335 2&65806 19E580 4032. TIPNOCHK ORI FTG. TAGATE . RAISE TAG GATE 
1306 201320 101320 3963 8 TIPBADYS ASSEMBLY 8RANCH 1336 2€0030 100030 4033 ADDI ZER,48 DELAY 
3964 & 1337 029336 0A1336 4034 BNC e@—]} 524% MICROSECONDS 
3965 * COME HERE TO HANDLE SEEK INCOMPLETE WITH NO STACK CMD PENDING 1338 201500 101500 4035 8 TRORDFB { GATE FI TO FBI AND RETURN TO CALLER 
3966 * 4036 END COPY-MEMBER TIP12 
1307 06230A O8630A 3967 TIPBADNS TIBCF IOP8USY.DST,#43 GO IF NO SIO PENDING 4037 COPY TROL2 
1308 2011E2 1CLIEL 3968 BU TIPGETOR GET Q AND R BYTES 4038 SRSERESESSSESTKSSSHERRETASESSHKSES IAA SHSSLSLSEKASKSASESERRSTS 
1309 261320 185320 3969 TIBOF RDSNSsMSC1l,TIPBADYS GO HANDLE STK CMO IF NOT RO SNS CHO 4039 * ENTRY FOR READ EXTENDED FUNCTIGNAL SENSE COMMAND 
130A 2001CB 100iC8 3976 8U —TCURSTSB GO RESET SEEK BUSY 4040 FEKSEKESKE REESE SHEE SERSHESSESHRSESRE SHS SHSEKKTESEKE THES EKEESS 
1308 26230E 18630E 397) TIBCF LOPBUSY,OST,TIPOFOR GO IF STILL NO SIO PENDING 4041 *# 
130C 2A0820 188820 3972 Bi L8,D0¢(SKMARK2) CS DISPL TO SEEK MARK 2 31339 25405a 154054 4042 TRORDEFS TBON 5S.RbYT,TRORSTOM GO IF RESET DM ATTN CHD 
130D 240882 104882 3973 SINC Lé,l8,0 SET JUST RST SEEK bUSY MaRK 1334 O0011C8B GOliICB 4043 BU TIGROOOR FETCH DOCRHI TO L2 & DOORLO TO L3 
L3GE O0132E 00132E 3974 TIPDFDR 8B TIPDIFDR GO POST SEEK COMPLETE AND UNIT CHECK 1338 27€330 1F433D 4064 TIBOF O000D.13,%#+42 GG IF GODRGOD (SHOULD BE OFF} 
3975 # 133C 0£5420 690420 4045 ORI MSC2,DDDR0DD TURN DDDOR OOD MARK GN 
3976 SEESSSRKERETLSERSSESSSTEKERSESASKSESHIOKES SEEKSHETASESYSSELKEKEKOSSSLYS 1330 2a00i2 188012 4046 LEI -L0,0(000R0RG) SET DISPLACEMENT FOR DLS STORE DDDR 
3977 *® & START 10 FROM THE CPU IS INITIALLY HANOLED HERE 233E 244082 114082 4047 SINC L2eL0¢1 STGRE ODDR Hi 
3978 SESSSEESESSESSEEKSKSEKESCSSSRSERSSESSKESESKEKSTSERSESSKSESKESEKSKEKEESSS 133F 044083 014083 4048 SINC 13,4021 STORE DOOR LO 
3979 2 £340 OAODB3A 08883A 4049 LBI L8,D(EFSENSEL) GET EXTENDED 
i30F 2011E1 1OL1E1 3980 TIPSIOi1 BU TIPGETOR GO GET Q AND R BYTES 1341 0408C4 0048C% 4050 LINC L4,L8-0 FUNCTIONAL SENSE 
1310 061312 085312 3981 TIBCF ROSNS»MSC1l,TIPSTK1 GO IF NOT RD SENSE CMD 1342 2A0500 188500 4051 LBI L5,0 SEY LS TO CODFORG LEFT 
1311 001339 601339 3982 TIPGO3 8B TRORDEFS GO HANDLE RO EXT FUNCT SNS & OM RESET 1343 269445 145445 4052 TIBOF DOORODD .MSC2,4¢2 GO IF DOOR ON EVEN BOUNDARY 
1312 OO1LIF4S COlLIFS 3983 TIPSTKI b8U TIPBSGEN GENERATE BSDOA IN L3 1344 0AC580 088580 4053 LBI L5,X*'80° SET &5 TO ODOFORG RIGHT 
1313 2A081F 18881lF 3984 LBI L&8,D(SKMARKL) GET SEEK IN 1345 O89A06 O29AC6 4054 SABI S8LOCKB,X*06* SET BLOCK aDDR TO OODF nett 
3314 0408C4 0048C4 3985 LINC 14,L8,0 PROGRESS MARKS 1346 040584 004584 4055 SINC (4,L5-0 MOVE EFSENSE BYTE O TG ODDF 
1315 000443 04C443 3986 TAND 14,13 CHECK IF SEEK IN PROGRESS 1347 2€C580 18C580 4056 ADDI t5,x*a8o? INCREMENT 
1316 205202 111202 3987 BNZ TIPIDLE GO IF SEEK BUSY 1348 2F4510 100510 4057 ADDC L5,ZER ODODF POINTER 
1317 2EO9TF 18C97F 3988 ANDI GEN1 »FF-STACKCMD RESET STACKED CMD 1349 040590 0604590 4058 SINC ZER»L5,0 ZERG EF SENSE BYTE 1 
1318 O€25bF OCB8ESHF 3989 ANDI FTG»FF-SELHOLO DESELECT ORIVE 134A C89A05 O029A05 4059 SABI BLOCKB,X*05¢ SET BLOCK ADDR BACK TO OS 
1319 2A0000 188000 3990 LB2 10,0 INIT ORIVE ADDR TO 1 1348 0OAO800 088800 4060 i6I L8,0 ZERO £8 FOR STORE DDOF SUBRTN 
131A 94AN818 088818 3991 iBI STAT, OPEND*+NOOP INIT STATUS WITH GPEND AND NOP 134C 2A2100 18A100 4061 LHI CCH,.O LOAD CHANNEL 
1318 200F00 1Q00FOO 3992 5 TIOSIO GO EXECUTE SIO 1340 0A3100 08B100 4062 LB] CCL+O0 COUNTER TO XFER 2 BYTES 
3993 *® 134E 0A0400 088400 4063 LBI 14.0 SET L& AND L5 
3994 FER HOEEETEEEESEEEECESEEEETEROEEEESEECEEES EES SEOEEKEEESSESEESERESRE 134F 0A0502 088502 4064 LB! 15,2 TO CHECK CHANNEL COUNTER 
3995 ® THIS SUBROUTINE GENERATES UCW POINTER USING BSDA IN LL} 1350 OQOOBDE OOOBDE 4065 BU TENSOODF GO XFER TO CHANNEL 
3996 SPHERES HESESSEAETESRTESKACSSES SEOKSECSSE TES EREEASESEEEESEEEEEEOE 1351 OOLILCS OO11ICB 4066 BU TIOROOOR GO READ DOOR 
3997 * 13S2 201EB7 101Eb7 4067 BU TWRCHKOR GO CHECK DOOR 
131C 2A063C 18863C 3998 TIPUCWPT L8BI £6-D(D1 SENSE) POINT TO Dl 1353 2010FB 1O1OFB 4068 BU TIOODOR1 GO INCREMENY DODR BY 1 
1310 OSOLI1F ° OO411F 3999 TBON OsllsTIPGETPA GO IF ORIVE 1 1356 0£&2380 O8E38G 4069 ANDI OST.IOPBUSY RESET ATTACHMENT BUSY 
131E OAQO65E 08865E 4000 LBI L6,D0(02SENSE) POINT TO 02 -<GHD>- 1355 241100 189100 4070 Luli CEb1,X*00° RESET MARKS 
131F OF90D0 ° OEDODO 4001 TIPGETPA EORU ZERVZER . RETURN TO CALLER ~<GHD>- 135€ 2A14u0 189400 4071 LBy MSC2,X*00* RESET MARKS 
4002 ¢ 1357 OA2300 O08A300 4072 LBI DST.O RESET DST,e SAVE SEEK COMPLETE*S 
4003 # COME HERE TO HANOLE SEEK INCOMPLETE WITH STACK CMD PENDING oe 1358 2A3300 188300 4073 tél OXC »X*008* RESEY OXxC 
4006 © “~ 1359 001202 001202 4074 8 TIPIDLE RETURN TO IOLE tooP 
1320 OGOL1LFS OOLLF 4005 TIPBADYS BU TIP&SGEN GET 6SDA 135A OAO73A 088734 4075 TRORSTOMK LiBI LT,O(CEFSENSEL) GET EXTENDED FUNCTIONAL 
1321 208143 16C143 4006 TEGR L1,L3 CHECK IF STACK CMO FOR THIS OEVICE ec 1358 2407C& 1047C6 4076 LINC L6,L7,90 SENSE vYTE 
1322 20532E 11L132€ 4007 BNZ TIPOIFOR GO IF NOT = 1235C OO1LIFS OOLLFS 4077 BU TIPBSGEN GENERATE BSOA IN 13 
1323 2A0708 188708 4008 Lol 17,Wo0OP POST NOP IN L7 FOR STATUS 135D 2E83FF IAC3FF 4078 EQRI t3,5FF INVERT BSOA FOR RESET 
1324 OGCOCO7 Oooccoy 4009 TANDI CBYT,X*O7* CHECK FOR CONTROL TYPE COMMAND ~ 23SE OF0643 OCC643 4079 ANO L6,13 RESET DM ATTN PENDING 
1325 925327 091327 4010 BZ 42 GO IF YES ..-GONT POST OP END , q 135F 905361 011361 4080 BNZ #42 GO FF MORE OM ATTN PENDING 
1326 2€4710 19C7T10 «440233. ORI 17,GPEND OR IN OP END FOR STATUS 1360 2&20DF 18EDO0F 4081 ANDI FTR_,FF-ORATIN RESET OM ATTN INTERRUPT 
1327 2EOS7F 16C97F 4012 ANOT GEN1,FF-STACKCMD RESET STACK CMD eC 1361 040786 004786 4082 SINC L6,L7+0 RESFORE EF SENSE 
1328 2001C4 1001C4 4013 8U TCUSETUC POST UNIT CHECK “ 4362 0£2380 O8E380 4083 ANDY OST, TOPBUSY RESET ATTACHMENT BUSY 
1329 2001C8@ i001C8 4014 BU TCURSTSB RESET SEEK sUSY 1363 OEL37F O8D37TF 4084 AWD] MSC1i,FF-ROSNS RESEF READ SENSE CMD MARK 
132A 0B2302 OCA302 4115 “ay DST eL2 POST SEEK COMPLETE € 1364 001262 001202 4085 8 TIPIOLE GQ 8ACK 7O IOLE Looe 
1328 0B3707 OCB707T 4016 MV S81,L7 POST OTHER STATUS 1365 240003 188003 4086 TROCOMP LBI  L0,x*03* POIRT £06 TO *F* Im DOCF 
132C 0&€2380 O8€38G 4017 ANDI DST,sO0PaUSY RESET ATTACHMENT BUSY 1366 0A0182 C8&182 4087 LeI L1,XK*82° POINE 22 TO *CC HIGH Lit DOCF 
1320 201532 101332 4018 8 TIPOSORY GG DESELECT ORIVE < 4367 2B051F iC851F 4088 my L5,FFLG COMPARE FLAG IN ODCE 
OATE 1SAUG75 O6NONTS. PROG 10 FAO-1 ~ GatTe 15AUGT75 O6NOVTS PROG ID FAO-i 
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3340 OISK MICROCODE 


OBJECT CODE 


OF 8555 
0£0503 
2440C& 
2F8657 
2F4546 
24C1C6 
OF 8656 
2F 4546 
2440C6 
2F38658 
2F 4546 
224800 
061279 
070079 
0A0800 
OA0T14S 
201908 
200870 


20137A 
001378 
20137C 
601370 
OOL3TE 
20137F 


2016FO 
261403 
2018F3 
200780 
2E5188 
2E4918 
001449 


2018F3 
2£9959 
200780 
2€5103 
2E4928 
201448 


2B061C 
0794106 
201816 
OO1£80 
0E 4940 


O5881C 
049416 
25€517 
00141C 
Oscsic 
2AQ0FF 
2F0500 
2F 4400 
253105 
282104 


2€0803 


1SAUGT5 
827765 


MOD 12 PART NO. 424762 
PAGE 30 = 
STN SOURCE STATEMENT LOC. 
OEC5S5 4089 EOR L5.FLAG FROM LAST RECORD eROCESSED 141D 
06C503 4090 ANDI L5,.X*03¢* TG FLAG READ FROM RO COUNT 141E 
1140C6 4091 LINC L6910,91 FETCH CYL LOw FROM OOCF 1SLE 
1EC657 4092 EOR L6,CLO COMPARE 1420 
100546 4093 OR 15416 1421 
1341C6 4094 LINC €6eb123 FETCH Cyt HIGH FROM OOCF 1422 
OEC65& £095 €OR to,CHI COMPARE . 1423 
100546 4096 GR LS L6 i. 
41314005 4097 LINC L6LOel FETCH HEAD FROM DOCF 
1EC656 4098 EOR L6,HEAD COMP ARE : 
100546 4099 oR L5,L6 IF ALt COMPARED, LS = ZERO - 
150800 4100 B2 TEFENDRO GO IF ALL COMPARED 1424 
085279 4101 TIBOF READ»CEB2 ¢#+45 GO IF NOT REAC CMD 1425 
OC4D79 4102 TBOFF 4, RBYT, #44 GG IF NOT REAP RO K-D CMD 1426 
086800 4103 LB1 L8,X*00°* POST FORMAT O BSG 0 1427 
O8B71i4 4104 Les L7eX14* PGST NOT RECORD FOUND 1428 
101908 4105 8 TSNNORM GO ASSEMBLE SENSE INFO 1429 
100870 4106 8 TEFINVTK GO POST INVALIO TRACK FORMAT | 1424 
&10T MeLOK 1428 
LOLIZTA =4108¢ B * UNUSED sssissessss 162C 
O0137B 4109¢ 6 * UNUSED ssssessssss 1420 
10137C 4110¢ 6 * UNUSED 33223333335 142€ 
OO’37D 411il¢ 8 s UNUSED seesesteses | 142 
OOL37E 4212¢ 8 + UNUSED sesssssssss | 1430 
10137F 4113¢ o = UNUSED ssssssseses 31431 
41144 os <0>8 1432 
GQLL5 SESE SSS SEE*ESSTEESEESEREKSERESESSESESESSSESESESSESES ES ESKERSEEE | 1433 
4116 * ENTRY FOR READ HOME ADDRESS & RO COUNT EVEN/SGDD 1434 
GQLLY 668866688044 069804469 88SE8FES5EESSESEEKEEECESSSESCESESEE | 1435 
4118 . 1436 
1O18FCO 4119 TROHAKOE BU TWREYNHD SET EVEN HEAD 1437 
101403 4120 8 #¢2 CONTINUE x 
10LBF3 4121 TRDOHAROD BU TWROODHD SET ODD HEAD 
100780 4122 BU TEFSETRW SET READ/WRITE TaG 
190188 4123 GRI CEB1,»PROCRO*+ROCTODF PROCESS RO COUNT, RO CGUNT TO DDDF C 
19C916 4124 ORI GEN1, XFRHACNT¢XFRODOF SET MARKS FOR END PROCEDURE | 1438 
001449 4125 8 TRORDHA GO TO READ HA AND END OF FIELD PROC fs 1439 
4126 $40644460006064804664464484896844ESS SESE | 143A 
4127 * ENTRY FOR READ RG KEY-DATA ODD } 1438 
4128 804990 ¢6866066464460068808068884EESSE88% ' 4 43¢ 
4129 * Is 1430 
101BF3 4130 TROROKDO BY TKRODOHD SEF ODD HEAD I 143E 
1E0959 4131 EOR REC REC © SET RECGROD NUMBER TO ZERO \ 143F 
100780 4232 Bu TEFSETRW GO SET R/W TAG 1440 
190103 4133 ORI CEB], PROCKEY<PROCOAT PROCESS KEY AND DATA FIELDS i 1441 
19C928 4134 ORI GEN] »FIXDDCF¢XFRDDDF SET MARKS FOR END PROCEDURE ; 1442 
101448 4135 B TROUSHA GO TG READ HA : 1443 
G13G SFSRESESERSESEESSEEKESSTESSESEESS SESE SKESSKS SEE SSE LE ESEEKEOS } 14446 
4137 * ENTRY FOR READ KEY-DATA, READ VERIFY KEY-DATA ; 1445 
4138 SEESESESEEEEEESHEESESESSESREESEE SES ESSESESE SELES SERESESSESESEECE 1446 
4139 * 21447 
1c861C 4140 TROKO mv L6,NREC SEY NUMBER OF RECORDS FOR SUBROUTINE mus 1448 
GE5410 - 414i - ‘ TIBOF KOGT2562MSC2,_ 442 GO IF (KL4DL) NOT.>.256 | ; ree 1449 
101818 4142 TRDINVCF B TSKINVSK GO SET UP CMD REJECT ERRGR a 144A 
OOLES8O 4143 BU TURCHCNT GO SET CCH AND CCL / g 1448 
090940 4144 GORI GENEL, FINCHXFR FINISH CHANNEL TRANSFER MARK Le eee 
4145 %-~-SDECREMENT THE CHANNEL TRANSFER COUNT BY I IF COUNT>1 AND i 144D 
4146 * THE LAST BYTE TO BE TRANSFERRED IS ON THE EVEN SIDE OF C STOKE i 1446E 
66481C 4147 TRON 6218s TROSDXFR GO IF TRANSFER COUNT IS 1 € 144EF 
025416 4148 TIGON DODRODD ~MSC2,%43 GO IF DDDR ALIGNMENT IS ODD 1 1450 
174517 4149 TEON 7el5e TROCOWN ALIGNMENT EVEN, GO IF COUNT IS O00 ; 1451 
00141iC 4150 B TROSOXFR ALIGNMENT EVEN, COUNT IS EVEN € 1452 
O7451C 4251 TBGN 7,145, TRDOSDXFR ALIGNMENT ODD. GO IF COUNT IS ODD 1453 
1880FF 4152 FRDODOWNI LBI L0,FF SET UP WORK REG 
1CC500 4153 = ADD L580. SUBTRACT 1 FROM @ 
10C400 4154 ' -ADDC 14,10 CHANNEL COUNT 
1C6105 4155 MV CCL LS MOVE FINAL VALUE TO 
1CA104 4156. “me CCL CHANNEL COUNTER © ase 
4157 ¢ 1455 
18C803 4158 TROSDXFR ANDI £8,xX*03* MASK £8 FOR FOLLOWING SUBROUTINE C 1456 
O6NOVTS PROG 1D FAO-1 DATE 
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3340 DISK MICRPCODE MOD 12 PART NO. 4247623 
PAGE 30A 
OBJECT CODE STM SOURCE STATEMENT 
0008DE O00BDE 4159 BU =: TENSDDDF START DATA TRANSFER TO CHANNEL 
2E5103 190103 4160 TROVKD ORI CEBL»sPROCKEY¢PROCDAT PROCESS KEY AND DATA FIELDS 
201nbEE OIBEE 4161 BU  —- TWRSETHO GO SET HEAD 
200780 100780 4162 BU Ss TEFSETRW GO SET RD/WR TAG 
0£4920 096920 4163 ORI GEN1,FIXDDCF RESTORE COCF MARK FOR END PROC 
065360 090360 4164 ORI = MSC1 eMUTRK*+MUREC MULTIPLE TRACK, MULTIPLE RECORD 
061440 001440 4165 _ 8B TRDRDKD GO TO SEARCH FOR COUNT FIELD 
4166 SESCESEHKESSSEKESSEEKSSSEKELSKEKESESSESKESIES SLSR EE SKS KEKEKESERSE 
4167 © ENTRY FOR READ COUNT-KEY-DATA OLAGNOSTIC CMD 
4168 SHSSKKSSESCSKESKSSSEEKSEEKETSEKE SKS KE SCE SLESELHKESSHAKGESESE ESE LEE 
4169 * 
05940F  06540F 4170 TROCKDD TIBGN KDGT256,MSC2,TROINVCF GO IF (KL4OL) > 256 
075527 005527 4172 TIBOF CMPDAT, FLAG, #42 GO IF NOT COMPRESSED FORMAT -<GHD>- 
O7D40F OFS40F 4172 TIBOF 0L256eMSC2,TRDINVCE GO IF DATA LENGTH NOT 256 -<GHD>- 
2018FO 1018FO 4173 BU TWREVNHD SEY EVEN HEAD 
200780 100780 417% BU TEFSETRW SET READ/WRITE TAG 
200280 100280 4175 BU TDSOCON SET UP CONSTANTS FUR DEFECT SKIP 
240088 188088 4176 LbI LO,D(ORGREC? SET CS POINTER TO ORIGINAL REC 
040099 604099 4177 SINC REC,»LO.0 SAVE ORIGINAL REC NUMBER 
2E490A 19C90A 4178 GORI  GENI,UPDTRDUS¢XFRDDDF SET END PROCEOURE MARKS 
2E5147 190147 4179 ORI CEBlePROCNT+PROCKEY*¢PROCDAT+FMTWR SET XECION MARKS 
2E52C0 19D2CO 4180 ORI CEB2eREAD*4SRCH SET READ AND SEARCH 
240933 135933 4182 TBON 3eRECyTRONRO GO IF NOT RO 
2E910C 1A010C 4182 EORI CEB1,PROCNT¢PROCRO SET PROC RO CNT INSTEAO OF REG CNT 
2€126F 18D28F 4183 ANOK CEB2sFF-SRCH TURN OFF SEARCH BIT 
201436 101436 4184 8 TRDDGN GO WAIT FOR R/w END AND READ Gl 
2ED9FF 1bD9FF 4185 TRDONRO ADDI RECe-1 DECR REC BY 1 FOR SEARCHING 
075536 005536 4186 TIBOF. CMPDAT»FLAG,TRDDGN GO IF NOT COMPRESSED FORMAT 
2EL9FC LEDOFC «4187 ANOL REC»X*FCS ADJUST REC TO ONE BEFORE COUNT 
201404 1014D4 4188 TROOGN bu TRORWEND WAIT FOR ENO OF SET R/W TaG 
201C4A  =L01C4A 4189 B TWRROGI GO READ HA 
4190 SHEKEESSEEKCSESESESSESEESCKASSSSKSSKSESSESSESSESKESSSEKESKSEKESKERSESKEE 
4191 * ENTRY FOR READ COUNT-KEY-DATA 
4192 SHFESESSKERESSSSSKSSSSKSSSSESERELE SS SSS SSEKRESSES SESH EREKSSSERESES 
4193 * | 
201BEE 1018€E 4194 TROCKD BU TWRSETHD SET HEAD 
200780 100780 4195 BU TEFSETRW SET READ/WRITE TAG 
OE491A O9C9LA 4196 GRI GEN1,XFRHACNT+XFRODDF+UPDTRDUS SET END PROCEDURE MARKS 
2E5103 190103 4197 ORI CEB1»PROCKEY+PROCOAT PROCESS KEY AND DATA 
2E5z2CO =1992CO0 4198 ORI CEB2eREAD+SRCH SET READ AND SRCH MARK 
240024 188024 4199 LBI = LO, DC CNTCNTR? ZERO GUT COUNT 
040090 004090 4200 SINC ZERsL0,0 COUNTER 
201436 101436 4201 8 TRDDGN GO READ HA ON ACTIVE TRACK 
065280 090280 4202 TRORDKD ORI CEB2,REAO READ OP MARK 
2E5244 190244 4203 TRDSCSRH ORI CEB2sSRCH+ENDCNT SEARCH. ORIENT TO END OF COUNT FIELD 
2014D% 101404 4204 BU TRORWEND WAIT FOR END OF SET READ/WRITE TAG 
0£4902 09C902 4205 ORI GENL,UPOTRDUS MARK FOR UPDATE READ USAGE COUNTER 
2A2E70 18AE7D 4206 TROG3AM LBI FBO,RDG3AM+13 SET FBO FOR RD G3 AM 
OA0O7T0C O8870C 4207 LBI-L7912 FILE COUNT FOR SEARCH AM 
20144D 101440 4208 B TROCKDEN CONT INUE 
O0£E5108 090108 4209 TRORZERO ORI CEB1,PROCRO+PROCKEY*+PROCDAT PROCESS RO COUNTeKEYsDATA 
0£4902 09C902 4210 TROUSHA ORI GENLeUPDTROUS UPDATE READ USAGE COUNTER MARK 
GE5280 090280 4211 TROROHA ORI CEB2eREAD READ OP MARK 
2014D4 21014D4 4212 TROSCHA 8U TRDRKEND WAIT FOR ENO OF SET READ/WRITE TAG 
OA2E4S O8AES9 4213 TRORDGL LBI FBOeRDGICD SET BUS QUT FOR READ Gl 
2A0708 188708 4214 LBI -L7e8 FILE COUNT FOR READ HA 
2A260E 18A60E 4215 TROCKOEN LBI FTO,READOP READ TAG 
2€33DF 18F3DF 4216 TROENTRY ANDI OXCeFF-LSRCSR SET DATA CYCLE STEAL REQUEST 
2aC0000 =188000 4217 LEI =: LO, OC DOCFORGL? SDH DISPL&CEMENT TO LO 
2A0180 188180 4218 LBE Lig DC ODCFORGRI SOL DISPLACEMENT TU L1 
OE6D01  O9E002R 4219 ORI FTR,ALLOWIDX ENABLE INDEX DETECTION 
OA04A0 «= O8B4AO «4220 TROLIMS LBI L4e-96 LOAD 1) MSEC TIMER 
00070C oo0o70C 4221 8 TEFWAIT GO TO END OF FIELD PROCESSING 
A222 SHESCSEEKSEEES SECTECKTSEEEESEEERESESERESE SRE SERS EASES HSE SHE KELKSESSEESES 
4223 © SUBROUTINE TO WAIT FOR END OF SET READ/WRITE FILE OP 
4224 SESEEHESSEESSS SERS SE SEKESESSESESESESESESSAESE SCHR SK ESSE SESE CESSES SESESS 
4225 * . 
OED001  OBD001 4226 TRORWEND ADDI - ZERs1 INCREMENT TIMER © 
029457 OA14657 4227 SNC TRORWAIT GO IF TIMEGUT HAS NOT OCCURRED 
200724 10072A 4228 8 TEFNOREP TIMEOUT ERROR EXIT HERE *48800808099 
15AUG75 O6NOV7S PROG 1D FAQO-1 
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OBJECT C 


273554 
2E 6508 
OE25F7 
0E4904 
oF 9000 


OEZF4SO 
2E33F6 
O61F60 
OOCO1LES 
2A260E 
OA2E50 
050264 
CA2E6D 
28D14A 
041172 
065271 
240024 
2400C4 
OEC4O1 
260070 
OEC4SFE 
04C470 
OOO1ES 
040084 
201444 
040084 
201D00F 
280244 
088540 
288740 
O8AAO00 
069478 
2E6F 04 
201012 


2A0005 
240185 
260280 
20154A 


201470 
20147E 
OO147F 


0A2605 
2A2E00 
001335 
2€6501 
2E 6580 
OALOFA 
oeDdoecl 
229508 
OEZS7F 
040403 
200707 
067506 
073506 
2E6510 
2E256F 
08.200 
266618 


ISAUGT5 
827765 


MOD 12 PART NO. 4247623 FAOL 
PAGE 31 
ODE STM SOURCE STATEMENT Loc. 
107554 4229 TRORWAIT TIBOF NORMEND,.,FTIeTRORWEND GO IF NO NORMAL END 1511 
19E508 4230 ORI FTGe RESPONSE GENERATE RESPONSE 1512 
OBE5FT 4231 ANDE FTG.255-RESPONSE RESET RESPONSE 1513 
09C904 4232 ORI GEN1 e SETRWON SET MARK FOR SET READ/WRITE ACTIVE 1514 
OEDODO 4233 EORU ZER,ZER RETURN 2515 
4234 * 
4235 SHHSKSEESERESESESESSESRESCSESESSSERESTESKSEEREEESE CES ¢ 1816 
4236 *#® THIS ROUTINE READS RO/RN COUNT FIELD ‘ 1517 
4237 SFSRESTERAESSSESESESESSESEREKEEL SKS SESSSESSESSESE REESE 1518 
4238 *% : 1519 
OB8EFS4O 4239 TROCOUNT ANDI SCN,X*408 RESET FILE DATA XFER CONTROLS * 151A 
18F3FB 4240 ANOI OXC,.FF-ALOWFILE RESET ALLOW OFFF CNTR FILE 1518 
Q85F60 4241 TIBOF DEFCNT,FFLG,#+2 GO IF COUNT NOT MOVED a 15iC 
OOOLEB €242 BU TOSRDG4S GO READ G4 GAP . 
18AGOE 4243 LBI FTO,READOP SET READ OP 
OCBAES5D 4244 (61 FBO, RDOG3¢13 SET READ G3 WITH LENGTH OF 13 6 
078264 4245 TBON 7,CEB22#42 GO IF ASTER DATA FIELD ; 
OBAE6D 4246 LeI FB8O,RDG2+13 SET READ RO COUNT 1510 
13914A 4247 SZi ZLSFC »sZLSRFEILE SET ZLS TO STORE (O0CF) 151E 
COS172 4248 TIBON ROCTODF,CEBi »TROMOSP4i GO IF READ HA/RO CNT CHD iSlé 
095271 4249 TIBOF SRCH,CEB2.TRONOSP GO IF NOT SEARCHING 1520 
188024 6250 LBI LO,D(CNTCNTR) GET COUNT 1821 
1040C4 4251 LINC £4,10,0 COUNTER 1522 
OBC4Ol 4252 ADDI Lésl BUMP COUNTER BY } 1523 
184070 4253 TBCFF O.RBYT,TROSTCNT GO IF IGNORE CNT DATA CHK MK NOT ON 1524 
OBC4SFE 4254 ADDI (4,X*FE®& EFFECTIVELY DECREMENT COUNTER BY 1 1625 
0346470 4255 TBON 3-L4eTROSTCNT GO IF COUNTER NOT ZERO 1526 
DOOCLEB 4256 BU TOSROGS OELAY PASS THE 6&6AD COUNT FIELD 1527 
004084 4257 SINC 14,L10,0 STORE COUNTER 1528 
101444 4258 8 TROG3ZAM GO READ G3 AM SEARCH OF 1529 
004084 4259 TROSTCNYT SINC £L4si0,0 STORE COUNTER 152A 
LOLDOF 4260 TRONOSP 68 THRCOM1 GO TS COMMON RIN TU SET XFER CKILS 1528 
13924A 4261 $ZI ZLSFDeZLSRFILE SET ZLS TG STORE (ODDDF) 152C 
U28540 4262 SABI INOEXF1,IDXOODF SET EINDEX TO POINT TO ODOF 1520 
128740 4263 SABI INDEXF2, IOXODOF ee 152E 
O2Z2AA00 4264 SADI OISPFO,O(CODFORSG) SET CS DISPLACEMENT TO GOOF iS2F 
OA547T8 4265 TIBOF DOORODD.MSC2, 442 GO IF NCT GOD ADDRESS BOUNDARY 1530 
19EFO0% 4266 ORI SCNeFILEOGDD TURN ON FILE ODD XFER 1531 
1010312 4267 & TWRCOLM2 GG TQ LOAD FCT 1532 
4268 ¢ 1533 
188005 4269 TRDODTRK Lol L0,X*05* POINT LO TO KL 1534 
188185 4270 LEI L1ex*es?* POINT 01 TO OL HIGH 1535 
1002B0 4271 BU TOSUPTRK GO UPDATE TRK CAPACITY COUNTER 1536 
10154a 4272 6 TROSPKEY GO SPACE OVER KEY FIELD 1537 
4273 MBLOK 1538 
101470 42744 B & UNUSED sesssssssss 1539 
10147E 4275¢ 8 * UNUSED ssssessssss 153A 
OOISTF 4276+ & * UNUSED sseesssesss 1538 
4277+ os <0>6 : 153C 
4278 FPSCECEREKEESOESEKERETESSESERSSERESTESEEESEE SS SEES EEESESSLEOESE : 1530 
4279 * TAG SUBROUTINE 153E 
4280 SFSESEREERESEESESEEEEEEEESEESOEESSTESESTECESEHSEESSESEEKVERESEEESSSE C 
‘4281 8 : e 
084605 4282 TROOPOWN LBI FTO,RSTROWR OP OOHN TAG 
18AEOO 4283 i81 F80,0 ZERO F&O C 
001335 4284 8 TIPNOCHK BR AROUND FOR NO CHECKING ' 4153F 
19E501 4285 TROSBTIM ORI FTGeX*018 ALLOw FBI CHECK 1540 
19E580 4286 TRONGFBI GR} FTG sX*80? RAISE TAG GATE 1541 
O890FA 4287 LBE ZER 250 SET TIMER FOR 5S US 1542 
O0bD001 4288 TROSUS AODY ZERel INCR TIMER 1543 
1A1508 4289 BNC TROSKP GG IF NOT TIME GUT ec 1544 
OBESTF 4290 ANOIT FTG,xX* 7F* ' OROP TAG GATE » 1845 
088403 4291 Lol 14,3 SET SENSE BYTE 18 1546 
100787 4292 8 TEFNRERR GG PUST NG RESPONSE ERROR C 1847 
097506 4293 TROSKP TBOFF 1,FTI,TROSUS GQ iF NO TAG VALIO : 1548 
OC750& 429% TAGFF 4,FTI,TRDOSUS GO if NO NORMAL END 1549 
19E510 4295 TRORDFBI ORI FYG,X* 108 GATE BUS IN TO FI €: 
L8E56F 4296 ANDI FYGexX*6F® OROP GATE BIT*TAG GATE c 
OCAZ00 4297 MY FBI , DUMMY GATE FY TO FBI 
1960618 4298 YTBOFF i,&TC,TRONOP GG IF NOY SPECIAL TAG Cc 
O6NOVT5S PRGG ID FaG-1 - OATE 
827848 PAGE 31 S- €C 0. 
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OBJECT C 


056616 
28042E 
2A26EF 
2A2E05 
001503 


204244 
025518 
OA0817 
2B2E04 
200708 
OE256E 
OFSCDO 


2E11FD 
OF 2F40 
2E12F8 
OE5202 
088540 
288740 
270925 
2E6F 04 
24CD027 
OET3C4 
28D24A 
O6DA3F 
OBOT1A 
O65F31 
26DE 30 
OAOGEO 
2B071E 
OE 5204 
201532 
OO01E8 
240660 
240216 
0442C3 
o7C2C4 
OCO7TFF 
005538 
2EC301 
2F0407 
2F4310 
02953C 
0E5402 
244283 
240284 
001037 


2E1L1LFE 
2E5203 
271443 
OA1801 
260718 
270946 
2E6F 04 
069F 31 
260028 
OEDDFF 
201531 


15AUG75 
827765 


ODE 


056616 
1C842E 
18A6EF 
18AEO5 
001503 


16E 244 
091516 
088817 
1CAEO4 
100708 
O8E56E 
QEDODO 


18D1FD 
O8EF4O 
1802F8 
090202 
028540 
1287460 
1F4925 
19EF04 
134D27 
09F 304 
13924A 
OB5A3F 
OC871A 
O95F31 
185E3C 
O886E0 
1C871E 
090204 
101532 
OOO1Es 
188660 
188216 
0142C3 
OF 4204 
OOC7FF 
011538 
160301 
1CC407 


10C310 


0A153C 
090402 
114283 
104284 
001037 


L6DIFE 
190203 
105443 
089801 
iC8718 
1F4946 
19EFOS 
OA5F31 
1B5N26 
OBCOFF 
101531 


STM 


4299 
4300 
4301 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
4369 
4310 
4311 
4312 
4313 
4314 
4315 
4316 
4317 
4316 
4319 
4320 
4321 
4322 
4323 
4324 
4325 
4326 
4327 
4328 
4329 
4330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4340 
4341 
4342 
4343 
4344 
4345 
4346 
4347 
4348 
4349 
4350 
4351 
4352 
4353 
4354 
4355 
4356 
4357 
4358 
435° 
4360 
4361 
4362 
4363 
436% 
4365 
4366 
4367 
4366 


O6N0V75 
827848 


es 
> ‘ 


PART NO. 
PaGE 


4247623 
31a 


SOURCE STATEMENT 
TBON 5eFTO,TROCPHAR GO IF SENSE HAR TAG 
MV = s- L 40 FbO SAVE EXPECTED HAR IN L4& 
LBI FTO,X*EF? LOAD XMIT CONTROL TAG 
LBI FBO,x*OS* LUAD SENSE HAR MODIFIER 
8 TROSBTIM TAG SUBROUTINE 
& 
TROCPHAR TEOR FBIsL4 COMPARE HAR 
82 TRONOP RETURN TO CALLING RTN IF NO ERROR 
LBI = L8,X*17° SET XMIT HAR ERROR 
MV FBOsL4 EXPECTED HAR TG FBO 
8 TEFL703 GO POST EQUIPMENT CHECK 
TRONOP ANDI FTG»X*6E* DRCP GATE BIT+TAG GATE*ALLOW FBI CHK 
EGRU ZERsZER RETURN 
SHHESKSSHKEKHEKKSESSHS AES SESEKESESHSSERSEKERSEKESSE 
* THIS ROUTINE READS KEY FIELD 
SSHCSESEKSKSTSHKKSKSSSS KES ESSE KSESKSOSSEKBES 
s 
TROKEY ANDI CE81,FF-PROCKEY TURN OFF PROCESS KEY MARK 
ANDI SCN»X*408 TURN OFF FILE DATA XFER CONTROLS 
ANDI CEB2,X'FB! UPDATE TRACK ORIENT 
ORI CEB2,ENDKEY TO END OF KEY FIELD 
SABI INDEXF1,10XD90F SET PGM POINTER TO ODDF 
SABE INDEXF2+IDXOO0F eo 
TBOFF 7,GEN1,%+2 GO IF NOT ODD ADDR BOUNDARY 
URI SCN,FILEODD SEY FILE ODD XFER 
TBON 3¢RBYT, #42 GO IF NOT READ K-D COMMAND 
ORI = OXC eALOWFILE SET ALLOW OIFF COUNTER FILE 
SZI  ZLSFO»ZLSRFILE SET ZLS TO STORE 
TEOFF 3,KCNT,TRODATA SO TO READ OATA IF KCNT = G 
MV L7,KCAT COPY KCNT 
TIBOF DEFKEY,FFLG,TRONODEF GO IF NO DEFECT IN KEY 
TROCHKSP TBOFF 3¢SDL.TRONOSPL GO If FIELD IS NOT SPLIT 
TROSPLIT LBI = -L6, SPROGZ SET UP READ MODIFIER 
HV L7,SOL GET FIRST SEGMENT LENGTH 
ORI CEB2.X*04 GR IN END OF FIRST SEGMENT MARK 
b TROCNTR GO TO COKMON RTN TO HANDLE SPLIT FLD 
TRONOSPL BU TOSROGS GO READ G4 FOR MOVED FIELD 
TRONODEF LBI = L6eRDG2 SET UP READ MODIFIER 
TROCNTR LBI L2,D(BYTEREAD) SET CS PNTR TG READ COUNTER 
LINC L3,L291 FETCH READ 
LDEC L4 L291 USAGE COUNTER 
TANDI L7,FF IF FIELD LENGTH NOT 256 
BNZ #42 SKIP NEXT INSTURCTION 
ADDI L451 UPDATE READ USAGE COUNTER BY 2558 
ADD L4,L7 INCREMENT READ 
ADDC L3,ZER USAGE COUNTER 
BNC = &42 GC IF NOT OVERFLOW 
ORI MSC2+KDGT256 TURN ON OVERFLOW MaRK 
SINC L3eL251 STORE READ 
SINC L4,L2.0 USAGE COUNTER 
8 TWRRWCOM GO SET XFER CONTROLS 
SSCSEEKAKESESESSEKHSESSSHSEKSSSEAKSETHKSSS SVK SKAS 
* THIS ROUTINE READS DATA FIELD 
SHOSCSSESSESEKSSESSKESKKSESSEKSKSEERESHSESSESASEKEKSESESS 
e 
TRODATA ANDI CEB1,FF-PROCDAT TURN GFF PROCESS DATA MARK 
ORI CEB2,ENDDAT SET TRK ORIENT TO ENO OF DATA 
TIBOF DLO,MSC2,#+2 GO IF DATA LEMGTH NOT ZERO 
LBI  OCNT,1 FORCE OCAT TO 1 
Hy L7,DCNT COPY DATA LENGTH 
TBOFE 7,GEN1,#+42 GO IF NOT OOD aDOR BOUNDARY 
ORI = SCN» FILEODD SET FILE ODD XFER 
TIBOF DEFDAT,FFLG,TRONQDEF GO IF NO DEFECT IN DATA 
THOFF 3, SDH, TROCHKSP GO IF DEFECT IN NEXT FIELD  -<CD>- 
ADDIE SDH»-1 DECREMENT SD MIGH ~<CD>- 
B TRONOOEF NO DEFECT IN NEXT DATA FIELD ~<CD>- 
SESCSSSE RES SHESSKCSESES SVS SSEACESSKSKHSRSEKSEHEARSKEKRSEBS 
* THIS ROUTINE SPACES OVER KEY FIELD 
SHOCSISVAIEKSELS LS SERKEKSHEKKKKSAKSS SSE SSE SVESSEKST SSD SS 
s 
PROG 1D FAO-1 
PAGE 31A 
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PAGE 32 O¢ PaGE 32a 
ae 
LOC. OBJECT CODE ST# SOURCE STATEMENT tGC. OBJECT CODE STM SOURCE STATEMENT 
154A 2AG005 188005 4369 TROSPKEY LBI L0ox*05* ' SET LO POINTING TO KCANT 1601 2A31FE 1BSBIFE 4439 LBI CCL eX* FES SET CHANNEL COUNTER TO 254 
154B 0440CT7 O140C7 4370 LINC LT,LDel FETCH KL 1602 2A2100 16A100 4440 Ls! CCH. X*00* ALSO SET CCH 
154C 2€12F8 18SD2FB 4371 ANOI CEB2,X*FS® UPDATE TRACK ORIENTATION 1603 001005 OO1D0S 4441 BU TWREDODF GO FETCH ODDOF 
1540 O6CTSA OB475A 4372 TBOFF 35L7eTROSPKLO GO SPACE OATA IF KtL=0 . 1604 OS5S0D0C 044D00C 4442 TBON 4,RBYT, TSCANRD GO IF COMMAND IS SCAN READ -<GHD>- 
154E 9£5202 090202 4373 ORI CEB2,ENDKEY TO ENO OF KEY FIELD YS 4443 ¢ 
154F 065F51 O95F51 4374 TIBOF DEFKEY,»FFELG, *+2 GO IF NO DEFECT IN KEY 4444 © FOR SCAN COMMANDS CHECK AND RESTORE DODR 
1550 OOOLES OOCOLES8 4375 TROEXTG4 BU TOSROG4S GO EXTEND GAP BY 128 BYTES 1605 060208 OCCE208 4445 MV L2-L8 SAVE CNTRE BYTE FOR CHNL CNTR>- 
1551 OE2F40 O8EF40 4376 TROSPCOM ANDI SCNEX*408 RESET FILE XFER CONTROLS 1606 0A0400 088400 4446 Lol £4,X*00* SET DDOR INCREMENT-1 FOR -<GHD>—- 
1552 2€33F8 1BF3FB 44377 ANDI OXCeFF-ALOWF ILE RESET ALLOW OILFF CNTR FILE 1607 OAOSFE OS85FE £447 LBI LS_X*FE® TWRCHEDR SUBROUTINE -<GHD>- | 
1553 2c6FO1 19EFOL 4378 ORI SCNeNFILEXFR SET INHIBIT FILE TO CS XFER 1608 OAG8EC O08886C 4446 LBI LE,eD( TWRISCAL) RETURN OISPL FOR SUBROUTINE -—<GHD>- 
1554 2A260E LB8BAGOE 4379 LBI FTO,READOP SET READ oP 1609 201E5C LOLESC 4449 B TWRCHEDR GO CHECK ARO RESTORE OODR -<GHD>- 
1555 2B82E0T YCAEOT 4360 AY €BO,LT LOAD MOr 16 COUNT TO F80 4450 & 
1556 OE2E0OF O6EEOF 4381 ANDI FBO0.X*OF® 160A 278D4C 1E4D4C 4451 TSCTWRBL TBOFF 6-RBYT, TSCORE GO 1€ COMMAND £S SCAN EQUAL ~-<GHD>- 
1557 OE6E20 OS9EE20 £382 ORI FBO,CLKG2 SET READ MOTIFIER TO CLOCK G2 1606 001648 00164B 4452 8 TSCORH DO NOT SCAN COOF FOR ‘FF® --€GHD>— 
1558 001030 001030 4383 B TwWRLDOECT GO LOAD FILE &YTE COUNTER 4453 ¢ 
4384 OF68849099464066 6446688 FEF8ESEEOEEEEEEES SESEESSESE ra 4454 % FOR SCAN READ COMMANDS CHECK DDDR AND SCAN DDDF FOR FIRST ‘FF® 
4385 *@ THIS ROUTINE SPACES OVER DATA FIELO 160C 2010FB LOLOFB 4455 TSCANRD 8U TIODDORI INCREMENT DOOR 1 & FETCH NEW VaLUE 
6386 FSFSEECEEEEEEESSEEESEESEESESEEESEERESERESEEES TESS 1600 2A0401 188401 44456 LBl 14,X*01°* SET TO 257 TO CHECK DODR INCREMENT 
4387 ¢ 160E OAO05OL 088501 4457 LBI L5,X*O1* ({TWRCHKOR DECREMENTS COUNT BY 1) 
1559 2A0006 188006 4388 TROSPOAT LBI LOeX*06* INITIALIZE LO POINTING TO OL LOW 160F 201EB7 1O1lEB7 4458 BU TWRCHKOR GO MAKE SURE IT IS 
155A 2A0185 188185 4389 TROSPKLO LBI L1.X*65* INITIALIZE £1 POINTING TO Ot HIGH 4459 *& SCAN DDOF FOR THE FIRST "FF, DECREMENT ODOR AND SET CCH AND CCL 
1558 27COCT 1F40C7T 4390 LDOEC UTe1t0,1 FETCH OL LOW 4460 *& 
155C 06C1C6 OB41C6 4391 LOEC L6el1e5 FETCH OL HIGH 1610 0894058 O29A06 4461 SABI B8LOCKB,8{(DDDFORG) SET BASE BLOCK IN ALS TO ODOF BUFFER 
155D 2CC6FF 13C6FF 4392 TADDI L6,FF CHECK OL HIGH 1611 2A018C 188180 4462 LBI L1seX*a0* SET L7 POINTER TO FIRST RIGHT BYTE 
155— 0600569 031569 393 BCN TROINVTK GO IF OL HIGH IS 5256 1612 0A0200 088200 #463 Lal &L2,X*00!* DEFAULT DOOR OIFFERENCE IS ZERO 
155F 05926A 06526A 4394 TBON 6,CEB2», TROKNTO GO IF END OF KEY (KL MUST NOT =0) 1613 2A0500 188500 4464 LBI &5+X*00* DEFAULT CCL IS *GO* 
1560 04C768 034768 4395 TROCHKO YTBON 3,17, TRDOLNTO GO IF OL LOW NOT ZERO 1614 0a0800 088800 4465 LBI £8eX*00* SET L& FOR 2-255 BYTE XFR 
1561 04C663 034663 4396 TB8ON 3,-L6eTROSPNTO GO IF Dt HI NOT ZERO 1615 049426 025426 4466 TIBON, DODRODD-MSC2, TSCOFODD GO IF FIRST BYTE IN RIGHT HALF 
1562 2A0701 188701 4397 TROSPOLO LBI L7el SET DATA LENGTH TO 1 4467 © COME HERE IF BUFFER IS ON EVEN BOUNDARY 
1563 265203 190203 4398 TROSPNTO ORI CEB2,ENDDAT SET TRK ORIENT TO ENO OF DATA 4468 *# 
1564 O69F51 OASFS1L 4399 TIBOF DEFODAT,FFLG,TROSPCOM GO IF NC DEFECT IN DaATa -<€CO>- 1616 2A0000 188000 4469 L861 LO,,Xx*0G* SET L6& POINTER TO FIRST BYTE 
1565 260050 1B5D50 4400 TBOFF 3,.S0H,TROEXTG4 GO IF DEFECT InN NEXT FIELD -<CD0>- 1617 2016A2 10L16A2 4470 TSCEVN BU _ TSCFETCH FETCH 2 BYTES FROM THE DODF BUFFER 
1566 OEDDFF OBDOFF 4401 ADDI SOH,»-1 DECREMENT SD HIGH -<Cdo- 1618 04C616 034618 4472 THON 3516, TSCARND GO If& *FF® NOT FOUND IN LS 
1567 201551 101551 4402 6 TROSPCOM NO DEFECT IN NEXT DATA FIELD -<CD>—- 1619 0&5480 OSD480 4472 ORI MSC2,.SCANSH TURN ON 258 BYTE XFER SWITCH 
1568 26C663 184663 4403 TRODLNTO TBOFF 3¢L6eTROSPNTO GO If DL HIGH IS ZERO 161A OO163A 00163A 4473 B TSCCALC CONTINUE 
1569 200870 100870 4404 TROINVTK 86 TEFINVIK GO POST INVALID TRK FMT ERROR 1618 O04C11F Q3411F 4474 TSCARND TBSON 3,L1,TSCCHKL? GO IF NCT LAST BYTE 
156A 0400C5 0O040C5 4405 TROKNTO LINC £L5+L0,0 FETCH KL 161C 26C€734 184734 44475 TBEOFF 3-L7,TSCiBYT GO 1f *FF* FOUND AT END OF FIELD 
156B 200507 14C507 4406 TADD L517 CHECK KL¢OL LOW 161D 2A0801 168880 4476 TSCEOF LBI LSeX*O18 ZERG BYTE XFR,NO *FF* FOUND IN FIELD 
156C 000569 031569 4407 BCN TRO NVTK GO If GREATER THAN 256 L61E 001641 001641 4477 8 TSCFOONE EXIT NOW 
1560 009568 021568 4408 6CY TROOLNTO GO St LOw NOT ZERO l61FE 24C717 134717 4478 TSCCHKLT TBON 3,-L7¢TSCEVN CONTINUE SEARCHING IF *FF® NOT EN LT 
156E 04C669 034669 4409 TBON 3eL6eTROINVTK GO 1F Ot HIGH IS NOT ZERO 1620 2A0SFF 1885FF 44479 L681 L5eX*FFe *FF* FOUND, CCL MUST BE DECREMENTED 
156F 001560 001560 4410 8 TROCHKO GO CHECK CL FOR ZERO 1621 CO1L63A 00163A 4480 6 TSCCALC PROCEED TO CALCULATE DISPLaCEMENT 
4411 © : 4461 # 
4412 * SUBROUTINE TO ADJUST DDOC™ TO EVENIMEVEN) OR GDD(MODD!? BOUNDRY < 4482 * SUBRGUTINL TO FETCH 2 8YTES FROM DODF BUFFER 
4413 © 4483 &% 
15670 OAOOOL 088001 4414 TROMEVEN LB! LO.-D(ODCFORGL41) SET ADDRESS OF SDL 1622 2440C6 1140C6 4484 TSCFETCH LINC L6eL0,) LOAD BYTE FROM LEFT HALF OF BUFFER 
1571 O8C60C 03860C 4415 S21 ZLSLOCB.xX*OC* SET ACCESS TO 16 WORK STORES 1623 2441C7 1141C7 4485 LINC LT7eLlel LOAD BYTE FROM RIGHT HALF OF BUFFER 
1572 289485 129A85 4416 SABI BLOCKB,B8(ODCFORGL4¢X*8000*) MULTI-BYTE FETCH STORE MODE 1624 2EC601 18C601 4486 ADDI t6e1 INCREMENT BOTH VALUES TO MAKE 
1573 O7CoO0l OF4001 4417 LDEC wWl,»lO,l FETCH 7 BYTES TO Wl-wW7 USING LO r 1625 OFC790 OFC790 4487 ADDLU L7T-ZER LATER TESTS FOR *FFt EASY, RETURN 
1574 201579 101579 4418 68 TROFUPCF GO TO COMMON CODE TO FINISH UP \ 4488 ¢ COME HERE IF BUFFER IS ON ODD BOUNDARY 
1575 2A0000 188000 4419 TROMODD LBI LO,O( O0CFORGL) SET ADDRESS OF SDH 4489 © 
1576 o08Cé6cc Q03860C 4420 $z1 ZLSLOCB,X*0C* SET ACCESS TO 16 WORK STORES 1626 O0A0001 088001 4490 TSCOFOGDO Lal L0,X*01° SET POINTER FOR FIRST BYTE FOR L6é 
i577 289485 129A85 4421 - - SABI BLOCKB, BLODCFORGL4¢X*8000*.) MULTI-SYTE FETCH/STORE MODE .1627 20.6A2 1O016A2 4491 TSCOGD BU TSCFETCH FETCH 2 SYTES FROM ODDOF BUFFER 
1578 244001 1140D1 4422 LINC W1,l0el FETCH 7 BYTES TO Wl-W7 USING LO 1628 24C72B° 134728 4492 TBON 3,L7,TSCCHKLO GO IF RIGHT BYTE NOT ‘'FF°. 
1579 2A0180 188180 4423 TROFUPCF LBI L1,D¢COOCFORGR) SET ADUORESS OF SOL( EVEN) OR SOH(ODD) f 1629 OECOFF OSCOFF 4493 ADOI 10,255 SUBTRACT 1 FROM LO FOR CALCULATION 
157A 040109 004109 4424 LINC W9,L1,-0 FETCH 7 BYTES TO Wo-wW1S USING L1 \ 162A 001639 001639 4494 B TSCADJL2 GO F1Ix OODR OIFFERENCE AND O00 CALC 
1578 040099 004099 4425 SINC W9,L0,0 STORE 7 SYTES FROM W9-W15 USING LO 1628 ocsoel 02C081 4495 TSCCHKLO TEORI 10.X*81* IF 10 IS "81", 
157C 040191 004191 4426 SINC Wl,sll,O0 STORE 7 EYTES FROM Wl-W7 USING L1 «, 162C 205636 111636 4496 BNZ TSCCHKL6 THE NEXT BYTE 1S THE LAST BYTE 
1570 089A05 O29A05 4427 SABI BLOCKB,BIDDCFORGL? RESTORE SINGLE 6YTE FETCH/STORE MGDE %. 1620 2A0000 188000 4497 LBI 10.0 FETCH LAST BYTE 
LSTE 28C608 138608 4428 S21 ZESLOCB,xX*08* RESTORE NORMAL DLS ACCESS 162E 244006 114006 4498 LINC L6eLOel ee se ve 
157F OF90D0 OEDODO 4429 EORU ZER»ZER RETURN >. 162F 2EC601 16C601 4499 ADDI Lb6el INCR TO TEST FOR ZERO 
4430 MBLOK t; 1639 04C6l1D 034610 4500 TBCGN 3,46, TSCEOF GO IF LAST BYTE IS NOT *FF® . 
1600 4431¢ OS <038 : 1631 2A0201 188201 4501 L6I L2eXx*O1l* ODOR ADJUSTMENT 
4432 END COPY-MEMBER TRDI2 ~ 1632 0€5480 090480 4502 ORI 4SC2,SCANSW TURN ON BIT FOR TRANSFER COUNT=258 
4433 copy T$C12 « 1633 2€33F0 18F3FD 4503 ANOI XC e FF-SUBTRACT “TURN OFF LSR SUBTRACT BIT 
4436 CESE68888F F449 4FEF ESE FESSEEEREEEERSEECEE SES EESEEEESEEERESE EES 1634 2A0802 188802 4506 TSCIBYT LBI L8,X*02° SET CONTROL FOR 1 BYTE TRANSFER 
4435 @ ENTRY TO SCAN, SCAN READ *OR* DATA EQUAL. HIGH OR EQUAL : 1635 001641 001641 4505 8 TSCFOONE GO TO ADJUST ODDR ANO SET CCH € CCL 
4436 BSESSESEEEESEEESESSESEEEESEESESSESESEESESEESESEEESESSEEEEEESEE C. 1636 04C627 034627 4506 TSCCHKL6 TBON 3,16, TSCODD CONTINUE SCAN IF LEFT BYTE NOT ‘FF® 
4437 + 1637 OAOS5O1 088501 4507 LBI L5eX*O1* ADJUST CCL FOR THIS CASE 
1600 2A0804 1868804 4438 TSCOR LBI L8,X*04* INDICATE 256 BYTE TRANSFER 1638 0&€5480 090480 4508 ORI 4SC2,.SCANSW TURN ON TRANSFER COUNT=258 BIT 
DATE 15AUGT5 OONOVTS PROG ID FAO-1 - OATE 15AUG75 O6NOVT5 PROG 10 FA0-1i 
EC NO 827765 827848 PAGE 32 “* €C NOw 827765 827848 PAGE 320, 
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FAO] 3340 DISK MICROCODE MOD 12 PART NO. FAOL 3340 DISK MICROLJDE ----- MOD 12 4247623 
PAGE 33 c PAGE 33A 
h 
LOC. OBJECT CODE STM SOURCE STATEMENT c LOC. OBJECT CODE STM SGUSCE STATEMENT 
1639 2A0201 188201 4509 TSCADJL2 LBI L2,x*0o1* ADJUST ODOR DIFFERENCE Pe 4579 886566608640 506008FFES5EEEEEESEETEESEDESEEESDSESESEEEEEEEE 
163A 2A0460 188480 4510 TSCCALC LBI L4sXx*80° INITIALIZE L@ TO 128 * 3670 OA0182 088182 4580 TSCROOCF LBI £1,D(DDCFORGR+2) SET DISPLACEMENT TO CC HI OF DOCF 
1638 2E80FF ’WACOFF 4511 EORI LOsX*FF® PERFORM SUBTRACTION 1671 2A0003 188003 45R1 LRI 19, N1npcenesi+23 SEY CISPLACERENT TO CO LGw GF ODCF 
163C OFC400 OFC400 4512 ADDL £4,;10 OF POINTER FROM iz ~ 1672 044196 014196 4582 SINC CHI stl9l STORE CC HIGH 
(1630 2F0404 = =61€C404 4513 ADD L414 DOUBLE THE RESULT .. 1673 048190 024190 4583 SINC ZERolL1s2 ZERO READ HI 
(163E 2F0204 1CC 204 4514 ADD 12,14 ADD INCREMENT, L2 HAS ODOR ADJUSTMNT 1674 044097 014097 4584 SINC CLOsLOsk STORE CC LOW 
163F OF0504  O0CC504 4515 ADD L5,L4 AOD INCREMENT, L3 CONTAINS CCL VALUE ~ 1675 044098 014098 4585 - «SINC HEAD ,LOe! STORE HEAD LOw 
1660 0£7302 09F302 4516 ORI OX, SUBTRACT TURN ON THE LSR SUBTRACT BIT C1676 244098 114098 4586 SINC KCNT,LOs) STORE KL 
1641 083002 OCbD02 4517 TSCFDONE Mv = 600,L2 MOVE ODDR DECREMENT(GR INC) TO 800 1677 240098 104098 4587 SINC OCNT,LO,O STORE DL LOW 
16%2 0&2340 O8E340 4518 ANOI OST,CHOUTVAL TRANSFER ODOR LO TO CIO 1678 27D47C 1—547C £588 TIBOF 0L256,MSC2,%+446 GO If CL NCT = 256 
poeecehecan: “ceeuee, ea pon <BeOee Poe et rene 1679 OA0SO1 088502 4589 LBI = L5,x*O1* LOAD LS WITH OL HIGH = °01° 
1644 0011C0 0011CD 4520 $U TIOUDDOR GO TO SUBROUTINE mT UPLATE OoDR 167A 040185 004185 45930 SINC L5,L1,0 STORE OL HIGH 
1645 089A05 O29A05 4521 SABI BLOCKB, B(DOCFORGL! SEY BASE BLOCK BACK TO DOCF 1678 OF90D0 OEDODO 4591 EORU ZER ZER RETURN to COMPLETE RESTORE OF QOCF 
1646 OA00IC O8sO01C 4522 iBI LOesD(SCANSTOR) DISPLACEMENT FoR SCAN SAVE AREA 167C 240190 104190 4592 SINC ZER oil »O ZERD OL HIGH 
1647 044085 014085 4523 SINC L5sLOol SAVE CCL 167D OF90D0 OEDODO 4593 EORU ZEReZER RETURN TO COMPLETE RESTORE OF OOCF 
1648 040088 004088 4524 SINC £8,L0¢0 SAVE CONTROL BYTE 4594 MBLOK 
1649 064908 09C308 4525 ORI GEN1,XFRODDF SET TRAWSFER DDDF MARK ~<sHO>~ reve DOVEIE. “GOIS7E: 45056 . : SEO. Base eee een? 
164A OTCO4C OF4D04C 4526 TBOFF 7,RBYT,TSCORE GO IF COMMAND JS SCAN READ OR EQUAL 16o7F 20167F 10167F 45964 8 * UNUSED ssesessee22 
164B 2E6F40 19EF40 4527 TSCORH ORI  SCN»SCANHI SET SCAN HIGH OR EQUAL MARK - 700 “5976 0S  <0>8 
164C 201BEE 1O1BEE 4528 TSCORE BU TWRSETHD SET HEAD C 4598 END COPY-MEMBER TSC12 
164D 200780 100780 4529 BU ss TEFSETRW GO SET READ/WRITE TAG 4599 copy TSK 
164E 264922 19C922 4530 ORI GEN1,UPDTRDUS*+FIXDDCF MARKS FOR END PROCEDURE ~-<GHD>- . 4600 84 S886495EEEK 459990444546 4SNSTTTHESESSSSESSE8ESS 
4531 * a 4601 * SEEK AND RECALIBRATE 
164F 2€5103 190103 4532 ORI CEB1sPROCKEY¢PROCDAT SET PROCESS KEY AND DATA MARKS 4602 8F8KE56848E8958554998EES9ESEES$9988ESSTESEESEEES 
1650 0&5369 090360 4533 ORI MSC1 sMUTRK*+HUREC MULTIPLE TRACK,MULTIPLE RECORD MARKS 4603 * 
1651 201441 101441 4534 6 TROSCSRH ELSE GO TO SEARCH FOR A COUNT FIELD c 4604 *# RECALIBRATE 
4535 S8OSSSSESESESEEEEREEREESESECEREREE EES EEEt . 4605 ® 
4536 * THIS ROUTINE SCANS. OAT& FIELO 1700 OEOBF7  O8CBF7 4606 TSKRECAL ANDI ‘ STAT,»FF-NOOP RESET NOP STATUS 
4537 SSSSSECKSCSESSSESEKRSSTSSSSESSKSESSSSESSESKEEKSERSSES 1701 OA2ZE02 OBAEO2 4607 LBI FBO,X*02* *REZERO* TO FBO 
, 4538 § 1702 2A0500 188500 4608 LBI = L540 ZERO ACTIVE PAs 
1652 2E11FD 18D1FD 4539 TSCKEY ANDI CEB1,FF-PROCKEY TURN OFF PROCESS KEY MARK 1703 A0G00 1884004409 LBI L660 ZERO ACTIVE Pat 
1653 OE2F40 O8EF40 4540 ANDI SCNsX*40!° TURN OFF FILE OATA XFER CONTROLS 1704 0A0818 086818 4610 TSKHIOSK LBI L8,D(TSKPA) GET ACTIVE PA POINTER 
1654 2E12F8 1802F&8 4541 ANDI CEB2,X*F8! UPDATE TRACK ORIENT 1705 244885 114885 4612 SINC L5eL851] SAVE ACTIVE 
1655 GE5202 090202 4542 ORI CEb&2 eENDKEY TO END GF KEY FIELD 1706 040886 004886 4612 SINC L6eL8e0 PAC ANDO PAH 
1656 260A58 1B85A58 4543 TBOFF 3,KCNT,TSCOATA GO IF KCNT IS ZERO 1707 2CAEO2 12EEQ2 4613 TEORI FBO.X*02* TEST FOR RECALIBRATE CMD 
1657 20154A 10154A 4544 8 TROSPKEY GO TO SPACE OVER KEY FIELD 1708 20570E 1LI7OE 4614 BNZ TSKHIOX GO IF NCT 
4545 © * 1709 001732 001732 4615 8 TSKOOSK GO xMIT REZERO 
4546 © M. 4616 % 
1658 2EL1FE 18D1FE 4547 TSCOATA ANDI CEB1,.FF-PROCDAT RESET PROCESS DATA MARK 4617 * SEEK 
1659 OE2F40 OBEFSO0 4548 ANDI SCN»X*40° RESET FILE XFER CONTROLS oe 4618 * 
165A 2E5203 190203 4549 ORI = CEBZ2sENDDAT UPDAVE TRACK ORIENTATION ‘ 170A OEOBF7 O8CBFT 4619 TSKSEEK ANDI STAT,»FF-NOOP RESET NOP STATUS 
1658 27145D 1C545D 4550 TIBOF OLOeMSC2,#42 GO IF DATA LENGTH NOT ZERO 1708 0A0818 088818 4620 LBI L8eDUTSKPA) 
165C 261562 101562 4551 8 TROSPDLO GO SPACE OVER ONE BYTE OF DATA FIELD 170C 0448C5 0148C5 4621 LINC (€5,L852 FETCH ACTIVE PAC 
4552 * 170D 2408C6 1048C6 4622 LINC L6eL8,0 FETCh ACTIVE PAH 
1650 058540 028546 4553 SABI INOEXF1,.IDXDODF SET PGM POINTER TO DOODF 170E 0A0400 088400 4623 TSKHIOX Lul 14,0 
165E 288740 128740 4554 SABE INDEXF2,10X000F oe 170F OAOTOO 088700 4624 LBI 17,0 
165F 28D07CE 1397CE 4555 S21 ZLSCHeZLSWFILE SET ZLS TO WRITE MODE 1710 064612 094612 4625 TBOFF 1,L6%#2 ACTIVE PAC >255? 
1660 2E09FE 18C9FE 4556 ANDI GEN1,FF-ODDXFER RESET FILE ODD SwITCH 1711 OEC4O1 OBC401 4626 AODI L4l 
1661 269464 1A5464 4557 TIBOF OODRODD »MSC2,TSCEVEN GO IF EVEN ADDR BOUNDARY 1712 064F14 094F14 4627 TBOFF 1,PAH,*%42 CURRENT PAC 5255? | 
1662 2E6F04 = =19EFO4 =4558 ORT SCNeFILEODD TURN ON FILE ODD XFER 1713 OEC701  O8C701 4628 ADDI U7 ACTIVE PAC=L4sL53 CURRENT=L7, PAC 
1663 0&4901 090901 4559 ORI GEN1 ,ODDXFER TURN ON FILE OOD SWITCH 1714 2E85FF 1AC5FFE 4629 EORI £5,255 
1664 OBBEOO .028E00 4560 TSCEVEN SADI OISPCH,O(ODDFORG) INITIALIZE DISP FOR CHAN TRAP | 4TIS OFB4:E  OAC4EF 4630 EORI 14,255 
1665 2E6F80 19EF8O 4561 ORI SCNs SCANRD TURN ON SCAN READ CONTROL «+ 4716 OFOSOE  OCCSOE 4631 ADD L5ePAC - 
1666 260718 1€C871B 4562 Mv L720CNT COPY DATA LENGTH 1717 OF 4407 ODC407 4632 ADDC L4eL7 | 
1667 269F6A LASF6A 4563 TIBOF OEFOAT,FFLG,TSCNODEF GO IF NO DEFECT IN DATA FLD -<CD>- - 3718 00971D 02171D 4633 BCY  TSKMOUT IF CARRY, MOTION GUT 
1668 060068 065068 4564 TBOFF 3eSDHsTSCCKSPL GO IF OEFECT IN NEXT FIELO -<CD>- (. 1719 O€84FF OACSFF 4634 EORE 14255 
1669 OEDDFF OBDOFF 4565 AODI SOH,.-1 DECREMENT SO HIGH -<CO>- 171A 2E85FF LACSFF 4635 EORI 15,255 
166A 201531 101531 4566 TSCNODEF 6B TRONODEF GO TG READ COMMON RIN -<CO>- 7. 1718 0€4680 09C680 4636 ORI 162128 SET POTION IN 
1668 24DE6E 135E6E 4567 TSCCKSPL TSUN 3,SDLsTSCSPO GO IF OATA FIELO IS SPLIT es 171C 001720 001720 4637 8 TSKMIN 
166C OOO1LES8 OOOL\ES8 4568 . BU TOSROG4S GO EXTEND GAP BY 128 BYTES 1710 2€C501 18C501 4638 TSKMOUT ADOI 15,1 
1660 201531 © 101531 4569 8 TRONODEF GO TU READ COMMON RIN - m JTIE OFS410  ODC410 4639 ADDC L4,ZER 
4570 © | © izle 2e061F —18Ce1F 4640 ANDI L6eX*1F* SET MOTION OUT 
166E 2E6F20 19EF20 4571 TSCSPD OR! SCN» SCNSPLIT TURN ON SCAN SPLIT FIELD CONTROL { 1720 OF069F O8C69F 4641 TSKMIN ANDI L6eX*9F* 
166F 20152C 10152C 4572 © . 8 TROSPLIT GO TO REAO SPLIT FIELD COMMON RTN ~ 1721 076423 OF4423 4642 TOOFF 7,14,%¢2 
4573 © C1722 064640 09640 4643 ORI L69X*40? SET DIFF 256 
457% SOCSSESHESES ELSE EESEEEEE SESS ERESESESEEEEREHESESSSSE4ESEEEE 1723 OB2E06 OCAE06 «64% MV FBO,L6 HAR TG FBO 
a5. ; | 1724 OA26EB O08AGEB 4645 Lol FTO,x*'EB* ‘SEY MaR* TO FTO® 
4576 *@© RESTORE CCHHKLOLDL OF ODCF READ FROM CISK WITH CURRENT VALUES £ 1725 001584 001584 44646 BU TRONOFB I XMIV HAR 
4577 © FROM DLS TO PROVIDE VALID ODCF WHEN A UNIT CHECK IS PRESENT 1726 OB2E05 OCAEOS 4647 MY FB0eLS OCIFF TG FBO 
4578 * ¢ 1127 2a268C —18a68C 4648 LsI = FTO,x*8ce *SET DIFF*® TO FTO 
DATE 1SAUGTS = O6NOV75 PROG ID FA0-1 DATS 15AUG75 O6NOV75 PROG ID FAO-1 
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FA01 3340 DISK MICROCODE ----— MOD 12 PART NO. 4247623 FAOL 3340 DISK MICROCQDE -——--- MOO 12 PART NO. 4241623 
PAGE 34 PaGE 34A 
LOC. O8JECT CODE STM SOURCE STATEMENT LOC. OBJECT CODE STM SOURCE STATEMENT 
1728 001584 001584 4649 BU TRONOFBI XMIT OLFF 1769 0A0860 988860 4719 LBE L8.X'60' POST ENVIROMENT 
1729 2A268F 18A68F 4650 LBI FTO,.X'SF* 176A OAO718 088718 4720 Lbs L7.X*1B? DATA MESSAGE 
172A 2A2E09 18AE09 4651 LBI = =FBO,X*09# "SENSE DIFFS TO FBO 1768 00190A OO190A 4721 8 TSNSENSE GO TO ERROR ANALYSIS TO SET UP SENSE 
172B 201583 101583 4652 BU TROSBTIM : 4722 © BYTES ANO RESET DRIVE USAGE COUNTERS 
172C ODA245 066245 4653 TEOR FBIeL5 COMPARE SENSED DIFF €, &723 *% 
1720 025731 091731 4654 BZ TSKDIFOK O12 BSERERERSEEEESERERSESEREREEET AER EKRES SE PES SESE SESELESESSSEAEKSE SESE SSESESSSRSESSES 
172E 040818 088818 4655 L681 £6,X*18? 4725 © READ DIAGNOSTIC SENSE ROUTINE 
1T2F OB2E05 OCAEOS 4656 MV FBO.L5 c 47126 FERESEEEEEESEESSESTESSEEEESERESHE SERESESECESTERSEOCESECREES SE SHESSESOSEES SSE 
1730 200708 100708 4657 8 TEFL703 4727 ¢ 
1731 OAZEO8 O8AEO08 4658 TSKDIFOK L&I FBO.X*08* SEEK START 176C OAO7ES O887E8 4728 TSKROSNS LBI L7.-24 SET UP TO ZERO 24 BYTES 
1732 2A268F 18A68F 4659 TSKOOSK LBI FTO,xX*8SF* XMIT CONTROL 1760 OAOSLE O8f41E 4729 LBI = L 4, DC UC WP TR) SET CS OISPL 
1733 001584 001584 4660 6U TRONOFBI L76E 240406 1044C6 4730 LINC L6514,0 FETCH ODISP GF SENSE AREA 
1734 OAOS1E O8841E 4661 LEI = L4&@ , DC UC PTR) 176F 280406 1€8406 4731 Mv L416 MOVE UCW PTR TO L4& ALSO 
1735 0404C8 0044CB8 4662 LINC L8eL4,0 1770 270B7E 1C4B7E 4732 TIBOF NOOP,STAT,TSKNOZER GO IF THERE IS UNIT CHECK 
1736 OEC8LA OBCB1A 4663 ADDI 18,26 1771 200180 100180 4733 BU TRSNSLP GO ZERO 24 BYTES SENSE 
1737 04488E 01488E 466% SINC PAC»LBs] CURRENT TO OLD PAC 1772 271276 1C€5276 4734 TIBOF WHAOK »CEB2~eTSKGETOM GO IF NOT FOLLOWING RDOHA 
1738 05488F 05488F 4665 SINC PAHsL8e5 CURRENT TO OLD PAH 1773 2EC6FE 1BC6FE 4735 ADDI L6,-2 POINT TO BYTE 23 
1739 OAO7TL& O88718 4666 LB6I = LTe DI TSKPA) 1774 044690 014690 4736 SINC SOHel6el STORE SKIP DISPLACEMENT HIGH 
173A 2447CE 1147CE 4667 LINC PAC oL7el1 ACTIVE PAC TO OLS 1775 04469E OLG69E 4737 SINC SDLelL6el STORE SKIP DISPLACEMENT LOW 
1736 2407CF 1047CF 4668 LINC PAH,L7,.0 CTIVE PAH TO OLS 1776 2EC6EA 1BC6EA 4738 TSKGETOM ADDI 16,-22 POINT TO BYTE 2 
173C 0A2684  O08A684 4669 LBI = FTO. X*84* *READ STATUS*® TO FTO 1777 2A268F 18A68F 4739 L81 FTO.CONTROL CONTROL TAG 
1730 001584 001584 4670 BU TRONOFBI 1778 OA2E83 O8AE83 4740 LB FBO, SENSTAT) SENSE STATUS 1 MODIFIER 
173E O05E261 076261 4671 TBON 7,eFBI,TSKENDI EXIT IF SEEK COMPLETE 1779 201385 101385 4741 BU TIPNOCHK TAG SUbBRTN 
173F 054244 066244 4672 TBON 6,5FB1,TSKINTSK GO UPDATE USAGE IF BUSY 177A 080022 0C8022 4742 MV LO,FBI COPY BUS IN 
1740 OCOCO7?  OOCCOT 4673 TANDI QBYT.X*07* EXIT IF 1778 2E0007 18CO07T «743 ANDI &0,X*07* SAVE OM SIZE BITS ONLY 
1741 005744 011744 4674 BNZ TSKINTSK HIODEN SEEK 177C 240680 104680 4744 SINC LOL 620 STORE BYTE 2 
- 1742 0A0409 088409 4675 LEI 14,x*098 POST SEEK BUSY MISSING ERROR MSG 1770 001974 001974 4745 8 TSNCHKWR GO CHECK FOR WRITE INHIBITED 
1743 200707 100707 4676 8 TEFNRERR 177E 201800 101800 4746 TSKNHOZER B TSKUCKON GO CONTINUE IN NEXT BLOCK 
1744 2448C4 1148C% 4677 TSKINTSK LINC L4eL8o1 FETCH SEEK 4747 MBLOK 
1745 27C8CS5 1F48C5S 4678 LOEC 1.5,L8el USAGE COUNTER L77F OOLT7F OOLTTE 4748+ B s UNUSED ssssssssses 
1746 2EC501 18C501 4679 ADDI L591 INCREMENT SEEK 1800 4749+ DS <0>8 
1747 0F4410 OD0C410 4680 ADDC L4sZER USAGE COUNTER 4750 * 
1748 060448 084448 4681 TSOFF OL 4,#43 CHECK FOR OVERFLOW 4751 * READ DIAGNOSTIC SENSE ROUTINE CONTINUE 
E749 OOLIFS OO11FS 4682 BU TIPBSGEN FORM SDA 4152 © 
174A OF 4442 ODCAS2 4683 OR UNCK oL.2 SET OVERFLOW MARK 1800 OEOBF7 OSCBFY 4753 TSKUCKON ANDI STATsX*FT7* RESET NOP 
174B 044884 014884 4684 SINC L4ael8Bel RESTORE UPDATED 1801 2A05E8 1885E8 4754 LBI 854-24 SET UP TO XFER 24 BYTES ~—— 
174C 040885 004885 4685 SINC L5eL8,0 SEEK USAGE COUNTER 1802 2A0000 188000 4755 1B8I 3610-0 SET UP TO XFER 24 BYTES 
1740 OCOCO7 OOCCOT 4686 TANDI QBYT.X*07* EXIT IF NOT 1803 069406 O0A5406 4756 TBOFF 2,MSC2-TSKOELP *START ON EVEN BOUNDARY IF ON 
174E 025761 091761 4687 32 TSKEND1 HIDDEN SEEK 1804 2ECO80 l6C08O 4757 TSKBIGLP ADDI 10,Xx*80* INCREMENT DDDF 
L74F OAOLF5  O881F5 4688 LBI L14245 INIT TIMER 1805 2F4010 10€010 4758 ADDC LO.ZER DISPLACEMENT AODR 
1750 OA2684 O8A684 4689 Lol =—-FTO.X*84° READ STATUS TO FTO 1806 089405 029A05 4759 TSKOELP SABI BSLOCKB,8(UCWPTR) SET BLOCK ADOR OF SENSE AREA 
1751 001584 001584 4690 TSKHSLP BY TRONOFBI TAG FLIPPER 1807 0444C6 0144C6 4760 LINC L6sL4e1 FETCH ONE BYTE 
1752 €35E258 076258 4691 TBON 7oFBI,TSKTOK GO IF SEEK COMPLETE 1808 O89A06 O029A06 4761 SABI BLOCKB,B(DDDFORG) CHANGE BLOCK AODR TO OOOF 
1753 2—EC00i 1sC00l 4692 ADDI LO,1l INCREMENT 1809 240086 104086 4762 SINC 1691020 STORE BYTE INTO ODDF 
1754 0F4110 O00C110 4693 ADOC LIi,ZER TIMER 180A 2EC501 18C501 4763 AODI L5el INCR COUNTER 
1755 029751 OAL751 4694 BNC TSKHSLP GO IF NO OVERFLOW 180B 029804 0A180% 4764 BNC TSKBIGLP GO IF NOT DONE 
1756 2A081C 18881C 4695 161 L8,x*1C* POST SEEK CHECK . 180C 089A05 029A05 4765 SABI BLOCKB,8(UCWPTR} RESTORE BASE BLOCK ADOR 
1757 200708 i00708 469¢ e TEFL703 ERROR, TIMEQUT >20 MS 180D OAO0800 088800 4766 tol 8,0 SET UP TO 
1756 06625C 09625C 4697 TSKTOK TBOFF 1eFBI,*+4 GO IF NO INTERFACE CHECK 180E 2A2100 18A100 4767 L681 CCHeO XFER 24 BYTES 
1759 OG11F4 O011F4 4698 BU TIPuSGEN GO FORM BSDA 180F 2A3116 188116 4768 L681 CCLe22 TO CHANNEL 
175A 280103 1C€8103 4699 MV L1st3 MOVE &SDA BITS 0-3 1810 0A0400 088400 4769 L6I 14,0 STORE TRANSFER COUNT 
1756 OO127A OOL27A 4700 B TIPNOSTK GO SET UP ERROR 1811 240518 188518 4770 LBI 15924 FOR CHAN CNTR CHK 
L75C 240259 126259 4701 - TBON -2¢FB1-*-3 GQ If DRIVE CHECK 1612 OO00b0E $$ OOO0BDE 4771 8U TENSDODF 00 CHANNEL XFER 
1750 2A268F 18A68F 4702 LB1 8 =FTO,CONTROL XMIT RESET DM - 1613 0011C8 0011CB 4772 BU TIOROOOR © ‘FETCH DODR 
175E OAZEQS O8AEQ4 4703 LB1 . FBOsRSTATIN ATTENTION TAG . 1814 201E87 101€87 4773 BU TWRCHKOR CHECK CHANNEL CNTR 
L75F 201385 101365 4704 BU TIPNOCHK TAG FLIPPER ‘- 1815 2010FB 1010FB 4774 BU Ss TIODODR1 INCREMENT ODODR BY 1 FOR FINAL VALUE 
1760 000400 000400 4705 8 TOXSKCPL RETURN, iIODEN SEEK COMPLETE 1816 20011 10011F 4775 8 TCUSTART GO TO CLEAN UP 
1761 OEOBFE O8CBFE 4706 TSKENDL ANDI STAT»sFE-SKCMPL RESET SK COMPLETE STATUS me Q™VT6 88CRSEREEEEEEEEEESEEEEESEEEEEEESOEEEEEESESEESEEESESERSEEEEEEESSCHESSESESESEE 
1762 0011F4  O011F4 4707 BU TIPSSGEN | GENERATE BSDA : & “777 * THIS ROUTINE CONVERTS SYSTEM 3 SEEK ARGUMENTS INTO 3340 PHYSICAL 
1763 2A081F 18661F 4708 L6I 8 L8,D(SKMARKI) GET SEEK IN 4778 * AND LOGICAL SEEK ARGUMENTS. THIS ROUTINE MUST bE CALLED AS A 
1764 0408C%&  0048C4 4709 LINC £4¢18,.0 PROGRESS MARKS 4779 # SUBRCUTINE. THE FOLLOWING ALGORITHM IS USED FOR CONVERSION: 
1765 OF4443 000443 4710 OR L413 POST SIP MARK € 4780 * 20(CC) + (HH? = G(CHI,CLO) + Q(HEAD/2) 
1766 240884 104884 4711 SINC L4el8e0 RESTORE MARK 4781 * C/6 = Ql + Ri 
41767 20011F 10011 4712 8 TCUSTART GO IF CLEAN UP ROUTINE a 4782 * (20R1 + HHI/12 = Q2 #R2 
4713 * & 4783 * 2R2 = PA EVEN 
4714 BESS SSSSESEESEESEESERETEEKESESSERLESEKESEEESESHESAKESESESESESEESESSESESEESSEESESENESE SESE SSE 4784 ¢ 10Q1 + Q2 = PAC 
4715 © READ AND RESET BUFFERED LOG ROUTINE ; 4785 * 2R2/12 = Q3 + RB 
4716 SESE CESEEEEEEEKESEESCEEESESEEESEEKEEESSEESESEESEEEEESEEEREES EEEEEEEEERSEEESCSESESEEES ‘ G 4786 * 20Q1 + 202 + Q3e CHI,.CLO 
4717 © 4787 © R3 = HEAD EVEN 
1766 OEUBF7 OACBFT 4718 TSKRRBLG AND] STAT, FF-NOGP RESET NOP STATUS C 4788 ¢ 
DATE 15AUG75 O6NOV75 PROG ID FAO-1 - DATE 15AUG75 O6NOV7TS PROG 10 FAO-1 
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fa0l 3340 DISK MICROCODE ----- MOD 12 PART NO. 4247623 FAOL 3340 OISK MICRO WE MOD 12 PART NO- 4247623 
PAGE 35 | . PaGE 35a 
LOC. OBJECT CODE STM SOURCE STATEMENT | . LOC. OBJECT CODE STM SOURCE STATEMENT 
47189 888SEESEKEREEEESEACEERESEEESSESRESEESESESERIE REESE SS GEKESERERKESE SEEKS SEES SEKES i 1858 OF90D0 cepooo «859 EORU ZER-eZER * 
4790 * ; “, #860 * 
1817 2441C2 1141C2 “791 TSK3WIN LINC L2sk1,1 LOAD L2 WITH CCHI) SEGL SOSCSTESHESKTESERSESKEERESEERESESEE CESSES SES ES ESE SKSEKSECEERSESSESERESSE SSE EES | 
1818 27C1C3 1F41C3 4792 LOEC L3ellei LOAD L3 WITH HCHT) Cr “4862 © THIS ROUTINE CONVERTS 334C SEEK ARGUMENTS (LOGICAL AODRESSES) TO 
1819 24C€218 134218 4793 TBON 3912-742 GO IF L2=0 — 4863 6 SYSTEM 3 SEEK ARGUMENTS. THIS ROUTINE MUST BE CALLED AS A SUB- 
181A 26C310 18431D 4794 TBOFF 3,L3,%43 GO IF L3=0 S864 ROUTINE. THE FOLLOWING ALGGRITHM IS USEO FOR ADDRESS CONVERSION: 
1818 2A0804¢ 188804 4795 TSKINVSX LBI L8sX*04* SET INVALIO SEEK ARGUMENT “865 * . 6CCHI,CLO) # Q(HEAD/2) = 20(CC) + (HH) 
181C 001104 001104 4796 8 TIOL76O ERROR BRANCH “E66 ¢ CHI 86 ON SETS K1=153, K2=12 
1810 0440C2 0140C2 4797 LINC L2sl0,1 LOAD £2 WITH C(LO) 4867 © CHI 67 ON SETS Kl= 76, K2=16 
181€ O7COC3 OF40C3 4798 LDEC 13,10y1 LOAD L3 WITH H(LO) Cc “868 * CLO/i0 = Ql + R1 
181F 2CC22¢ 13C22F 4799 TADOI 12,547 CHECK FOR 209 fe “#869 & HEAD/2 = Q2 + R2 
1820 275422 105422 4800 TIBOF SIZE12eMSC2 ,*+2 GO IF NOT i248 DATA MOSULE 4870 © (K2 + &R1L + Q29/20 = Q3 + R3 
1821 OCC2DE O3C2DE 4801 TADOI 12,222 CHECK FOR 34 | cn “871 * CC = Kil + 3Q1 + Q3 
1822 229828 1A182B 48C2 BNC 7 SKCOK C<209 /// CK<34 | “872 * HH = R3 
1823 005818 011818 4803 BNZ TSKINVSK C>209» ERROR /// C>34——ERROR “4873 + 
1824 0A0821 C88821 4804 LBI L8e0(SVvPOPT) GET SVP | - £274 © BEFORE CALLING THIS ROUTINE SET UP THESE D POINTERS: 
1825 0408C8 0048C8 4805 LINC L8&48,0 OPTiAON BYTE | * 4675 & LO POINTS TO CS LOCATION OF CLO 
1826 044828 01482B 4806 TIBON ALOWSKCE»L8,TSKCOK GO IF CE TRACKS ALLOWED 4876 Ll POINTS RO CS LOCATION OF CHI 
1827 OCC3F8 03C3F8 4807 TADDI 139248 C=209 CHECK FOR HEAD > 7 2 “E77 * 
1828 O7542A 00D542A 4808 TIBOF SIZE129MSC2 9442 GO IF Not 1248 DATA MODULE ‘. SETA SFSCECSEKEESHAESRSSS SESS ASCE SESS SESKSEKSTRAESSESSESERESKSESCSEESSSSSSESEARSS SES LES 
1829 2CC3EE 13C3EE 4809 TAODI 139238 C=34 » CHECK FOR HEAD > 17 \ 4879 © 
182A 009818 021818 4810 BCY TSKINVSK HD >7--ERROR // HD >17--ERROR ace rob eens pen TSKWIN3 pine mere rips Hs cs re 3 
1828 OCC3EC O3C3EC “811 TSKCOK TADDI 13,236 oLO, 
182C 009818 #021818 4812 BCY TSKINVSK H>19, ERROR 185E O7COC3 OF4£0C3 «882 LDEC L3eL0e1 HEAD IN CS TO L3 
182D 241700 189700 4813 LBI CLO.O START AODRESS CONVERSION 185F 2A0600 188600 4883 Bl 16,0 INIT HEAD LOW 
if2& OFD720 OBD972D 4814 TSK54LP ADDI CLO.45 CLO + 45 1860 OA0200 088200 4884 LBI L2,0 INIT CYLINDER LOW 
182" 2EC2CA ILBC2CA 4815 ADDI 2202 L2 - 54 1861 278464 1E446% 4885 TBOFF 6514 5443 
1830 00982E O2182E 4816 BCY TSK54LP 1862 0A0299 088299 4886 LBI £2,153 
1831 2ED7FB 1BO7FB 4817 TSK6LP ADOI CLO,s-5 CLO - 5 gc 1863 2A060C 18860C «887 LBI L6,12 
1832 2EC206 18C206 4818 AODI Lie6 L2 ¢ 6 2 8 1864 07C6467 OF 4467 4888 TBOFF 7,514,443 
1833 029831 0A1831 4819 BNC TSK6LP vere aeeete pecece oo ee ene 
1834 2F0202 10C202 4820 ADD L2,eL2 L2=2R 6 « 6916 
1835 2F0202 2CC202 4821 ADO L2eL2 L2=4R 1867 2EC209 x8C209 4891 TSK30LP ADDI L299 12 +9 
-1836 281802 1C9802 4822 MV HEAD sL2 HEAD=4R . tees anes ree A522 ci pot cees t5 - 30 
1837 2F0202 1CC202 4823 AOD L2eL2 L2=8R 6 6 #893 Y SK30 
1838 2F0202 4CC202 4824 AOD L2,t2 L2<=16R 186A OEC2ZFD OBC2FG 4896 TSKLOLP ADDI L2,s-3 2 - 3 
1839 OF0218 OCC218 4825 AOD L2,HEAD L2=20R 186B OECSOA G8C50a £895 ADDI 15,10 {5 + 10 
183A OF0302 OCC302 4826 AOD L3ek2 L3=20R + HILO) ace Seance icecce toc ea eee 
183B 2A18FF 1898FF 4827 LBI HEAD, FF ° z2R 
183C 2ED801 180801 4828 TSK12LP ADDI HEAD, HEAD + 1 186E 2F0605 1CC605 46898 avo L6,L5 L642R 
1830 2EC3F4 18C3F4 4829 ADDI 134244 L3 - 12 vese pete oe Veecae acne ake are L5=4R 
163E 06983C 02183C 4830 BCY TSK12LP « 6s L644R 
183 O£C30C O0BC30C 4831 ADDI 13,12 1871 270373 1C4373 4901 TOOFF 4,513,442 $ 
1840 2F0303 1CC303 4832 ADD L313 L3 = PAH EVEN 1872 2EC604 18C604 4902 ADDI 16,4 : 
1841 0A1600 089600 4833 ‘LBI CHI,0 cede pceaes tpeeos pe eee eas 3 
1842 2F1717 1CO7T17 4834 ADD CLO.CLO ’ 3 
1843 0F5610 0D0610 4835 ADDC CHIeZER 1875 278377 1E4377 4905 TBOFF 65143,%+42 : 
1844 2F1718 1CO716 4836 ADD CLO,HEAD 1876 2E€C60l 16C601 4906 ADOI t6e1 3 
1845 Of eeto ODD610 4837 AOOC ae CHI,CLO = Pac bose neces eeeeot o cute aber or . ; 
1846 08180 0C9803 4838 MV HEAD,L3 ‘ L2¢ 
1847 070649 OF5649 4839 TBOFF 7,CHI,*42 1879 2EC6EC 1B8C6EC 4909 ADDI 16,236 13-20 
1646 064340 09C340 4840 ORI 135X*40° SEt £381 IF PAC >255 pe ore 021878 4910 BCY TSK20LP 3 
1849 0A0818 088818 4841 LBI LB,O(TSKPAD 1878 OEC61 CnC6l4 4911. ADDI 16-20 238 : e 
184A 244897 114897 4842 SINC CLOsk8el PAC 70 CS : He oe 104190 4912 SINC ZER,»t1,0 CtHI? to CS 
‘ 44 *& * 
ieee 2171? 1cb7i7 4866 hod eLasceo aa it) Vege sacone:. “igeone: “sis SOR tector Hien): 16 ce 
1840 OF5616 ODD616 4845. AOOC CHI,.CHI . 187F OF5000 ODDCOG <915 ORU = ZERVZER SRANCH TO MAIN ROUTINE 
184E 2ED8F4 1808F4 4846 ADOI HEAD, 244 PAH - 12 © 4916 - MBLOK 
184F 209852 121852 4847 BCY +3 ~ 1900 49174 oS <0>8 
1850 OED80C OBD80C 4848 ADDI HEAD.12 HEAD EVEN aoe . END COPY-MEMBER TSK 
1851 001854 001854 4%849 - 8B #43 * “#919 OoPyY TSNi2 
1852 2ED701 180701 4850 ADDI CLQO,1 * ps ee i ee 
3853 OF561G ODD610 4851 ADDC CHI,.ZER * d AK ABL 
1854 O7CF56 OF4F56 4852 TBOFF 7, PAH, *42 * € oe SKEGSEKERESEESEEEKRESEST ESE EKEEEEEEKESEHETSTSESESEEEEES 
1855 2ED801 180801 4853 AODI HEAD, % ae 4923 2% ’ 
1856 240196 104196 4854 ~ SINC CHI 91,0 s 1900 001829 001829 4924 TSNTABLE 8 TSNEXIT FORMAT O 
1857 044097 014097 4855 SINC CLO,stO,2 * Cc 1901 OO1LA28 OOLAZ28 £9325 8 TSNFEMT1 FORMAT 1 
1858 276098 1F4098 4856 SDOEC HEADsLOok * - 13902 201618 101818 4926 8 TSNEMT2 FORMAT 2 
1859 075458 005458 4857 TIBOF SIZE1Z2»MSC2s*4+2 GO I= NOT 12K DATA MGOULE 1903 001903 001903 4927 8 * FORMAT 3 
1854 000146 0600148 4858 B TCUCNVI2 GO CONVERT PA FOR 12 MB DATA MODULE f 1904. 201800 10180G 4928 8 TSNEHTS FORHAT < 
DATE 15AUG75 O6NOV75 PROG 10 FAO-1 ¢ DATE 15AUG75 O6mOv75 PROG ID FaC-i 
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PAGE 36 
Meee 
LOC. OBJECT CODE STM SOURCE STATEMENT ¢ 
1905 201473 101a73 4929 8 TSNEMTS FORMAT 5 
1906 OO161F OOLBIF 4930 8 TSNFMT6 FORMAT 6 
1907 201907 101907 4931 B * FORMAT 7 
4932 SESEKEAESESSESESESESSECERSESKESSESSESECSSESCEECSKESSE VSS SESS 7 
4933 © ERRGR SENSE BYTES SET UP ENTRY i 
4936 SSSSEEESEEKRSTSECSECSEEESCEERESE SSE SKS SES SESKSESETES SESE 
4935 f 
1908 258600 164800 4936 TSNNORM TIBON UNITCHK STAT, TSNIABLE GO IF UNIT CHK ALREADY ON * 
. 1909 2E4B02 1S9C602 4937 GRI STAT, UNITCHK OR IN UNIT CHECK STATUS 
4938 ¢ 
190A 2E257E 18E5TE 4939 TSNSENSE ANDI FTGseX°TE® DROP TAG GATE 
1908 2F9050 1ED050 4940 EOR ZER.ZER ZERO ZER 
890C O8CceCc 0386CC «941 $Z1I ZLSLOCB eX*CC® MAKE wO-wWl5 TO ZONE O 
1900 001109 001109 4942 BU TIPZEROW ZERO WO-W7 
190— 08C60C 03860° 4943 $Z1I ZLSLOCE,xX*OC* ALLOW ACCESS TO WO-W15 
L9OF OE2FF7 OBEFFT 4944 ANDI SCKFF-ALWEXFR RESER FILE XFER CONTROLS 
1910 081800 0C9800 4945 MV W8,L0 SAVE OISPLACEMENT HIGH 
1911 081901 0C9901 4946 MV WOeL1 SAVE DISPLACEMENT LOW 
1912 OBLAO4 OC9A04 4947 MV W10.L4 SAVE PATTERN HIGH / SENSE bYTE 18 : 
1913 081605 0C9b05 4948 MV WlletS SAVE PATTERN LOW 2 
1914 OA1C00 089C00 4949 LBI W120 ZERO WL2 FOR SENSE BYTE O 
t$15 OBLOZE OC9D2E 4950 MV Wi3eFBO SAVE FILE BUS OUT , - 
1916 OBLE22 OC9E22 4951 MV W14 FBI SAVE FILE BUS IN % 
1917 OB1F26 OC9F26 4952 MV W1i5eFTO SAVE FILE TAG OuT 
1918 OELF S&F O8DFEF 44953 ANOET W159X*8F® MASK OFF UNWANTED BITS 
1919 201100 101100 4954 BU TIPZERO3 ZERO LO-L3 
193A 281708 iC9708 4955 MV W7,L8 SENSE BYTE 7 
1918 084607 OD8607 4956 MVX L6eL7 PREPARE TO SET UP SENSE BYTES 0-2 
191C OE0707 O8C707 4957 ANDI 1L7,X*07* SAVE SIT POSITION 
1919 2a0801 188801 4958 LBI 18el TURN ON BIT 7 
ISLE OECTOL OBC70L 4959 TSNGENO2 ADDI L771 INCRMENT BIT POSITION 
ASLF 050722 044722 4960 THON 4,L7eTSNO200:i GO IF TRANSLATION DONE 
1920 2F0808 iCC808 4961 ADO 18,18 SHIFT BIT TO LEFT 
1921 SOIDIE OOLSIE 4962 8 TSNGENO2 CONTINUE 
1922 05C€625 074625 4963 TSNO2ZDON TSON 7-L6eTSNS12 GO IF NGT FOR BYTE O 
1923 081C08 OC9COB 4964 MV W12st8 SET BYTE O 
1924 201929 101929 4965 B TSNSPEC GO CONT INUE 
1925 040628 004628 4966 TSNS12 TBON Osl6-TSNS2 GO IF FOR BYTE 2 
1926 281108 1C9108 4967 MY W1i,L8 SET BYTE 1 
1927 201929 101929 4968 8 TSNSPEC GO CONTINUE 
1928 261208 109208 4969 TSNS2 MV W2,L8 SET bYTE 2 
1929 070628 0C462B 4970 TSNSPEC THOFF 4el6e%42 GO 1F NOT WRITE INHIBIT 
1924 CE5102 090102 4971 ORI W1,x*O2* TURN ON WRITE INHIBIT 
192B 274620 104620 4972 TBOFF Sol6s#42 GO IF NOT OP INCOMPLETE 
192C CE5101 . 090101 4973 ORI WiX*O1° POST GP INCOMPLETE 
192D 07862F OES62F 4974 TBOFF 6516.4%42 GO IF NOT CORRECTABLE 
192E GE5240 090240 4975 ORI W2,X°40* POST CORRECTABLE 
192F 280608 138608 4976 $Z1 ZLSLOCE »X*08* RESTORE ZLS 
1930 0C1110 000110 4977 TANDI CEB1,PADTOIOX TEST PADDING BIT : 
1931 025933, 091933 4978 Bz TSNOPOWN GO If NGT ON 
1932 Q003E0 O0003EO 4979 BU TOXWADEX GO PAD TO INDEX 
1933 201580 101580 4980 TSNOPDWN 6U TROGPOWN GO 00 OPERATE DOWN ‘ 
1934 08C60C 03660C 4981 $Z1 ‘ZLSLOCB,X*OC® CHANGE 2LS TO ALLOW WO-wW15 ACCESS va 
1935 O5020E OC820E 982 MV L2.Pac PREPARE TO 
1936 OBO060F OC860F 4983 MV L6,PAH CONVERT CURRENT PA c 
1937 201909 101909 4984 BU TSNCONV CONVERT PA TO WINCHESTER CCHH FORMAT ois 
1938 081502 0C9502 4985 MV W5eL2 MOVE CYLINDER LOW TO BYTE 5 
1939 281606 1€9606 4986 “Vv W6eL6 MOVE CYLINDER HIGH & HEAD TO BYTE 6 € 
193A 2A268F 18A68F 4987 61 FTO.CONTROL SET CONTROL TAG 
193b OA2E83 O8AE83 4986 BI FBO, SENSTATL GET DATA MODULE SIZE TAG MODIFIER 
193C 201385 101385 4989 6U TIPNOCHK GO TO TAG SUBRTN €: 
193D 080022 ocsd22 4990 MV LO,Fal READ FILE cus IN 2 SST 
193E 2€0007 18C007 4991 ANDI LO,x‘'07° SAVE OM SIZE BITS 
A93F 2€5240 100240 4992 OR W2eL0 OR OM SIZE TO BYTE 2 © 
1940 2A001E 18801lE 4993 LB8I L0,D(UCWPTR) GET DOISPL FOR ACT DEV PNTR a 
1941 2400C8 1040C8 4994 LINC (9,L0,0 GET ACTIVE DEVICE POINTER © { 
1942 O£C804 OBCB804 4995 ADOT 18.4 INCR PTR TO BYTE 4 } 6% 
1943 27C8D4 1F4804 4996 LOEC WeylBel FETCH QO-BYTE = 
1944 27°8D3 194803 4997 LOEC W3,L8.3 FETCH R-BYTE 
1945 289A85 129485 4998 SABI BLOCKB.X*85* SET MULTIPLE FETCH/STORE MODE ‘ €”. 
DATE 15AUGT5 O6NOVTS PROG ID FAL t 
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LOC. OBJECT CODE STM SOURCE STATEMENT 
1946 08101C 3Cc901C 4999 MV WOeW12 MOVE SENSE BYTE O IN PLACE 
1947 240890 104890 5000 SINC WOsL8.0 STORE SENSE BYTES 0-7 
1948 001109 001109 5001 BU TIPZEROW ZERO LO-L7 
1949 GEC808 oscs0s 5002 ADDI L8e8 BUMP CS POINTER TO BYTE 8 
194A 040880 004880 5003 SINC £0,18,0 ZERO SENSE BYTES 8-15 
1948 OECSO0S oBcs0s 5004 ADDI 1L£6,8 BUMP CS POINTER TO BYTE 16 
194C 260880 184380 5005 : SDEC L0,L8-8 ZERO BYTES 16-23 3: CS PTR TO BYTE 8 
194D O089A05 O029a05 5006 SABI BLOCKB,.X*05* RESTORE TO SINGLE sYTE MODE 
194E 270056 15056 5007 TBOFF 7.WOeTSNNTSK GON IF NOT SEEK CHECK 
194F 2EC812 16C812 5008 ADDI 18418 BUMP CS POINTER TO GLD PA 
1950 2448C2 1148C2 5009 LINC L2ek8et FETCH OLO PAC 
1951 27C8C6 1F48C6& 5010 LDEC Lb6el8Bel FETCH OLD PAH 
1952 2ECBEE 16C8EE 5011 ADDI L&e-18 RESTORE CS POINTER TO BYTE 8 
1953 201909 101909 5012 BU TSNCONV GO DO CCHH CONVERSION 
1954 281002 1c9002 5013 “Vv W13eL2 SET CYL LOW TO BYTE 13 
1955 OB1E06 OCSEO06G 5014 MV wi4¢,L6 SET CYL HIGH & HEAD TO BYTE 14 
1956 284017 1D8017 5015 TSNNTSK MVX LO,wW7 MOVE FORMAT TO LO 
i957 2€0007 18CO0O7 5016 ANDI LO,X*O7* SAVE FORMAT NUMBER GNLY 
1958 211900 141900 5017 BR B(TSNTABLE}),LO GO TO FORMAT BREAKOUT 
§018 SSSESEKESEKKEKKEKKEKRESEKRESEKEKESESSESESEESESESEKESESE SESE ES 
5019 ® PHYSICAL ADOR TO WINCHESTER CCHH CONVERSION 
5020 S¥SSSESESESEEASEESEEEETESERTESS EESESESEETESSSE ESTES 
5021 * 
1959 28C608 138608 5022 TSNCONY SZ>I ZLSLOCB eX *08* CHANGE 21S TO ACCESS #SC2 
195A 055466 055466 5023 FIBON SIZE12¢MSC2, TSNCNV1I2 GO IF 12 MB DATA MODULE 
195B O8C60C 03860C 5024 S$ZI ZLSLOCBsX*0C* CHANGE ZLS BACK TO ACCESS wO-wWi5 
195C 080506 0c8s506 5025 MY L516 CoPpY PAH 
195D OE063F O8C63F 5026 ANDI L6,X°3F* SAVE HEAD ADOR GNLY 
195E 2EC6F4 18C6FS 5027 ADOI 69-12 MINUS 12 FROM HEAD 
195F OF 4202 00C202 5028 ADCC L2et2 2 X CYL LOW AND AOD CARRY 
1960 229962 1A1962 5029 BNC *42 GO IF NO CARRY 
1961 O£4520 09C520 5030 ORI L5-X*20°* TURN ON CYL 256 BIT 
1962 2EO5E0 18C5E0 5031 ANDI (5-X*EO* SAVE ONLY CYL HIGH BITS 
1963 260665 184665 5032 TBOFF Osl654#42 GO IF HEAD ADOR NOT NEGATIVE 
1964 OEC60C oBpcéoC 5033 ADOI (16:12 ADJUST HEAD 
1965 OF46C5 OoDc6éC5 5034 ORV L6,L5 COMBINE CYL HIGH WITH HEAD 
5035 * 
1966 280502 1C8502 5036 TSNCNVIL2 MV i5,L2 copy PAC TO L5 
1967 O8Cé60C 03860C 5037 Sz! ZLSLOCB ,X*OC ® CHANGE ZLS BaCK TO ACCESS WO-W15 
1968 OAO2FF O882FF 5038 LBI L2,FF INIT LOG CYL LOW WITH -1 
1969 G6466C 09466C 5039 TBOFF 19169443 GO If PA CYL 256 OFF 
196A 2A0254 188254 5040 LeI 2.84 LOAD LOG CYL LOW WITH Q(256/3)-1 
1968 2EC501 18C501 5041 ADOI L5,1 ADD R(256/3) TO PAC 
196C OEC201 O8C201 5042 ADDI 12,1 AOD TO 12 WITH 
1960 2EC5FD 16C5FD 5043 ADDI (t5,-3 THE QUOTIENT OF 
196E 20996C 12196C 5044 BCY e—2 : 15 DIVIDED BY 3 
196F OFC503 0BC503 5045 ADDI 15,3 ADJUST REMAINDER IN LS TO POSITIVE 
1970 2F0505 1CC505 5046 ADD 15,15 THE LOG HEAD IS 
1971 2F0505 1CC505 5047 ADD L5eL5 EGuat TO 4 TIMES 
1972 OEO6OF O8C60F 5048 ANDI (L6,X*OF® THE REMAINDER OF (PHY CYL/3) 
1973 OF0685 OCC685 5049 ADDU L6sL5 PLUS THE PHY HEAD VALUE 
1974 252278 146278 5050 TSNCHKWR TBON 4eFB1,#+4 GO IF WR ENABLE ON(WR INHIBIT OFF) 
- 1975 OEC6FF OBC6FF 505i : ADDI t6,-1. POINT TO BYTE 1 
1976 0A0002 Q88002 5052 L6I 10,X*02° POST WR INHIBIT o1T ON. 
1977 240680 104680 5053 SINC L£0e1L6,70 STGRE BYTE 1 BACK 
1978 201800 101800 5054 B TSKUCKON GO CONTINUE RD DIAG SENSE CMD 
5055 MBLOK 
1979 201979 101979 5056+¢ 8B * UNUSED sssssssssss 
19TA 20197A 10197TA 5057¢ 8 % UNUSED ssssessssss 
1978 001978 00197B 5058+ 8 * UNUSED ssssesssees 
197C 20197C 10197C 50594 a * UNUSED sssssssssss 
i970 001970 001970 5060¢ B * UNUSED sssssssssee 
197TE OO19TE OO1LSTE 50614 8 * UNUSED sesssssssss 
197F 20197F LOL9TF 5062+¢ 3 * UNUSED sssesseeses 
1A00 5063+¢ OSs <0>B 
5064 CEAaEREESESERERRGAREESEOHESEREOESERSSSNESEEEEE EES ESSECREREEREESS EERE 
5065 * ERROR SYMPTO®# COoeE SUBROUTINE FOR FORMAT 1 
5066 EECESSESEEEESESEEEEECEEETESEOESESTS EESSEESCEEESESSESESSESESES ES SEES ES SS 
506T * 
5068 * wo = BYTE 163 we = BYTE 203; WS = BYTE 83 Wiz = BYTE 123 
OATE 15AUGT5 O6NDV75 PROG 10 
EC NOW 827765 827848 PaGE 
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PAGE 37 ?. PAGE 37A 
fo 
Loc. OBJECT CODE STM SOURCE STATEMENT \ LOCe OBJECT CODE STM SOURCE STATEMENT 
5069 * Wl = BYTE 173 WS = BYTE 213 W9 = BYTE 93 W13 = BYTE 133 - 1A2F 281922 109922 5139 MV w9,FBI *eeeeeeceees §=SENSE BYTE 9 
5070 ¢ W2 = BYTE 183 W6 = BYTE 223 wWl1O = BYTE 10; W14 = BYTE 143 : 1A30 OA2E43 OBAE43 5140 LBI FBO, SENSTAT2 SENSE STATUS 2 
5071 © W3 = BYTE 193 W7 = BYTE 233 wWll = BYTE 113 W15 = BYTE 153 1A31 201385 101365 5141 BU TIPNOCHK . TAG SUBRTN 
5072 * ,  1a32 2B1A22  1C9A22 5142 MV W10,FBI #eeeeeeeeee SENSE BYTE 10 
5073 SFSESSESKESEEEKESSEKESEEESEEEKESESEEERSESEEEEHEESEEEEEEEESESE % 1A33 OA2E23 OB8AE23 5143 LBI FBO, SENSTATS SENSE STATUS 3 
5074 ® 1A34 201385 101385 5144 BU TiPNOCHK TAG SUBRTN 
1a00 041809 005809 5075 TSNSYMCD TBON OeW8,TSNCTLCK GO IF CONTROLLER CHECK r 1435 081622 OCS622 5145 S HV W11,FB! *ek06006860 SENSE BYTE 11 
1A01 240210 135210 5076 TBON 3eW2-¢TSNUPGM GO IF UPGM DETECTED ERROR * 1A36 OA2ZE0OB OBAEOB 5146 LBI FBO, SNSROWR SENSE READ/WRITE 
LAO2 245812 115812 5077 TBGON 1,.W8,TSNOIFCK GO IF ORIVE INTERFACE CHECK 1A37 201385 101385 5147 BU TIPNOCHK TAG SUBRTIN 
1403 O55A15 055A15 5078 TBON 5eW10eTSNOMSZE GO IF DFM SEQ OR SIZE CHECK € 1A38 281C22 1c9C22 5148 MV W12,F5!I *e4S8e68040e SENSE BYTE 12 
1A04 04981A O258iA 5079 TBON 22W8,TSNORVCK GO If DRIVE CHECK 5149 # 
1A05 0C1810 000810 6080 TANDI w8,X*10* TEST FOR R2D/WR CHECK 5150 * SENSE BYTES 13¢ 14 AND i5 ALREADY SET UP 
1A06 O05A26 O1L1A26 5081 BNZ TSNRWCHK GC IF RO/WR CHECK f 5151 8 
LAO? 2A1619 189619 5082 LBI W6,X*198 BYTE 22=X°19"; BYTE 23=BYTE 7 : 1A39 289a85 129A85 5152 SABI ®8LOCKB,X°85* SET MULTIPLE BYTE MODE 
1A08 OF5707 ODD7D7 $083 TSNRETUN ORU W7,W7 RETURN 1A3A 260898 184898 5153 SDEC W8sL8r8 STORE SENSE BYTES 8-15 
5084 * 1A3B C89A05 O29A05 5154 SABI BLOCKS,xX*05°* CHANGE TO SINGLE BYTE MODE 
1A09 ZA169i 189691 5085 TSNCTLCK LBI W6,X*9)1° BYTE 22=x*91° 1A3C 2a1200 189200 5155 Lol W220 *eaeeeeeeee SENSE BYTE 18 
LAOA 0861714 OC9714& 5086 MV W729 W4 BYTE 23=BYTE 20 SA3D0 2C971A 12071A 5156 TEORI W7,X*LA® TEST FOR PA CHECK 
1A06 OELTEC O8DTFC 5087 ANDI W7,X*FC® SAVE BITS 0-5 1A3E 205A47 L1L1A47 5157 BNZ TSNNTLA GO IF NOT PA CHECK 
1A0C 005A08 O11A08 5088 BNZ TSNRETUN GO IF BYTE 20 BITS 0-4 NON ZERO 1A3F O0A0001 088001 5158 Lol L0eX*01* GET PAC 
1A00 2A1692 189692 5089 LBl1 W6.x*92* BYTE 22=x'92° 1A40 2400C2 1040C2 5159 LINC L2,-L0,0 AND PAH 
1AOE 2E1L1LFE 18D1FE 5090 ANDI wWi1,X*FE® BYTE 23 1A41 2A0081 188081 5160 LBI LOx*81l* FROM HA FIELD 
LAOF 281791 1€9791 5091 MVU W7ewWl = BYTE 17 BITS 0-6 1A42 2440C6 1140C6 5161 LINC L6eLOel IN OOCF 
: 5092 * 1443 201909 101909 5162 BU TSNCONV GO 00 CCHH CONVERSION 
1A10 0A1690 089690 5093 TSNUPGM Luli W6_.X"90° BYTE 22=x*90* 1A44 281402 1€9402 5163 MV W4-L2. ¥43e8406¢064¢ SENSE BYTE 20 
1Al1 2861792 ic97S2 509% MVvU W7.W2 BYTE 23=BYTE 18 1A45 281506 1C9506 5164 MV W5eL6 448660869484 SENSE BYTE 21 
5095 * 1A46 OO1LA5O OO1A50O 5165 B TSNSNS16 CONTINUE 
1A12 2A1610 189610 5096 TSNOIFCK LBI W6,X*108 BYTE 22=xX'10* 1A47 2A2689 18A689 5166 TSNNTLA LUBI FTO, SNSINFC SENSE INTERFACE TAG 
1A13 0€1403 080403 5097 ANDI W4,_,X*O3° BYTE 23 1A48 201385 101385 5167 BU TIPNOCHK TAG SUBRTN 
LAL4 2B1794 1069794 5098 Kyu “79 W4 = BYTE 20 BITS 6-7 1A49 081422 0C9422 5168 MV W4,F8I #4660046¢084¢ SENSE BYTE 20 
5099 *® 1A4A 0E€1403 080403 5169 ANDI W4,X*03° SAVE BITS 6~7 ONLY - 
1A15 OA1611 069611 5100 TSNOMSZE LBI W6,X*1i¢ BYTE 22=xX*11°* 1A4B 2A2604 18A604 5170 Lol FTO,RDERROR READ. ERROR TAG 
WAl6 2ALTFFE 1897FF 5101 Lai W7_eX* FFE BYTE 23=X'FF® 1A4C OA2ZEO1 O8AEO1 5171 LBI FRO-CTLRERR2 RD CONTROLLER ERROR 
lai? 641A08 005a08 5102 TBON 0,W10,_,TSNRETUN GO IF OM SIZE CHECK 1A40 201385 101385 5172 BU TIPNOCHK TAG SUBRIN 
1A18 OE€1A70 OBDA7O0 5193 ANDI W10.X*70* OM SEQ CHECK -- LAGE 2F5462 1D0462 5173 GR W4,FbI SENSE »YTE 20 ALso 
1A19 OB1T9A OC9T9A 5104 MVU W7eWiO BYTE 23 = BYTE 10 SITS 1-3 1A4F 0A1500 089500 5174 LBI Ww5,0 #eeeeee808% SENSE BYTE 21 
§105 1A50 2A2604 18A604 5175 TSNSNSL6 LBI FTO, RDERROR READ ERROR TAG 
ALA 281710 1€9710 5106 TSNDRVCK MV W7,.wOo BYTE 23 1A51 OA2E02 O8AEO2 5176 isl FBO,CTLRERR1 RD CONTROLLER ERROR 
1A1B OE1L7OF O8070F 56107 ANDI W7eX*OF® = BYTE 16 BITS 4-7 1A52 201385 101385 5177 BU TIPNOCHK TAG SUBRTN 
LALC 0A1612 089612 5108 isl W6,X*12¢ BYTE 22=X*12* 1A53 081122 oc9122 5178 MV W1,FBI ‘eseeeeeeee «SENSE BYTE 17 
1A10 041008 005008 5109 TBON O,WO,TSNRETUN GO if ACCESS TIMEGUT 1A54 2A268F 18a68F 5179 Lol FTO sCONTROL CONTROL TAG 
LALE 2741615 189615 5110 LBI1 W6eX*158 BYTE 22=x'15° 1A55 2A2E03 18AEO3 5180 LBI FBO,SENSTATO SENSE STATUS O 
ALF €45008 115008 S111 THON) leWOe TSNRETUN GO IF QVERSHOOT CHECK 1A56 201385 101385 5281 BU TIPNOCHK TAG SUBRTIN 
1A20 2A1616 189616 53112 LBI W6eX*16* BYTE 22=Xx*16°* 1A57 281322 109322 5182 MV W3,FR! seteeesestese SENSE BYTE 19 (PARTIAL) 
1A21 249008 125008 5113 TBON 2¢40¢ TSNRETUN GO IF SERVO OFF TRACK CHECK 1A58 OA2E13 O8AE13 5183 iB! FBO.SENSTATS SENSE STATUS 4 
1WA22 241613 189613 5114 LB! W6,X*13¢ BYTE 22=xX*13* 1AS9 201385 101385 5184 BU TIPNOCHK TAG SUBRTN 
1A23 0A1701 089701 5115 (Bi W7,X*QO1° BYTE 23=x*01* 1A5A 281022 1C9022 5185 Mv WOsFBI eeee¢eeeesee SENSE BYTE 16 
1A24 041008 005008 5116 TBON O,WO-e TSNRETUN GO IF SECTOR COMPARE CHECK 1A5B 0E1304 080304 5186 ANOI W3eX*04* SAVE BIT 5 ONLY 
1A25 085797 009797 5117 MVXU WT7eN7 FALSE ORIVE CHECK -- BYTE 23=X*10* 1A5C 07495E O0495E 5187 TBOFF 5,.GEN1,#42 GO IF RDO/WR TAG DOwN 
5118 + 1A5D 2€5380 190380 5188 ORI W35X*80* *eeeeeeeeets SENSE BYTE 19 (CMPLETE?) 
1426 0A1614 069614 5119 TSNRWCHK LB W6_X* 148 BYTE 22=x*14* 1A5E OC9T712 020712 5189 TEORI W7,X*12¢ TEST FOR UPGM OETECTED ERROR 
1A27 08179C oc9g79c . 5120. ..—«—i(<wssCiC OW BYTE 23=BYTE 12 LASF OOSA61 OLLA61L 5190 BNZ +2 GO IF NOT 
SL21 SSSSS6S48KSS4S6S4SFS CESSES EEEESEEEOESEEEEEOEEE4EEEKEES 1A60 281204 §1€9204 5191 My. W22L4 *#O8O466940 SENSE OYTE 18 
5122 *# FORMAT i (REGISTER USAGE BELOW) 1A61 201A80 101A80. 5192 BU TSNSYMCD GO GENERATE ERROR SYMPTOM CODE 
$123 $O8669688ESES6ES866SSE5ESESO4ESESSE44S4EEESEEEEEEEESES “  1A62 26906F 1ASO6F 5193 TBOFF 2¢W0OsTSNSVOOK GO IF NOT SERVO OFF TRACK 
5124 *% €. 1A63 2A0401 188401 5194 Lol L4,1 POST SEEK CHECK 
5125 * WO = BYTE 163 “W4 & BYTE 203 W8 = BYTE 83 W12 = BYTE 12; 1464 05C884 074884 5195 SINC 049186,7 IN SENSE BYTE O 
$126 © Wi = BYTE 173 W5 = BYTE 213 W9 = BYTE 93 W13 = BYTE 13; ~, RAGS 0408C4 0048C4 5196 LINC L4&-eLl8,0 FETCH BYTE 7 
5127 © W2.e BYTE 133 W6 = BYTE 223 W100 = BYTE 103 W14 = BYTE 143 - LA66& 008415 02C415 5197 TEOKI £4,xX*15° CHECK FOR 15 MSG 
$128 ¢ W3 = BYTE 193 W7 = BYTE 233 Wil = sYTE 11s Wi5 = BYTE 153 LA67 205469 111A69 5198 BNZ 42 GO IF NOT 
5129 = - gs» 1A68 2A0410 188410 5199 Lol L4ex*10* CHANGc BYTE 7 TO X*10* 
§130 FSSREESERES SHES ES FEEESECEE SETS ES OE6OE5EESSEEEESEEEEESESED : C: 1A69 264884 194884 5200 SDEC L4eL8Be7 RESTORE sYTE 7 
5131 © ; LAGA OOLIF4 OOLIFS 5201 “BU TIPBSGEN GENERATE BSOA 
1A28 OBO4LA OC841A 5132 TSNFMT1 KY 14.W10 SAVE SENSE BYTE 18 - #: LAB 2A0TILF 18871F 6202 Le! L7sD(SKMARKI) LOAD CS DISPL OF SK INCOMPLETE MARKS 
1A29 0A2684 O8A684 5133 : L81 FTO,ROSTATUS READ MODULE STATUS TAG €. LAGC 2407C6 1047C6 5203 LINC £6¢L7,0 FETCH MARKS 
1A2A 201385 101365 51346 . BY TIPNOCHK TAG SUbRTN 1A6D OF 4542 00C642 5204 OR L6sL2 TURN ON SEEK INCOMPLETE FOR THIS DEV 
1A28 051822 0cC98622 5135 “ay W3,F8I eeeteseetse SENSE BYTE 8 , LAGE 040786 004786 5205 SINC 62L7,0 STORE MARKS 8ACK 
1A2C 2A268F 18A68F 5136 tBI FTO,CONTROL CONTROL TAG Re LA6F OFC810 O8CB10 5206 TSNSVOOK ADDI L8,16 CHANGE CS POINTER TG BYTE 16 
1A2D OA2E83 GBAEB3 5137 Ler FBO, SENSTAT1 SENSE STATUS 1 1A70 289085 129a85 5207 SABE BLOCKB.X*&5* CHANGE TG MULTI BYTE MODE 
JAZE 201385 101385 5138 BU TIPNOCHK TAG SUBRTN é. 1A71 240890 1046890 5208 SINC WO,L8,0. STORE SYTES 16-23 
DATE L5AUGTS OONOV7S PROG ID FAO-1 DATE 15AUGT5 O6NOYT75 PROG 1D FAa0-1 
EC NOw 827765 827848 PaGE 37 ~~ EC NOW 827765 827848 PAGE 37A 
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FAO! 


Loc. 
1A72 


1A73 
1A74 
1a75 
1AT6 
1A77 
1A78 
1AT9 
LATE 
1lA7b 
ATC 
LA7D 


LATE 
LATF 
1600 


1600 
i601 
1602 
1803 
1B04 
18C5 
1806 
1807 
12808 
1609 
LBOA 
160b 
16¢6C 
18600 
160E 
1B0CF 
1610 
1611 
1Bl2 
1813 
1614 
1815 
1816 
1617 


1818 
i619 
1B1A 
1818 
iBILC 
1810 
IB1E 


. Bate 
eC NO. 


3340 DISK MICROCODE 


OBJECT C 
001829 


0A0016 
044900C 
040000 
OEC&08 
04489C 
244890 
244898 
044899 
044894 
248898 
001604 


OOLATE 
201 ATF 


OECBOE 
2A0749 
044887 


‘040897 


OECBF1 
280217 ¢ 
280608 
240082 
240305 
208241 
005B0F 
26110F 
2A0306 
06940F 
240003 
OcC220 
209829 
299203 
2400C7 
089A05 
044887 
2ECO80 
2F4010 
201 60F 


2812823 
261027 
289A85 
040898 
261E2F 
231F 33 
201827 


15AUG75 
827765 


ODE 
001629 


086016 
01400C 
004000 
0BC808 
01489C 
114890 
114898 
014899 
O1L48B9A 
124898 
001804 


OOLATE 
LOLATF 


OBC8O0E 
188749 
014867 
004897 
OsC8Fi1 
1C8217 
138608 
1860682 
188305 
12C 241 
O11B0F 
16510F 
188306 
OA540F 
188003 
o6C220 
121629 
169a03 
1040C7 
029405 
014887 
16C080 
100010 
101b60F 


1C9B23 
1c9C27 
129485 
004898 
1C9E2F 
iC9F33 


191627 


STM 


5209 
5210 
S211 
§212 
5213 
5214 
5215 
5216 
5217 
5218 
5219 
5220 
§221 
5222 
§223 
5224 
5225 
5226 
5227 
5228 
5229 
§230¢ 
5231¢ 
5232¢ 
5233 
§234 
5235 
5236 
5237 
5238 
5239 
5240 
5241 
5242 
5243 
5244 
5245 
5246 
5247 
5248 
5249 
5250 
§251 
5252 
5253 
525% 
§255 
5256 
5257 
5258 
5259 
5260 


5261 


5262 
5263 
5264 
5265 


' $266 


5267 
5268 
5269 
5270 
5271 
5272 
5273 
5274 
5275 
5276 
5277 
5278 


O6NOV75 
827848 





PART NO. 
PaGE 


HOD 12 


SOURCE STATEMENT 


8 TSNEXIT GO TO SENSE EXIT 
SSESSEEEES SEESSSEEEEEESESES ESS ESESEESEEEESEEREEEEE CESS 
* FORMAT 5 (REGISTER USAGE BELOW) 
SIECSKEKESEKESESESEEREEEKESEESTE EEE EEERESEEEKE TEE EES ESSE 
+ 
¢ WS = BYTE 183 
* 
SSSECHESESHESSEEESEESESEEESEESSESEKESSESESESESESESESESE EE 
e 


W9 = BYTE 19; W10 = BYTE 203 Wil = BYTE 213 


TSNEMT5§ LBl L0,0(BY TEREAD) SET CS PTR TO BYTES READ 
LINC W12,L092 GET TOTaL 
LINC W13eL0s0 BYTES READ 
ADDI 18,8 BUMP CS PCINTER TO BYTE 16 
SINC Wl2st8e2 BYTE 16 -— HIGH RESTART DISPL 
SINC W13eL8e1 BYTE 17 --— (Gm RESTART DISPL 
SINC W8,LBel BYTE 18 -- HIGH DISPL 
SINC W9ei8el BYTE 19 -- LOW DISPL 
SINC W1lOsL8el BYTE 20 -- HIGH PATTERN 
SINC W11.L8.2 BYTE 21 -- LOW PATTERN 
8 TSNFMT45 GO FINISH FORMAT 5 
MBLOK 
B s UNUSED ssesssseses 
8 s UNUSED ssesssssses 
oS <0>8 
SSEEESEEEKSESESESEERESESEESSEEEEESEEEDSEKEHERESESESEBESESE 
s FORMAT 4 


SESESESSSESCHSESESESECESERSESESERESSESESESESSEE EES SESESESSSESSSSE 
2 


TSNFMT4 AODI 18,14 BUMP CS PTR TO BYTE 22 
Let L72X*49° SET SYMPTOM CODE 
SINC 127,L8ol STORE BYTE 22 
SINC W7el8,0 STORE BYTE 23 =BYTE 7 
TSNFMT4S aDDI £8.-15 SET CS PTS TO BYTE 8 
Mv L2ew7 SAVE SENSE BYTE 7 
$ZI ZLSLOCB eX*08* RESTORE ORIGINAL 2ZLS 
Lol LO,X*82° SET CS PTR TO CYL HIGH IN DDCF 
is! £3-X*05° SET DDOCF BLOCK ADDRESS 
TEORI L2eX*al* CHECK FOR COUNT FIELO DATA CHECK 
nz TSNFMCF GO IF NOT 
TIBOF ROCTODF ,CEB1sTSNFMCF GO IF NOT RO CNT TO DODDF 
LbI L3,X*06° SET DDDF BLOCK ADDRESS 
TIBOF ODDRODD »MSC2,TSNFMCF GO IF DDOR ON EVEN BOUNDARY 
LBI L0,X*03°* CORRECT CS PTR 
TSNFMCF ADDI L2,X*20* INCR CNTR -- WANT TO LOOP 5 TIMES 
BCY TSNEXIT GO IF DONE 
SABR L3,B8L0CKB SET BLOCK ADOR 
LINT LT7eL0,0 FETCH (CCHHR) IN SEQUENCE 
SABI BLOCKB,X*05* SET BLOCK ADDR 
SINC LT7sl8el STORE SENSE BYTES 8-12 IN SEQUENCE 
ADDI L0,X*80°* BUMP CS 
ADOC LO,ZER. POINTER 
8 TSNFMCF GO SET UP THE NEXT BYTE 


BOSSEEKESE SEEKS SEEREESEEEESESES ESSE SESSESESSESEEESEESESESESESSE SES ES 
* FORMAT 2 (REGISTER USAGE BELOW) : . 
SSERESHSSEKESSE SEE SESERESSESAESSSEEKESEESES EEE ES ESEEEKS EEEEESESSESES 


= BYTE 8(HESIs W9 = BYTE 91ADS)$ W1O = BYTE 1O(FTI)3 
BYTE LL(DST)$ W12 = BYTE 12CFHFIs W13 = SYTE 13(F6O)3 
BYTE 14(F81)3 W15 = BYTE 15¢FTONSs . 

Wl4 = BYTE 16(SCN)s WLS = BYTE 17(0XC); 


us 
Wil = 
W14 = 
ALSO: 


een anean 


SEKSSCESEE ESS SEKESEE SESE SELECEHEESEEEETERSLEEEREESKESEERSEEESEEERE SE 
*x 


TSNFMT2 MV = W1L,DST coPY OST 

MV W12.FHF CUPY FHF 

SABI BLOCKB,X'85° MULTIPLE BYTE MODE 

SINC W8,L8+0 STORE SENSE BYTES 8-15 

MV «W144SCN COPY SCN . 

MV W115 ,0XC COPY OXC | | 

6 TSNBY16 GO TO STORE BYTES 16 AND 17 
PROG ID 
PAGE 


t 


4247623 


38 . 


FA0O-1 


f 








FAO] 3340 DISK MICROCODE MOD 12 PART NOw 4247623 
PAGE 38A 
é LOC. OBJECT CODE STM SOURCE STATEMENT 
. £m 527TF SHSSSESSEKSSSEKSTESTS SEER SSKESSES SSESSSESE LES ESSE SKERSSSEES 
C 5280 * FORMAT 6 (REGISTER USAGE BELOW) 
: S2BL SHeEHSSSKSESERSASEERSESEKE SEESSSESSKESEKEKESE SESE ESSE SS ESEREKS 
pi 5282 * 
& 5283 © WS = BYTE 83 WS = BYTE 93 W6 = BYTE 103 WY = BYTE 113 
5284 © wWl4= BYTE 16; wW15= BYTE 173 L4-L7 = ZERO 
3 5285 © 
- F286 SESCSSKSESSESESSESSSSKSKESSESKEKS SESS SETSESEKESKKSE EKER ESSERE RSE 
5287 © 
y 1B1F 289085 129A85 5288 TSNFMT6 SABI BLOCKB,X*85* CHANGE TO MULTI 6YTE MODE 
.. 12820 2EC624 180814 5289 ADDI 1t8,20 BUMP POINTER TO USAGE CNTR AREA 
1B21 240804 1048D4 5290 LINC W4,sL8,0 FETCH READ USAGE CATR 
¢ 1822 050884 044884 5291 SINC i450894 RESET READ USAGE CNTRS 
1823 2408DE 1048DE 5292 LINC W14eL8,0 FETCH SEEK USAGE CNTR 
1824 040886 004886 5293 SINC L6eL8,0 RESET SEEK USAGE CNTR 
1825 2EC8E8 1BCBEB8 5294 ADDI 18-24 CHANGE CS POINTER TO bYTE 8 
1826 040894 004894 5295 TSNSKNFL SINC W4,L8,0 STORE BYTES 8-11 
1827 O£FC808 OBC808 5296 TSNBY16 ADDI L88 BUMP CS POINTER TO BYTE 16 
1328 04089E  00489E 5297 SINC W14,L8,0 STORE BYTES 16-17 
Ne §298 SSESSSSSEKERESEEESSEEKEKESESEEKESESEKEKEEEE 
5299 * SENSE BYTES ALL SET UP NOW 
° ‘ $3500 SHSSSESESEKSEEKEKSEEKEESKECESCSEESESEREKESRBRE 
: 1829 5301 TSNEXIT EQU # ENTRY LABEL 
1829 28C608 138608 5302 S21. ZLSLOCB,xX*08* RESTORE ORIGINAL ZLS 
- 1824 O089A05 029405 5303 SABI BLOCKB,X*'05* RESTORE ORIGINAL BLOCK ADDR 
.. 5304 * 
5305 * RESET CONTROLLER AND ORIVE CHECKS HERE 
r 5306 © : 
_ 1B82B OA2E04  O8AE04 5307 LBIl FBOsRSTATIN RESET 
1B2C 2A268F 18A68F 5308 | LB FTO,CONTROL ATTENTION 
1B2D 201385 101365 5309 BU TIPNOCHK TAG SUBRTN 
1B2E 2A2EOC 218AEOC 5310 LBI FBO,CHKRST CHECK RESET 
1B2F 201355 101385 5311 BU TIPNOCHK TAG SUBRTN 
1B30 OAZ2E80 O8AEBO 5312 LBI £FBO,x*BO8 - CONVROLLER 
1B31 0A2609 O8A609 5313 LBI = =FTO,XMITCNTL RESET 
1832 201385 101385 5314 BU TIPNOCHK TAG SUBRTN 
, 1833 QE6D80 O9ED80 5315 GRI = FTR-ADTCKRST RAISE ADAPTER CHECK RESET 
: 1834 2E207F 18ED7F 5316 ANDI FTR,FF-ADTCKRST DROP ADT CHECK RESET 
§3i7 * 
Ve 5318 * EXIT DECISION 
% 5319 * 
15835 24083C 10463C 5320 — TIBON ERRRETUNsSTATeTSNIDLE GO IF RETURN MARK ON 
1836 27883B 1€483B 5321 TIBOF UNITCHK ¢STAT, #45 GO IF UNIT CHECK OFF (RD/RST BUF LOG) 
1837 278C3A 1€4C3A 5322 TBOFF 6,O0BYT, #43 GO IF NOT SCAN CMO (IF BITS 6 & 7 
1838 O7CC3A OF4SC3A 5323 TBOFF 7,Q6YT,*+2 ARE ON = SCAN. DON'T XFER OOOF TO MS) 
1839 2EQ9F7 18C9FT 5324 ANOL GEN) .FF-XFROODF RESET XFR CODE MARK FOR SCAN CMO 
1B3A 000951 000951 5325 B TENSTART GO TO END PROCEDURE 
1838 20176C 10176C 5326 B TSKRDSNS GO TO XFER SENSE BYTES 
1B3C 2A001E 18801E 5327 TSNIDLE LBI LO,D(UCWPTR) GET DISPL OF UCW POINTER 
1830 2400C8 1040C8 5328 LINC L8sL0.0 GET UCW POINTER 
183€ 240110 188110 5329 LbI b1,X*108 INITIALIZE SSDA TO DRIVE 4 
1B3F 240841 104841 5330 TBON Ost&s#4#2 GO IF DRIVE 3 OR & 
1840 240140 188140 5331 LBI =-L1,X*408 CHANGE BSDA TO ORIVE 2 
1B41 058843 064843 5332 TbON 6eL84#42 GO IF ORIVE 2 OR 4 
€ 1B42 2F0101 1C€C101 5333 ADD Li,tl CHANGE BSOA TO ORIVE 1 OR 3 
1B43 284201 106201 5334 MYX L2sL1 MOVE BSDA TO LOw DIGIT IN L2 
1B44 2001C%  1001C4 5335 bU TCUSETUC POST UNIT CHECK STaTUS IN S00 
C 1845 27CB48 1F4848 5336 TIBGOF SKCMPL » STAT, #43 GO FF NOT SEEK COMPLETE 
=* 1846 OAOBOO 088800 5337 LBI STATs»O ZERO STAT REG 
1B47 001300 001300 5338 8 TIPSKCHK GO CONTINUE TO HANOLE SK INCOMPLETE 
ec 1848 OAOBOO 088800 5339 -LBI STATO ZERO STAT REG 
- 1B49 OE258F. O8€58F 534U ANDI FTG,FF-SELHONLD DESELECT ORIVE 
1B4A 001202 001202 5341 b TIPIOLE GO TO IDLE 100P 
: $342 © 
@ § 343 SSSHEKEEKEESKIEECKE SE SEKEKSESESESERESSERSEEEKSESSEEKSESESSESKKEKE 
5344 © TIME OUT ON SEEK bUSY'S * 
€3 S445 SCSSSSESESKSKSSEKSESESSESSESKKSEEAESESAECSESSESEESSESHEASEEE SSE SEAKEKESE 
‘ 5346 & 
1B4B 2A0022 188022 5347 TSNSKTMR LBI1 L0,0(SBFLAGS) LO --> SEEK BUSY FLAGS 
j 184C 0440C1 0140C1 5348 LINC LlslOel LOAD SEEK BUSY FLAGS & 
- DATE 15AUG75  O6NOV7S PROG ID FAO-1 
827648 PaGE 384 
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FAOL 3340 DISK MICROCODE MoD 12 PART NO. 4247623 FAO] 3340 DISK MICROCODE #00 12, : PaRT NOW 4247623 
PAGE 39 "ie f PAGE 39A 
LOC. OBJECT CODE STM SOURCE STATEMENT © toc. oBsect coe STM SOURCE STATEMENT 
3B40 27C0C2 1F40C2 5349 _ LDEC L2eL0,1 TIMER IN L1 & L2 ~ 1€06 201818 101816 5419 TWRGT256 B TSKINVSK GO SET uP CMD REJECT 
184E 08033F 0C833F 5350 MV L3,S8C MOVE SbO TO WORK REG \ 4CO7 2016EE 101BEE 5420 BU TWRSETHD SET HEAD 
184F 2CO30F 10C30F 535) TANOL 13,X*OF® CHECK FOR ANY SEEK BUSY'S 1C08 200780 100780 5422 BU TEFSETRW SET READ/WRITE TAG 
1850 225863 191863 5352 8Z TSNNOSB GO IF NONE y 109 001E80 001£80 5422 8U TWRCHCNT SET UP CHANNEL COUNT 
1851 2E43FOQ 19C3FO 5353 oR! L3,X*FO? SET TIMEK KITS IN WORK REG ' 43COA O5SCDOC O074D0C 5423 TBON 7,RBYT,#+2 GO IF WRITE REPEAT KEY-DATA CMD 
1B52 2F0143 1C€C143 5354 AND L1,L3 AND FLAGS WITH SEEK. BUSY BITS 1C0B 2€0803 18C803 5424 ANDI £8,X*03! MASK CONTROL 6YTE FOR WRITE KEY-DATA 
1853 OCO10F OOC1OF 5355 TANDI L1,X*OF® CHECK FOR SEEK BUSY*S STILL ON y 1C0C 080208 0C8208 5425 - MV L218 SAVE CONTROL BYTE FOR CHNL CNTR CHK 
1854 225665 191865 5356 BZ TSNNTSAN GO IF NONE \ - 1C0D 001005 001005 5426 BU TWREOODF FETCH DDDF FROM CHANNEL 
1B55 O€C110 08C110 5357 ADDI 112X*10° BUMP 1COE 27COl1 1F4011 5427 TBOFF 7ROYT, TWRWSRW GO IF WRITE KEY-DATA COMMAND 
1856 0F4210 ODC210 5358 ADDC L2,ZER _ TIMER »  1COF Ca086A O8886A 5428 LBI L8,O( TWRIWRAL? RETURN DISPLACEMENT FOR SUBROUTINE 
1857 029868 0A1B868 5359 BNC TSNRSTOR GO IF NOT TIMEOUT 1610 201E5C 103ESC 5429 B TWRCHEDR GO CHECK AND RESTORE DODR 
1858 2684101 108101 $360 MVX Li,eil FORM BSOA FOR DRIVE WITH SEEK BUSY 1011 5430 TWRITWRB1 EQU * 
1859 2A00FF 1880FF $361 LB1 LO, FF INIT DRV AUDR TO ZERO - 1C11 201404 101404 5431 TWRWSRW BU TRORWEND WAIT FOR END OF SET READ/WRITE 
165A OBO801l OC8801 5362 MV L811 COFY &SDa ‘ - 4012 0E5220 =—09D220 ©5432 URI CEBZ WRITE WRITE MARK 
1856 2ECOO1 18C001 5363 ADDI 10,1 INCR DRIVE AGDR 1013 2€5103 190103 5433 ORI CEBl»PROCKEY*PROCDAT &RITE KEY aND DATA 
185C 2F0808 1CC808 5364 ADD 18,18 SHIFT BSDA - 1014 064920 09C920 5434 ORI GEN1,FIXOOCF RESTORE DOCF MARK FOR END PROCEDURE 
1B5D 029858 OA185B 5365 BNC *=-2 LOOP TILL CARRY ; 1015 28D2CE 1392CE 5435 SZI - ZLSFDsZLSwFILE SET ZLS FOR FILE WRITE FROM DODF 
1B5E OOLIF& OO11FB 5366 DU TEPSLECT GO SELECT ORIVE THAT TIMED OUT 1616 0E5360 090360 5436 ori MSC1 »MUTRK+MUREC MULTI-TRACK AND MULT I-RECORD 
1B5F OAOB8L 088881 5367  *-BI STAT.X*81° POST ERROR RETURN & SEEK COMPLETE ~ C17 2€5244 190244 5437 ORI CEB2,ENDCNT+SRCH SEARCH, ORIENT TO END OF COUNT FIELD 
1860 2A081C 18881C 5368 LBI L8,xX"1C# POST NO INTERRUPT FROM DRIVE : 1C18 201444 101444 5438 B TRDG3AM GO SET UP TO FINO A COUNT FIELD 
1661 0A0703 088703 5369 Lol L17,X*038 POST EQUIPMENT CHECK 54359 ESSESEEREEESESERESEKESES SEEKERS RERSSEREERASSERSESEEKERESKEKASGE TEESE HEEEEEEESESE 
1862 20124E 10124E 5370 a TIPUCW GO SAVE UCWPTR, LOAD PA & POST ERROR 5440 * ENTRY FOR WRITE HA AND RO EVEN/ODD, WRITE CKD AND WwRITE RO COD 
1863 OAOLOO 068100 5371 TSNNOSB LBI 11,0 CLEAR FLAGS & C 544] EKSECKKEEERESESECERESEREESKERESESSESSESECERSERSS EAE SSESHESERSESSREKEREKSESSEESE 
1864 001b67 001867 5372 b ¥+3 TIMER 5442 * 
1B65 O€030F O8C30F 5373 TSNNTSAM ANDL L3¢X*OF® MASK OFF TIMER BITS 1019 5443 TWRHAROE =£QU* COMMON ENTRY POINT FOR WRITE HA 
1866 280103 108103 5374 MV Li,t3 SET FLAGS & ; 1C19 OA0821 088821 5444 TWRHAROO LBI L8,D(SVPOPT) FETCH DISP OF SVP UPTION BYTE IN CS 
1B67 OA0ZV0 088200 5375 _ Lot L2s0 CLEAR TIMER 1C1A 0408C8  0048CB 5445 LINC L8,L8,0 FETCH THE SvP OPTION BYTE 
1868 244081 114081 5376 TSNRSTOR SINC 1£15L0¢1 RETURN FLAGS & 1C18 250825 144825 5446 TIbBON ALWRTHA,sL8,TWRSVPOP GO If SVP OPTION SET TO ALLOW WRT HA 
1869 O7CO82 OF4082 527 SDEC L2sL0el TIMER TO CONTROL STORE IC1C 250020 144020 5447 TBON 4sRBYT, THRODDH GO IF CMD IS WRITE HA ODD 
156A OF90D0 OEDODO 5378 EGRU ZERsZER RETURN TO IDLE 1C1D0 O7CF21L OF4F21 5448 THOFF 7,PAH,TWRCHKFL CMO 1S EVEN, GO If PAH IS EVEN 
5379 * 1C1E 2a0802 188802 5449 TWRLE&O2 Lol L&,X*02° FORMAT 0, MESZAGE ¢ 
166B 240003 188003 5380 TSNWIN3 LBI LO, D(DDCFORGL 43) DISPLACEMENT OF CLO ; 1C1F 0011046 001104 5450 8 TIOL700 COMMAND REJECT, INVALID SEQUENCE 
186C 0A0182 088182 5381 Lol L1.eD(0DCFORGR+2) DISPLACEMENT OF CHI 1C20 O7CF1E OF4FIE 5451 TWRODDH TBOFF 7,PAH,TWRLBO2 CMD IS ODD, GO IF PAH IS EVEN 
1Bb6D 26185C 10185C 5382 . 8 TSKWIN3 |. GO CONVERT ADDRESS -  1C21 2C15&0 10D5€0 5452 TWRCHKFL TANDI FLAG,X*EO® TEST FOR ALLOW WRITE HA OVERRIDE 
5383 END COPY-MEMBER FSN12 1C22 005C2C 011C2C 5453 BNZ TWRWHAOK GO IF any BIT IS ON 
5384 copy THRI2 | 1023 O7121E  OC521E 5454 TIBOF WHACK,CEB2,TWRL802 GO IF CMD NOT PRECEDED BY READ HA 
53495 £994 0854454559 F $64 5ESSEEESEESESESTSEESESSEESS i 1024 201C2C 101C2C 5455 8 TwWRWHAOK CONTINUE 
5386 *® SUBROUTINE TO SET EVEN OR GOD HEAD '. 1025 2A081A 18881A 5456 TWRSVPOP LBI L8,.0(SOFORHA) FETCH DISP OF SOFORHA IN C STORE 
5387 8080008854848 84$6 8858S S4 S4SSSRESESSESEESS 1026 044890 014890 5457 SINC ZERsLBel FORCE SD BYTES 
5388 * 1C27 240890 104890 5458 SINC ZER,LEB,0 TO ZERO 
1B6E OCD9E7 03D9E7 5389 TWRSETHD TADDI REC.231 TEST FOR RECORD 25 ; 1C28 05002B 044028 5459 TBON 4 RBYT,TWRROO GO IF ODD HEAD REQUIRED 
LB6F 209673 121873 5390 BCY  TWROODKO GO IF 25 OR GREATER 1C29 2018F0 1018FO 5460 BU TWREVNHD SET EVEN HEAD 
167C 2:0FFE 1L8CFFE 5391 TWREVNHD ANDI PAH,X*FE® SET EVEN HEaD 1C2A 201C2C 101C2C 5461 t *42 GO TO TWRWHAOK 
1871 2E16FE 18D8FE 5392 ANDI HEADsX*FE* SET EVEN HEAD . 1C2B 201BF3 101BF3 5462 TWRROU 6U TWRODDHO SET ODD HEAD 
1872 001675 001675 5393 B TWRHDSET CONT INUE 1C2C 2A0084 188084 5463 TWRwWHAOK LBI LO, O( DDCFORGR*) DISPLACEMENT OF R IN ODCF 
1873 OE4F0O1L O9CFOl 5394 TWRODDHD ORI PAH,X*O1* SET OOD HEaD : 1C2D 248090 124090 5464 SINC ZEReLOe2 SET R TO ZERO FOR THIS CUNMaND 
1874 0€5801 090801 5395 OR1 HEAD,X*01* SET ODD HEAD «YC 2E 040090 004090 5465 SINC ZER ek 0,0 SET N TO ZERO FOR THIS CUMMAND 
1875 O0A000% 088004 5396 TWRHOSET LBI L0,0(DD0CFORGL 44) HEAD ADDRESS In DDCFE 1C2F 0A1900 089900 5466 LB! REC.0 SET R TO ZERU IN 2LS TOO 
1876 2400C2 1040C2 5397 LINC L25L050 FETCH HEAD woYTE + 1€30 0A1COO 089C00 5467 tbl NREC,0 SET N IN DLS TO ZERO TOO 
1877 2€4201 19C€201 5398 ORI L2,x*Ol° FORCE IT ODD ‘ 1C31 249135 125135 5468 TWRCKO TIBON WRENABLE,CEBleTWRWROK GO IF WRITE IS UK 
1878 O5087A O7587A 5399 TBON 7sHEAD, #42 GO IF ODD HEAD 1C32 OAO0800 088800 5469 TWRLSOO LBI L8,X*O0* FORMAT 0, MESSAGE OU 
1879 OEO2FE U8C2FE 5400 ANDI L2,X*FE® FORCE IT EVEN ~  1C€33 240780 188780 5470 TWRL780 LBI L7.X*80* COMMAND REJECT, 
1B7A 040082 004082 5401 SINC «L2eL0s0- -STORE -IT BACK a bo Ge \% 1024 201°,08 101908 5471 8 TSNNORP WRITE INHIBITED 
1878 2B100F 1C900F 5402 MY ZER » PAH MOVE PAH TO wORK REG 1C35 059406 065406 5472 TWRWRUK TIBON KDGT256~,MSC2,TWRGT256 GO IF (KL4DL) IS > 256 
1B7C OE1OLF O8D01F 5493 ANDI ZER,X*1F® SAVE HEAD bITS - 1036 O€F15€3 O805E3 5473 ANDI FLAG,X‘'E3* ZERO UNWANTED bITS 
187D OA26EB O8A6EB 5404 LBI FTOsX*EB® SET HAR TAG TG FTO C 1C37 260610 1C€8610 5474 av L6eZER N IS ZERO FOR FOLLOWING SUBROUTINE 
IB7E 282E10 1CAE10 5405 Mv FBO.ZER HEAD TO BUS GUT 1C38 200780 100780 5475 BU TEFSETRW SET READ/WRITE TAG 
187F 001503 001503 5406 6 TROSoTIM GO RAISE TAG GaTE aNOD RETURN . ~ 1€39 OOLE8GO OO1E8O 5476 Bu TwRCHCNT SET THE CHANNEL COUNTER 
5407 MBLOK C 1C3A 060208 0C8208 5477 MV L2eL8 SAVE CONTROL BYTE FOR CHAN CNTR CHK 
1c00 5408+ DS <0>8 1C3B8 001D05 001005 5478 BU THUREDDDF FETCH DDDF FRUM CHANNEL 
5409 SOSRSRESE RS ERERERESSENETOSSEESSERSE REESE SEEEESEEREEOESES . 1€3C 2A0868 18886B 5479 LBI L8,D( THRIWRA2) LOAD DISPLACEMENT FOR SUBR RETURN 
5410 © ENTRY FOR WRITE KEY-DATA, WRITE REPEAT KEY-DATA G 1C30 201E€5C 101E€5C 5480 8 TWRCHEDR GO CHECK AND RESTORE ODOR 
a S411 C8OSESSEESEESESEED EEE ETEES TERE SESSESEEEES EERE SEREERES SE 1C3E 200280 100286 5481 THWRTWRB2 BU TOSOCON SET CONSTANTS FOR SO ANALYSIS 
ie 24, S 5412 * ~ 1C3F 201404 101404 5482 BU TRORWEND WAIT FOR ENG OF SET READ/WRITE 
1CoO 28061C 1€0861C 5413 TWRKOD MV L6,NREC SET NUMBER OF RECORDS FOR CHAN FETCH e 1C40 0£5220 090220 5483 OR! CE62 WRITE WRITE OP MARK 
1CO1 0£4940 0906940 5414 ORI = GENIs FINCHXFR FINISH CHANNEL TRANSFER MARK 1041 Z8D2CE 1392CE 5484 © SZ! ZLSFO,ZLSWFILE SET ZLS TO WRITE FILE FROM ODOF 
1502 201C04 101C04 5415 8 *+2 CONT INVE r .1C42 05C053 074053 5485 TBON 7,RBYT, TWRHARO GO IF wRITE HA 
1C03 280610 1C8610 5416 TWRRKD MV L6,ZER SET N=Q FOR CHANNEL FETCH Cs 1043 254053 154053 5486 TBON 5,RBYT,THRHARCG OR IF WRITE RO COD 
1C04 269132 1A5132 5417 TIBOF WRENABLE»CEBleTWRLEOO GO IF WRITE NOT PERMITTED 5487 © WRITE COUNT-KEY-DATA 
1COS 079407 0Of5407 5418 TIGOF KDGTZ56,HSC2,¢¢42 GO IF (KL4DL) NOT > 256 C 1044 2E5147 190147 5488 ORE =CEBLeFMTWREPROCKEY*+PROCOAT+PROCNT SET XEQION MARKS 
DaTE 15aUG75 O6NOV75 PROG ID nae DATE 15aUG7T5 O6NOVT5 PROG ID FAO-1 
EC NOw 8627765 827648 - PAGE G EC NO. 827765 827848 PAGE 39A 
Cc. 








FAO] 3340 DISK MICROCODE ----— MOD 12 PaRT NOW 4247623 
PAGE 40 c 
Loc. OBsECT CODE STM SOURCE STATEMENT C 
1C45 0€4920 09C920 5489 ORI GEN1,F I XDDCF RESTORE DOCF MARK FOR END PROCEDURE Z 
1046 260951 165951 5490 TBOFF 3,REC,TWRCKORO GO IF RECORD ZERO ‘ 
1047 2E5320 190320 5491 ORI MSC1 ,MUREC MULTIPLE RECORD, NOY MULTI-TRACK 
1048 0&5240 090240 5492 ORI CEb2,~.SRCH SET SEARCH MARK a 
1C49 2ED9FF 1BD9FF 5493 ADDI REC,FF DECREMENT RECORD RUMBER x 
1C4A OE£6D01 C9EDOL 5496 TwRROGI ORI FIR, ALLOWIOX TURN ON ALLOW INGEX 
1C48B 0003E0 Q003EO0 5495 Bu TOXWADE X WAIT FOR INDEX ; 
1C4C OA2684 O8A684 5496 LBI FTOeROSTATUS READ MODULE STATUS 
1C4D 001564 001584 5497 BU TRONOFBI 
1C4E 25€250 176250 5498 TOON TeFol.*42 GO IF ACTIVE TRACK 
1C4F OOO3SECG ©003E0 5499 BU TOXWADEX WAIT FOR INDEX 
1C50 201448 10144B 5500 68 TRORDGi CONTINUE 
iC51 Z2ESLOC 1AD10C 550% TWRCKDRO EORI CEB1»PROCRO+PROCNT PROCESS RO COUNT FIELD MARK 
1C52 201448 101448 5502 TWRGIOP 8 TRORODG CONTINUE 
5503 * WRITE HA & RO OR WRITE RO ODD 
1053 2€5146 190148 5504 TWRHARO OR? CEb1 »FMTWRePROTRO* PROC KEY+PROCDAT SET MARKS FOR OPS 
1€54 07CD52 OF4052 5505 TBOFF 7-eRBYT,. TWRG1OP GO IF NOT WRITE HA 
5506 # WRITE HA CONTIAQUES HERE 
1€55 oOA00LA O8801A 5507 TRRHA tsi LO,D(SCFORHA) DISPLACEMENT OF STURED SOD SYTES 
1056 24400D 11400D $508 LINC SDHeLOsl] FETCH SOH 
1C57 O400DE 0040DE 5509 LINC S$OL,LO,0 FETCH SCL 
5510 & FLAG BYTE PROCESSING i # 
1€58 OB1F15 OC9FIS 5511 MV FFLG,e FLAG FETCH S/3 FLAG AS A STARTER ‘. 
1C59 2E1F03 180F03 5512 ANDI FFLG,X*03°* TURN OFF ALL BUT ALT TRK & FLG BITS 
ICSA 26155E 18555E 5513 TBOFF OsF LAG, TWRNMHA GO IF NOT MOVE HA 
1C586 2A1D00 189000 5514 Lol SOHO SET 
1C5C OALEwE O&89E6E 5515 Lel $0L,110 SKIP DOISP 
1050 001C65 001C65 5516 8 TWRNMANY ANO WRITE HA DISPLACED 
ICSE 065562 095562 5517 TRRNMHA TbOFF LeFLaGse THRNMRO GO IF NOT MOVE RO 
1C5F 2A1000 189006 5518 LBI £.OH,O SET 
1C60 GALECS O8S9EC& 5519 Lbl SBL, 200 SKIP DISPLACEMENT 
1061 001C65 001C65 5520 6 TWRNMANY AND GU WRITE HA 
1CE2 269565 145565 5521 TWRNHRO TBCFF 29FLAG, TWRNMANY GO IF NOT MOVE RO DATA FIELD 
1€63 OALCOL Os9D0l 5522 Lal SDHel SKIP DISP 
1064 2A1€10 i89EiD 5523 Lol SDL .29 1S 285 FOR MOVE RO DATA FELD cs 
1C65 2A0000 188000 552% TWRNMANY L6I L0,.D(DDCFORGL) DISPLACEMENT OF SOh 
1C€66 2A0180 188180 5525 LB! 11,0(0DCFORGR) DISPLACEMENT UF SOL f 
1C67 04409D 01409D §525. SINC SDH,»tOst STORE DISPLACEMENT : 
1C68 24419 11419t 5527 SINC SOLetLiel VALUES 
1C69 24408E 11408E 5528 SINC PAC,L001 STORE PA 
1C6a O7CLBFE OF418F 5529 SDEC PAHsLI,1 ValLUES 
1C6B OA2E49 OBAES9 §530 tgl FBO, FMTG149 SET FBO FOR WRITE Gl 
1C6C CUSDSE OSDDSE 5531 TOR SDH, SOL TEST SO FOR ZERO 
1C6D 225C79 191C79 5532 o2z TWRSTFLG GO STORE FLAG IF IT IS 
ICGE CAOZFF OSB2FF 5533 LBI La,FF INIT t2 TO -} 
1C6F 2CDE4D 139E40 5536 TADDI SOLe77 CHECK TO SEE IF 
1C7G 005002 050002 5535 TaDOC SOH,L2 0<S0<179 
1C71 .209C74 1z1C74& 5536 BCY ¥43 GG IF IT IS NOT 
iC?2 2A2EC9 18AEC9 5537 L681 FBO, SPFMTG1L+¢9 SET FBO TO WRITE MOVED HA 
1073 201C79 10iC79 5538 b TWRSTFLG GO STORE FLAG BYTE ~ 
1C74 OAQ3EFE O883FE 5539 Lel L3,X*FE® SET CONSTANT TO 13 TO CHECK ROC 
1075 2CDEFO 132DEF9 $540 TADDI SOL,X*F9® CHECK TG SEE IF z 
1C76 205003 150003 5542 TADOC SDH,L3 $05262 : 
1c77 OO9C79 O21C79 $542 ecy TWRSTFLG GO IF IT 1S NOT 
1€78 2ESF 80 190F80 5543 ORI FFLGeX* 805 SET BIT FOR COUNT FIELD DEFECT ( 
1C79 27809F LE409F 5544 TWRSTFLG SDEC FFLGsLOe2 STORE FL&G Men, 
1C7TA 200708 188708 5545 LbI L7s8 FILE COUNT 
1C7B 0O£5110 090110 5546 ORI CEBL,PADTOIOX SET PADDING MARK 
1C7C 26D1CE 1391CE 5547. SZI ZLSFC pZUSWFILE SET ZLS TO WRITE FILE FROM OOCF C. 
1C70 OA260F O8a60F 5548 L6I FTG.sHRITEOP WRITE YAG TO FTO 
aC7TE 20144E 10144E 5549 8 TROENTRY FINISH SET UP AND GO TO ISSUE WR G1 n 
5550 MBLOK © 
ICTF 201C7F 1OLC7F 55514 b. * UNUSED sssssssssss 
1000 §552+¢ . DS <0>8 =, 
5553 SOeSSESEESEEEEEE EE SESEEESEEESES £ECESEEERSSEESSEESS c 
5554 &® THIS ROUTINE WRITES RO/RN COUNT FIELO 
5555 SERSESCSESEEEES EE EESESESEREESESEEESSSEESEERESEECESE ¢ 
5556 * “ee. 
1000 OE£:1F3 0601F3 5557 TWRCOUNT ANDI CEB1,FF-PROCRO-PROCNT TURN OFF CMD XEG MARKS 
1001 OE2F40 GEL FSO 5558 AwDI SCN»eX*40* RESET FILE DATA XFER CONTRULS C: 
DATE 15AUG75 O6NOV75 PROG ID Fa0-1 
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LOC. 


1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1D0A 
1068 
1D0C 
1D0D 
100E 
1D0F 
1010 
1011 
1012 
a913 
1014 
1015 


1016 
1017 
1018 
1019 
LOLA 
i016 
1D1iC 
1010 
1O1E 


1D1F 
102¢ 
1021 
1022 
1023 
1024 
1025 
1026 
1D27 
1028 
1D29 
1D2A 
1028 
102C 
1020 
102E 
1D2F 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
103A 
1038 
103C 
1030 
1D3€ 


DATE 
EC NO. 
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OBJECT CODE STM 
241216 105216 5559 
O61F05  085FOS 5560 
COOLEB O0O1EB 5562 
OELFLE  O8DFIF 5562 
000380 000380 5563 
OA260F  O8A60F 5566 
OA2ZE50 O8AE5D 5565 
050208 075208 5566 
OAZ2E6D O8AE6D 5567 
279300 1€5300 5568 
2a2E7TD L8AETO 5569 
28DLCE 1391CE 5570 
0E5110 090110 5572 
088520 028520 5572 
288720 128720 5573 
08A600 024600 5574 
OAC70C O8870C 5575 
2E0201 180201 5576 
2A04FE 1884FE 5577 
00070C 00070C 5578 

5579 

5580 

5581 

5582 
061F18 O085F18 5583 
0001E8 O001E8 5584 
OELFIF O8DFIF 5585 
000380 000380 5586 
2A2E1D 18AELD 5587 
25D21D 175210 5588 
2A2E2D 18AE2D 5589 
2E6FO1 19EFO1 5590 
201D12 101012 5591 

5592 

5593 

5594 

5595 
2E11FO 18D1FD 5596 
2E2FFO 18EFFO 5597 
2EL2F8 18D2F8 5598 
0£5202 090202 5599 
088540 028540 5600 
288740 128740 5601 
26CD2C 184D2C 5602 
O8AA00 O02AA00 5603 
2EO9FE 18C9FE 5604 
26942F 1A542F $605 
0£4901  09C901 5606 
2E6F04  19EFO4% 5607 
001D2F 001D2F 5608 
O7C9Z2E OF49ZE 5609 
2E6F04  19€F04 5610 
0E730%4  09F304 5611 
2802CE 1392CE 5612 
O6DA3F  OB5A3F 5613 
OBO71A OCB7T1LA 5614 
265F35 195F35 5615 
04DE50 035650 5616 
OOOLEB OO00LEB 5617 
00620 088620 5618 
OA26CF O8A60F 5612 
2B2E07 1CAEO? 5620 
OEZEOQF O8EEOF 5621 
2F6E%6 LDEES6 5622 
266580 196580 5623 
070730 OF4730 5624 
OE8901  OAC901 5625 
2EC7FF 1BCTFF $626 
201014 101014 5627 

5628 

15AUG75 O6NOVT75 
827765 827848 


PART NO} 4247623 
PAGE 40h 
SJURCE STATEMENT 
TIGON READ,CEB2,TWRSPCNET GO SPACE CNT IF RD CKD O1AG CMD 
TIVOF DEFCNT» FFLG, &42 GO IF COUNT n8T MOVED 
BU TOSWRGS GO WRITE Ge GAP 
ANDI FFLGeX* LE ® MASK OFF DEFECT MAKKS IN FLAG 
BU FOSSTART GO 00 DEF ANALYSIS ANO SET UP COUNT 
LBI FTO, ARI TEOP "SET WRITE GP 
: Loi F40,FMTG34+13 SET WRITE G3 WITH LENGTH OF 13 
TBON TeCEb2, tt+2 GO IF AFTER OATA FIELO 
LBI FBO, FMTG2+413 SET WRITE RO 
TIBOF ERASE MSC #42 GO IF ERASE MARK OFF 
LBI FBO, FMATERASE413 SET FMT ERASE 
$ZI ZLSFC eZLSWFILE SET ZLS TO LOAD 
oR] CEBL»PADTOIDX TURN ON PaDDING BIT 
TWRCOM] SABI INOEXF1, IDXDODCF - SET INDEX TO POINT TO OOCF 
SABI INDEXF2, IOXOOCF se 
SADI ODESPFC,D(DDCFORG) SET CS DISPLACEMENT TO DOCF 
TWRCOM2 LBI L7ei2 LOAD FILE BYTE COUNTER 
ADDI CEB2s1 UPDATE TRK ORIENT TO END OF ROC/CNT 
TWRL2ZOUS LBI L4e-2 LOAD 124 USEC TIMER 
8 TEFWAIT GO WALT FOR OP COMPLETE 
SEKKSESEEKESSELSKERERESEEESERSESESSSS EES SESS STEED 
® THIS ROUTINE SPACES RO/RN COUNT FIELO 
SESKEKSESCRETESSESEKERESSESSESERES SE ESSESAEKOESERSE STESE 
* 
TWRSPCNT SIBOF OCEFCNT, FFLG,*+2 GO IF COUNT NST MOVED 
oU TOS ROG4 GO READ G4 GAP 
ANDI FFLGeX*lF® MASK OFF DESECT MARKS IN FLAG 
BU TOSSTART GO OG DEF ANALYSIS AND SET UP COUNT 
L6I FBO,CLKG3+13 SET CLOCK REGULAR COUNT 
TBOGN 7,CEB2,%42 - GO IF AFTER DATA FIELD 
LBI FBO,CLKG2413 SET CLOCK RC CNT 
ORI SCN »NFILEXFR SET INHIBIT DATA XFER 
6 TWRCGM2 MERGE TO SET UP FCT 
EECEKESEKEKSEESEESE EEREEKRERESSESEESOEEESEESBECER 
* THIS ROUTINE WRITES KEY FIELD 
SESESESEEEASEEESESETCERLEERES ESE HESS ECERESESERE 
* 
TWRKEY ANDI CEo1,FF-PRUCKEY TURN OFF PROCESS KEY MaRK 
ANDO] SCN,X*FO® TURN OFF FILE DATA XFER CONTROLS 
ANDI CEB2eX*FS* UPDATE TRACK ORIENT 
ORI CEB2,ENDKEY TO END OF KEY FIELD 
SABI INDEXF1, IDXOODF SET PGM POINTER TO DDDF 
SABI INDEXF2, IOXDDDF es 
ToOFF 3,RoYT, TWRKDCHD GO If wRITE K-D COMMaND 
SADI OISPFD,D(DODFORG) SET CS DISPLACEMENT 
ANDI GEN1,FF-ODDXFER RESET FILE ODD SwITCH 
TIBOF DDDRODD »MSC2,TWRMRG1 GO IF NOT UDD ADDR BOUNDARY 
ORI GEN] sSODDXFER TURN ON FILE SOD XFER SWITCH 
URI SCN,FILEODD SEF FELE ODD XFER 
B TWRMRGI . 
TWRKOCMD TBOFF 7,GEN1, *+2 GO IF NOT ODD ADOR BOUNDARY 
ORI SCN»FILEQDD SET FILE GOD XFER 
¥ ORI DXC sALOWFILE SET ALLGw DIFF. COUNTER FILE 
TWRMRG1] SZI ZLSFD,ZLSWFILE SE¥ 28S TO LOAD 
TBOFF 3,KCNT,THRDATA GO FO WRITE DATA IF KCNT = O 
MV L7,.KCNT COPY KCAT 
TIDOF DEFKEY, FFLG, +3 GO EFF NO DEFECT IN KEY 
TWRCHKSP TBON 3,+SDL,TWRSPKDO GO IF FIELD IS SPLIT 
BU TOSWRGS GO WRITE G 
TWRNOCEF LOI LoeWKG2 SET UP WRITE MODIFIER 
TWRMRG2 LBI FTO,WRITEOP SEF BRITE OP 
TRRRKCOM MV FBO,L7 LOAD MODULO 16 COUNT 
ANOI F#O,.X*OF® t@ FILE BUS UUT 
GOR FBOrL6 . SET TAG MODIFIER 
ORI FIG, TAGATE TURN Ga TAG GATE 
TOOFF 7,547,842 GG EF FIELO LENGTH IS EVEN 
EORI GENIel FLIP Fite OOO xFER SWITCH 
TWRLOFCT ADDE LT7e-l DECR FIELD LENGTH 
o TWR1I2ZOUS GG &tGaD TIFKER AND WAIT FOR EOF 
ESSSCEKEKTESESSESSERSEE SORES SESEESESESS SELES SESS 
PROG 1D FA0-1 
PaGE 404 











FAOL 3340 DISK MICROCODE MOD 12 PART NOw} 4247623 
PaGE 41 | 
LOC. OBJECT CODE STM SOURCE STATEMENT 
5629 * THIS ROUTINE WRITES DATA FIELO 
5630 8888862494440 8944450S44SE8ESSSSSES$ESESESEDD 
5631 * 
1D03F 2E11FE 18DIFE 5632 TWRDATA ANDI CEB1.FF-PROCDAT TURN OFF PROCESS DATA MARK 
1040 2E5203 190203 5633 ORI CEB2,ENDDAT SET TRK ORIENT TO END OF DaTa 
1041 271449 105449 5634 TIBOF DLO sMSC2,TWROLNTO GO IF DATA LENGTH NOT ZERO 
1042 245144 115144 5635 TIBON FMTWReCEBlL>sTWRZER GO IF FORMAT WRITE 
1043 201562 101562 5636 6 TRDSPDLO GO SPACE OVER DATA FIELD 
1044 088520 028520 5637 TWRZER SABI INCEXF1s IOXOOCF CHANGE PGM POINTER TO DOCF 
1045 238720 128720 5638 SABI INDEXF2,+IDXOOCF ea 
1046 28A463B 8 12A63B 5639 SaDI DISPFC,DICSZEROL) DOISP POINTS TO A BYTE GF ZERO 
1047 2A0701 188701 5640 L6I 471 FORCE LENGTH TU 1 
1048 OO1D4A OOLD4A 5641 8 ¥+2 SKIP 
1049 280718 1€8718 5642 TWRDLNTO MV L7,DCNT COPY DATA LENGTH 
104A 27C94C 1F494C 5643 TBOFS 75GEN1, #42 GO IF NOT ODD ADDR BOUNDARY 
1D4B 2E6F04 19EFO4S 5644 ORI SCn,FILEGDD TURN ON FILE ODD XFER 
1D4C 269F35 1A5F35 5645 TIBOF DEFDAT,FFLG,TWRNODEF GO IF NO DEFECT IN DATa 
1040 260033 185033 5646 TBOFF 35SDtHsTWRCHKSP GO If DEFECT IN NEXT OATA FLD -<CO>- 
1D04E OEDOFF ObDDFF 5647 ADDI SOH,-1 DECREMENT SO HIGH -~<CD>- 
104F 201035 101035 5648 8 TWRNODEF WO DEFECT IN NEXT FIELD ~<CD>- 
5669 868868898808 S 58 EKEEEEESEEEREEAESSOESESEESSSESEESESE RED 
5650 * THIS ROUTINE WRITES THE FIRST SEGMENT OF 
5651 * A SPLIT KEY/DATA FIELD 
5652 88SKS8SSSE4554E7ESEEEESEEESEEEESSESESESSSSOEEESEESSEEES 
5653 * 
1050 OA260F O8a60F 5654 TWRSPKD (tsI FTO,WRITEOP SET WRITE OP 
1981 OAQ6EO O886EO 5655 BI L6,SPFMTG2 SET SPECIAL FMT G2 TAG MODIFIER 
1052 2BO71E IC87T1E 5656 TWRSPFLO MY L7,SDL COPY FIRST SEGMENT LENGTH 
1053 0€5204 090204 5657 ORT CEbB2,x*04* UPDATE TRACK ORIENTATION 
1054 001037 OO1D37 5658 8 TWRRWCOM GO TO RAISE TAG GATE 
5659 * 
5660 866846899064 08 FE F4EESESEEEESESESEESSESEEESEESEESEES 
5661 & SUBROUTINE TO FETCH ODDF FROM CHANNEL 
5662 SOSE 69659049504 44549ESEEKEEEEESEDEEEESEEEESSSESSESE 
5663 *& RULES FOR USING THIS SUSROUTINE = 
5664 © 1. IF ZERO BYTES ARE TO BE TRANSFERRED, SET L8 °02°S 
5665 IF A SINGLE BYTE IS TO BE TRANSFERRED, SET L8=*02°5 
5666 ® IF 2-255 BYTES ARE TO BE TRANSFERREDs SET L8=*00°s 
5667 © IF 256 BYTES ARE TO BE TRANSFERRED, SET L8=*04°. 
5668 © IF EXTENDED CHANNEL OPC(WRITE KO), MASK L8 with X*03*. 
5669 * Ze «SET CCH CCL=(N¢1)(CKLADL—-2). 
5670 # 
1055 O5C87E O7487E 5671 TWRFOODF TBON 718, TWRGOTOF GO IF NC DATA TRANSFER INDICATEO 
1056 089686 O29E86 5672 SABI. BLOCKCHs 3 (DDDFIURG+X°B000*) SET BLOCK TQ DDDF oUFFER 
1057 28BE7F 128E7F 5673 SAOI DISPCH,D(DDOFGRG+127) SET DISPLACEMENT 2 BYTES AHEAD 
1658 0A3310 088310 5674 LB! DXC »L SRSELOR RESET OxC TO SET UP FOR CHAw FETCH 
1059 2807556 139750 5675 Sal ZLSCH »ZL SFCHAN SET ZLS TG STORE TO CS FROM C2 
105A 07885C O&485C 5676 TBGOFF 6,18,4%42 GO It NOT 1 BYTE TRANSFER 
1958 O£F7301  O09F391 5677 ORI DXC eCHNLIBYT SET CHANNEL 1 BYTE TRANSFER GIT 
105C 269462 1a5462 5678 TIBOF CDODRUDD »4SC2,TWRCHNOW GO IF DDDROOD Is OFF 
1050 0€7340 O9F340 5679 ORI OXC ,CHANGDD SET CHANNEL ODD TRANSFER BIT 
LDSE 274862 104862 5680 TBUFF 59185 TWRCHNOW GO IF NOT 256 BYTE TRANSFER 
1D05F 2€336F 18F38F 5661 ANDI DXC,fF-CHANODD. RESET CHANNEL ODD TRANSFER | 
1060 0F7301 O9F30L 5682 GRE = DXC Crk 1BYT SET FOR 1 BYTE TRANSFER 
1061 0A3100 086100 5683 L681 CCL»X*00° 1 BYTE XFER(AST BYTE OF 256) 
1D62 04497C 01497C 5684 TWRCHNOW TIbON FINCHXFR,GEN] »TWROPEN GO IF THIS IS EXTENDED CHANNEL OP 
1063 0A0739 088739 5685 CBI = =L7yDITIOTWRAL) SET UP RETURN POINTER AléD 
1D64 OOLOLE OOLOLE 5686 8 TIOCHXFR GO TRANSFER ODDF FROM CHANNEL 
1065 06947E OA547E 5687 TWRTICB1 TISOF DUDRGOD »eMSCZ2,TWRGOTDF GO IF DOOR ON EVEN BOUNDARY 
1066 O7487E OD4B87E 5688 TBOFF 5518, TWRGOOTOF GO 1F NOT 256 BYTE TRANSFER 
' 1067 260638 1C8638 5689 MV 16,CG2 SAVE THE FIRST BYTE 
1068 2£33FD 18F3FD 5690 ANDI OXC .FF-SUBTRACT RESET SUBTRACT BIT 
1069 2A3D01 188001 5691 L8I 600,1 LOAD LO OIFFERENCE OF 1 
106A 0&F2340 O8€340 5692 ANOI = OST,CHOUTVAL copy LO CIFF FROM BOO TO CIO 
106B 0A3000 O8s8D00 5693 LB8i = =»00,0 HI DIFFERENCE IS 0 
_ 106C 2E7321 19F321 5694 GRI DOXC gL SRCSR*+CHNLIBYT LSR OP AND CHANNEL 1 BYTE TRANSFER 
1060 242100 18A100 5695 LBI CCH,0 SET CHANNEL 
106E 0A3190 088100 5696 L461 CCL,O COUNTER TO ZERO 
106F 240738 8=188738 5697 CBI = L7,D¢ TIOTWRA3) RETURN BRANCH ADDRESS 
1070 OO1LOLE OOLO1E 5698 8 TIOCHXFR GO 00 CHANNEL TRANSFER t 
= 
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3340 DISK MICROCODE ----- MOD 12 


OBJECT CODE 


STM 
043310 088310 5699 
242100 18a100 5700 
2A31FD l18BiFO 5701 
O8BE0G O2BE00 5702 
0a073a O8873A 5703 
OOLO1E OO1O1E 5704 
089406 029A06 5705 
0a0080 088080 5706 
2400 86 104086 5707 
Q89A05 O29A05 5708 
201D7E 1O1D7E 5709 
0E 7308 U9F308 $710 
2A2310 18A310 5711 
OFS90D0 OEDODO 5712 
5713 
OO01D7F OO1ID7F 5714+ 
57154 
5716 
S717 
5718 
$719 
5720 
5721 
5722 
5723 
5724 
5725 
5726 
5727 
5728 
5729 
0A0200 088200 5730 
070403 0F5403 5731 
2a0201 188201 5732 
060318 0C831B 5733 
258CO7 164COT 5734 
271407 1¢5407 5735 
0A0301 088301 5736 
2B051A 1c8S51A 5737 
2F 0305 1cC305 5738 
OF 4210 00C210 5739 
080503 0C8503 5740 
080402 O0C8402 5741 
O0a08s00 O888CO S742 
26C6l1E l1B461E 5743 
CC 86FF O2C6FF 5744 
205E15 L1I1E15 5745 
07C415 OF4415. 5746 
OA04FF O884FF 5747 
OAOSFE O88S5FE 57468 
2A0808 188808 5749 
201£30 101£30 5750 
249701 188701 5751 
000647 04C647 $752 
O25E1A OSlELA 5753 
2F 0503 1CC503 5754 
OF 4402 ODC402 5755 
2F0303 1€C303 5756 
OF 4202 OD0C202 5757 
2FO707 1CC707 5758 
029E16 OALE16 5759 
24C427 = 134427 5760 
04C522 034522 5761 
z2acsol 188801 5762 
201E30 101E30 5763 
2C8501 12C501 5764 
O00SE2D OlLE2D 5765 
240802 188802 5766 
240500 188500 5767 
201E30 101£30 5768 
15AUG75 O6NOVTS 
827765 827848 


SOURCE STATEMENT 


TuRTIOG3 LBI 
BT 
| 
SADI 
Lol 
B 
SABI 
Lol 
SINC 
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CCL »X*FD* 


OISPCH,D(DODFORG) 
L7 DC TIOTWRA2) 


TIOCHXFR 


BLOCKS «8(DD0FGRG) 


t0,D0( DDDFORGR) 


L6,10,0 


BLOCKB,8(D0CFORG) 


TWRGOTOF 
DXC,ALOWCHAN 
OST »ALWCHXFR 
ZER »ZER 
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SET UP OxXC TO CONTINUE 

SET CHANNEL COUNTER FOR 255 BYTE 
TRANSFER(LAST 255 OF 256) 

SET DISPLACEMENT TO ORG-2 

SET UP RETURN POINTER AND 

GO 00 255 BYTE TRANSFER FROM CHANNEL 

SET BASE BLOCK ADDRESS FOR DDDF 

SET DISPLACEMENT FUR LAST BYTE XFER 

STORE LAST BYTE IN FIRST POSITION 

SET BASE SLOCK BACK TO DDCF 

CONTINUE 

ALLOW OIFFERENCE COUNTER CHANNEL 

INITIATE CHANNEL TRANSFER 

RETURN 
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* SUBROUTINE TO CALCULATE (N*+1)(KL4DL) aNO SET CCH AND CCL 
RESSSSSRES SSS SERA SSEKTSAERES EES EEEESE ERE SESESEERSSEEESEESEERESEESESERED 


* THIS SUBROUTINE DOES THE FOLLOWING: 
* le SETS LB TOs 800" TF 1<¢N¢1) (KL4+0L1<256, 
Es *O1* IF (NL I(KL+0L)=0, 
* "02° IF (N4lLI(KL4+OL}e1, 
s "O04" IF (N41) (KL4¢DL)=256, 
* *O8* IF (N¢1)(KL4+0L)>5256. 
* 2- SETS 14eL5 AND CCH,CCL=(N41 )(KL*DL-2). 
2 NOTE: CALLING PROGRAM MUST PROVIDE N IN L6. 
s OATA LENGTH ZERO 1S COUNTED AS 1 ON READ OPERATIONS. 
s 
TWRCHCNT LBI L2,X*00° INITIALIZE HI COUNT BYTE 
TIBOF OL256,MSC2,%42 GO IF DATA LENGTH < 256 
L6I L2eX*Gl* SET DATA LENGTH 256 
MY L3,0CNT FETCH LOW DATA COUNT 
TBGN 6,QBYT,#+3 GO IF WRITE OP 
TIBOF OLOMSC2,842 GO IF NOT DATA LENGTH ZERO 
L8I L3,1 DATA LENGTH IS ZERO. USE 1 FOR CALC 
“Vv L5,KCNT FETCH KEY COUNT 
Add L3,L5 ADD KEY TO 
ADOC L2,ZER DATA COUNT 
av 15,13 MOVE INITIAL KL4OL 
MV L4sL2 TO ACCUMULATOR REGISTERS 
{81 L6,X*00°* INITIALIZE MARK REGISTER 
TBOFF 3516, TWRMERGE IF NW IS ZEROsSKIP THE MULTIPLICATION 
TEORI L5s255 TEST WN FOR 255 
BNZ TWRWHEW GO IF it IS LESS 
TBOFF 7514, TWRWHEW GO IF KL+DL LESS THAN 256 
iB! L4oX*FFE SET CHANNEL COUNTER 
tB1 L5eX*FES TO 652534(MAXIMUM COUNT) 
L61 L8,X*o08* SET COUNT > 256 
8 TWRTENS AND EXIT 
TWRWHEW LBI L7.xX*01* L?7 IS MASK FOR MULTIPLICATION 
TWRNKLOL TAND L6,L7 MASK NN 
BZ THWRNOADD SKIP MEXT ADDITION IF THIS BIT IS O 
AOD L5eL3 ADO LO BYTE TO ACCUMULATOR 
ADOC L4sl2 aDD HI BYTE TO ACCUMULATOR 
TWRNOAOD ADD i3,13 MULTIPLY THIS KL + OL 
ADOC L2,el2 BY 2 FOR THE NEXT INCREMENT 
aod L7,L7 SHIFT MASK TO INSPECT NEXT N SIT 
ANC THRNKLOL GO IF MULTIPLICATION CONTINUES 
THRMERGE TBON 3eL “4s TWRNZERG GO IF HI COUNT 1S NOT ZERO 
TbON 3,515,443 GO IF &LO COUNT NOT ZERO 
(61 L8,X*Ok* COUNT IS *0000°* 
8 TWRIEN4 GO SET CHANNEL COUNTER € EXIT 
TEORI L5,X*Or* TEST LO COUNT FOR 1 
BN<c TWRAFTER GO IF COUNT JS 2-255 
L681 L8,x*'o2* COUNT IS *0001°* 
L6i L5,X*00* SET LO CHANNEL COUNT BYTE TO ZERO 
8 TWRIENS GO SET CHANNEL COUNTER © EXIT 


cca aca acac acca aaa aaaaaaaaaaaaaaaaaaaa aaa ee enee 





PROG 10 
PaGE 


FAO-1 
41a 





ee ee aera 


} 
i 
hy 
} 


~ 





FAO! 3340 DISK MICROCGDE ----- MOD 12 PART NO. 4241623 FAO] 3340 DISK MICR“SODE MOD 12 PaRT NO. 4247623 
PAGE 42|, | PAGE 4 2A 
LOC. OBJECT CODE STM SOURCE STATEMENT ' LOC. OBJECT CODE STM SGURCE STATEMENT 
vee? oer ones ate9 TWRNZERO eg ee. SUBTRACT : ie cOuNy cor TEST i. 1€5E OAO5SOL 088501 5839 TWRLS1 LBI £5,X*01* SET COUNT FOR 1 BYTE XFER CHECK 
w & GO IF HI COUNT NOT ‘OL? 1ESF OO1E62 OO1E62 5840 8 TWRZOF PROCEEO 
1E29 04C520 0345z2D 5771 TBON 3415, TWRAFTER GO IF COUNT IS > 256 | 1E60 2EC502 160502 5841 TWRZP2 ADDI L5e2 ADD 2 TO CHANNEL COUNT 
1E2A 240804 188804 5772 LBI = LB a X*048 COUNT = 256 ' 1E61 OF4410 ODC410 5842 ADDC 14,ZER TO GET ACTUAL BYTE COUNT FOR CHK 
yene So aace seneos oe tie eels i eae ee oe 2: SET CCH,yCCL AND EXIT | 1E62 OOL1CB OO11CB 5843 TURZDF BU TIORDDOR FETCH CURRENT DDOR VALUE 
® 6 1E63 2O1LEB7 lOLEBT S844 BU THRCHKOR GO CHECK THE CHANNEL COUNTER 
Teor aoeras aoe an Be TWRAFTER eee coe ee ae LO CUUNT BYTE | - 1664 283005 1C5D05 5845 _ «Vv 6000L5 MOVE LOW DIFFERENCE TO CHNL SUFFER 
6 ~ ‘ LE65 0€2340 086340 5846 ANOL OSTeCHOUTVAL XFER BOO TO CIO 
1630 2e2310 10ES10 S778 TWRTENS TANDI DST /ALWCHKER TEST MASK OST | TE86 083004 oceo04 5847 Hy 800sL4 tae ee 
& ’ Ss i LE67 OEF7302 O9F302 5848 ORI OXC, SUBTRACT TURN ON SUBTRACT 
ae tae teiae ous avg ooh ee Shee Ap iccree ae oe Qo 1668 0011CD OCG1LICD 5849 BU TIOUDDDR GO RESTORE DODR TO ORIGINAL VALUE 
a ° 3 rt ; 1E69 2L1E08 141E08 5855 BR B(#) eL8 RETURN BRANCH 
1E33 283105  1€B105 5781 MV CCL LS MOVE ADJUSTED LO COUNT TU CCL 1E6A COICLL 001C11 585) TWRTWRA] B TWRTIWRB1 RETURN TO CALLING ROUTINE 
1E34 OF9000 OEFD0DO 5782 EORU ZER+ZER RETURN 1E6B 201C3E 101C3E 5852 TWRIWRA2 B TWRTWRE2 RETURN TO CALLING ROUTINE 
a : ere EeaNueE GUNTER SUeROLE AME 1E6C 00160A O00160A 5853 TWRISCAL B TSCTWRBL RETURN TO CALLING ROUTINE 
5854 ¢ 
5785 * AT ENTRY, £2 &€ L3 HAVE CURRENT HI/LO VALUES AND 1E6D 2E550% 190504 5855 TWRTWRB3 ORI FLAGeCMPDAT TURN ON COMPRESS DATA FLAG BIT-<CO>- 
zuee € L& AND £5 CONTAIN INCREMENT FROM ORIGINAL DODR/OOCR VALUE LE6E 201404 101404 5856 BU TRORWEND GO WAIT FOR END READ/WRITE -<CD>- 
87 ¢ 1E6F OEF5220 090220 s857 ORI CEB2eWRITE TURN ON WRITE MARK -<CD>- 
ae pevors yea eres TMRCHKCR — eos oropenoeet Ser ue pISUEAGEReNt OF DOCR IN CS 1E70 2802CE 1392CE 5858 S21 ZLSFD»ZLSWFILE SET ZLS TO WRITE TO FILE -<CO>- 
WRCHAN NTINU 1E71 2€5147 190147 5859 ORI CEBLeFMTWR+PROCNT+PROCKEY*PROCDAT SET XEQ MARKS —<CO>- 
1E37 ZA0012 188012 5790 TWRCHKOR LBI LO, 0( D00RORG! SET UP DISPLACEMENT OF ODDR IN CS 1E72 0£4920 090920 5860 ORI GENLsFIXODCF SET END PROCEDURE MARKS -<CO>= 
nea ee aes or} aver boerr suereney 1 FROM DOOR LO INCR VALUE 1E73 2€5320 190320 5861 ORI MSC1eHUREC SET MULTIPLE RECORD MARK -<CO>- 
& + F OK 1E74 2ED9FF 1BD9FF 5862 ACOI RECe-1 DECR REC FOR TRK ORIENTATION -<CO>- 
1E3A 2ZEC4FF 8 61BC4FF 65793 AODI L4eFF SUBTRACT 1 FROM ODOR HI INCR VALUE 1LE75 0£€5240 090240 5863 ORI CEB2sENDHA4SRCH SCT SRCH AND END OF HA MKS -<cD>- 
1E3B 2440C6 1140C6 5794 TWRCHAN LINC L6eL0e1 FETCH INITIAL ODDR/ODCR HI LET6 201C4A 101C4A 5864 8 TWRRDG] GO ORIENT ON EVEN INDEX -<CD>= 
LE3C 2400C7 1040C7 $795 LINC £79L0,0 FETCH INITIAL DDDR/DOCR LO 5865 MBLOK 
1E3SD OFOTUS OcC705 5796 ADC L7+L5 ADO INCREMENT TO INITIAL LO VALUE 1E77 201E77 LOLE7T7? 58664 8 + ~ UNUSED s2233233338 
LE3E 2F4604 100604 5797 ADDC L6sL4 ADD INCREMENT TO INITIAL HI W/CARRY 1E78 201E78  101E78 58674 8 i UNUSED fieseesiess: 
1E2F 208246 16C246 5798 TEOR L2el6 COMPARE INITIAL AND FINAL HI VaLUES 1E79 OOLE79 OOLE7T9 5868¢ B s UNUSED ssrfsseeses 
LE40 225648 191E48 5799 BZ THRCHKLO IF EQUAL, GO TO CHECK LO VALUES LE7TA OOLETA OOLETA 58694 8 * UNUSED sssesssss3e 
LE41] 261343 185343 5800 TWRL824 TIBOF ROSNS,MSC1,#+2 GO 1F NOT READ DIAG SNS CHD 1E7B 201E78 LOLE7KB 58704 Bb * UNUSED ssssssesess 
1£42 001028 001028 5801 8 TIOADCHK GO FORCE ADAPTER CHECK 1E7C OOLETC OOLETC SBT7LF B * CNUSED seszsesess: 
1643 0A0824 088824 5802 LBI = LB X9 248 POST ERROR - CHAN COUNTER CHECK LE7D 201E76 101E7D 5872¢ B * UNUSED cssesseses3 
1E44 280435 108435 5603 TWRFMTZE MV L4,FTI SAVE FTI l1E7E 201E7E IO1LETE 5873+ 6 * UNUSED ssssssssess 
1E45 08002B 0C802B 5804 MV LOsHES SAVE HES LE7TF OOLETF  OOLETF 5874+ 8 * UNUSED 23223282282 
1E46 080129 0C8129 5805 MY L1eA0S SAVE ADS , iF00 5875+ oS <0>B 
1E47 200708 100708 5896 8 TEFLTO3 GO POST EQUIPMENT CHECK as 5876 END COPY-MEMBER TwWR12 
1648 206347 16C347 5807 TWRCHKLO TEOR 13,17 COMPARE INITIAL AND FINAL LO VALUES 92BES5F4E . §877 END 
1E49 005&41 O11E41 5808 wNZ TWRLE24 CHANNEL COUNTER CHECK IF UNEQUAL r. 
‘1E4A OF90D0 OED0DO 5809 EGRU ZER»ZER RETURN oN 
§810 SSSSESSESEKEEKESKESSESEKESKSESKSESSESESESESSEESSEESEKEETEEEETESESESE -<C0>- 
5811 © ENTRY FOR WRITE COMPRESSED COUNT-DATA -<CD>- 
5E1L2 689998 SSESESESEEESEESESESEEESESEEST £SE06E6484S66468EESSSSESSES -<CD>—- : a 
5813 -<CD>- 
1E4B 2018FO 1918FO 56814 TWRWCCD BU TWREVNHD SET EVEN HEAD 9 
LE4C 24914E 12514E€ 5815 TIBON WRENABLE,CEB1,#+2 GO IF WRITE ENABLED -<CD>- - 
1E4D 201C32 101032 5816 B TwRL8OO GO POST CMO REJECT -<CD>- 
LESE 040a51 035451 5817 TRON 3,KCNT, TWRINVCF GO IF Kt NOT ZERO -<CO>- 2 
1E4F 259451 165451 5818 TIBON KDGT256eMSC2eTWRINVCE GO IF KL¢O0L > 256 -<CO>- As 
1E50 050452 075452 9819 TIBON DL256.MSC2e#42 GO IF OL EQUAL 256 - -<CD>- 
1E51 201816 101618 5820 TwRINVCF 6 TSKINVSK POST CMO REJECT-INVALID ARGU -<COD>- 
1E52 059951 065951 5821 ‘ " TOON GeRECeTWRINVCF © GO IF (R-1)74 : -<CD>=+ Ag € 
1E53 070951 CF5951 5822 THOFF 7,REC,THRINVCF IS NOT AN INTEGER -<CD>~ 
1654 279C51 1€5C51 5823 TEOFF 6,NREC, THRINVCF GO IF (N+1974 -<CO>- apes 
1E55 O70C51 OF5C51 5824 TBOFF 7,NREC, TWRINVCF IS NOT AN INTEGER -<CD>- ts 
1E56 280610 1C€8610 5825 — fv L65ZER INIT L6é FOR CHAN CNTR SET UP ~<CD>- bo 
1€57 2007680 100780 5826 AU TEFSETRW GO SET READ/WRITE -<C0>- | ts 
1E58 OOLE8O OO01E80 5827 BU TWRCHCNT GO SET UP CHANNEL COUNTER -<CO>- G 
1E59 080208 0C8208 5826 MV. L288 CcoPY Le TG &2 FOR DOOF FETCH -<COD>- i 
1E5A 001005 OO1DD5 . 5829 / BU TRREDODF © GO FETCH CODF -<CO>- _— 
1€56 2A086D 186860 5830 LBI CBeD(TWRTWRB3) © SET UP RETURN FOR SUBR ~<CO>- ' © 
§831 sada avab ba cakdda 6oucs dence edesskusec4ceees sense cesseusescceusvauvecesé : : 
5832 * SUBROUTINE TO CHECK AND RESTORE ODDR IF NCT EXTENDED CHANNEL OP ; 
§833 SESSEESEESES SESE SERESESESEESEEERESESSEEEES SESSESSESESESESEEEEEE EEE SEES ESEE EES ; €& 
5834 * — 
5835 * L8 MUST CONTAIN DISPLACEMENT FOR RETURN BRANCH 4 CG 
5836 * a 
1E5C 2°C25E 17425€ 5837 TWRCHEOR TBON 7el2,TWRL5S1 GO 1€ ZERO LENGTH TRANSFER . 
1E50 078260 0£4260 5838 TBHOFF 6¢L2eTWRZP2 GO IF > 1 BYTE TRANSFER © C 
DATE 15AUG75 O6NOV7S5 PROG 10 FAO-1 - CATE 15AUG75 O6NOV75 PROG IC FAO-1 
EC NO- 827765 827848 PAGE 42 \ €C NO. 827765 827848 PAGE 42A 
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Fadl 3340 DISK MICROCODE ----- MOD i2 PaRT CC. 4247623] FAO] 3340 OISK MICROCODE MOD 12 PART NO. 4247623 
PAGE 43 | « PaGE 43A 





CROSS-REFERENCE | a CROSS-REFERENCE 
SYMBOL VAL. DEFN REMARK CALLS | SYMBOL VALe DEFN REMARK CALLS 
ACTRACK 0001 0900 | CTLRERR2 OOO] 0815 5171 
ACTRK 0001 0893 | - CTROFLO1 0008 1012 
ADAPTCHK OO0C8 0981 | CTRGOFLD2 0004 1013 
ADS 0029 0709 1339 5805 CTROFLD3 0002 1014 
ADTCKRST 0086 0943 5315 5316 Shey aa nea teag gad 
ALLOWFBI 0001 0920 DATACHAN 8 
ALLOWIOX 0001 0949 1788 1789 1838 1842 3044 3053 3354 4219 5494 | DOATACHK 0010 0906 2893 2921 
ALOKCHAN 0008 C971 2835 5710 DATAFND 0002 eect he so 
FI 4 097 1868 2085 3041 4240 4325 4377 5611 DATAGVN 0040 
At Ga <KcE oe ieee "4806 OCNT 001B 0762 1519 1666 1708 2388 2420 2425 2429 2432 2434 2465 2609 3109 3565 3577 3579 
ALOW1L2 0080 1083 1305 3455 3819 oe 4357 4358 4562 4587 5642 5733 
ALTTRK 0001 1078 1947 DOCFGRG 0500 1977 1188 1189 1190 1194 1874 3310 3321 3324 5574 5708 
ALWCHXFR 0010 0928 2836 3516 5711 5778 DOCFGRGL 0500 1978 1191 1385 2658 2688 2697 2760 2847 2848 3153 3160 3503 3504 3549 3559 4217 
ALWFXFR 0008 0936 1331 2091 2159 2876 2969 3045 4944 4414 4416 4419 4421 4427 4521 4581 5380 5396 5524 
ALWRTHA ©0008 1086 5446 DOCFORGR 0580 2020 2512 2660 2689 3154 3550 3560 3569 4218 4423 £580 5381 5463 5525 
AMSRCH 0080 0862 QOCROOD 0040 1064 2663 2699 2849 3506 3553 
ATTN 0C04 0886 1263 3360 3415 DOCRORG 0514 1986 5788 
BLOCKB OOLA 1112 1188 1550 1562 2752 2760 3239 3310 3321 3324 3609 3611 4054 £059 4416 £421 DOOFORG 0600 2046 1192 1193 1387 2047 2752 2753 2754 2756 2757 2822 2823 2825 £26% “461 4560 
4427 4461 4521 4759 4761 4765 4998 5006 5152 5154 5207 5254 5256 5274 5288 4761 5603 5672 5673 5702 5705 
§303 5705 5708 DDDFURGR 0680 2047 5706 
BLOCKCH OO1E 1106 1189 2822 2847 2965 3228 3266 3503 5672 DDORODD 0020 1065 2722 2755 2830 oon 4045 4052 4148 4265 4466 4557 5250 5605 5678 5687 
BLOCKE 0016 1113 1194 ODODRORG 0512 1985 2595 3494 4046 
BLOCKFC 0006 1108 1190 ocooDd 0001 0963 3491 3505 4044 
BLOCKFO OQOOA 1110 1192 DEFCANT 0080 1073 1695 1770 4241 5560 5583 
Bo9 0030 0728 2541 2543 2646 2648 3234 3236 3313 3315 3618 3620 3714 3722 4517 4519 5691 DEFDAT 0020 1075 168% 1695 1757 4361 4399 4563 5645 
5693 5845 5847 DEFKEY 0040 1074 1685 1688 1694 1706 4329 4374 5615 
BUSY 0002 0887 DEFTRK 0002 1077 1940 2177 2279 
BYTEREAD 0516 1987 2784 4337 5218 DIAGSET . 008A 0804 
CCH 0021 0724 2626 2718 2709 2852 3226 3264 3509 3727 4061 4156 4440 4767 5695 5700 5780 DIFFZERO 0040 0926 2574 2584 
cch. 0031 0725 2627 2665 2683 2696 2720 2768 3227 3265 3510 3728 4062 £155 £435 4768 5683 DIFF256 sane 0842 
5696 5701 5781 DISPCEHI OO0C 0799 
CEALERT 0010 0869 OISPCELO OOO0D 0800 
CEB1 0011 0752 1397 1569 1790 1841 1928 1932 1934 2182 2189 2190 2205 2222 222% 2236 2237 DISPCH OO1E 1107 2823 2825 2848 2966 3229 3267 3504 4560 5673 S702 
2281 2296 2306 2309 2311 2312 2313 2339 2341 2359 2376 2497 26C7 2608 2623 OI SPFC 0006 1109 1191 1385 1874 5574 5639 
2680 2681 2738 2739 2824 2908 2912 3450 4070 4123 4133 416f 4179 4182 4197 OISPFOD OOOA 1111 1193 1387 4264 5603 
4209 4248 4316 4354 4532 4539 4547 4977 5248 5417 5433 5468 S48E 5501 5504 DLO 0008 1066 1520 2089 2416 3578 4356 4550 5634 5735 
§546 5557 5571 5596 5632 5635 5815 5859 DL 256 0001 1069 1668 1707 2416 2418 2611 3575 4172 4588 5731 5819 
CEb2 0012 0753 1398 1600 1618 1621 1622 1843 1844 1875 1881 1893 1896 1897 1898 1925 1948 OMATIN 0020 0945 1392 3604 3857 4081 
2087 2088 2117 2160 2178 2180 2188 2221 2223 2228 2232 224% 2256 2257 2272 ORVCHK 0020 0883 
2283 2239 229% 2297 2298 2305 2323 2360 2372 2377 2393 2618 2665 2887 2761 OSDISP1 0508 1980 1550 1551 1562 1673 
2884 2899 2901 2902 2904 2914 2925 2931 2932 2939 3629 3641 3655 3682 3685 DSDOISP2 OS5SOA 1961 
3692 3697 3703 3769 4101 41°90 4183 4198 4202 4203 4211 4245 4249 4318 4319 OSDISP3 O50C 1982 
4333 4355 4371 4373 439% 4398 4541 4542 4549 4734 5432 5437 5#54 5483 5492 OST 0023 0720 1221 1332 1372 1374 1391 2510 2542 2574 2581 2584 2587 2593 2647 2836 2845 
5559 5566 5576 5588 5598 5599 5633 5657 5857 5863 ¢ 3163 3164 3235 3314 3327 3516 3517 3536 3619 3715 3723 3733 3757 3607 3875 
CHANODD 0040 0968 2831 285u 3507 5679 5681 . 3911 3913 3927 3967 3971 4015 4017 4022 4069 4072 4083 4518 5272 5692 5711 
CHANXCHK 0010 0980 5778 5846 
CHI 0016 0757 1828 2191 2447 3152 3157 4095 4582 4833 4835 4837 4839 42845 £845 4851 4854 OSYNCIN 0002 0919 3016 
CHKEND 0020 0868 1900 1918 2098 2130 2143 DUMHY 0000 0877 2084 4297 
CHKRESET 0040 0954 : Oxc 0033 0715 1227 1394 1868 2085 2624 2625 2645 2826 2829 2831 2835 2846 2850 2968 3041 
CHKRST OCcOC 0848 1269 5310 . 3232 3237 3269 3316 3502 3507 3621 3716 3717 3724 3725 3726 3730 4073 4216 
CHNLIBYT 0001 OS74 -2829 3726 5677 5682 5694 ' t : 4240 4325 4377 4503 4516 5277 5611 5674 5677 5679 5681 5682 5690 5694 5699 
CHQUTVAL 0040 0925 2542 2647 3235 3314 3619 3715 3723 3733 3757 4518 5692 5846 ; 5710 5848 es 
CICHECK 0040 0979 - OICURPA 0554 2009 
CLKG2 0020 0820 Soe 5589 . P1lOLDPA 0556 2010 
CLKG3 0010 0819 , 558 DIROCNTR 0558 2011 
cLo 0017 0758 1439 1440 1440 1445 1450 1451 1827 1959 2192 244% 3151 3155 3357 3398 3460 ¢ DISENSE 053C 2068 3345 3998 
$092 4584 4813 4814 4817 4834 4834 4836 4842 4844 484% 4856 4855 ~ OLSKCNTR O55C 2012 
CMDOVN 0080 0904 1903 2880 D2CURPA 0576 2015 
CMPDAT 000% 1076 1570 1571 1619 1620 1672 2247 2314 2342 2417 4171 41866 58655 ' . QOZOLDPA 0578 2016 
 CNTCNTR 0524 1999 1649 4199 4256 €. O2Z2RICNTR OSTA 2017 
CONTROL O08F 0807 1266 3446 3605 3859 3936 4702 4739 4987 5136 5179 $308 O2SENSE O55E 2014 4000 
co2 0038 O711 3732 3734 3756 3758 5689 ; C O2SKCNTR OSTE 2018 
CSOVRUN 0080 0978 i912 2156 =~. O3CURPA 05D4 2032 
CSTEMPL 0589 2024 D30L0PA 0506 2033 
CSZEROL 0538 2006 5635 C D3RDCNTR OSD8 2034 
CSZEROR 0588 2029 D3SENSE O5BC 2031 
CTLRCHK 0080 O88B1 O3SKCNTR OS5SOC 2035 
CTLRERRi 0002 0814 3094 5176 ( D4CURPA O5F6 2038 
DATE 15AUG75 O6NOV75 PROG it FaQ-1 . DATE 15AUG75 O6N0V75 PROG IO FAO-1 
EC NOe 827765 827548 PAGE 43 © £¢ NO. 827765 827848 PAGE AA 
cr 


a a aa aa a aE a a aI NR SN I 








MOD 12 | PART NO. 4241623 


FAOL 3340 DISK MICROCODE “GB. 12 , PART NO. 4247623 FAOL 3340 DISK MICROCODE 
PAGE a4, PAGE &GA 
1 &. . 
' fe : 
_ CROSS-REFERENCE iC , CROSS-REFERENCE 
| 
SYMBOL VAL. OEFN REMARK CALLS ¢ SYMBOL VAL. DEFN REMARK CALLS 
D<6OLDPA OSFS 2039 FMTG2 0060 0833 _ +§567 . 
D4ROCNTR OSFA 2040 ' » FMTG3 0050 0832 5565 
D4SENSE O5DE 2037 ' \. FMTWR 0040. 1029 1569 2282 2190 2222 2309 2312 4179 5488 5504 5635 5859 
D4SKCNTR OSFE 2061 ; : FORCERST 0020 1085 -33822 
ECCCNTL 0008 0796 3048 | ¢ FORCERYC 00206 0916 © 3052 3069 3092 
ECCHI 0040 0812 3202 , © FORWARD 0080 0841 
ECCLOW 0080 0813 3099 FOTOFI 0004 0918 2343 2973 
EFSENSEL 053A 2003 1307 3460 3600 3853 4049 4075 | ae. FTG 0025 0716 1233 1237 1238 1249 1277 1343 1389 1390 1488 1496 2057 2066 2082 2083 2408 
EFSENSER O5BA 2027 : c 2409 2973 2974 2975 2982 2995 2996 3011 3016 3052 3069 3088 3089 3092 3791 
ENOCHXFR 0020 0927 2583 3163 3517 3792 3864 3989 4023 4032 4230 4231 4285 4286 4290 4295 4296 4310 4939 5340 
ENDCNT 0004 1047 4203 $437 rs 5623 
ENDDAT 0003 1046 4355 4398 4549 5633 \ FTE 0035 0707 1337 1492 1498 1782 1839 1889 2059 2094 2095 2097 2098 2101 2103 2328 2130 
ENDDATE 0007 1049 2132 2141 2142 2143 3055 3056 3066 3355 4229 4293 4294 5803 
ENOFILEX 0001 0859 1867 1910 1911 2127 2129 2131 2155 2936 2984 3010 3043 3057 3065 3083 . FTO 0026 0722 1199 1200 1205 1239 1241 1245 1247 1253 1256 1259 1266 1274 1468 1482 1486 
ENDHA 0000 1043 $863 Ne 1575 1617 1856 1863 1869 1894 2056 2079 2116 2171 2217 2374 2398 2882 2892 
EWOKEY 0002 1045 4319 4373 4542 5599 3048 3093 3358 3440 3446 3605 3612 3793 3828 3859 3936 4215 4243 4282 4298 


ENDKEYL 0006 1048 
ENDROCNT 0001 1044 
ENDOTRAP 0008 0956 1908 2151 


7 . 4299 4301 4379 4645 4648 4650 4659 4669 4689 4702 4739 4952 4987 5133 5136 
: 5166 5170 5175 5179 5308 5313 5404 5496 5548 5564 5619 5654 
FTOCHK 0004 0991 


en ee ce ee ee ee ee ee 


ERASE 0002 1056 2216 2226 2327 237) 5568 FTR 002D 0717 1224 1234 1235 1288 1289 1352 1382 1392 1467 1471 1788 1752 1838 1842 3044 
ERRALERT 0002 0873 3053 3354 3410 3413 3464 3604 3857 4081 4219 5315 5316 5494 
ERRMODE 0020 0955 1393 3258 3259 3318 3634 . GENL 0509 0742 1396 1798 2254 2396 2507 2508 2566 2621 2622 2653 2654 267% 2676 2711 2712 
ERRRETUN 0060 1019 3683 5320 o 2783 2832 2916 2918 3493 3770 3806 3908 3962 3988 4012 4124 4134 4144 4163 
ERRTRAP 0008 0947 1382 1392 ‘ 4178 4196 4205 4210 4232 4322 4359 4525 4530 4556 4559 5187 5324 5414 5434 
EXTARCHK OCOL nees 5489 5604 5606 5609 5625 5643 5684 5860 
F553 GO0cz O7F1G 1255 1470 1858 1691 2084 2878 3076 3096 3101 310% 3357 3360 3402 3412 3415 . HEAD 0018 0759 1441 1442 1447 1448 1449 1452 1823 1824 1826 1860 1955 1958 2193 2450 3148 
3416 3419 3444 3449 3451 3452 3456 3459 3832 3838 3839 3858 3863 3874 3905 % 3150 3156 3159 31631 3355 3396 4098 4585 4822 4825 4827 4828 4836 4838 4846 
3906 4297 4305 4653 “671 4672 4691 4697 4701 4742 4951 4990 5050 5135 5139 4848 4853 4656 5392 5395 5399 
5142 $145 5248 5168 5173 51L7& 5182 5185 5498 HES 0028 0708 1338 1912 2156 3534 S804 
FBICHK 0002 0992 IDXDDCF 0020 1134 1383 1384 1871 1872 5572 5573 5637 5638 
Feo QO0ZE 0721 1236 1242 1244 1258 1267 1269 1272 41275 1483 1487 1861 1862 1870 2081 3047 IDXODDF 0040 1135 4262 4263 4320 4321 4553 4554 5600 5601 
3094 3099 3102 3362 3441 3447 3606 3794 3827 3860 3937 4206 4213 4244 4246 IDXMK 0002 0892 
4283 4300 4302 4308 4380 4381 4382 4607 4613 4644 4647 4651 4656 £658 4703 IDXPl1 0004 1057 1831 1854 1855 1886 
—— 4740 4950 4988 5137 5140 5143 5146 5171 5176 51860 5183 5307 5310 5312 5405 1OxP2 0008 1056 1831 1851 1854 1883 
5530 5537 5565 5567 5569 5587 5589 5620 5621 5622 ~ INDEX 0002 0872 1782 2095 2101 2128 2142 3055 
FBOCHK 0008 0990 ‘ ENDEXB 0001 1091 1177 3825. 
FCT 0036 0723 2092 2970 3049 INDEXCH 0003 1092 1178 
FEB OEOL 3202 3203 3204 3228 3239 3266 3267 INDEXEL ©0009 1095 1181 
FEBADDI 0080 3205 3214 INCEXE2 0008 1096 1182 
FEBADD2 0000 3206 3212 INDEXE3 90000 1097 1163 
FEBJUNK OE00 3201 3229 INDEXES OOOF 1098 1184 
FEBL OE£01 3203 3240 3260 3280 INDEXF1 0005 1093 1179 1383 1871 4262 4320 4553 5572 5600 5637 
FEBR 0E€81 3206 3241 3261 3284 INDEXF2 0007 1094 1180 1384 1872 4263 4321 £554 5573 5601 5638 
FF OOFF 1082 1225 1249 1277 1278 1309 1331 1343 1393 1471 1496 1788 1790 1798 18631 1838 INDEXIT OOLF 1099 1295 1298 1353 1357 


1841 1854 1868 1927 2066 2074 2159 2205 2254 2313 2329 2350 2359 2390 2401 
2409 2416 2426 2508 2516 2598 2599 2634 2635 2639 2640 2654 2676 2712 2722 
2876 2916 2918 3041 3044 3050 3069 3092 3114 3115 3127 3217 3218 3244 3246 
3250 3252 3275 3413 3481 3462 3594 3621 3629 3641 3655 3682 3685 3692 3697 
3703 3716 3769 3771 3791 3847 3864 3865 3988 3989 4012 4023 4078 408) 4084 
4152 4183 4216 4240 4316 4340 4354 £377 4392 4503 4539 4547 4556 4606 4619 


INFCHK 0040 0862 
INTREQDL 0080 1008 
INTREQD2 0040 1009 
INTREQO3 0020 1010 — 
IHNTREQDS 0010 1011 
INVPRTY 0002 0948 


Sere me oe atelier Se er ne tiene ttm 6: ante Nene ate ere ran wim ae ome : 
- - - ~ -~ ee ee ee ae rete te cere ae ee mee en ree Oe ee a meee cer me ee ee ee ee eee 
* tn ay, %, 


ee ins obi oo ie; 5038 5314 5324 5340 5361-5493 5533-5557 5596 5604 -IDATTR - 0040 0944 ; 1467 1471 3410 3413 
632 6 IGCONS 0010 0946 
FFLG OOLF O766 1489 1542 1547 1549 LSTL 1592 1619 1620 1624 1663 1672 1685 1688 1694 1695 € IOPBUSY 0080 0926 1374 3327 3807 3875 3911 3913 3967 3971 401T 4069 4083. : 
3706 1722 1757 1770 1940 1947 2123 2177 2200 2247 2279 2314 2394 2417 2440 ‘- KCNT OOLA O761 1522 1527 1546 1548 1665 1686 1699 iIT1G 2385 2419 2424 2429 2432 2463 2613 
- 4088 4241 4329 4361 4374 4399 4563 5511 5512 5543 5544 5560 5562 5583 5585 2740 2741 2742 3563 3580 4327 4328 4543 4586 5613 5614 5737 $817 
: 5615 5645 - KOGT256 0002 1068 2800 3584 3587 4141 4170 £346 5418 5472 5818 . 
FHF 0027 OF19 1225 1309 1333 13932 1867 1908 1910 1911 1915 2127 2129 2131 2151 2155 2331 Co LASTREC 6010 0935 2090 
= 2332 2715 2936 2579 2984 2988 2989 2992 2998 3004 3005 3010 3043 3057 3065 £OSTORT 6029 0897 
: , 3083 3258 3259 3318 3634 3772 5273 | : ss, LSRCSR 0020 0969 3725 4216 5694 ; 
FILEODD 0004 0937 L33L 2159 2397 4266 4323 4360 4558 5607 5610 5644 C ESRSELDR C010 0970 2826 3231 3716 3724 S674 5699 - i . : 
FILEXCHK 6010 0989 Lo 0000 0733 O877 LLTL 1172 1173 1174 1175 1203 1256 1258 1278 21282 1338 1402 1403 1451 
FINCHXFR 0040 0998 2507 2508 2832 4144 5414 $684 1452 1551 1552 1561 1576 L578 1661 1663 1665 1666 1720 1722 2112 2119 2123 
FIXDOCF 6020 0999 2653 265% 4134 4163 4530 5434 $489 5860 © 2192 2193 2273 2321 2357 24213 2422 2423 2424 2425 2435 2443 2449 2460 2462 
ell 002A 0729 , : 2544 2545 2658 2688 2690 2692 2693 25694 2697 2717 2719 2721 2753 2756 2T84 
FLAG 0015 0756 1570 2342 2441 2862 2863 2864 3561 4089 4171 4186 5452 5473 $511 5513 5517 G 2785 2786 2787 2788 2789 2790 2862 2864 3110 3127 3129 3131 3133 3139 3153 
‘ : §$21 5855 , , ae 3155 3156 3166 3161 3171 3281 3296 3299 3302 3305 3305 3306 3328 3347 3453 
FATERASE 0070 0834 §569 3454 3494 3495 3496 3499 3500 3546S 3551 3559 3561 3563 3565 3601 3602 3603 
FAMTG) 0040 0831 §$30 c 3746 3794 3809 3865 3990 £046 4047 4046 4086 4991 4097 4152 4153 4154 4176 
DATE  15AUG75 O6NOV7S5 | | | PROG 1D FAO-l| ., DATE | 1SAUGTS © O6NOV7S | | | a PROG ID FA0-} 
€C NO. 827765 827848 PaGE 44 (se EC NOe 827765 827848 . PAGE 44h. 


CHECCC CCC CHOC HOO LOR OOOO LOCOCO COC eon ee 











FAOlL 3340 DISK MICROCODE ----- MOD 12 PART NO» 4247623 FAOl 3340 DISK MICRO“ODE MOD 12 | PaRT NO. 4247623 
PAGE 45 -- . PAGE 5A 
f 
CROSS-REFERENCE c  CROSS-REFERENCE 
SYMBOL VAL. DEFN REMARK CALLS . SYMBOL VAL. DEFN REMARK CALLS 
4177 4199 4200 4217 4250 4251 4257 4259 4269 4369 4370 4388 4390 4405 4414 1677 1682 1689 1692 1703 1742 1748 1807 1809 1812 2262 2268 2270 2293 2316 


4417 4419 4422 4425 4469 4484 4490 4493 4495 4497 4498 4511 4512 4522 4523 2317 2318 2319 2320 2385 2388 2391 2392 2400 2443 2444 2445 2446 2447 2448 
452% 4581 4584 4585 4586 4587 4692 4742 4743 4744 4755 4757 4758 4762 4797 2449 2450 2451 2452 2453 2454 2461 2464 2466 2467 2513 2517 2596 2598 2601 
4798 4855 4856 4881 4882 4913 4914 4945 4990 4991 4992 £993 4994 5003 5005 2630 2637 2639 2642 2648 2731 2749 2785 2797 2947 2948 2949 3046 3067 3117 
5015 5016 5017 5052 5053 5158 5159 5160 5161 5218 521< 5220 5244 5251 5255 3129 3133 3134 3136 3211 3216 3225 3272 3276 3316 3365 3378 3387 3391 3392 
6258 5259 5327 5328 5347 5348 5349 5361 5363 5376 5377 5380 5396 5397 5401 3436 3437 3483 3484 3596 3597 3600 3601 3603 3744 3818 3819 3820 3841 3843 
5463 5464 5465 5507 5508 5509 5524 5526 5528 5544 5706 5707 5788 5790 5794 3850 3851 3852 3854 3855 3856 3889 3890 3851 3892 3998 4000 4076 4079 4082 
5795 5804 40S1 4092 4093 4094 4095 4096 4097 4098 4099 4140 4331 4336 4391 4392 4396 
Ll 0001 0734 1202 1251 1279 1279 1283 1339 1368 1415 1465 1577 1662 166% 1669 1721 2113 4403 4409 4471 4484 4486 4498 4499 4500 4506 4609 4612 4622 4625 4636 4640 
2121 2191 2267 2268 2269 2274 2315 2316 2320 2355 2356 2422 2426 2431 2446 4641 4643 4644 6730 4731 4735 4736 4737 4738 4744 4760 4762 4883 4887 4890 
4898 4900 4902 4904 4906 4909 4911 4914 4956 4963 4966 4970 4972 4974 4983 


oa Oo © 


2452 2461 2512 2513 2595 2596 2597 2660 2661 2662 2689 2691 2719 2720 2754 ~ 
2757 2790 2791 2792 2793 2796 2795 2803 2804 22905 2806 3111 3130 3132 3140 c. 4986 5010 5014 5025 5626 5027 5032 5033 5034 5039 5048 5049 5051 5053 5161 
3154 3157 3173 3285 3288 3290 3294 3298 3299 3454 3455 3550 3552 3560 3562 5164 5203 5204 5205 5293 5413 5416 5474 5618 5622 5655 5689 STOT 5743 5744 
3564 3566 3569 3570 3747 3810 3830 3833 3836 3846 3855 3866 3866 3872 3878 oo 5752 5794 5797 5798 5825 
3684 3903 3907 3921 3925 3934 3960 3999 4006 4019 4087 4094 4218 4270 4389 » “£7 0007 0740 2262 1264 1304 1305 1306 1317 1347 1464 1544 1557 1559 1574 1590 1602 1608 
4391 4423 4424 4426 4462 4474 4485 4580 4582 4583 4590 4592 4688 4693 4699 1613 1640 1675 1676 1681 1690 1691 1702 1741 1744 1765 1781 1784 1805 18469 
47191 4792 485% 4880 4912 4946 5329 5331 5333 5333 5334 5348 5354 5355 5357 - 1850 1876 1942 2064 2092 2093 2105 2115 2135 2144 2186 2253 2269 2270 2346 
5360 5360 5362 5371 5374 537& $381 5525 5527 5529 5805 & 2389 2390 2391 2462 2465 2468 2565 2597 2599 2600 2616 2628 2636 2640 2641 
L2 0002 0735 2203 1212 1217 127) i281 1265 1293 1372 1422 1516 1524 1528 1530 1531 1552 2646 2732 2786 2796 2833 2853 2886 2919 2946 2947 2949 2950 3054 3059 3082 
1555 1560 1573 1574 1601 1602 1605 1606 16G7 1673 1674 1675 1687 1689 1690 ” 308% 3116 3128 3132 3135 3146 3232 3240 3242 3248 3260 326z 4270 3287 3287 
21839 1895 1899 1900 1916 2114 2169 2547 2601 2792 2799 2802 2806 2807 2809 X. 3289 3291 3293 3300 3303 3309 3364 3365 3392 3408 3427 3435 3436 3471 3484 
2948 3107 3108 3110 3213 3115 3117 3120 3213 3214 3216 3220 3221 3242 3244 3511 3537 3597 3631 3658 3659 3660 3729 3745 3842 3844 3849 3850 3852 3853 
3248 3250 3254 3282 3292 3295 3202 3378 3387 3391 3423 3425 3429 3437 3482 Pa 3854 3856 2886 3945 4008 4011 4016 4075 4076 4082 4104 4207 4214 4328 4332 
3483 3495 3499 3594 3595 3596 3610 3734 3748 3749 3782 3784 3784 3785 3846 = 4340 4343 4358 4370 4372 4380 4390 4395 4297 4406 4475 4478 4485 4487 4492 
3847 3845 3851 3907 3909 3915 3925 3927 3930 3959 3973 4015 4019 4022 4047 4562 4624 4628 4632 4666 4667 4668 4725 4728 4956 4957 4959 4960 5262 5203 
£337 4338 4339 4347 4348 4445 4463 4501 4509 4514 4517 4683 4791 4793 4797 ie 5205 5238 5239 5255 5257 5369 5470 5545 5575 5614 5620 5624 5626 5640 5642 
4799 4801 4815 4818 4820 4820 4821 4821 4822 4823 4823 482% 4824 4825 4826 S 5656 5685 5697 5703 5751 5752 5758 5758 5795 5796 5807 
4884 4886 4889 4891 4894 4907 4908 4913 4982 4565 5009 5013 5028 5028 5036 t8 0008 0741 1255 1263 1301 1302 1303 1304 1306 1307 1308 1340 1346 1375 1376 1449 1450 
5038 5040 5042 5159 5163 5204 5242 5246 5252 533% 5349 5358 5375 5377 5397 - 1463 1491 1493 1497 1499 1667 1668 1669 1740 1761 1768 1783 1789 1792 i804 
§398 5490 5401 5425 5477 5533 5535 5730 5732 5739 5741 5755 5757 5757 5798 C 1941 1944 2058 2060 2063 2067 2067 2104 2133 2152 2157 2185 2252 2345 2410 
5828 5837 5838 2410 2521 2524 2551 2553 2580 2582 2585 2668 2702 2721 2727 2735 274% 2776 
3 0003 6736 1204 1368 1439 1443 1444 1445 1465 1523 1526 1527 1529 1532 1556 1559 1576 o 2771 2821 2828 2881 2889 2891 2897 2898 2907 2909 2910 2913 2344 2981 2990 
1582 1588 1712 1714 1891 1901 1903 1904 1919 2160 2161 2162 2163 2549 2600 . 3006 3007 3058 3077 3086 3123 3125 3145 3241 3243 3249 3261 3263 3286 3345 
2793 2798 2801 2805 2878 2880 2888 2893 2895 2896 2903 2921 2923 3109 3111 3348 3350 3351 3352 3353 3366 3380 3381 3393 3394 3406 3421 3426 3432 3460 
Bl1iZ 3114 3216 3119 3212 3217 3219 3222 3243 3246 3249 3252 3256 3280 3281 a 3461 3466 3470 3556 3610 3630 3876 3877 3885 3901 3902 391% 3915 3928 3929 
3282 3283 3284 3285 3286 3372 3404 3407 3444 3462 3481 3485 3486 3487 3491 C 3931 3932 3933 3935 3944 3957 3958 3961 3972 3973 3984 3985 4049 4050 4069 


3496 3500 3505 3564 3572 3574 3581 3582 3585 3602 3732 3749 3785 3921 3986 4103 4147 4158 4307 4438 4445 4448 4465 4476 4504 4524 4616 4611 4612 4620 
4006 4044 4048 4078 4079 4338 4342 4344 4347 4699 4710 4792 4794 «798 «807 4621 4622 4655 4662 4663 4664 4665 4677 4678 4686 4685 4695 4708 4709 471i 
£809 4811 4826 4829 4831 4832 4832 4738 4840 4843 4882 4901 4903 4905 5245 4719 4766 4795 466804 4805 4805 4806 4841 4842 4843 4955 4558 4961 4961 “4964 
$2469 5254 5350 5351 5353 5354 5373 5374 5539 5541 5733 5736 5738 5740 5754 4967 4969 4994 4995 £996 4997 5000 5062 5003 $5004 5005 5008 5009 5016 5011 
5756 5756 5807 5153 5195 5196 5200 5206 5208 5221 5222 5223 5224 5225 5226 5227 5237 5239 


ot, 
‘ % 


a4 0004 0737 $1335 1336 1337 1345 1413 14)%2 1415 1416 1422 1423 1424 1517 1518 1530 1533 € 5240 5241 5257 5275 5289 5290 5291 5292 5293 5294 5295 5296 5297 $328 $330 
1539 1540 1543 1545 1553 1561 1577 1579 1584 1587 1589 1591 1597 1599 1606 5332 5362 5364 5364 5368 $424 5425 5428 5444 5445 5445 5446 5449 5456 5457 
1609 1628 1630 1786 1885 1946 1949 1950 1953 1956 2062 2093 2107 2119 2172 f . 5458 5469 5477 5479 S671 5676 5680 5688 5742 5749 5762 5766 S772 5774 S802 
2174 2514 2515 2516 2517 2519 2528 2539 2545 2547 2567 2610 2612 2614 2630 % 5828 5830 5850 
2634 2637 2725 2731 2734 2766 2769 2775 2794 2797 280% 2883 3097 3104 3105 MIARBB 0018 1101 1186 1350 
3122 3123 3124 3138 3141 3221 3274 3275 3277 3283 3315 3349 3350 3395 3399  MIARBG 0018 1102 1187 1351 
3417 3443 3579 3560 3586 3742 3755 3766 3767 3813 3814 3815 3820 3821 3822 > MIARES 0014 1103 3823 
3834 3835 3636 3837 3877 3878 3902 3903 3909 3916 3912 3929 3930 3931 3933 MIARECD 0014 1104 3824 
3934 3935 3958 3959 3960 3961 3985 3986 4050 4055 4063 415% 4156 4220 4251 mSCl 0013 0754 1399 1611 1636 1831 1851 1854 1855 1883 1886 1930 1933 19395 2218 2226 2233 
4252 4254 4255 4257 4259 4291 4300 4305 4308 4339 4343 4348 4446 4456 4510 | c. - 2245 2290 2308 2327 2328 2340 2343 2350 2371 3371 3497 3524 3533 3761 3771 
4512 4513 4513 4514 4515 4623 4626 4630 4632 4634 4639 4642 4661 4662 4675 3969 3981 4024 4084 4164 4533 5436 5491 5568 5800 5861 
4677 4680 4681 4684 4709 4710 4711 4729 4730 4731 4760 4769 4880 4885 «888 ~ MSC2 0014 0755 1400 1617 1520 1667 1707 1952 2089 2416 2418 2431 2435 246% 2611 2663 2699 
, 4947 $132 5191 5194 5195 5196 5197 5199 52500 $291 5577 5741 5746 5747 5755 C 2722 2728 2755 2800 2830 2849 3107 3457 3492 3506 3553 3575 3578 3584 3587 
5760 5769 5777 S780 5793 5797 5803 5842 5847 4045 4052 4071 4141 4148 4170 4172 4265 4346 4356 4466 4472 £502 4508 4556 
L5 0005 0738 1519 1521 1529 1534 1536 1538 1541 1544 1546 1554 1578 1579 1581 1583 1586 “557 4588 4756 4800 4808 4857 5023 5250 5418 5472 5605 5634 5.768 5687 5731 
1588 1590 1596 1598 1607 1608 1746 1756 1759 1763 1808 1810 2121 2173 2174 . & 5735 5818 5819 
2440 2441 2442 2445 2448 2451 2454 2460 2463 2467 2468 2520 2525 2527 2541 | MUREC 0020 1055 1930 2328 4164 4533 5436 5491 5861 
2544 2549 2568 2609 2613 2616 2635 2636 2667 2682 2695 2726 2729 2732 2740 -° ~. MUTRK 0040 1054 1933 1939 2233 2245 2290 2308 2340 4154 £533 5436 
2745 2747 2767 2768 2772 2774 2795 2796 2803 3101 3105 3124 3125 3142 3222 | %* NFILECXFR 000}. 0939 1926 3042 4378 5590 
3273 3276 3304 3307 3309 3313 3461 3462 3555 3743 3817 3818 3821 3888 3889 NOAM 0008 0907 2895 
4051 4053 4055 4056 4057 4058 4064 4088 4089 40930 4093 4096 4099 4149 4151 | NooP 0008 1022 2074 2509 2677 2713 3344 3991 4008 4606 4619 4718 4732 
£153 4155 4405 4406 4447 4457 4464 4479 4507 4515 4523 4589 4590 4608 4611 (€ NORMEND 0008 0870 1498 1895 1899 2132 2141 3056 3066 4229 
4621) 4629 4631 4635 4638 4647 4653 4656 4678 4679 4685 4754 4763 4770 4881 .; NOSYNC 0004 0908 2896 2903 . : 
4892 +895 4897 4897 4898 4899 4899 4900 4948 5025 5930 5031 5034 5036 5041 | ,~- NREC O001C 0763 1931 2086 2329 2336 2515 2662 3566 3568 3570 4140 5413 S467 5823 5824 
5043 5045 5046 5046 5047 5047 5049 5737 5738 5740 5748 5754 S761 5764 5767 | C ODOXFER 0001 1004 3493 4556 4559 5604 5606 
5771 5775 5781 5791 5796 5839 584) 5845 ONLINE 000s 0885 1470 3402 3412 
Lé 0006 0739 1316 1403 1404 14C5 1406 1543 1558 1560 1573 1591 1601 1609 1612 1639 1674 | C OP END 0010 1021 3374 3991 4011 
DATE 15AUGT5 O6NOV75 : PROG 1D FAa0-1 DATE 15AUG75 O6NOV75 ; PROG ID FAO-1 
EC NOw 827765 827848 PAGE 45 | C. EC NOW 827765 827848 PAGE 445A 


| 








3340 DISK MICROCODE ----- MOD 12 


FaCl PART NOw 4247623 
PAGE 46 
CROSS~REFERENCE 
SYMBOL VAL. DEFN REMARK CALLS 
ORGREC 0588 2022 4176 
PAC QOOE 0747 1405 1800 1802 1808 2172 3352 3551 3598 3891 4631 4664 4667 4982 5528 
PADTGIDX 0010 1031 1790 1841 2497 4977 5546 5571 
PAH QOOF 0748 1406 1631 1799 1807 1859 1861 1935 1946 1960 2173 2224 2344 3353 3552 3599 
. 3892 4627 4665 4668 4852 4983 5391 5394 5402 5448 5451 5529 
PHYADOR 0010 0813 
POLLCNTL 0002 0789 
PULLDEV 0082 0788 
PROCDAT 0001 1035 1932 2608 2739 2908 4133 4160 4179 4197 4209 4354 4532 4547 5433 5468 5504 
5632 5859 
PROCKEY 0002 1034 1932 2376 2607 2623 2736 2912 4135 4160 4179 £197 4209 4316 4532 4539 5433 
5488 5504 5596 5859 
PROCNT 0004 1033 1934 2237 2281 2296 2311 2313 2341 2359 2681 4179 4182 5488 5501 5557 5859 
PROCRO GO008 1032 2189 2205 2236 2680 4123 4182 4209 5501 5504 5557 
oBYT 000C 0745 1460 1461 1462 2560 2602 2602 2615 2714 325% 3342 3346 3367 3368 3381 3394 
3488 3588 3636 3637 3674 3755 3756 3759 3760 3766 3783 3923 4009 4673 4686 
5322 5323 5734 
-RBYT 0000 0746 1848 1852 2238 2239 2240 2619 2679 2736 2915 2933 2935 3143 3256 3369 3376 
3380 3290 3393 3627 3642 3645 3651 3653 3656 3659 3678 3679 3680 3681 3686 
3690 3691 3694 3695 3696 3704 3705 3706 3708 3709 3758 3762 376% 4042 4102 
4253 4324 4442 4451 4526 5423 5427 5447 5459 5485 5486 5505 5602 
RCSCHK 0001 0982 : 
ROCNTL 000A 0798 1241 : ' 
RDERROR O004 0794 3093 5170 5175 : 
RDGATE OO01C 0861 
ROG} 0040 0822 1870 4213 
RDG2 0060 0824 4246 6336 : 
ROG3 0050 0823 4244 | 
RDG3AM 0070 0825 4206 . | 
ROGS 0030 0821 1483 2460 
RDSNS 0080 1053 3371 3497 3524 3533 3761 3771 3969 3981 4024 408% 5800 
RDSTATUS 0084 0792 1253 1468 1856 3358 3612 5133 5496 | 
7 READ 0080 1039 1622 2223 2232 2244 2257 2298 2377 2618 290% 2914 2932 4101 4180 4198 4202 | 
4211 5559 
READOP OOODE 0801 1482 1869 4215 4243 4379 | | 
REC 0019 0760 1572 1632 1634 1664 1927 1945 2183 2234 2248 2249 22860 2310 2338 2353 2354 
2356 2453 2661 3562 3567 4131 4131 4177 4181 4185 4187 5389 5466 5490 5493 | 
5821 5822 5862 | 
RECLNG 0510 1984 
RECYCLE 0040 0987 | 
RESPONSE 0008 0917 2408 2409 4230 4231 | 
REZERO 0002 0849 1272 l 
RGIUNORT 0002 0899 
RSTATIN 0006 0847 1267 3606 3860 3937 4703 5307 | 
RSTROKR 0005 0795 - 4282 
RWOHK 0010 0884 
RWCTRL 0007 0858 | 
ROCTODF 0080 1028 2824 4123 4248 5248 | 
SBFLAGS 0522 1997 3928 5347 
$80 003F 0726 1228 1413 1416 1426 3372 3429 3487 3834 3837 3872 3912 5350 | 
S61 0037 0727 1229 1373 3328 4016 | 
SCANEQUL 0040 1020 2333 
SCANHI 0040 0933 2693 2999 4527 | 
SCANRD 0080 0932 2969 2993 2999 4561 | 
SCANSTOR 051C 1990 2717 4522 ; 
SCANSWH 0080 1063 2728 4472 4502 4508 | | 
SCN 002F 0718 1226 1331 1395 1846 1866 1888 1914 1926 208C 2090 2091 2150 2159 2335 2397 | 
2401 2876 2969 2983 2991 2993 2997 2999 3009 3040 3042 3045 3050 3091 3528 
4239 4266 4317 4323 4360 4376 4378 4527 45%0 4548 4553 4561 4571 4944 5276 
5558 5590 5597 5607 5610 5644 
SCNEQ 0002 0958 1393 2332 2989 3005 3772 | 
SCNSAT 0006 0957 1393 1915 2331 2715 2984 2988 2992 2998 3004 3010 3772 
SCNSPLIT 0020 0934 240) 4571 ; 
SDFORHA 051A 1989 2692 5456 5507 
SOH OO1D 0764 1594 1599 1626 1630 1661 1670 1677 1679 1682 1692 1697 1703 1724 1719 1720 | 
1744 1748 1751 1756 1761 1765 1768 1773 2196 2198 2203 2690 2693 3171 4362 | 
4363 4400 4401 4564 4565 4736 5508 5514 5518 5522 5526 5531 5535 5541 5646 
$647 
DATE 2S5AUG7T5 O6NOV7S PROG ID FAO-1 
EC NO. €27765 827848 PAGE 46 


FAOL 3340 DISK MICKOCODE ----- MOD 12 PART NO. 4247623 
2 PAGE 46A 
C: CROSS-REFERENCE 
~ SYMBOL VAL. DEFN REMARK CALLS 
SDL OO1E O765 1490 1594 1598 1626 1629 1662 1670 1676 1680 1681 1691 1698 1701 1702 1713 
cS 1716 1718 1721 1743 1747 1750 1753 1755 1760 1764 1767 1772 2194 2197 2201 
iG 2389 2395 2691 2694 3173 4330 4332 4567 4737 5509 5515 5519 5523 5527 5531 
5534 5540 5616 5656 
SELACT 0080 0866 : 
SELCNTL 0003 0791 
SELDEV 0083 0790 
SELHOLD 0040 0915 1238 1249 1277 3791 3864 3989 £023 5340 
SENSTATO 0003 0852 5180 
SENSTAT1 0083 0853 3447 4740 4988 5137 
SENSTAT2 0043 0854 5140 
SENSTAT3 0023 0855 5143 
SENSTAT4 0013 0856 5183 
SETDIFF O08C 0806 
SETHAR 0088 0805 1863 
SETROWR 0085 0793 2056 — 
SETRWON 0004 1002 1798 4232 
SETUNSUP 0001 0787 1259 
SIZE12 0004 1067 1952 3457 4800 4808 4857 5023 
SKCMPL 0001 1024 1370 3344 3389 3431 3434 4706 5336 
SKDONE 000! 0888 
SKMARK1 OS1F 1993 1301 7946 3364 3849 3876 3901 3932 3957 3984 4708 5202 
SKMARK2 0520 1994 1375 3435 3914 3972 
SKSTART 0008 0846 
SNSDIFF 0009 0850 : 
SNSHAR 0005 0851 
SNSINFC OO0£9 0803 1256 5166 
SNSROWR OO008 0857 5146 
SPFMTG1 O00CO 0836 5537 
SPFMTG2 OOE0 0837 5655 
SPRDG2 OO0EO 0826 4331 
SPRESET 0080 0953 
~  SRCH 0040 1040 4600 1618 1843 2178 2188 2221 2294 2305 2372 2931 4180 4183 4198 4203 %249 
5437 5492 5863 
STACKCHD 0080 0997 3770 3806 3908 3962 3988 4012 
STAT 000B 0744 1367 1370 1373 1401 2074 2333 2509 2564 2579 2606 2655 2677 2713 2737 3344 
3374 3389 3431 3434 3880 3663 3943 3991 %606 4619 4706 4718 4732 £753 £936 
4937 5320 5321 5336 5337 5339 5367 
STATOVN 0008 0898 
SUBTRACT 0002 0973 2645 3211 3216 3225 3237 3272 3621 3717 4503 4516 5690 5848 
SvPOPT 0521 1995 3453 3817 4804 5444 
SVPREQ 0002 1087 1336 3814 
SYNCIN 0004 0871 2094 2097 2103 
SYNCOUT 0080 0986 
TAGATE 0080 0914 1343 1488 1496 2057 2066 4032 5623 
TAGVALID 0040 0867 1492 2059 
TCUCKSIZ 0167 1474 1460 1461 1462 
TCUCKWRT O15A 1460 3474 
TCUCNV12 014B 1439 4858 
TGUDMERR O15F 1465 3472 
TCURSTSB 0148 1422 1371 3926 3970 4014 4020 
TCUSETUC 0144 1413 1369 1466 3882 4013 4021 5335 
yr TCUSTART O11F 1366 2816 3383 4712 «775 
\. TDSAFTRO 0272 1639 1621 
TDSCKDAT 031A 1688 1704 
; TOSCKMVS 0328 1706 1693 
\- TDOSCKSRH O24F 1600 1593 1595 
TOSDCC 0212 1534 1548 
« TOSSCON 0200 1516 G17& S481 
&. TDS0Cl 020A 1526 1522 
TOSDC2 6200 1529 1525 
~ TOSDC3 0216 1538 1533 1535 
%. TOSDC4 06218 1540 1537 
TDSDEKEY 032F 1710 1706 
» TOSDISP 0221 1549 1542 © 
.. ¥DSDONE 033C 1723 1671 1683 
TOSDOSD 025D 1617 £570 
, TOSO10% 0344 1747 1766 
. DATE LSAUG7TS5 O6NOV75 PROG 10 FAO-1 
\. €C NO. 827765 827848 PAGE 46A 
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FAO] 3340 DISK MICROCODE ----- MOD 12 | PART NO. 4247623 FAOL 3340 DISK MICR“CODE 


PAGE 47 e ‘ PAGE 47A 
CROSS-REFERENCE : . CROSS-REFERENCE 
SYMBOL VAL. DEFN REMARK CALLS ; - SYMBOL VAL. DEFN REMARK CALLS 
TDSD2 0350 1759 1749 . TOXSKP1 0479 1960 1957 
TDSEXIT 0252 1603 1569 1618 - TDXSTHAR 0421 1861 1961 
YDSFGOK C264 1624 1619 '. TOXWADEX 0360 1781 2349 2499 2926 4979 5495 5499 
TOSFORRO 0237 1576 1641 TOXWAIT 0361 1782 1785 
TOSINVCF 0275 1643 1622 a >» TEFCE 0722 2099 2130 2143 
TOSINVTK 0262 1622 1572 - TEFCKOD O82C 2267 2223 
TOSLONGF 0331 1712 1707 TEFCKVKD 0849 2299 2257 
TCSLOPL O171 1492 1494 TEFCLKCT 0853 2314 2305 2311 
TOSLOP2 0177 1498 1500 TEFCLKRO O77C 2206 2184 2188. 2189 
TOSMRG 016D 1488 1484 TEFCMPKD 0940 2460 2260 2291 
TOSMVSP 0349 1752 1762 ’ _ TEFCMPOK 0824 2256 2251 
TOSNODEF 0350 1772 1769 . . TEFCMPR 0931 2440 2250 2285 
TDSODDTK 026E 1634 1631 TEFCONTU O8SE 2327 2307 
TOSPAST2 0354 1763 1745 TEFCOUNT 0800 2217 2324 2361 2474 2477 
TOSRDGS 0168 1482 4242 4256 4335 4375 4568 5584 TEFCTNXT 085D 2325 2314 2318 
TDSRECLN 0253 1605 1575 1600 TEFDATA O84A 2305 2476 
TDSRSTCT 025A 1612 2170 TEFDATA] 0908 2388 2480 
TOSSEXIT 0271 1637 1635 TEFDECOD 0949 2473 2162 2163 
TOSSOVFL 6270 1636 1633 TEFORPTG O70A 2066 . 2059 
TOSSPDL 034C 1755 1752 TEFEND 080A 2227 2218 
TOSSREC 0268 1631 1617 1625 1627 TEFENOHA 0757 2169 2473 
TDOSSTART 0300 1661 5563 5586 TEFENDPO 0861 2330 2332 2337 
TOSSTRSD 0339 1720 1717 1758 TEFENDRO O80D 2231 2275 4100 
TDOSSTRIC 0250 1601 1610 1614 TEFEROC 0839 2283 2279 
TOSTSTSH 033C 1711 1709 TEFFCTOK 074D 2154 2159 2151 - 
TOSUPTRK 0230 1569 2219 2231 2287 2295 4271 TEFGETKD 0910 2416 2241 2258 ; 
TOSUP1] 0241 1586 1582 TEFIDXED OT71LF 2096 2101 2128 2142 
TOSYUP2 0245 1590 1585 TEFINVTK 0870 2345 1623 1906 2428 2430 2433 4106 44046 . 
TOSWFLD 0317 1685 1678 TEFKEY 6900 2371 2475 
TDSWRG4 0168 1486 5561 $617 TEFKEY1] 0909 2385 2479 
TOSWRL 0175 1496 1492 : TEFLASTB 0738 2127 2116 2117 2136 
TOSWR2 0178 1502 1498 _ TEFL401 0706 2062 1495 
TOSZSD 0337 1718 1696 1711 1715 1771 TEFL703 0708 2064 2890 3422 4309 4657 4696 5806 
TOS4DATA 0330 1740 1672 TEFL711 O871 2346 
TDXACT 0425 1866 1858 _. TEFL714 0821 2253 
TOXALTRK 0478 1962 1947 ~ TEFLBOC 0750 2157 1913 
TDXCNTOP 0458 1928 1925 TEFL80D0 0767 2185 2182 2282 
TOXCYLSK 036C 1797 1951 1954 : TEFL82L 0748 2152 1909 
TDXDEFTK 0466 1941 2181 TEFNCE 0726 2103 2098 
TOXFLPHD O41F 1859 1936 TEFNDEF O76A 2188 2177 
TOXFMTWR 0433 1883 3645 TEFNECE 0743 2141 2127 2129 2131 21465 
TDXGOON O045F 1932 1929 TEFNEEDL 0817 2241 2238 
TOXIDXOK 0435 1885 1883 TEFNOHIT 0866 2335 2331 
TOXIOXP2 O418 1852 1939 TEFNOREP O72A 2107 1501 1884 2137 2146 3061 4228 
TOXIOX1 0418 1855 1851 TEFNOTS 0768 2189 2179 
TDXINCOP 0454 1918 1895 TEFNRERR 0707 2063 1787 2108 2885 3098 3397 3401 3418 3445 4292 4676 
TDXINDEX 040A 1838 2096 2927 : TEFNRF 0820 2252 1853 2261 2262 
TOXINVTK 044A 1906 1896 1897 1898 1900 1903 1904 1910 1926 . TEFNICCD 0922 2421 2417 
TOXLT12 0406 1829 1825 . TEFNTROC 0819-2244 2228 
TOXLT12 0374 1805 ts i - TEENTWRT 0844 2294 2289 2290 
TOXL746 0467 1942 3158 3162 | * TEENT256 0920 2632 . 2427 
TOXL800 0373 1804 1801 ' TEFNWRCT 0804 2221 2217 
TDXNEOC 0376 1807 1799 1803 \ ( TEFODTRK O87F 2363 2284 
TOXNEOK 0448 1908 1899 ~' TEFORL1 092C 2431 2434 
TOXNHAOP 0438 1888 1882 i TEFPAC 0733 2119 3174 
TOXNOP 0458 1925 1918 1920 | ,: TEFPAOK O75F 2177 - 2175 
TOXNTDEF 0469 1944 1940 | & TEERCOFD 083F 2289 2286 
TOXNTSCH 0431 1881 - 3843 | TEFROCNT 0852 2313 2340 
TOXNTWRT 043F 1895 1893 c TEFROK 0812 2236 2233 2245 
TDXNTL2 0474 1955 1952 j \- TEFROKS 08°4 2238 2248 2249 2299 
TOXODUTK C464 1939 1935 ! TEFRDRO 0778 2205 2190 
TOXOPC 0440 1896 1894 c- TEFRECO OB1E 2250 223% 2244 
TOXOPDON 0453 1916 1930 1931 j ‘ TEFREGWC O66E 2343 3. 2354 
TOXROGL 0425 1865 1832 ! TEFRESP O91A 2408 1344 1502 1847 1892 2154 2879 3075 
TOXRESP 0412 1846 : i c TEFRETRY O71C 2093 1887 
TOXRETUN 0367 1788 1762 TEFRSTAT O71A 2091 2079 2085 2086 2087 2089 
TOXSCNC:! 0454 1927 1915 2351 i TEFSCAN 0826 2258 2298 : 
TOXSKCPL 0400 1823 4705 ! e TEFSETRW 0700 2056 1829 2938 4122 “132 4162 4174 4195 4529 5421 5475 5826 
: t ; : 
DATE 15AUG75 O6NOV75 : PROG 10 FAO-1, , OATE 15AUG75 O6NOV75 PROG 10 FAO-1 
EC NO. 827765 827846 . PAGE 47i % EU NO. 827765 827848 PAGE a7A 
; 
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MOD 12 PART NO. 4247623 FAOl 3340 DISK MICROCODE 


FAO] 3340 OISK MICROCODE MOD 12 PART NO. 4247623 
PAGE 48 r PAGE 448A 
CROSS-REFERENCE C CROSS-REFERENCE 

SYMBOL VAL. DEFN REMARK CALLS ¢- SYMBOL = VALe.~DEFN, REMARK CALLS 

TEFSKP1 0776 2200 " 2195 2196 TENWROP O0A41 2634 2615 

TEFSKP2 O77A 2206 2199 2202 . TENWRTST OA2F 2615 2606 2607 

TEFSKP3 0773 2197 2200 - TENWSOO OA08 25721 2564 2572 

TEFSPD 0902 2373 2371 2376 TENXDDCF OASC 2665 2663 

TEFSPK 0811 2235 2226 2236 2237 2272 2292 2293 2296 » TENXDDOF OATF 2705 2675 2677 2680 2681 
TEFSRCH 0835 2279 222k | TENXP2 0836 2768 2746 2748 2751 

TEFSYFND 072C 2112 2094 2097 2103 , TENZDDDF OB3E 2776 2770 2773 

TEFSYNLP 071D 2094 2106 TENZER OA15 2587 2584 

TEFTGVAL O701 2057 2075 3051 TENZP2 OB3C 2774 2771 

TEFWADEX 0874 2349 2344 TERALTRK 0063 3148 1962 

TEFWAIT 970C 2074 4221 5578 TERCEANZ OCO4 2880 1921 

TEFWAITL 0703 2059 2061 TERCHKIG 0633 2931 2922 2923 2925 

TEFWCCD 0877 2353 2342 TERCKEND O0COO 2876 2102 

TEFWKEY 0828 2260 2256 TERCNT OC2D 2921 2901 

TEFWRCNT 086D 2342 2312 TERCORR 0021 3082 3055 

TEFWRK 0828 2263 2297 TERDATCK 0C16 2898 2896 

TEFWROK 0873 2348 2327 2343 TERDISPL OD4E 3127 3121 

TEFWRO 0770 219% 2172 TERDOECC 0000 3040 2905 

TEFXFEND 0749 2150 2242 TERDOIOX 0C32 2927 2895 

TENAJAX 096C 2538 2553 2669 2703 3557 TERECCHK 0030 3097 3106 

TENALCF OA768 2697 2684 TERECCLP ODOF 3055 3060 3068 3070 

TENCHCNT 0965 2523 2518 TEREQPCK OCIE 2890 2892 2896 

TENCHK OALA 2593 2575 2579 2716 3167 _ TERFCTO OD16 3065 3057 

TENCHKDR 0813 2730 2727 TERGETSO OD77 3171 22 

TENCHXFER OATC 2701 2699 TERINCDR 0072 3163 2573 é 
TENCHS OATe 2695 2686 TERINCHH OD6E 3159 3149 

TENCNTR 0842 2783 2711 2713 2738 2741 2762 TERLOWCT OD2A 3091 3083 

TENDCF 0959 2511 2507 TERL70& OCB 2919 2914 2917 3078 

TENDDCF 0ASO 2653 2511 2580 2531 2632 TERL70S5 OCOA 2886 2158 2882 

TENODDF 0800 2711 2705 TERL707 0C43 2950 

TENDDDR OAC 2595 3166  -TERL724 O0D61 3146 

TENDER OA2D 2613 2608 2611 TERL81L4 OCOD 2889 1902 

TENDFCCH 0829 2752 2736 : TERL828 OC5B 2981 2988 2989 3004 3005 
TENEND OAL2 2584 2581 TERMSG45 0C25 2913 2911 2931 2932 2934 epi 
TENFGONE OB6E 2838 2821 TERMSG46 0C21 2909 2902 

TENFLGO2 OB7A 2862 2659 2698 2758  ‘TERMSG47 OCLF 2907 2903 

TENFRDHA 0617 2734 2714 . TERNORME O001C 3074 3056 3066 

TENGOWAT OAOT 2570 256£ 2567 TERNOVRN OCOC 2888 2880 

TENHACNT OA61 2674 2653 TERNSCNT OC2A 2918 2900 2915 

TENHOP OA00 2560 2522 2526 2530 TERNSYER OCOF 2891 | 1905 2888 

TENKLDL 0826 2749 2737 2739 TEROUT OC76 3009 3006 

TENKTEST OBIF 2742 TERPACHK OC3D 2944 2176 

TENLINE 0A26 2606 2602 2603 TERRSCNT 0022 3083 3090 

TENLOOK OA3E 2630 2617 TERSETS3 ODSE 3143 3126 3136 

TENLSOK OB2F 2758 2755 TERSKPA 0027 3088 3085 

TENLTEST 0824 2747 2743 TERSTART OC48 2965 3707 3710 

TENLB825 OA10 2582 3525 _ TERSYNC OC7A 3016 2976 2977 2978 2986 2987 299% 3000 3001 3002 
TENNOK 0A32 2618 2631 TERTABLE 0C45 2958 2965 2966 

TENNOZER OAL3 2585 257% - -TERTEST1 0C56 2976 

TENOPDWN 0954 2503 2498 TERTEST2 OC60 2986 2980 

TENOPEN O86C 2835 - + 2832 | | ine | _ TERTST34 OC65 2991 3008 

TENRDHA OA6C 2685 2679 TERUNCOR OD1F 3077 2906 3118 3122 3144 nae 
TENSCNOP 0A4B 2645 2604 2638 2733 _ TERZLWP 0050 3142 3138 

TENSCNOR OA4SC 2646 2643 . TERZPATN 005A 32139 3076 3137 

TENSDDCF OB6F 2845 2666 2701 - -« TEECEXIT O€69 3309 3306 

TENSDDDF OB5E 2822 2723 2776 4065 4159 4771 oe TEECHECK OE75 3324 3253 

TENSTART 0951 2497 1916 2227 2330 2334 5325 ' £. TEECLOOP O£65 3305: 3308 

TENTENA] 0970 2555 2702 . TEECODE 0664 3304 3297 3301 

TENTENA2 O97E 2556 2668 _ ¢ TEESETUP OE£6C 3313 3223 3278 3319 3325 
TENTENB] OATF 2704 2555 ' . TECSKIP OFA 3278 . 3269 

TENTENB2 OA61 2673 2556 : - . - TEETIO 0E06 3210 _ 3635 
-TENTIOAL 9097C 2554 3556 | ao TEETIOB1 OELE 3234 3546 

TENTIOB1 OBE 2837 3538 ' \. TEETIOB2 0€44 3272 3547 

TENTIOB2 0879 2855 3539 . “| - TEETIORS OE70 3318 3245 3247 

TENTIOb3 OAOb 2574 256% 3540 re . -TEETIORT OE71 3319 3255 3257 

TENTIOB4 CALA 2592 3541 * TIMEQUT 0020 0988 

TENTOTSU 085D 2810 2783 2807 TIOADCHK 1028 3526 3524 3534 5801 

TENWRKOD OAOD 2579 2560 c TIOATTN OF41 3410 3405 

DATE 15AUG7T5 O6NOV75 PROG ID FAO-1 . DATE 1SAUGT5 O6NOVT7S | CO PROG ID FA0~1 
EC NO. 827765 827848 PAGE 48 \ £C NO. 827765 827848 PAGE. 48a 
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FAd1 3340 DISK MICROCODE MOD 12 
CROSS-REFERENCE 
$¥FB0L VAL. DEFN REMARK CALLS 
TICBEGIN OF78 3465 3373 3375 3362 
TIOBZOFF OF59 3434 3430 
TIGBSTOK OF4SA 3419 3416 
TIOCHXFR 101E 3516 2629 2834 2854 3233 32271 3537 3731 5686 5698 5704 
TIOCKOM OFSF 3440 3431 3434 
TIOCKGFF OFSE 3423 3420 
FIOCKSIZ CF6A 3451 1474 
TIOCKWRT OF TE 3474 3449 
TIOCLEAN OF 29 3383 3379 3389 3390 
TIOCMDEC L100 3627 3590 
TIOCMRJT 1102 3629 3647 3652 3667 3690 3691 3694 3695 2705 3706 3708 3709 
TIOCTROK OF39 3402 3398 
FIODODR1 1078 3618 2590 2594 2779 4068 4455 4774 
FIODFEND 102¢ 3530 3517 
TIODIAG OF 22 3376 3370 
TIOOMER OF3F 3408 
TIOOMINT OF 79 3466 3463 
TIOOMROY OF 12 3360 3414 
FIODGATT 1066 3594 3361 
FIODOSIO 1000 3481 3465 
FIOORV1 OFOT 3349 3346 
‘TIOEQCHK OF40 3422 
TIOFWAIT LOLF 3517 2570 3523 
TIGGREAT 1062 3587 3573 
TIOINFOK OFS54 3429 3424 
TIGL700 1304 3631 3467 4796 5450 
 TIOL718 OF5S2 3427 
TIOL827 OFST 3432 3439 
TIGNOATN OF 14 3362 3360 3614 
TIONODR 100A 3491 3489 
TIONTSNS OF2A 3387 3367 3368 3377 
FIOONLIN OF46 3415 3402 
T1001 1111 3651 3637 
TIOQITAB 1118 3661 3658 3660 
TIQO2RL L12E 3684 3681 
TIOO2ZR2 112F 3685 3680 
TIOQ2R3 1133 3689 3686 
 FIGQ2RS 1134 3690 3679 
TIOQ2RB 1138 3694 3678 
TIOQ2ZR9 113D 3699 3696 
TI0Q23 1127 3674 3636 
T1003 113E& 3703 3674 
TIOQ3RS 1143 3708 3704 
TIGROOCR 1146 3714 2538 3498 
FIORODOR 1148 3722 2588 2724 2777 3165 3210 3490 4043 4066 4772 5843 
TIORNTO 1053 3572 3567 
TIGRNZ LIOE 3645 3642 
FIOROK 1106 3634 3628 
TIORORC 1063 3588 3585 3586 
TIGSELCK OF4C 3421 ee : ‘ 
TIOSETUP 114E 3725 3718 
TIGS10 OFOO 3342 3992 
TIOSIZER OF7B 3476 3451 3452 3459 
TIOSKALL 1065 3590 3497 3568 . 
TIOSKOM OFT? 3464 3456 3458 
TIGSKOK OF30 3393 3388 
- TIOTENAL 1034 3538 2833 
TIOTENA2 1035 3539 2853 
TIGTENAS 1036 3540. 2565 
TIGTENAS 1037 3541 © 2628 
TIOTENB1 1947 3559 | 2584 
TIOTFEAL 103C 3546 3232 
TIOTFEA2 1030 3547 3270 
TIOTFERT 1108 3636 3322 
TIOTIOA2 1038 3542 3729 
TIOTIGB1 103E 3549 3511 
TIOTIOB2 1155 3732 3542 
TIOTWRAL 1039 3543 5685 
OATE 15AUG75 O6NOV7S 
827848 
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PROG I0 
PAGE 


4247623 


49 +. 


aay 


of 
“ < 


s™ 


FAO-1 
- 49° 


an 


FaA01l 


- SYMBOL 


TIGTWRA2] 
TIOTWRAS 
TIOUCOCR 
TIOUDDOR 
TIOVERKD 
TIG7OMB 


TIPBADNS | 


TIPBADYS 
TIPBSDA 
TIPBSGEN 
TIPDFOR 
TIPDIFDR 
TIPDMEXM 
TIPDSDRV 
TIPGETPA 
TI®GETOR 
TIPGOl 
TIPGO2 
TIPGO3 
TIPIOLE 
TIPL701 
TIPL815 
TIPNEXT 
TIPNIREQ 
TIPNOCHK 


TIPNOSTK 


 TIPNOSVP 


TIPNSCOM 
TIPSCSTK 
TIPSETSC 
TIPSIO 
TIPSIG1 
TIPSKBAD 
TIPSKCHK 
TIPSKCOM 
TIPSKEXM 
TIPSLECT 
TIPSTKCK 
TIPSTKCH 
TIPSTKE 
TIPSTRIN 
TIPUCH 
TIPUCWPRT 
TIPZEROW 


 TIPZERO3 


oo“ 
i , 


C 
ce 
C 
ce 


G 


a 


TOFILE 
TROCHK SP 
TROCHKO 
TROCKD 
TROCKDD 
TROCKDEN 


' TROCNTR 


TRDCOMP 
TROCOUNT 
TROCPHAR 
TRODATA 
TROOGN 
TRDDLNTO 
TRODOWN1 
TROENTRY 
TROEXTG4 
TROFUPCF 
TRUG3AM 
TROHAROE 
TROHAROO 
TRDINYCF 


OATE 


VAL. 


103A 
1038 
1148 
1140 
1125 
GF72 
1307 
1320 
1160 
1174 
130E 
132€ 
1220 
1332 
131F 
1161 
116C 
1173 
i311 
1202 
1240 
124C 
1205 
123F 
1335 


127A 
1215 
123A 
1265 
126C 
1270 
130F 
1279 
1300 
1255 
1239 
1178 
1200 
127E 
1312 
1203 
124E 
131C 
1159 
115D 
0002 
1528 
1560 
1438 
1426 
144D 
1532 
1365 
145C 
1516 
153F 
1436 
1568 
1417 
144E 
1550 
1579 
1444 
1400 
1402 
140F 


e 15AUG75 
\. EC NO. 827765 


3340 DISK MICROC"DE 


DEFN REMARK 


3544 
3545 
3716 
3724 
3671 
3459 
3967 
4005 
3749 
3782 
3974 
4019 
3838 
4023 
4001 
3755 
3766 
3773 
3982 
3808 
3886 
3885 
3811 
3872 
4032 


3944 
3827 
3864 
3920 
3927 
3948 
3980 
3943 
3957 
3901 
3863 
3791 
3866 
3949 
3983 
3809 
3887 
3998 
3742 
3746 
0938 
4330 
4395 


‘4194 


4170 
#215 
4337 
4086 
4239 
4305 
4354 
4188 
4403 
4152 
4216 
4375 
4423 
4206 
4119 
4121 
4142 


C6NOVTS 
827848 





#OD 12 


PART NO 4247623 
- PAGE 69A 


CROSS~REFERENCE 


CALLS 


5703 
5697 
2546 
2649 
3664 
3455 
3962 
3963 


1366 
3972 
3974 
3873 
4018 
3999 
3968 
3759 
3763 
4024 
1310 


3881 
3867 
3831 
1240 
3448 
5147 
4700 
3814 
3838 
3908 
3913 
3807 
3948 
3905 
5338 
3858 
3832 
1252 
3868 
3806 
3949 


3946 
1261 
3608 
4954 
1331 
4362 
4410 
3663 
3665 
4208 
2402 
2230 
2206 
4299 
2378 
2940 
4395 
4149 
5549 
4400 
4418 
4258 
3662 
3670 
4170 


3224 3238 


3969 | 


2808 2945 
4007 
3874 


3980 
3760 
3765 


1407 3987 


1243 
3607 
5167 


1246 
3613 
5172 


3822 
3862 3875 
3916 
3911 


3906 


3863 
3839 


3356 3811 


3981 


5370 
3840 
4942 


3887 
5001 


2080 2159 


4334 
2325 
4327 


3279 


3363 


4025 


1248 
3795 
5177 


3904 


5366 


3045 


418% 4186 4201 


4408 


5438 


4172 


3320 3326 3622 4520 5849 


3403 3920 3983 4005 4077 4682 4698 4707 5201 


4074 4085 5341 


1257 1260 1268 1270 1273 1276 1469 3359 3411 3442 
3861 3938 4284 4704 4741 4989 5134 5138 5141 514 
5184 5309 5311 5314 ; 


1254 
3829 
5181 


3939 


3050 
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FAOL #3340 DISK MICROCODE MOD 12 7  -~PART NO 4247623 Fa0l 3340 OISK MICROCODE 
PAGE $0 «+ PAGE 50A 
CROSS-REFERENCE . . a CROSS-REFERENCE 

SYMBOL VAL. DEFN REMARK CALLS - SYMBOL VAL. DEFN REMARK CALLS 

TROINVTK 1569 4406 4393 4407 4409 oe TSCDATA 1658 4547 2379 4543 

TROKD 140D 4140 3661 - TSCOFODD 1626 4490 —— ae6 

TROKEY 1510 4316 2242 2271 | '\ TSCEOF 1610 4476 — 4500 

TROKNTO 156A 4405 - 4394 TSCEVEN 1664 4560 4557 

TRDMEVEN 1570 4414 3554 . , TSCEVN 1617 4&70 4478 

TROMODD 1575 4419 2664 2700 . = ©  FSCROONE 1641 4517 4477 4505 _— 

TRONODEF 1531 4336 4329 4361 4364 4566 4569 . TSCFETCH 1622 4484 4470 4491 
TRONOFEI 1504 42866 1857 1854 4646 4649 4660 4670 4690 5497 aT _ TSCKEY 1652 4539 © 2259 : 

TRONOP 1518 4310 £298 4306 ' TSCNODEF 166A 4566 . 4563 

TRONOSP 1471 4260 4248 4249 -  ¥SCODD 1627 4491 4506 

TRONOSPL 1530 4335 4330 ie - FSCOR 1600 4438 3012 

TRDNRO 1433 4185 4181 ‘ *  FSCORE 164C 4528 . 4451 4526 
TROODTRK 1479 4269 2363 TSCORH 1648 4527 4452 

TROOPDWN 1500 4282 1797 2503 2937 4980 TSCRODCF 1670 4580 2656 

TRORDEFS 1339 4042 3982 TSCSPD 166€ 4571 4567 

TRORDFBI 150D 4295 1890 2877 3074 4035 TSCTWRBI 160A 4451 5853 

TRORDG] 1448 4213 5500 5502 TSCIBYT 1634 4504 4475 

TRORDHA = 1449 4211 4125 ' TSKBIGLP 1804 4757 4764 

TRORDKD 1440 4262 | 4165 . TSKCOK 1826 4811 4802 4806 

TRORSTOM 135A 4075 4042 TSKOIFOK 1731 4658 | 4654 

TRORWAIT 1457 4229 4227 TSKENDL 1761 4706 4671 4687 

TRORWEND 1454 4226 1630 4188 42C% 4212 4229 5431 5482 5856 TSKGETOM 1776 4738 4734 

TRORZERO 1447 4209 TSKHIDSK 1704 4610 1813 

TROROKDO 1407 4130 3669 : TSKHIDX 170E 4623 4614 

TROSBTIM 1503 4285 3095 3100 3103 4303 4652 5406 TSKHSLP 1751 4690 4694 : 
TROSCHA 246A 4212 TSKINTSK 1744 4677 4672 4674 

TROSCSRH 1441 4203 4534 TSKINVSK 1818 4795 1643 4142 4803 4810 4812 5419 5820 
TRDSOXFR 141C 4158 4147 4150 4151 | TSKMIN 1720 4641 4637 aa 
TRUSKP 1508 4293 4289 . TSKMOUT 1710 4638 4633 

TRDSPCOM 1551 4376 4399 4402 . TSKNOZER LTTE 4746 4732 

TROSPDAT 1559 4388 2373 TSKOELP 18606 £759 4156 
TROSPOLO 1562 4397 4551 $636 TSKPA 0518 1988 (4610 4620 4666 4841 
TROSPKEY 154A 4369 2235 2288 4272 4544 TSKRDSNS 176C 4728 3668 5326 

TROSPKLO 155A 4389 4372 TSKRECAL 1700 4606 3646 

TROSPLIT 152C 4331 4572 TSKRRBLG 1768 4718 3666 

TROSPNTO 1563 4398 4396 4403 TSKSEEK 170A 4619 3644 

TROSTCNT 1470 4259 4253 4255 TSKTOK 1758 4697 4691 

TROUSHA 1446 4210 4135 . ; TSKUCKON 1800 4753 4746 5054 

TRDVKD 141E 4160 3672 - TSKHIN3 185C 4880 2759 $382 

TRDLIMS 1452 4220 1877 TSKOOSK 1732 4659 4615 

TROSUS 1506 “288 4293 4294 TSKIOLP 186A 4894 4896 

TRKCNTR OSCE 1983 2124 TSK12LP 183C 4828 4830 

TRKOFL 0001 1059 1611 1636 2343 2350 TSK20LP 1878 4906 4910 

TRKOVK 0010 0910 1904 TSK3WIN 1817 4791 3589 3643 3657 3671 
TRSERREG 0110 1357 1350 1351 | -TSK3OLP 1867 4891 4893 

TRSEXIT 0073 1298 1186 1187 ‘ TSK54LP 182E 4814 4816 

TRSEXTRG 0060 1288 1281 |. YSK6LP 18631 4817 4819 

TRSFORCE 0107 1334 1336 |. TSNBY16 1827 5296 5276 

TRSLSRST 0002 1161 1156 1294 |  .TSNCHKWR 1974 5050 4745 

TRSNOATT 0057 1265 1263 |  TSNCNV12 1966 5036 5023 . 

TRSNSLP. 0200 1316 . - / 1265 1318 4733 © el J ; ,  TSNCONV 1959 5022 4984 5012 5162 
FTRSNXTDR 004A 1252 1280 { TSNCTLCK 1A09 5085 5075 

TRSREG 0024 1200 1206 _ TSNDIFCK 1A12 5096 5077 

TRSRST3 0030 1221 1213 \ TSNOMSZE 1A15 5100 5078 

TRSRST3X 0048 1250 1286 TSNORVCK LALA 5106 5079 

TRSTART 0000 1156 ~ TSNEXIT 1829 5301 4924 5209 5253 
TRSTART2 0020 1212 L157 \. TSMEMCF 1BOF 5252 5247 5248 5250 $260 
TRSTRAPA 0104 1331 | 1296 1354 TSNFMTL LA2B 5132 4925 
“YRSYSRST OO2ZF 1217 1334 3623 3824 ¢ TSNEMT2 1818 5272 4926 

FRSLOOMS 0068 1282 1284 . ‘eu TSMEMT4 1800 5237 4928 

TSCADJL2 1639 4509 4494 TSNEMT45 1804 5241 5228 

TSCANRD 160C 4455 4442 vy TSNFATS 1A73 5218 4929 

TSCARND 1618 4474 — 4471 \.- TSNEMT6 LB1F 5268 4930 

TSCCALC 163A 4510 4473 4480 TSNGENO2 19LE 4959 4962 

YSCCHKLD 1628 4495 4492 . y TSNEIOLE 183C 5327 | 5320 

TSCCHKL6 1636 4506 4496 ; . , % TSNNORM 1908 4936 1358 1472 1806 1943 2065 2187 2255 2347 2887 2920 2951 3147 3311 3409 3428 
TSCCHK!.7 L6LF 4478 44714 5. cae 3632 3693 4105 5471 
TSCCKSFEL 1668 4567 4564 . ( TSNNOSB 1863 5371 §352 

a po 
DATE 15AUGTS O6NOV7S | : PROG 10 FAO-1;  OATE 15AUG75  O6NOV7S | PROG 10 rs 
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FAOL 3340 DISK MICROCODE ----- MOO 12 PART NO» 4247623 FAO] 3340 DISK MICROC’:DE ----— MOD 12 PART NOe 4247623 


PAGE 51. PAGE 51A 
CROSS-REFERENCE *. CROSS-REFERENCE 
SYMBOL VAL. DEFN REMARK CALLS ~ SYMBOL VAL. DEFN REMARK CALLS 
TSNNTSAM 1865 5373 5356 TWRNZERO LE2T 5769 5760 
TSNNTSK 1956 5015 5007 : - TWRODOH 1C€20 545i 5447 
TENNTLA 1A47 5166 5157 ’  TWROODHD 1873 5394 4121 4130 5390 5462 
TSNOPOWN 1933 4980 4978 TWROPEN 107C 5710 5684 
TSNRETUN 1A08 5083 5088 5102 5109 5111 5113 5116 » TWRROGL 1C4A 5494 418? 5864 
TSNRSTOR 1868 5376 5359 ; * JTWRRKD 1C€03 5416 3689 
TSNRWCHK 1LA26 5119 5081 . TWRRKCOM 1037 5620 2399 4349 5658 
TSNSENSE 190A 4939 4721 - TWRROG 1C2B8 5462 3693 5459. 
TSNSKNFL 1826 5295 TWRSETHD 186E 5389 4161 4194 4528 5420 
TSNSKTMR 1B4B 5347 3808 TWRSPCNT 1016 5583 5559 
TSNSNS16 1A5@ 5175 5165 TWRSPFLO 1052 5656 
TSNSPEC 1929 4970 4965 4968 TWRSPKO 1050 5654 5616 
_TSNSVOOK 1A6F 5206 5193 TWRSTFLG 1C79 5544 §532 5538 5542 
TSNSYMCD 1A00 5075 5192 TWRSVPOP 1025 5456 5446 
TSNS12 1925 4966 4963 TWRIENS 1630 5778 5750 5763 5768 
TSNS2 1928 4969 4966 Tu RTICBL 1065 5687 3543 
TSNTABLE 1900 4924 4936 5017 TWRIIOB2 1077 5705 3544 
TSNUPGM 1A10 5093 5076 TwRTIGB3 1071 5699 3545 
TSNWIN3 1868 5380 2657 2678 TWRTSCAL 1LE6C 5853 4448 
TSNO2DON 1922 4963 4960 TWRTIWRA] 1E6A 5851 5428 
TWRAFTER LE20 5775 5765 5771 5773 TWRIWRA2 1E6B 5852 5479 
TWRCHAN 1636 5794 5789 TWRTWRB1 1C11 5430 5851 
TWRCHCNT 1£00 5730 2523 2750 4143 5422 5476 5627 TWRTWRB2 1C3E 5481 5852 
TWRCHEOR 1E5C 5837 4449 5429 5480 TWRIWRB3 LE6D 5855 5830 ; 
THACSKCR 1E35 5788 2540 TwRWwCCD 1E4B 5814 3698 
TWRCHKOR 1637 5790 2589 2730 2778 4067 4458 4773 5844 TWRWHAOK 1C2C 5463 5453 5455 
TWRCHKFL 1021 5452 5448 | TWRWHEW 1615 5751 5745 5746 
TWRCKXLO 1E48 5807 5799 TWRWROK 1C€35 5472 5468 
TWRCHKSP 10633 5616 5646 TWRWSRW 1C11 5432 5427 
TWRCHNOW 1062 5684 5678 5680 TWRZDF 1£62 5843 5840 
TWRCKD 1€31 5468 3688 TWRZER 1044 5637 5635 
TWRCKORO 1€51 5501 5490 TWRZP2 1660 5841 5838 
TWRCOML] 1DOF 5572 4260 TWR120US 1014 5577 5627 
TwRCOM2 1012 5575 4267 5591 UCWPTR OS1E 1991 1402 2789 3349 3888 4661 4729 4759 4765 4993 5327 for aes 
TWRCOUNT 1D00 5557 2204 2348 UNCK 000A 0743 2809 3404 3407 3423 3425 3485 3595 3830 3833 3848 3884 4683 
TWROATA 103F 5632 2375 5613 UNITCHK 0002 1023 1367 2564 2579 2606 2655 2737 4936 4937 5321 
TWROLNTO 1049 5642 . 5634 UNSOELCH 0020 0860 
TWREVNHO 1870 5391 3687 4119 4173 5460 5814 UPDTRDUS 0002 1003 2783 4178 4196 4205 4210 4530 
TWRFODDF 1055 5671 4441 5426 5478 5829 WHAOK 0008 1042 1398 2687 3629 3641 3655 3662 3685 3692 3697 3703 3769 4734 5454 
TWREMTZE 1644 5803 2134 2153 2552 2583 2586 2985 3087 3433 WRENABLE 0020 1030 3450 5417 5466 5815 
TWRGOTDOF 1LO7E 5712 5671 5687 5686 5769 WRGATE 0040 0859 
THRGT256 1006 5419 5472 WRG2 0020 0830 5618 
TWRGLOP 1C52 5562 £505 WRGS 0080 0835 1487 2392 
TWRHA 1c55 5507 WRITE 0020 1041 1893 2256 2289 2297 5432 5483 5857 
TWRHARO 1C€53 5504 5485 5486 WRITEOP OOOF 0802 1486 5548 5564 5619 5654 
TWRHAROE 1019 5443 3684 WO 0010 0768 4999 5000 5007 5106 5109 S112 5113 5116 5185 5193 5208 
TWRHAROO 1C€19 5444 3699 . wl 0011 0769 4417 4422 4426 4967 4971 4973 5090 5091 5178 
TWRHOSET 1875 5396 5393 - 10 001A 0778 4947 5078 5102 5103 5104 5132 5142 5226 
TWRINVCF 1651 5820 5817 5818 5821 $822 5823 5824 wll 0018 0779 4948 5145 5227 5272 
TWRKO =: 1€00 5413 3683 | , wil2 Onic 0780 4949 4964 4559 5120 5148 5219 5222 5273 
_ TWRKOCMD 102C 5609 5602 » Wid 0010 0781 4950 5013 5220 5223 
TWRKEY 1D1F 5596 2220 2263 Wis OO1E 0762 4951 5014 5276 5292 5297 
TWRLDFCT 1030 5626 4383 - WLS OO1F 0783 4952 4953 5277 
THRLS1 «=6.1E5E 5839 5837 {we 0012 0770 4969 4975 4992 5076 5094 5155 5191 
TWRL78O0 1033 5470 |” ; W3 0013 O771 4997 5182 5186 £168 
TWRL800 1032 5469 «$417 $816 C w4 0014 0772 4996 5086 5097 5098 5163 5168 5169 5173 5290 5295 
TWRLBO2 CLE 5449 3438 5451 5454 Se WS 0015 0773 4985 5164 5174 
TWRLB2% 1€41 5800 2620 5808 W6 0016 0774 4986 5082 5085 5089 5093 5096 5100 5108 5110 5112 5114 5119 
TWRMERGE lELE 5760 5743 Ee" 0017 0775 4955 5015 5083 5083 5086 SC87 5091 5094 5098 510i 5104 5106 5107 5115 S117 
TWRARGL 102F 5612 5605 5608 & $117 5120 5156 5189 5240 5242 
TWRMRG2 1936 5619 #8 0018 0776 4945 5075 5077 5079 S080 5135 5153 5224 5275 
TRRM256 1E2C 5774 5770 ¢ ug 0019 0777 4424 4425 4946 5139 5225 
THRNKLOL 1£16 5752 5759 - XFRDODF 0008 1001 2711 2712 2916 4124 4134 4178 4196 4525 5324 
TWRNMANY 1065 5524 5516 5520 5521 XFRHACNT 0010 1000 2254 267% 2676 2918 4124 £196 
THRNMHA 1C5E 5517 5513 ¢ XMITCNTL 0009 0797 1274 5313 
TWRNMRO = 1C62 552i 5517 < ZER 0010 O75i 1208 1208 1283 1299 1302 1303 1308 1316 1319 1319 1341 1348 1349 1376 1453 
THRNOADO LEELA 5756 5753 1453 1490 1528 1539 1563 1563 1584 1567 1589 1603 1603 1637 1637 1723 1723 
TWRNODEF 1035 5616 5645 5648 é 6 1751 1773 1774 1774 1786 1828 1850 2105 2395 2419 2420 2528 2571 2610 2614 
DATE 15AUG7T5 O6NOV75 PROG 1D FAQ-1 , DATE 15aUG75 O6NOVTS . PROG ID FA0-1 
EC NO. 6827765 827848 PAGE 51% EC NOs. 827765 827848 PAGE — 51A 
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SYMBOL VAL. 


2L5CH 
ZLSEXTB 
“ZLSEXTC 
ZLSEXTE 
ZESEXTEFC 
ZLSEXTFO 
ZLSFC 
ZLSFCHAN 
ZLSFO 
ZLSLOCB 
ZUSLOCE 
ZLSLOC? 
ZLSRFILE OO4A 
ZLSSCHAN OOCD 
ZLSWFILE OOCE 
1 = MiSSING 


0017 
OOOE 
OOOF 
0uoDd 
0009 
OOO0A 
ootl 
0058 
0012 
0006 
0005 
0007 


GPTIONS I~ EFFECT: 


3340 OISK MICROCODE 


DEFN REMARK 


1123 
1118 
1122 
1119 
1120 
1121 
1124 
1131 
1125 
A115 
1116 
1117 
1129 
1132 
1130 





CALLS 


2642 
3059 
3522 
4033 
4583 
“912 
5464 
2827 
1164 
1168 
1265 
1166 
1167 
1169 
3230 
1170 
1161 
1162 
1163 
1169 
2827 
2967 


2775 
3113 
3530 
4057 
4591 
4915 
5465 
2851 
3526 


1386 
3508 
1388 
4415 
1200 


1170 
2851 
4555 


QUOTE OR CHARACTER STRING 
1 STATEMENTS FLAGGED IN THIS ASSEMBLY 
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FAGO 3340 DISK IPL MICROCODE ~ MOD 12 os NO. fees ; FASO 3340 DISK IPL MICROCGDE - BOD 12 pant NO. S216 33 
E ok 
18M CONFIDENTIAL UNTIL FIRST CUSTOMER SHIF ; T84 CONFICENTIAL UNTIL FIRST CUSTOMER SHIP 
CO 
L0C. OBJECT CODE STM SOURCE STATEMENT '  40C. OBsECT CODE STH SOURCE STATEMENT 
{ 
2 OPTION AREF © o010 72 wo OLR 0<i> WORK REGISTER 0 
3 PRINT GEN 0021 73 wi DLR 1<1> WORK REGISTER 1 
4 RELIN PN= 4247635 ' p>, 0012 7% W2 OLR 2<1> WORK REGISTER 2 t 
4 RELIN EC=827785 i ‘. 0013 75 3 DLR 3<1> WORK REGISTER 3 
0000 6 ORG x*00008 0014 76 He DLR &<1> WORK REGISTER 4 
7 copy EQUATES : x 0015 77-45 DLR 5<1> WORK REGISTER § 
8 ¢ | &” 9016 78 W6 DLR = 61> WORK REGISTER 6 
9 ¢ EXTERNAL REGISTER ASSIGNMENT -—~ SENSE TYPE | 0017 79 W7 ALR 7<1> WORK REGISTER 7 
10 @ ~, 0018 80 8 DLR 8<1> WORK REGISTER 8 
0035 Al FT! DER 23 FILE TAG IN L- 001s. 81 W9 DLR o<1> WORK REGISTER 9 
0028 12 HES DER i4 HARDWARE ERROR SENSE OOLA 82 WLO DLR 10<1> WORK REGISTER 10 
0029 13 ADS DER 9 ADAPTOR DIAGNOSTIC SENSE | C 0018 83 ¥11 DLR 11<1> WORK REGISTER 12 
0022 14 FBI DER 2 FILE BUS IN , &. O01c 84 W12 OLR 3-1 21> WURK REGISTER 12 
0038 15 CO2 DER 27 CHANNEL QUT REGISTER_2 | 0010 85 wWi3 DLR = 13<1> WORK REGISTER 13 
16 ® ~~ OOLE 86 W14 DLR =14<1> WORK REGISTER 14 
1? * EXTERNAL REGISTER ASSIGNMENT —— CONTROL TYPE |; & oo 87 WLS DLR 15<1> WORK REGISTER 15 
18 *® ' 8B & 
6033 19 DXC perk 19 DATA TRANSFER CONTROLS | O 89 * EXTERNAL REGISTER FTO 
0025 20 FIG DER 5 FILE TAG GATE 90 + 
0020 21 FIR DER 13 FILE TRAP RESET | 0001 91 SETUNSUP EQU x*01? SET UNSUPPRESSIBLE REG 
002F 22 SCN OEFR 15 SCAN OP CONTROLS | cm, 0082 92 POLLDEV EQU xX*82* POLL DEVICE 
0027 23 FHF DER 7 FILE HARDWARE FLAGS © o00z 93 POLLCNTL EQU = x*02® POLL CONTROLLER 
0023 24 OST DER 3 DEVICE STATUS { 0083 94 SELDEV EQU  xX*635 SELECT DEVICE 
002E 25 FBG DER 146 FILE BUS OUT | gr, 0003 95 SELFNTL EQU  x*O38 SELECT CONTROLLER 
0026 26 FTO OER 6 FILE TAG OUT © ose 96 RDSTATUS EQU XK*°84* READ STATUS 
0036 27 FCT DER 22 FILE BYTE COUNTER 0085 97 SEFROWR EQU  xX*B58 SET READ/URITE 
0021 28 CCH DER i CHANNEL BUFFER COUNTER HI | m, 0004 98 RDERROR EQU xX‘04# READ ERRGR BYTES 
0032 29 CCL DER 17 CHANNEL SUFFER COUNTER LOW © coos 14 - 99 RSTROWR EQU = X*05¢ RESET READ/WRE TE 
003F 30 SBO CER 31 SENSE BYTE O 0008 100 ECCCNTL EQU xXx*O8? ECC CONTROL 
0037 31 S$B1 DER 23 SENSE BYTE 1 | . 0009 101 XMITCNTL EQU = x*09# TRANSMIT CONTROL 
0030 32 B00 DER 29 CHANNEL IN REG_O | © oo0a 102 ROCNTL EQU xX*OA* READ CONTROL ‘ 
002A 33 FIl DER 10 FILE IN REG_1 oooc 103 DISPCEHI EQU x*oOC® DISPLAY CE LAMPS HIGH 
34 ¢ ‘ , 000D 104 DISPCELO EQU =x" ODF DISPLAY CE LAMPS LOW 
Bs alee ee 35 * LOCAL REGISTER ASSIGNMENT | © oooe 105 READOP EQU xX*OE® READ OP 
36 © { oo0F 106 WRITEOP EQU  X'OF* WRITE OP 
0000 37 LO DLR 0<0> WORK REGISTER | gm 0089 107 SNSINFC EQU  x*89° SENDE INTERFACE 
0001 3a Ll DLR 1<a> WORK REGISTER | © cosa 108 DIAGSET EQU xK*BaAt OIAGNOSTIC SET 
0002 39 12 DLR 2<0> WORK REGISTER 0088 1C9 SETHAR EQU  xX*8B* SET HAR REG 
0003 40 13 DLR 3<0> WORK REGISTER | gm, CO8C 110 SETDIFF EQU  x*sCe SET DIFFERENCE REG 
ee 41 L4 DLR 4&<0> WORK REGISTER ; © oose ill CONTROL EQU xXx*8Fe CONTROL TASS 
42 15 OLR 5<0> WORK REGISTER 112 ¢ 
gone “3 is puk <0? wORK REGISTER O 113 * EXTERNAL REGISTER FBO-—UNDER RD ERRGR SYTES TAG. - 
4 < 1 Ne 114% 
0008 45 18 OLR 8<0> WORK REGISTER 0080 115 ECCLOW EQU x*B0F READ ECC LOW 
0009 46 GEN1 DLR 9<0> GENERAL MARKS nEG_2 | gn, 0040 116 ECCHI EQU = X'4O8 READ ECC HIGH 
000A 47 UNCK DLR 10<0> UNIT CHECK MARKS |< 0010 117 PHYADDR EQU  x*10° READ PHYSICAL ADDRESS 
0008 48 STAT OLR = 11<0> STATUS BYTE 0002 118 CTLRERRI EQU = x*Q28 READ CONTROLLER ERROR BYTE 1 
pane 3 aoe pee uae oeue © 0691 L19 CTLRERR2 EQU = x'O1® READ CONTROLLER ERROR BYTE 2 
- 120 ® 
OO0E 51 PAC DLR 16<0> PHYSICAL ADOR HIGH | 121 # EXTERNAL REGISTER FBO--UNDER READ OP TAG 
oooF 52 PAH DLR 15<0> PHYSICAL AOOR LOW ; C: 122 ® 
53 8 : & go10 123 CLKG3 €Qu  -X*10° CLOCK 63 
54 8 0020 124 CLKG2 equ = x*208 CLOCK G2 
0010 55 ZER OLR 0<1> WORK REGISTER CONTAINS ZERO i ys 0039 125 RDGS EQU  x*30° RELD G4 
0011 56 CEB1 OLR 2<1> COMMAND XEQ BYTE 1 (> so4e 126 ROG EQU =X "40? READ G2 
e012 57 CEB2 OLR 2<1> COMMAND XEQ BYTE 2 0050 127 RDG3 EQu x*50° READ G3 
58 MSC1 DLR 3<1> MISC UPGM MARKS REG_1 | x, 0080 128 ROG? EQU = X*60* READ 52 
cote 59 MSC2 DLR 4&<1> MISC UPGM MARKS REG_2 i {> oe70 129 RDG3AM = EQU CX 708 READ G3 AM SEARCH 
15 60 FLAG OLR 5<1> FLAG BYTE—FROM DDCF OOEO 130 SPRDG2 EQU xX*E£0* SPECIAL READ G2 
o0i6 61 CHI OLR Scie _ CYLINDER HIGH--FROM DDOCF (3340? C 1321 @ : 

0 62 CLO DLR 7<1> CYLINDER LOK--FROM DOCF (3340) i AS 132 ® EXTERNAL REGISTE FRO—<UN RITE | 
0018 63 HEAD DLR 8<1> HEAD LOW--FROM DOCF (3340) 133 © : pene Re eewn ane 
0019 64 REC OLR 9€1> RECORD NUMBER=—FROM ODCF 1m 9020 134 WRG2 EQU X*20° WRITE S2 
OOLA 65 KCNT OLR 10<1> KEY LENGTH--FROM DDCF ' €> 9040 135 FMTG1 EQU = _K*408° FORMAT G3 
0018 66 OCNT OLR L1l<1l> DATA LENGTH LOW--FROM DOCF 0050 136 FMTG3 €QU X*Syt FORMAT G3 
00ic 67 NREC PLR 12<1> NUMBER OF RECORD--FROM DDCF |. 0060 137 FMTGZ EQU X*60° FORMAT 62 
0010 68 SDH DLR = 13<1> SKIP DISPLACEMENT HIGH (> 0070 138 FMTERASE EQU = x*708 FORMAT ERASE 
pore - SOL OLR 14<1> SKIP DISPLACEMENT LOW 0080 139 WRGS €Qu_x*BOF WRITE GO 

O FFLS OLR i1S<1> FLAG @YTE-—FROM FILE | mx, 00CO 140 SPFMTGL EQU = x*CoOF SPECIAL FORMAT S 
71 @ : €? o0£0 141 SPFMTIG2 EGU X*EO* SPECIAL FORMAT 62 
| ; 
| gm 
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FAtO 3340 DISK IPL MICROCODE - MOD 12 oe NO. neste FA60 3340 DISK IPL MICROCODE - MOD 12 or ms azeues? 
IBM CONFIDENTIAL UNTIL FIRST CUSTOMER SHIP | 186 CONFIDENTIAL UNTEL FIRST CUSTOMER SHIP , 
it 
NN 
LOC. OBJECT CODE STM SOURCE STATEMENT | LOC. OBJECT CODE ST SOURCE STATEMENT 
142 © | © oo0s 212 NOSYNC €0U xX*O«ee et ~- NO SYNC BYTE FOUND 
143 * EXTERNAL REGISTER FBO—-'NNDER SET HAR TAG 0002 213 DATAFND €QU xX*O2¢ ee —— DATA FOUND : 
144 & fy 0010 214 TRKOVN EQU = xX*108 WRITE ONLY -- TRACK OVERRUN 
oo0so 145 FORWARD EQU x*808 OIRECTION BIT FOR SEEK | <—F 215 # 
0040 146 DLFF256 EQU x*4QOF DIFFERENCE COUNT 256 BIT | zis EXTERNAL PESGISTER FTG 
147 © 
148 % EXTERNAL REGISTER FBO--UNDER CONTROL TAG (X*8F*) | - 0080 218 TAGATE EQU  x*808 TAG GATE 
149 @ { 0040 219 SELHOLD ECU xK*eOF SELECT nore 
0008 150 SKSTART EQU  x*0B° SEEK START 0020 220 FORCERYC EQU x*20¢ FORCE RECYCLE 
0004 ei RSTATIN EQU  X*CGF RESET 4TT7ENTION | > 0008 221 RESPONSE EQU = x*CBt RESPONSE GATE 
000c 152 CHKRST EQU x*CCe CHECK RESET | 0004 222 FOTOFI! €QU = xX*O4t DIAGNOSTIC GATE FO REG TO FI REG 
0002 153 REZERO EQU = x*O2¢. REZERO | C 0002 223 OSYNCIN EQU  xX*O2* DIAGNOSTIC SYNC IN 
0009 154 SNSDIFF EQU  x*'09* SENSE DIFF REG | \° 0002 22% ALLOWFBI EQU  xX*O1® ALLOW FBI PARITY CHECK 
0005 155 SNSHAR EQU = xX*05® SENSE HAR l 225 # 
00c3 156 SENSTATO EQU = x*038 SENSE sratus evte Oo ace : EXTERNAL REGISTER OST 
0083 157 SENSTATL EQU = x*g3* SENSE STATUS 8YT . 
® 0080 228 10PBUSY EQU xXx*BOF ATTACHMENT BUSY 
boss iss ceneTies En epee cence ate aVIE ;: | 0040 229 CHOUTVAL EQU xXteOF CHANNEL OUT REG VALID 
0013 160 SENSTAT4 EQU = x*13¢ SENSE STATUS BYTE ¢ | C 0040 230 DIFFZERO EQU X*eOe DIFFERENCE COUNTER EQUAL ZERO 
0008 161 SNSROWR EQU xX*OB* SENSE RO/WR | 0020 231 ENDCHXFR EQU = x*208 END OF CHANNEL DATA XFER 
0007 162 RWCTRLE EQU x*O07# READ/WRITE CONTROL | oO 0010 232 ALWCHXFR EQU = X* OF ALLOW CHANNEL DATA XFER 
0040 163 WRGATE EQUL = x*4aoFt WRITE GATE 233 2 a ca as ae 
0020 164 UNSQELCH EQU = x*20* | * 
0010 165 RDGATE EQU xX*108 235 ¢ 
nbee 166 AMSRCH Pe x*B08 AM SEARCH | © 0080 236 SCANRD EQU = x*80" SCAN READ OR CMD 
167 @ ! 0040 237 SCANHE- EQU = X*4O# SCAN HIGH OR EQUAL 
168 * EXTERNAL REGISTER FTE | jm, 0020 238 SCNSPLIT EQU xX*208 SCAN SPLIT FIELO 
169 ® | © 0010 239 LASTREC EQU x*10* LAST RECORD see 
0080 170 SELACT EQU = x*80° SELECT ACTIVE 0008 240 ALWFXFQ EQU xX'O36 ALLOW FILE XFER 
0040 171 TAGVALIO EQU = xX*40O8 TAG VALID : , 0004 241 FILECDD EQU xX*Cet FILE GOD XFER : 
0920 172 CHKEND EQU  xt29G¢ CHECK END | © 0002 242 TOFILE €QU x* 02" DATA YO FILE an 
0010 173 CEALERT CGY  xK*L08 CE ALERT 0001 243 NFILEXFR EQU X*O1 INHIBIT FILE TO CS xf 
0008 174 NORMEND EQU x08! NORMAL ENO O ass * Dea ero pee 
—_— ee — 0004 175 SYNCIN EQU xX*04? . SYNC IN 245 * eee 
000 176 INDEX EQU_ xx*02¢ INDEX 246 & 
AooL 177 ERRALERT EQU = x*O1* ERROR ALERT 0080 247 AOTCKRST £QU = x*908 ADAPTER CHECK RESET 
178 # } © 0040 248 IOATIN EQU X*&O® 1/0 ATTENTION LIGHT 
179 © EXTERNAL REGISTER FBI -- OUMMY REGISTER FOR GATING FIO i 0020 249 DMATIN EQU- xX*208 DATA MODULE ATTENTION--CAUSES aN INTERRUPT 
180 * | Cc: 0010 250 IOCONB €QU = xX*108 1/0 comers oe 
0000 181 OuMMY €Qu) £0 i S& 0008 251 ERRTRAP EQU X*08B* OISABLE 
182 © _ i 0002 252 INVPRTY EQU  x*Q28 INVERT PARITY 
183 @ EXTERNAL REGISTER FBI -- UNDER RD STATUS TAG oO 0001 rah ALLOWIOX EGU ss xX? OL ENDEX ENABLE /RESET 
184 @ 
0080 185 CTLRCHK EQU x*80° CONTROLLER CHECK | 255 & EXTERNAL REGISTER FHF 
s 
9020 Tet onveia. “e0u°hecoe’ “onue CnccR GS ooeo 257 SPRESET EOU x*60* SYSTEM/PWA ON RESET 
0010 1688 RWCHK EQu = K*108 READ/WRITE CHECK | 0040 258 CHKRISET EQU XK*4O® CHECK RESET CHANNEL 
0008 189 ONLINE EQU x*OB® ON LINE | 0020 259 ERRMODE EQU xXx*208 FORCE ERROR MODE 
0004 190 ATTN EQU xt C4e ATTENTION i 7) ocos 260 ENDTRAP EQU  x*08B* END OF TRAP COUNT 
0002 191 BUSY EQU =. X "028 BUSY 0004 261 SCNSAT EQU = X*O4® oem SaESOFIED 
x*o1® SEEK COMPLETE 0002 262 SCNEQ eQu = x* 028 A 
nee a ai pe : j { oO 0008 263 ENOFILEX EQU x*O;l® END OF FELE DATA XFER 
194 © EXTERNAL REGISTER FBI -- UNDER RD/WR TAG 264 © 
195 @ oO 265 * EXTERNAL REGISTER C02 
0002 196 10XMK €Qu) x*o2¢ INDEX MARK 266 @& 
0001 197 ACTRK EQUX* 018 ACTIVE TRACK 0091 oot enoue equ x*o1* ODD ADDRESS BIT 
. 198 s t i 
199 # EXTERNAL REGISTER FBI -- UNDER RO/WR ON TAG VALID © eee : EXTERNAL REGISTER Oxc 
200 * | 
0020 201 LOSTORT EQU = xX*208 “tOSTt ORIENTATION | 0080 271 DATACHAN EQU  X*80* DATA TO/FROM CHANNEL eae Se 
Bock 202 STATOVN EQU x*O8t STATUS OVERRUN ' © oos0 272 CHANODD EQU = X*40# CHAKNEL ODD XFER 
0002 203 RGIUNORT EQU = x*O2* READ Gl UNORIENTED : 0020 273 LSRCSR = EQU a eocre steat REQUEST 
*o1e 01 274 LSRSELDR EQU xt 
ore 305 oo pen ener Sete | G Gooe 275 ALOWCHAN EQU  x*O8* ALLOW OIFF COUNTE2 CHANNEL 
206 * EXTERNAL REGISTER FBI -——- UNDER RD/WR ON CHECK END 0004 276 ALOWFILE EQU X?046* ALLOW OLFF COUNTER FILE 
207 ¢ : ooc2 2TT SUBTRACT EQU xK*O2* SUBTRACT 
0080 208 CMOOVN EQU = x*8O# READ/WRITE -—=- COMMAND OVERRUN | @ 0C02 278 CHNLIGYT EQU xK°OL® CHANNER QNE BYTE XFER 
0040 209 OATAOVN EQU x*40t READ/WRITE -—= DATA OVERRUN | 279 ¢ y 
0010 210 DATACHK EQU  X*10# READ GNLY <= DATA CHECK ° 280 @ EXTERNAL REGISTER xS 
0008 211 NOAM EQU  x*OB* ae -- NO AM FOUND | i 281 ¢ 
DATE 22AuG7S PROG 19 FAb-0) ate 22auG7S - PROG ID FA6-0 
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FA6O 3340 OLSk IPL MICROCODE - MOD i2 Bree NO. 4247635. FA&O 3340 DISK EPL MICROCODE - NOD 12 Bice NOs een eee 
IBM CONFIDENTIAL UNTIL FIRST CUSTOMER SHIP ; | ZBM CONFIDENTIAL UNTIL FIRST CUSTOMER SHIP 
ee 
loc. OBJECT CObDée STA SOURCE STATEMENT ioc. OBJECT CODE STM SOURCE STATEMENT 
cose 282 CSOVRUN €&QU X*8o8 CYCLE STEAL OVERRUN C 0006 352 ENDKEYL EQU X*06? END OF FIRST SEGMENT KE? 
0040 283 CICHECK EQU X*40t CIO/CIL PARITY CHECK 0007 353 ENODAT: EQU X*o7e END OF FIRST SEGMENT DATA 
0010 284 CHANXCHK ECY xX#10t CHANNEL TRANSFER CFECK on a + chia eames sect ’ 
oocs 28S ADAPTCHK EQU X*0s* ADAPTER CHECK Powe 5 & e 
ore 356 © 
a one als eee ae Pee ORE nee | ~-. 0080 3 357 ROSNS EQu X*sot READ DIAG SENSE CMD 
288 % EXTERNAL REGISTER ADS | t. 0G40 358 MUTRK EQU x*4o° MULTIPLE TRACK OP 
289 & 0020 359 MUREC EQU x*208 MULTIPLE RECORD OP 
oose 290 SYNCGUT €EQU Xteot SYNC OUT \ -. 0008 360 I0xP2 EQU x*'os? INDEX PASSED TWICE 
0046 291 RECYCLE €9OU X*408 RECYCLE t ¢ 0004 . 361 IDXPL EQU X*O4! INDEX PASSED ONCE 
an20 292 TIMEOUT FaU xepzoe TIER OVERFLOWS i 0002 362 ERASE EQU X*O2t ERASE TO INDEX 
0010 293 FILEXCRK EQU X*10# FILE TRANSFER CHECK | Ci 0001 363 TRKOFL EGU X*Oi* TRACK OQVERFLOW 
0008 294 FBOCHK EQu xXx*o8* FBO PARITY CHECK | 2 364 ®& 
0004 295 FIGCHK EQU X*O4?t FTO PARITY CHECK { 36 *& LOCAL REGISTER aSC2 
0002 296 FRICHK EQuU x*a2¢ FBI PARITY CHECK . 366 @ 
ooo. 297 EXTARCHK EQU X*o1# EXTERNAL ADDRESS CHECK C* oose 367 SCANSH EQuU X*seort BYTE TRANSFER COUNT MARK EGR SCAN GP 
298 © | 0040 368 ODCRODD ECU X°4o" COCR ON GOD ADDR BOUNDARY 
299 @ LOCAL REGISTER GEN1 rae 0020 369 DDDRODD EQU X*208t DOOR ON GOD ADDR BOUPDARY 
300 * %.” 0008 37°: OLO EQU xX*'oge OATA LENGTH EQUAL ZERC 
0080 301 STACKCMD EQU x*sce STACK CMD PENDING | 0004 371 SIZEl2 EQU X*045 12MB DATA MOOULE 
0046 302 FINCHXFR EQU K*go! FINISH CHAN XFER | ~ 0002 372 KOGT256 EQU X*02° KL+OL GREATER THAN 256 / BYTEREAD OVERFLOW 
0026 303 FIXDOOCF EQU x*20* RESTGRE COCE © e001 373 OL256 EQU X*OLS DATA LENGTH 256 BIT 
0010 304 XFRHACAT EQU X*ivt TRANSFER HA AND CGUAT 374 * 
6008 305 XFRODDF EQU x'os¢ TRANSFER DODF i 375 * LOCAL REGISTER FLAG/ FFLG 
0004 306 SETRWON EQU X*O04° SET ROSWR TAG ON j © 376 ¢ 
0002 307 UPDTROUS EQU X*O2¢ UPDATE READ USAGE COUNTER | 0080 377 DEFCNT . FaU x*80? DEFECT IN COUNT FIELD 
0001 308 ODOXFER £QU x*o1°* FILE GOO XFER SwiITCH | oO 0040 378 DEFKEY EQu X*40% OEFECT IM KEY FIELD 
309 « # 0020 379 DEFDAT Eau x*20* OEFECY IN DATA FIELD 
310 © LOCAL REGISTER UNCK | 0004 380 CMPDAT EQu X*°04* COMPRESSED DATA FMT (5/3 ONLY} -~<cd>- 
311 @ ' 0002 381 DEFTRK EQu x*02° DEFECTIVE TRACK : 
0080 312 INTREQO1 EQu X*8oO* INTERVENTION REQD — DRIVE i 'e 0001 382 ALTTRK EQU x*0O1* ALTERNATE TRACK 
0040 313 INTREWD2 EQU Kage INTERVENTION REQD — ORIVE 2 383 © 
0020 314 INTREQD3 EQU X*298 INTERVENTION REQD =~ DRIVE 3 : oO 384 @ MISCELLANEOUS 
——enreninenennrnn mee OOSO 315 INTREQD4 EQU x*i0% INTERVENTION REQD —— DRIVE 4 385 *& 
0008 316 CTROFLO1 EQYU x*Qee USAGE COUNTER OVERFLOW —— ORIVE 1 OCOFF 386 FF EQU X*FFS 
0004 317 CTROFLO2 EQuU X*048 USAGE COUNTER GVERFLOW -—=- ORIVE 2 \ C 0080 387 ALGW12 £QU x*8aQ! ALLOW OPERATION ON 1248 DATA MODULE 
ocd? 318 CTROFLO3 EQU x*O2* USAGE COUNTER OVERFLOX -—— DRIVE 3 | ~#* 0040 386 ALGWSKCE EQU X*4g* ALLOW SEEK TO CE TRACKS 
0001 319 CTROFLDS EQU x*OL* USAGE COUNTER OVERFLOW -—- DRIVE 4 ! 0020 389 FORCERST EQu X*20* FORCE SYSTEM RESET 
‘ *oge r 
. ase * Ce 390 ALWRIHA EQU aoe. ALLOW WRITE HA SVP GPTION 
21% LOCAL REGISTER STAT | 0002 a aN PGES EQu X*02 S<vP REQUEST LATCH 
322 % Z . 
0080 323 ERRRETUN EQU x*eo08 - ERROR RETURN G : : 393 *@ ALS & zus ASSIGNMENT a 
0040 324 SCANEQUL EQU X*408 SCAN EQUAL 394 * : 
\ 
0010 325 OPEND EQU x*10° OP END ' 0001 395 INDEXB DAbR i INDEX FOR BASE 
0008 326 NOOP equ x*os* NO OP | x, 0003 396 INDEXCeH OABR 3 INDEX FOR CHANNEL TRAP 
0002 327 UNITCHK EQU x*02¢ UNIT CHECK | © 0005 397 INDEXF1 OABR 5 INDEX FOR FILE TRAP 1ST 
0002 328 SKCMPL £QU x*oie SEEK COMPLETE ! 0007 396 INDEXF2 OABR 7 INDEX FOF FILE TRAP 2ND 
329 ® oe», 0009 399 INDEXE1 OBR 9 INDEX FOR EXTERNAL TRAP 157 
330 & LOCAL REGISTER Ccesl | G 0008 “0G INDEXE2 OABR il INDEX FOR EXTERNAL TRAP 2ND 
331 © \ 0000 4U1 INDEXES OABR 13 INDEX FOR EXTERNAL TRAP 3RD 
0080 332 ROCTODF €EQU x* sot RD RO COUNT FIELO TO OODF ‘ », OOOF 402 INDEXES OABR 15 INDEX FOR EXTERNAL TRAP 4TH 
0040 333 FMTWR EQU X*40¢ FORMAT WRITE COMMAND | © ooir 403 INDEXIT OADR 31 INDEX FOR MASKING TRAPS 
0020 334 WRENABLE EGU X*208 WRITE ENABLED | 404 * 
0010 335 PADTOIOX EQU X*10¢ PADDING | «. 0018 405 MIARBS DABR 24 MIAR BLOCK FOR BASE LEVEL 
0008 336 PROCRO EQqU x*os8* PROCESS RO COUNT FIELD ks 0018 406 MIARBD DAUR 24 MIAR DISPL FOR RASE LEVEL 
0004 337 PROCNT EQU X*04! PROCESS COUNT FIELDS 0014 407 MISAREB DABR 20 MIAR BLOCK FOR EXTERNAL LEVEL 
0002 338 PROCKEY EQU x*o2° PROCESS KEY FIELD | © 0014 408 MIARED GCADR 20 : MIAR OISPL FOR EXTERNAL LEVEL 
0001 339 PROCDAY €QU x*O1* PROCESS DATA FIELD bs 409 © 
340 & | OO1E 410 BLOCKCH OABR 30 BLOCK ADDR FOR CHANNEL TRAP 
341 & LCCAL REGISTER CEB2 | . OOLE 411 OIS?CH OaDR 30 OSL ADOR FOR CHANNEL TRAP 
342 & { G 0006 412 BLOCKFC DABR 6 BLOCK ADDK FOR FILE (ODCF) TRAP. - 
00860 343 READ EQU x*B0' READ COMMAND | 0006 413 DISPFC DADR 6 DISPL ADDR FOR FILE COOCF) TRAP 
0040 344 SRCH EQU X*&0* SEARCHING e, OO0A 414 BLOCKFD OABR 10 BLOCK ADOR FOR FILE (OD0F) TRAP 
00206 345 WRITE €Qu X*2G8 WRITE COMMAND | X= OO0A 415 DISPFO DADR 10 DISPL ADDK FOR FILE (ODCE} TaaP 
0008 346 WHAOK €Qu x*oat SO BYTES IN CONTROL STORE VALID | 001A #16 BLOCKS DABR 26 SLOCK ADDR FOR BASE 
0000 347 ENDHA EQU x*008 . END OF HA | 0016 417 BLOCKE DABR 22 BLOCK ADORK FOR EXTERNAL TRAP 
oool 348 ENDROCNT EQU x*o1e END OF RO COUNT 418 6 
0002 349 ENDKEY EQU x*'02¢ END OF KEY | 0006 419 ZiSLGce o7zR 6 LOCAL ZONE FORK SASE 
0003 350 ENDDAT €Qu x*o3* END OF DATA j 0005 420 ZLSLOCE O2R 5 LOCAL ZONE FOR EXTERNAL TRAPS 
0004 351 ENOCNT EQU X*O4t ENC OF COUNT | ae 0007 21 ZeS8.0C7 DIR 7 ZLS LOCATION F 
| 
DATE 22 AUGTS PROG 70 FA6~0 | Goare 22AUGT75 . PROG 10 FASO 
EC NO. 627785 PaGE 3 | EC NCQ. 827765 PAGE 3a 
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FA60 3340 DISK IPL MICROCODE - MOD 12 PART NO. 4247635 | , FA6O0 3340 DISK IPL NICROCODE - MOD 12 - . PAGE ve seeTe 
PAGE ai 
IRM CONFIDENTIAL UNTIL FIRST CUSTOMER SHIP | . 'SM CONFIDENTIAL UNTIL FIRST CUSTOMER SHIP 
LOC. OBJECT CODE STK SQURCE STATEMENT | OC. OBJECT CODE STH SOURCE STATEMENT 
000E 422 ZLSEXT8 OZR 14 EXTERNAL ZONE FOR BASE ee 493 @ 
000D 423 ZLSEXTE DZR 13 EXTERNAL ZONE FOR EXTERNAL TRAP | OO1C OA268B O8A68B 494 TILSTHAR LOI FTO,SETHAR SETUP SET 
0009 424 ZLSEXTFC DZR 9 EXTERNAL ZINE FOR FILE DDC TRAP | ~ 01D 0B2E18 OCAE1B 495 HV F880, HEAD HAR TAG ' 
000A 425 ZLSEXTFD OZR 10 EXTERNAL ZUNE FOR FILE ODDF TRAP , * QO1E 000182 00018: 496 BU Ss TELNOCK ISSUE TAG 
000F 426 ZLSEXTC OZR 15 EXTERMAL ZONE FOR CHANNEL TRAP : 497 ® 
0017 427 2LSCH OZR 23 ZONE FOR CHANNEL TRAP 498 ¢- CONDITION CONTROLLER TO READ AND WRITE 
0011 428 Z\SFC = OZR sa? ZONE FOR FILE (ODCF) TRAP 493 © 
0012 429 ZLSFD OZR 18 ZONE FOR FILE {DDDF) TRAP OOLF 2A268S 18A685 500 L8I «= FTO,SETROWR SETUP SET READ/WRITE TAG 
430 © “ i». 0020 0OOL8i OO01e 501 BU TILNOCK ISSUE TAG 
431 © EQUATES FOR LOADING ZLS { ' O21 20028A 10018A 502 BU Ss TILNOSCN WATT FOR NORMAL END & ISSUE RESPONSE 
432 ¢ 503 # 
004A 433 ZLSRFILE EQU = X*4AP READ DATA FROM FILE ! oO 504 *— SET UP CHANNEL TRANSFER CONTROLS TO READ 512 BYTES 
ooce 434 ZLSWFILE EQU = X*CEt WRITE DATA TO FILE ae 505 * 
0058 435 ZLSFCHAN EQU = xX*5B FETCH DATA FROM CHANNEL 0022 042101 O8A1Gi 506 LB1 = CCH} SET CHANNEL COUNTER 
coop 436 ZLSSCHAN EQU = xX*DDt STORE DATA TO CHANNEL | ¢~ 0023 2A31FE 18B1FE 507 LBL CCL»254 FOR 512 6fTE XFER 
437 * . % 0624 0A3398 088398 508 LB! OXC «DA TACHAN+LSRSELDR*+ALOKCHAN DATA TG CHANNEL WETH ODOR 
0020 438 IDXODCF EQU -X*208 ODCF INDEX | 0025 2A231%0 18A310 509 Lai OST, ALWCHXFR ALLOW CHANNEL TANSFER 
0040 439 IDXDDDF EU x*408 DDDF INDEX | Q 510 * 
421 END COPY-MEMBER EQUATES | SIL @—--~---— ORIENT ON HOME ADDRESS -—--~—— 
442 copy THt 512 * 
443 *-—- aa RRR EERE * | ~. 0026 2A260E 18A60E 513 LBI -FTO,READOP ' SET READ TAG 
44h & + | \ 0027 OAZE49 O8AE49 514 LBI FB0,R0G149 TO READ HA 
445 © TIL —— 3340 DISK IPL MICROCODE * | 0028 000181 900181 515 BU Ss TILNOCK ISSUE TAG 
446 & * 6029 OA2FO9 O8AaF09 516 LEI SCNyALWFXFRENFILEXFR INHIBIT DATA XFER FOR ORTENTING 
447 * —— -——-~--- Aa narra aan arenenerearenen * i © ooze on3608 o8B608 517 LBI = FCT48 SET FILE COUNTER FOR FIELD LENGTH 
448 ¢ | 0026 20018A 20018A 518 - BU —s TELNOSCN WAIT FOR NORMAL END & ISSUE RESPONSE 
449 @-—----——  INITEALIZATION OF IOP wor nn OG 002C OAzZD0L O8AD0L = 519 LBI = FTRy ALLOWIDX ALLOW INDEX DETECTION 
450 * 520 © lee 
0000 299880 169880 451 TILENTRY SMODE 0,24 SETUP 521 @—----——-_ READ A COUNT FIELD INTO CS = 
0001 289800 129800 452 SABI MIARBB,B(TILSTART) ALS FOR 522 * : 
0002 288807 126807 453 SADI MEARBD,DITILSTART) PGM 6 € co2D 242670 13AE7D 523 TILRDCAT Let €B0.RDG3AM+L3 SET TAG TO READ & COUNT FIELD 
0003 OA2D80 O8AD80 454 LBI = FTR,ADTCKRST ADAPTER CHECK RESET & | OO2E 0003}81 000181 524 BU ss: TILNOCK ISSUE TAG 
0004 OA2D08 + O8AD0B8 455 LB1  FTReERRTRAP DISABLE ERROR TRAPS _ OOZF 2A2FO8 LBAFOB 525 LBI = SCNeALWFEXFR ALLOK FILE TRANSFER 
—_————_--—_—____—— — 0005 288FCO 12BFCO 6456 SADI INDEXIT,X*CO# SWITCH TO PGM 6 AND | C 0030 2a360c ss60e «526 LBI = FCT, 12 SET FILE COUNTER TO FIELO LENGTH pega 
0006 000112 000112 457 8 TILERROL SETUP PGM 5 0031 20018A 10018A 527 BU ==: TELWOSCN WAIT FOR NORMAL END & ISSUE RESPONSE 
0007 O8BFBF O2ZBFBF 458 TILSTART SADI INDEXIT.Xx*8F* RESTORE PGM 5S POINTER | o 0032 O8AA00 =O2AA00 = 5528 SADE OISPFD,xX*00* RESET FILE/ODOF ALS-d 
459 © ; 529 
460 * INITIALIZE ALS ae | 530 * UNLOAD COUNT FIELD INTO OLS — 
461 © 531 * 
0008 089A06 029806 462 SABI S8LOCKB,X*06* SET BASE BLOCK TO CS BUFFER (> 0033 2a0000 188000 532 "LBL LO, #008 a0AD BUFFER 
0009 O8AAOCO = O2AA00 86453 SADI DISPFD,X*00" RESET FILE/DDOF ALS-D 0034 2A0180 188180 533 Lei 1,X*80* DISPLACEMENTS _ 
O00A O8BE00 O28E00 464 SADI DISPCHsX*00* RESET CHANNEL ALS-D | 0035 244000 - 1140DD ~ 534 LINC SOHst0,l =" -.- FETCH SOH  - - aS: 
465 © | © 0036 04410E 0141DE 535 LINC SDLolls2 oe 
466 @-------—- GET RECORD ID VIA HANDSHAKE ——- -_-——---——- 0037 0440CE O0140CE 536 LINC PAC LOyl Ps 
467 * |. 0038 24C1CF 1341CF 537 LINC PAHeL2,3 PAH 
0008 28ECO0 13AC00 86468 SLKI 1220 RESET SVP/SET PCR | C0039 240005 1060058 538 LINC FLAGsLO.0 FLAG 
O00C 2AE100 1B8A100 469 LLKR LOvl FETCH SVP REQUEST FL | 003A 040109 004109 539 LINC RECeL220 REC 
0000 27800C 16400C 470 TBOFF 6510,.4-1 WAIT FOR SVP REQUEST iQ 540 ¢ 2 de does auciataes 
QOOE OAEOQ17 O8A017 471 LLKR CLO,0 GET CaR Ik 541 Ga———-——- CHECK PHYSICAL ADDRESS AGAINST 
OOOF 28ECOO 13AC00 8 472 SLKI 12.0 RESET SVP/SET PCR 542 © 
0010 2AE100 18100 473 LLKR 10,1 FETCH SVP REQUEST FL | ¢- 0038 20BE57 16CE57 543 TEOR PAC,CLO COMPARE PHYSICAL CLYINDER 
0011 078010 O0&4010 474 TBOFF 6e10.%-1 WAIT FOR SVP REQUEST | &. 003C 004113 020113 54% BNZ TILERRO2 GO IF NOT EQUAL 
0012 OAEO18 OBA018 475 LLKR HEADs0 GET HAR | 003D ODSF58 O6CF58 545 TEOR PAHsHEAD COMPARE PHYSICAL HEAD 
0013 28ECOO + 13AC00 86476 SLKI 12,0 RESET SVP/SET PCR | -. OO3E 004113 010113 546 BNZ  TILERROZ GO IF NOT EQUAL 
0014 2AE100 18A100 477 LLKR LOyl FETCH SVP REQUEST FL GC 547 © 
e015 a1a0is teActs 478 TBOFF SL0jee) WAIT FOR SVP REQUEST | 548 +. CHECK FOR RECORD = R-BYTE -——- emer caeaceaaneneetasae 
16 2AE00 400 479 LLKR RBYT,O , 549 & , 
0017 2A0500 188500 480 L681 5,00 RESET NORMAL END CHECK FLAG | Co 003F 009962 + d6D94D 550 TEOR REC, RBYT COMPARE RECORD 
481 * 0040 224048 190048 552 82 TILRECOL GO IF EQUAL 
482 #-------= SELECT & SEEK TO FUNCTIONAL MICROCODE If ENITIAL ENTRY ~=-~ ee ne BRD sae 
483 © |G 553 @-——--——- CHECK FOR RECORD + 2 = R-BYTE woe anne 
0018 OCBD0l O02CD01 484 TEORE RBYT el CHECK FOK INITIAL ENTRY | 554 @ 
0019 224115 190115 485 8Z  TILSEL GO IF YES | ¢ 0041 OED902 cBD902 = 555 ADDE REC e2 BUHP eee 
486 © — 0042 009960 060966 556 TEOR REC,RBYT COMPARE RF. 
487 #- RESET CONTROLLER FROM THE READ/WRITE MODE - | 0043 004020 01002D 557 BNZ TILRDCNT GO IF NOT EQUAL 
488 © = 558 © ; 
001A 0A2605 O08A605 489 LBI -- FTO»RSTRDWR SETUP RESET READ/WRITE TAG lg 559 G@m—------ SKIP FIRST 2 DATA FIELDS & ANY G4 GAP IF NECESSARY 
0018 000182 000181 490 BU TILNOCK ISSUE TAG 560 © 
“91 © | ~ 0044 269548 105548 561 TIBOF DEFDAT, FLAG, TILSKIPZ CHECK FOR DEFECT, GO EF NONE 
492 t---—--=-— SET HEAD ADDRESS REGISTER IN CONTROLLER | C: o0es 0s9D48 + 065048 © 562 TBON 6ySOHe TILSKIPZ CHECK FOR SOH = 2 OR 3- GO IF YES 
| 
DATE 22AUGT7S PROG ID Fa6-0{ @oate —-2zauc7s : PROG {0 FA6-0 
EC NO. 827785 : | PAGE & | EC NO. 827785 PAGE «A 
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FA6Q 3340 DISK IPL MICROCODE = MOD 12 PART NOw 4247635 . FA6O 3340 DISK IPL MICROCODE - MOD i2 PART NOs A2hT639 
PAGE 5 i: PAGE 5 
IBM CONFIDENTIAL UNTIL FIRST CUSTOMER SHIP 18M CONFIDENTIAL UNTIL FIRST CUSTOMER SHIP 
‘ e 
LOC. OBJECT CODE ST SOURCE STATEMENT LOC. OBJECT CODE STM SOURCE STATEMENT 
err 
0046 CE1LSDOF O8D5DF 563 ANDI FLAG»FF-DEFDAT RESET DEFECT | ‘0073 GB2E1E OCAEIE 634 TILCOMM2 KV FBO,SOL PUT MNDULO 16 SEGMENT 
0047 2000ED 1900ED 564 BU TILCLKG4 SKIP A G& GAP | OU74 OE2ZEQF O8EEOF 635 ANOI F80e15 LENGTH IN FBO 
0048 OO00E3 OCdCOES 565 TILSKIP2 BU TILCLKG2 SKIP 2 G2 SAPS | OOT5 2FSE46 1DEE46 636 OR FBOsL6 OR IN TAG ’ 
0C49 0000E3 Q000E3 566 BU TILCLKG2 AND 2 DATA FIELCS 0076 28071E 1C871E 637 MV L7,SOL MOVE SEGMENT LENGTH TO L7 
004A 200040 100040 £67 8 TILCOMMO tO TO COMMON POINT | 0077 2EC7FE 1B8C7FF 639 ADOL LTe-l FORM COUNT 
568 © i - 0078 090100 000100 639 8 TILCHK GO ISSUE TAG/WAET FOR NE 
569 @-------— PREPARE 10 TRANSFER DATA FIELDS TO CHANNEL <---~ oe be 640 MBLOF 
570 ®& i 0079 C00079 oo0o7s 641¢ 8 2 UNUSED sessezsssss 
0048 279D4D 165040 571 FILRECOL TBOFF 6,SDHyTILCOMMO CHECK FOR DEFECT IN LAST 2 FIELDS OO7A 0O0G0TA GO00TA 6424 8 * UNUSED sietersesse 
OO4C OE15DF O8D5DF 572 ANDI FLAG»FF-DEFDAT RESE™ DEFECT i 0078 200078 100078  643¢ 8 * UNUSED tittezesess 
004D 0£730% 09F304 573 TILCOMMO ORI OGXC,ALOWFILE ALLOW FILE DIFFERENCE COUNTER OO7C O0OO7TC G0007C 644+ 8 * UNUSED stissszee33 
Q004E 06955D 0A5550 574 TIBOF DEFCAT, FLAG» TILNODEF CHCCK FOR DEFECTe GO IF NONE ; + 007D 20007D 100070 645¢ 6 ¢ UKUSED sssiseesess 
O04F 27D058 1F5058 575 TROFF 7,SOHsTILRECO2Z CHECK FOR SDH =.0 GR 2, GO IF YES ' § QO7E 20G07E  10007E 646¢ 8 * UNUSED estisersees 
00850 260E55 185E55 576 TBOFF 3,S0L,-TILMVL3 CHECK FOR MQVED 1 OR 35 GO IF YES OOTF OOO0OTF OQ0007TF 647+ 8 e UNUSED esssseteseee 
0051 OCOOOEF OO00EF 577 BU TILRDG2 READ A G2 GAP AND DATA FIELD | go. 0100 648+ DS <0>8 
0052 OO00F2 O000F2 578 BU TILSROG2 REAC A G2 GAP & FIRST SEGMENT iu 669 © 
: 579 & OF SPLIT OATA FIELO ' 650 # ISSUE TAG A 
00532 200CE7 100CE7 586 BU TILROG4 READ A G4 GAP & SECOND SEGMENT i 651i * 
581 @ OF A SPLIT FIELD 100 OA0SBO 088580 652 TILCHK LBI L5,x*808 SET MARK FOR CHECKING NE 
0054 200G5F L0GCS5F 582 8 TICEXIT GO YO EXIF ROUTINE ' 0101 2&6580 1$¢580 653 TILNOCK ORI FIG, TAGATE RAISE TAG GATE 
0055 OOOOEF OO0OEF 583 TILMV13 BU TILRDG2 READ A GZ GAP AND DATA FIELD | ge 0102 O£0020 080020 656 ADOI ZER,32 WAIT FOR 
0056 2000ED 1000ED 584 BU TILCLKG4 SKIP A G4 GAP BEFORE MOVED FIELD i \%- 0103 228102 1A0102 655 BNC #1 7.6 MICROSECONDS 
0057 0O005E O0GO0SE 585 B TILROG22 GO READ SECOND DATA FIELD 0104 2€6510 196510 656 ORI F1G,X*1068 GATE 8US IN TO FI 
0058 26DESC 185E5C 586 TILRECO2 TBOFF 3,SDL,TILMVOZ CHECK FOR MOVED © OR 2+ GO IF YES 0105 O£F256E O8E56E 657 ANDI FTG6,X*6E* DROP TAG GATE, RESET FBI CHECK 
0059 COOOF2 cOneF2 587 BU TILSROG2 READ A G2 GAP & FIRST SEGMENT OF C0106 082200 0cA200 «658 uy FBI .OUMMY GATE FI TO FBI 
§8& * & SPLIT OATA FIELO : O107 260511 1045i1 659 TBCFF OslLSeTILRETRN RETURN IF MARK IS GFF 
005A 2000E7 1000E7 589 BU TILROGS READ A G4 GAP & SECOND SEGMENT OF L - 66C © 
590 ® A SPLIT DATA FIELD | © 661 #-~---——— LOAD SCN AND FCT FOR OATA TRANSFER 
OOSB OOOOSE OOQ0O5E 591 8 TILROGZ2 GO READ SECOND DATA FIELD . ae . _ 662 * 
OO5C 2000ED LOCOED 592 TILMYVO2 BU TILCLKGS SKIP A G4 GAP BEFORE MGVED FIELD | px OLUS 2E5FOB LOEFOR 663 ORI = SCNeALHFXER ALLOW FILE TRANSFER 
005D OCOCEF O0OCEF 593 TILNODEF BU TILRDG2 READ A G2 GAP AND DATA FIELD | \ 0109 283607 108607 664 Mv TCTL7 SET FILE COUNTER TO FIELD LENGTH 
OO5E OOOOEF OOCOEF §94 TILKROG22 BU TILROG2 READ A Gz GAP AND DATA FIELD | : 665 # 
OO5F 26A35F 1A635F 595 TILEXIT TIBOF ENOCHXFRsDST»® WAIT FOR END OF CHANNEL XFER 666 #—~----—~ WAIT FOR NORMAL END & ISSUE RESPONSE TO CONTROLLER — 
ese art Soe Ae Sat eee 0060 28ECOO 13ACOO 8 596 SLKI 12,0 RESET SVP REQUEST/SET PCR REQUEST 1 © 667 © 
0061 0A2300 08A300 597 LB1 DST»0 RESET ALLOW CHANNEL XFER | Q10A 058514 067514 668 TILNOSCN TIBON INDEX,FTI,TILERROS CHECK FOR INDEX 
0062 000062 000662 598 8 * *2S90S0RS8 SPIN ON SUCCESS #¢9#eR0¢¢29020% | - 0103 07350A OC750A 669 TISOF NORMEND,FTI»#-1 WAIT FOR NORMAL END 
600 * | & 010C 266508 19€508 670 ORE FIG»RESPONSE GENERATE RESPONSE 
601 * FILE 1/0 OPERATIONS + | Q10D OF25F7 O8ESF7 671 ANDI FTG, FF-RESPONSE TO CONTROLLER 
602 © | ~ OROE OA2FOO O8AFOO 672 LBI = SCNZO RESET ALLOW FILE TRANSFER 
603 © € O1LOF 042805 00080 673 TIBON CSOVRUN,HES,* HANG ON CS OVERRUN 
604 -------— SETUP TAG AND COUNT FOR CLOCK G2 sais meena deamon 0110 OF6750 ODETSO 674% OR FHF, ZER RESET ENu OF FILE TRANSFER & RETURN 
605 # | 0111 030590 0C8590 675 TILRETRN MVU = L54ZER RESET MARK 
0063 OA2E20 O8AE20 606 TILCLKG2 LEI FBO,CLKG2 SET TAG BUS TO CLOCK GVER G2 & DATA | €. 0112 oo0112 COOL12 676 TILERROL & s HANG ON ERROR TRAP 
0064 OAO7TFF O887FF 607 L819 L 7255 SET COUNT FOR 256 BYTE FIELD 0113 200113. 100113 6877 TILERRO2 8 e HANG ON SEEK CHECK 
0065 2A2FOi1 18AFOL 608 TILCOMM2 LBI  SCN.NFILEXER INHIBIT FILE TO CS TRANSFER ' . 0114 000124 000114 678 TILERROS B ® HANG ON INDEX CHECK 
0066 000100 000100 609 8 TILCHK GO ISSUE TAG/WAIT FOR NE | 679 @ ; 
610 © 680 @-—-—--—— SEEK TO FUNCTIONAL MICROCGDE - eae 
611 @-—------—— SETUP TAG AND COUNT FOR READ Ge Here eee 6381 © 
6l2 & © 682 SSSSSSERTLE SHRELOTESESESTESRESEKHEESE ESSE SHATTERS KEEEEEHESHISSSEEAERESED 
0067 2E9EFF i1ADEFF 613 TILRDGS EORI SDLSFF FORM LENGTH OF | 633 @ THIS INSTRUCTION IS NEEDED TO MAINTAIN COMPATIBILITY BETWEEN ° 
0068 2EDEO1 1BDEOi 614 ADDI SOtel SECOND SEGMENT Ra 684 ® ROS EC 441203 AND ROS EC 441204. s 
0069 270E6B 1FSE6B 615 TBOFF 7,S0L,e+2 SET FILE OOO XFER 1F ' © 6115 042500 o8asoo 685 TILSEL LBI  FTG.0 DROP SELECT HOLO 
OOGA 2E6FO4 19EFOS 616 QRI SCNs FILEODO SECOND SEGMENT 3s odo | 686 SSRSRSSESHEKSKAKSSCHKE SS SEISRSSRL IOI HLTH HHS SE LAAT GESHSEESESTSEREESSZETE ESTE 
006B 2A0630 188630 617 LBI LO yp RDG@ SETUP FOR READ Gé TAG | . 0226 242683 188683 687 LBI FTC SELOEY SELECT DRIVE TAG 
006C 000073 oc00T3 618 8 TILCOMM2 GO TO COMMON POINT | € 0117 2A2E00 18AEOO 688 L681 F800 SET BUS FOR DRIVE 2 
619 * 9118 2FAE1ION 1€EE10 689 ADDE FBO,ZER ADD IN EXTERNAL CARRY 
620 * SET UP TAG ANO COUNT FOR CLOCK G4 - » ©3139 OEAEOL OAEEOL 690 €GRE FBO,2 INVERT EXTERNAL CARRY LOGIC 
621 ¢ . QLLA 2£6560 19€540 691 ORI = FTG,» SELHOLD RAISE SELECT HOLD 
006D 2A2E30 18AE30 622 TILCLKG4 LBI  FBO.RDGS SET TAG SUS TO READ Ge GaP 0116 000182 0C0181 692 8U TELNOCK ISSUE TAG TO SELECT CRIVE 
OO6E 200065 100065 623 8 TILCOHM 1 GO SET SCN AND ISSUE YAG ~ O11C OA2668 084688 693 i181 8 86FTO,SETHAR SETUP SET 
6246 © ' \ 0120 082E18 OCAEIB 694 tv FBO, HEAD HAR TAG 
625 t-—-----= SET UP TAG AND COUNT FOR READ G2 eee eee OLLE OE6EB8O O9EEB8O 695 ORE FBO,Xx*80e SET INJOUT B17 TO th 
626 © . Q11F 000182 000181 696 BU TILNOCK ISSUE TAG 
OO6F 2A2E60 18AEOO 627 TILRODG2 LSI FBOeRDG2 SET TAG FOR READ G2 { 0120 2a268C 18868C 697 481 FTG,SETOIFF SETUP SET 
0070 OAOT7FF O887FF 628 L8I = L79255 SET COUNT FOR 256 BYTE FIELD 0121 OP2E17 OCAE17 698 nV FB0.CLO DIFF TAC 
0072 000100 000100 629 8 TILCHK GO ISSUE TAG/WAIT FOR NE - ©0122 000181 000181 699 8U TILNOCK ISSUE TAG 
630 © . \ 9123 O£D020 086020 700 ADDI 2ZER.32 WAIT FOR 
631 © —-- SET UP TAG AND COUNT FOR SPECIAL READ G2 —— 012% 228123 140123 703 @NC B+] J7oS MICROSECONDS 
632 @ | gs 0125 2208+ = :18468F =—702 183 FTO,CONTROL SETUP 7aG TO 
O72 OAOSEO 0886EO 633 TILSRDG2 LBI Ls, SPROGZ SETUP FOR SPECIAL READ G2 TAG | \ 0226 OAZEOB O8AEOS 703 18I FBOsSKSTART START SEEK 
: , - 
DATE 22AUG75 PROG 10 Fac~o! “pate 22auGTS PROG 10 F 
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PART NOL 4247635 
PAGE 6A 
IBM CONFIDENTIAL UNTIL FIRST CUSTOMER SHIP 


A. : PAGE 
IBM CONFIDENTIAL UNTIL FIRST CUSTOMER SHi? : 


0127 000181 000182 704 BU TILNOCK ISSUE TAG © sympon VAL. OEFN REMARK CALLS 

0128 OA2684 08A684 705 te! FTO, ROSTATUS SETUP TAG TO READ STATUS 

0129 000181 000181 706 BU TILNOCK ISSUE TAG ~- ACTRACK OOGL 0204 R 
012A OCA209 C2ZE209 707 TEGRI FB1,ONLENE¢SKDONE CHECK FOR ONLINE € SEEK COMPLETE \ ACTRK O0CL 0197 . 

0128 004129 610129 708 BNZ e~2 IF NOT REISSUE TAG AND WAIT ADAPTCHK 0008 0285 

0212C 9o0001C ocoo0ic 169 8 TILSTHAR &ETURN yg «40S 0029 0013 

012D 000120 0cd120 710 & UNUSEO esss]e2ses « ADTCKR3T 0080 0247 0454 

O12E 00012E OOOL2E Th 8 UNUSED zssssses ALLOWFBI 0001 0224 

012F 20012F 10012F Tl2 8 UNUSED ss2seess ALLOWIDX 0001 0253 0519 

0130 000130 090130 713 6 UNUSED ssessess «. ALOWCHAN 0008 9275 o5¢8 
8 $s 
8 33 
8 33 
E 


LOC. OBJECT CODE ST4 SOURCE STATEMENT ' CROSS-REFERENCE 


aeeaeneanee 


0132 200131 100131 714 UNUSED sosess ALOWFELE 0004 0276 0573 
0132 200132 100132 75 ~ - UNUSED essess ~ ALOWSKCE 0040 0368 
0133 000133 000133 716 * UNUSED sz3sss \ alOwlL2 0080 0387 

VT ND COPV-MEMBER TEL ALTTRK 0001 0382 


634448A2 718 END _ ALWCHXFR 0010 0232 0509 
( ALWEXFR 0008 0240 0516 0525 0663 
ALWRTHA 0008 0390 
- AMSRCH 0080 0166 
© ATTN 6004 0190 
| BLOCKB = OOLA 0414 0462 
P | C BLOCKCH O01E 0410 
: € BLOCKE 0016 0417 
. _ BLOCKFE 0006 0622 
: BLOCKED OOOA 0414 
C 800 0030 0032 


a 
se 00 ee OF 20 28 40 
eo 68 ee 8 ce 88 Of 
ee es ce 08 08 Be 88 


} 
i - BUSY 0002 0191 , 
i ..CCH 0022 0028 0506 
i & cee 0031 0029 0507 
| " CEALERT 0010 0173 
| CESL 0011 0056 oe — 
| & ces2 0012 0057 a 
|  CHANODD 0040 0272 
| ‘CHANXCHK 0010 0284 
CHI 0016 0061 

| CHKEND 0020 0172 pera 
| .~CHKRESET 0040 0258 
; \ CHKRST — O00C 0152 
|  CHNL}BYT 0002 0278 
| CHOYTVAL 0046 0229 
| € cicHeck 0060 0283 
j  CLKG2 0020 0124 0606. : 
|. CLKG3 0010 0123 ; 
| {cro 3017 0062 0471 0543 0698 . 
|  €MDOVN 0080 0208 Bonet eee 
| pCMPDAT 09004 0380 
' \ CONTROL OO8F 0112 0702 
| co2 0038 0015 
| ESOVRUN 0080 0282 0673 
' ..CYTLRCHK oOa80 0185 
| CTLRERRI 0002 0118 
| » CTLRERRZ 0001 0119 
€ CTROFLD1 0008 0316 

CTROFLD2 0004 0317 
| . CTROFLD3 0002 6318 
| \. CTROFLD4 0001 0319 
|  DATACHAN 0080 0272 0508 
|. DATACHK 0010 0210 
| \. DATAFNO 0002 0213 
|  DATAOVN 0040 0209 
{ 
{ 
| 
| 
| 
| 
| 
| 





wy 


: 


, DENT 0018 0066 
{ ppcropd 0040 0368 
DDDRODD 0020 0369 
--PDODD 0001 0267 
€ DEFCNT 0080 0377 
DEFDAT 0020 0379 0561 0563 0572 0574 
_ DEFKEY 00640 0378 
( DEFTRK 0602 0381 
DIAGSET 008A 0108 
_CIFFZERD C040 0230 
CDIFF256 0040 0146 


| 
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PART NO- 4247635 -FA60 3340 OLSK IPL MICROCODE - MOD 12 PART NO. 4267635 
FA60 3340 DISK IPL MICROCODE - MOD 12 - ok | 
| IBM CONFIOENTEAL UNTIL FIRST CUSTOMER SHIP 
18M CONFIDENTIAL UNTIL FIRST CUSTOMER SHIP iC 
| CROSS-REFERENCE 
CROSS—REFERENCE | 
| sympot —s VAL. DEEN REMARK CALLS 
SYMBOL VALs DEFN REMARK CALLS ' 
" - 10xP2 0008 0360 
DISPCEHI 000C 0103 { \ INDEX 0002 0176 0668 
DISPCELO OCOD 0104 :  INDEXB 0001 0395 
DISPCH  OO1E 0411 0464 " _. INDEXCH 0003 0396 
DISPFC 0006 0413 "INDEXER 0009 0399 
DISPFD 000A 0415 0463 0528 | INDEXE2 0008 0400 
CLO 0008 0370 ~ INDEXES 0000 0401 
DL 256 0001 0373 ' . INDEXE® - OOOF 0402 
OMATTA 9020 0269 - ' INDEXF1l 0005 0397 
ORVCHK a a 3s 007 0398 
DST 0023 0024 0509 0595 0597 - aNDEXIT oote 0403 0456 0458 
DSYNCIN 00CG2 0223 INFCHK 0040 0186 
CUMMY 0000 0181 0658 : - INTREQD1 0080 0312 
Dxc 0033 0019 0508 0573 . \. INTREQD2 0040 0313 
ECCCNTL 0008 0100 INTREQD3 0020 0314 
ECCHI 0040 0116 - INTREQD® 0010 0315 
ECCLOW 0080 0115 CL INVPRTY 0002 0252 
ENDCHEXFR 0020 0231 0595 IOATTN 0040 C248 
ENDCNT 0004 0351 ‘ -.10CONB 0010 0250 
ENDDAY 0003 0350 | Cropausy 0029 0228 
ENDDAT1L 0007 0353 vent 001A 0065 
ENOFILEX 0001 0263 ; « KDOGT256 9002 0372 
ENOHA 0000 0347 i L LASTREC 0010 0239 
ENDKEY 0002 0349 ,  &OSTORT 0020 0201 
ENDKEY1 Sb08 poze ' -.USRCSR 0020 0273 ‘ 
ENDROCNT Lo 010 0274 0506 
ENDTRAP 0008 0260 : oo 0000 0037 0181 0469 0470 0673 0474 0477 0478 0532 0534 0536 0538 
ERASE 0002 0362 i kd 0001 0038 0533 0535 0537 0539 ’ 
ERRALERT 0001 0177 | € 2 0002 0039 
ERRMODE 0020 0259 | “43 0003 0040 
ER2RETUN 0080 0323 \ 4 0004 0041 
ERRTRAP 0008 0251 0455 : Cus 0005 0042 0480 0652 0659 0675 
~ EXTARCHK 0001 0297 | ve 0006 0043 0617 0633 0636 
FBI 0022 0014 658.0107 | Au 0607 0044 0607 0628 0637 0638 0664 
2 0296 
io ooze Sozs 0495 0514 0523 0606 0622 0627 0634 0635 0636 0586 0689 0690 069% 0695 0698 | Cie once ones suas 
0703 | 4. MEARBD 0018 0406 0453 
FBOCHK 0008 0294 | & MEAREB 0014 0607 ‘ 
FCT 0036 0027 0517 0526 0664 MIAREO 0014 0408 . 
FF OOFF 0386 0563 0572 0613 0671 | MSC1 0013 0058 : 
FFLG OO1F 0070 | C usc2 0014 0059 
FHF 0027 0023 cers |  MUREC 0020 0359 
FILEODD 0004 0241 0616 -MUTRX «0040. 0358 
FILEXCHK 0010 0293 | CNFILEXER 0001 0243 0516 0608 
FINCHXFR 0040 0302 | NOAM 0008 0211 
FIXDOCF 0020 Daas | .— NOOP 0008 0326 
Fl 002A 9 
FLAG 0015 0060 0538 05.1 0563 0572 0574  -NORMEND ooos o1% 066 
FMTERASE 0070 0138 | NREC 001C 0067 
FMTGl = 0040 0135 | © oopxFer 0001 0308 
FNTG2 0060 0137 ONL INE 000s 0189 oO707 
FMTG3 =»: 0050 0136 ‘ -~OPEND 0010 0325 
FMTWR 0040 0333 | &. pac OOOE 0052 0536 0543 
FGRCERST 0020 0389 |  PADTOIOX 0010 0335 
FORCERYC 0020 0220 Pan OOOF 0052 0537 0545 
FORWARD 0080 Tee | C pHvaDOR 0020 0117 
FOTOFI 0006 022 oo 
FTG 0025 0020 0653 0656 0657 0670 0671 0685 0691 _|  POLECNTE GOO2 oO93 ee ee a ee 
ae ee ate | ,- POLLBEV 0082 0092 
FT! 0035 0011 0668 0669 , \-PROCOAT 0001 0339 
FTO 0026 0026 0489 0494 0500 0513 0687 0693 0697 0702 0705 | pone Dae Boe cone 
FTOCHK 0004 0295 | ~.PROCNT 0004 0337 
FIR 002D 0021 0454 0455 0519 <-PROCRO 0008 0336 
GENT 0009 0046 by aes o0ce 0049 
HEAD = =»--:0018 0063 S812 0999 (0289: 0698  . RBYT 0000 0050 0479 0484 0550 0556 
HES 0028 0012 0673 i Cecsenx 0001 0286 
IOXDDCF 0020 0438 i  RDCNTL  O00A 0102 
TOXODDF 0040 0439 |. RDERRGR 0004 0098 
IOXMK = 0002 0196 | Crncate 0010 0165 
IOXP1 0004 0361 
| | proc 10 ~—S Fae-0! Spare —_ 22a 75 : | eoce 40 et 
DATE — = 22AUGTS PASE 7! "€C NO. 827785 eve 
EC NO. 627785 as ! - 
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FASO 3340 DISK IPL MICROCODE - MOD i2 PART NO. ad ta ~ €A60 3340 DISK IPL MICROCODE ~ MOD 12 ue NO. pe 
PAGE tO 
IBS CONFIDENTIAL UNTIL FIRST CUSTOMER SHIP | TBM CONFIDENTIAL UNTIL FIRST CUSTOMER SHIP 
ie 
CROSS-REFERENCE CROSS-REFERENCE 
SYMBOL VAL. DEFN REMARK CALLS | © svmpoe VAL. DEFN REMARK CALLS 
ROGL 0040 0126 0514 TILCLKG2 0063 0606 0565 0566 
ROG2 00660 0128 0627 | TILCLKG& 006D 0622 056% 0584 0592 
ROG3 0050 0127 \ TILCOMMO 004D 0573 C567 OS5TL 
ROG3AH 0070 0129 0523 ' TILCOMM1 00C5S 0608 0623 
RDG4 0036 6125 0617 0622 | TILCOMM2 0073 0634 0618 
RDSNS 0080 0357 TILENTRY 0000 0451 
RDSTATUS 0084 0096 0705 , TILERROL 0112 0676 0457 
READ 0080 0343 ti TILERRO2. 0113 0877 054% 0546 
READOP OO0E€ 0105 0513 | TILERROZ 0114 0678 0668 
REC 0019 0064 0539 9550 0555 C556 1 . TILEXIT OOSF 0595 0582 
RECYCLE 0040 0292 | . TILHVO2 003 0592 0586 
RESPONSE 0008 0221 0670 0671 | TILMVi3 0055 0583 0576 
REZERG 0002 0153 ; - TILNOCK O101 0653 0490 0496 0501 0515 0524 0692 0696 3699 0704 0706 
RGLUNORT 0002 0203 i > TELNODEF 005D 0593 C574 
RSTATTN 0004 0151 ' TILNCSCN 010A 0668 0502 0518 0527 
RSTROWR 0005 0099 0489 { -- TELRDCNT 0020 0523 0557 
RWCHK 0010 9188 | *. TILRDG2 O06F 0627 0577 0583 0593 0594 
RWCTRL O007 0162 i TILRDG22 OO0SE 0594 0585 0591 
ROCTUDF 0080 0332 ' | - TYLRDG4 0067 0613 0580 0589 
SBO 003F 0030 | \ TILRECOL 0048 O5T71i O551 
SB1 0037 0031 TILRECO2 0058 0586 0575 
SCANEQUL 0040 0324 + , TILRETRN 0112 0675 0659 
SCANHI 0040 0237 C Tse 0115 0685 0485 
SCANRD 0080 0236 TILSKIP2 0048 0565 0561 0562 
SCANSW 0080 0367 | »-. TELSROG2 0072 0633 0578 0587 
SCN 002F 0022 0516 0525 0608 0616 0663 0572 | 3 TILSTART 0907 0458 0452 0453 
SCNEQ 0002 0262 TILSTHAR O01LC 0494 0709 
SCNSAT 0004 0261 | - TIMEOUT 0020 0292 : 
SCNSPLIT 0020 0238 \. TOFILE 0002 0242 
SOH 001D 0068 0534 0562 0571 0575 TRKOFL 0001 0363 
_ SOL OOLE 0069 0525 O576 0586 C613 0614 0615 0634 0637 - TRKOVN 0010 0214 
SELACT 0080 0170 \. UNCK OOGA 0047 ese Rate ete 
SELCNTL 0003 0095 UNITCHK 0002 0327 
SELDEV 0083 0094 0687 -~ UNSQELCH 0020 0164 
SELHOLD 0040 0219 0691 \.. UPOTRDUS 0002 0307 
SENSTATO 0003 0156 WHAOK 0008 0346 
SENSTATL 0083 0157 »- WRENABLE 0020 0334 
SENSTAT2 0043 0158 | \ WRGATE 0046 G163 
SENSTAT3 6023 0159 | wre 0020 0134 : . 
SENSTAT4 0013 0160 | WRG4 008?) 0139 
SETDIFF O08C 0110 0697 : C werte 0020 0345 ‘ 
SETHAR 0088 0109 0494 0693 | WRITEGP OOOF 0106 
SETROWR 0085 0097 05006 WO 0010 0072 
SETRWON 0004 0306 Wd 0011 0073 
SETUNSUP 0001 0091 W10 001A 0082 
SIZE12 0004 037i | =~ WLl 0018 v083 
SKCMPL 6001 0328 | Swi OO01C 00846 
SKDONE 0002 0192 0707 l W13 0C1D 0085 
SKSTART 0008 0150 0703 w- W14 OOLE 0086 
SNSDIFF 0009 0154 | \ wis OOLF 0087 
SNSHAR 0005 0155 | #2 0012 0074 
SNSINFC 0089 0107 , yw 0013 0075 
SNSROWR O0OB 0162 ! C wa 0014 0076 
SPFMTG1 O00CO 0140 | WS 0015 0077 
SPFMTG2 OOEO 0141 | y~ W6 0016 0078 
SPRDG2 OOEO 0130 0633 | WT 0017 0079 
SPRESET 0080 0257 “8 0018 0080 
SRCH 0040 0344 i WS 0019 0082 
STACKCMD 0080 0301 : & XFRDODE 0008 0305 
Stat 0008 0048 . XFRHACNT 0019 0304 EE Ep 
STATOVN 0008 0202 ' . XMETCNTL 0009 0101 
SUBTRACT 0002 0277 i & zer 0010 0055 0654 0674 0675 0689 0700 
SVPREQ 0002 0391 ZLSCH 0017 0427 
SYNCIN 0004 0175 : , ZLSEXTB OOOE 0422 
SYNCOUT 0680 0290 i &. ZLSEXTC OOOF 0426 
TAGATE 0080 0218 0653 ZLSEXTE O00D 0423 
TAGVALID 0040 0171 p- LLSEXTFE 0009 0424 
TILCHK 0100 0652 0609 0629 0639 \ ZLSEXTED OOOA 0425 
DATE 22 AUGTS PROG ID Fa6-0, EXpare 22auG75 : PROG 10 FAb-0 
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FA60 3340 DISK IPL MICROCODE - MOD 12 PART NO. 
PAGE 
1EM CONFIDENTIAL UNTEL FIRST CUSTOMER SHIP 
1G 
CROSS-REFERERNCE 
ae 
SYMBOL VALe DEFN REMARK CALLS 1 as a 
THE CHARACTER 
ZLSFC 0011 0428 pugs 
ZLSECHAN 0058 0432 | S ck 1 THROUGH 16 
ZLSFD 0012 0429 
ZLSLOCB 0006 0419 Lp ateee cece 
ZLSLOCE 6005 0420 1 & Meo 6 EZS 
ZLSLOCT 0007 0421 ' a eee aee e 
ZLSREILE 004A 0433 i MBO 6 86 KBE 
ZLSSCHAN oo0n 0436 : a eco ee8 
ZLSWFILE OOCE 0434 | 80AR 6 UBet 
NG STATEMENTS FLAGGED IN THIS ASSEMBLY logs eéecaeess 
OPTIONS IN EFFECT: OT EMODE «REF, NOREL OC, NOCARDS, VECK s NODUPE, NOCONTR »NOEKRONLY » NODCE3 ¢FL1=OFF sNORLOP | €"wgoss 6 6 MG 
14 CARO-IMAGES OBJECT OUTPUT LAST P| occ ee ce 
g Reece & aw C 
MBODt 6 AED C 
i Cmaoep 6 AB A 
{ ees ec e 
a F ADA 
I 7 eeee ac & 
;  480< D 6HO 
e230 ee 2@e 
| Cmsoce. 06 «(OK OCOD 
| ches 0 OUF-D 
| MLMA &DA SDA EDA 
C emneee792-DC"PHS 
| 
i) 
| © 
| 
i © 
| 
| © 
| 
i © 
: 1 
i 
Oe ae eopaee” PROG 19D rab-0' “pate 22 auGT7S 
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CL 17 THROUGH 32 


“pz- 0s-GeHe BHS 
0:0 F20 GU KE: 
OFFCERHGeBHOI F 
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T CTD ALGVSI6(P 
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OBSECT CARD LISTING 


Ci 33 THROUGH <8 


es * 


INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC 


CL 49 THRCUGH 64 


eo @ @ S 2 SS eee eee 
” . @ é & ; 
; S S ss 


PART NOe &2&7635 
PAGE SA 
SHIFT. 


CL 65 THROUGH &O 


x 


CL 8i THROUGH 96 


HD," DK 92" ZY f BY »8 0:0 F:D "cu <p: PD:0 F:D «CU ELZHFE00001 
(EHH SGAFEONBHG € FABHE.CHEG F AEHEE FAD FHBHD AF .G=RLOFAG2G002 
ABHAIB.QHD FHOHS AFHO* FAFH@HF.Q <0 FH OY FH FHF * pMcds -FAG0000S 
REROP EDLAZ'Q ED LA_VIFEA.B*UBA_Y ¢ & _FVNHAVSHOEP aD C.=A0FAG0GO0S 
aB—<DBVNIGSSOFS9 ac?) C20 CXD A + C20 C_ ASFS9 ® C2KQCEAEGOONS 
PEMIADIO BRK A SBHO-BH="FH@A D F_#"F°SAGS9sF3a DFHOOSLEFAECOIGS 
« p BHS-CH8:8e8 IG:9FGH®sFa=" D "0° A:O A® A aD A‘ #,*FAGOCOOT 
“EDA EDA DA £04 cepa EDA GDA EDA "eDA EDA EDA EDA GDA SODFASOCCOB 
EB¢NDCHH EDMSF3@ HG.QGAXNMCGMHF 3M HBeP7BHa FICS} ECHOERBUFA6O0009 
CHa G>SEBDBAFIN | FABHE.CHSOBs: °° ASHECCHSP F AS* -7/2FAG00010 
OFA >HI 802 sp. p00? 0 ob pid D2 036DA DA 2LDFAG00011 
*SECDKHI EDA £DA GDA EDA EDA EDA “EDA EDA EDA EDA EDA 3&HFAG00012 
"eg ase RA so a S:*S*S*S*S*S*S*:C«tKOGOBT3ZO 9307S" YRFAEOOSIG 
LAST PAGE ewe nanan rrr 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


FAT1 3340 DISK IPL LOADER PROGRAM--MOD 12 


ERR LOC OBJECT CODE AOOR STMT SOURCE STATEMENT 


2r 
0000 3 BEGIN START O 

. 4 DECK 4 

; 5 seg Oo 

6 TREP 

0001 7 XR equ. 1 

0002 8 XR2 equ. 2 

0008 9 ARR Equ. 8 
O IAR EQu) 16 


00101 


DATE ‘21AUGTS O5n0V75 
EC NO. 827785 827827 


INDEX REGISTER le 
INDEX REGISTER 2. 


ADDRESS RECALL REGISTER. 
INSTRUCTION ADDRESS REGISTER. 


j 
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a. 


, * FATE 3340 DISK IPL LOADER PROGRAM--MOD 12 


err toc OBJECT CODE ADOR STMT SOURCE STATEMENT 














LAST CHG 11 05 75 12 ¢ 
14 # 
3000 _. is . ORG x*3000° 
© 16 & 
n 18 ¢ 
med € 3000 Co 80 0000 19 LOADER 8C X* 0000* ,X*80* SET ARR OURING HARD IPL 
| 3004 35 01 0001 290 X*O00G1L* .XR1 SAVE LOCATION O 
‘ eG 3008 34 10 0001 2i st X*Q001* pTAR PUT IAR IN LOCATION 0 
| 300C 23 USING LOADPT »XR2 ESTABLISH INITIAL BASE REGISTER 
7 24 
| © 300C 35 02 0001 25 LOAOPT L X%*®*Q001* »XRZ LOAD BASE REGISTER 
{ 26 
| GS 3010. 34 01 0001 ai ST X*O0001* eXRi RESTORE LOCATION O 
, 28 
| "3036 29 USING LOADO2.XR1 ESTABLISH SECOND BASE REGISTER 
30 
| Cc 3014 E2 01 2A 31 La LOAD02Z (1, XR2) eo XR1 LOAD BASE REGISTER 
32 
| C 3017 74 02 69 33 st SAVXR2 ( eXR1) oe XR2 SAVE LOAD POINT VALUE 
2 34 : 
0002 35 DROP XR2 DROP INITIAL BASE REGISTER 
C: 3135 36 USING LGAD024255,XR2 ESTABLISH FINAL BASE REGISTER 
=o : 37 
| 301A D2 O02 FF 38 LA LOAD024255( eXR1IeXR2 LOAD BASE REGISTER 
‘ 39 
| Cc: 301D 84 O08 61 40 ST RETURN( .XR2} ,ARR SAVE IPL RETURN AODRESS 
| 41 ; 
| 3020 9E 01 6F 69 ‘42 ALC MICG(2eXR2) eSAVXR20,XR1) ADJUST 
: € 3024 TE OL 71 69 43 ALC EMICS(2_XR2)  SAVXR2(-XR1) ADDRESS 
{ 3028 9E 01 75 69 44 “atc DDOR (22 XR2Z) eSAVXR2(2XR1) CONSTANTS 
I eee 302C 9E 01 73 69 45 ALC ODCRE2eXR2) eSAVXR20—XR2) i 
= 46 Gee ees 
| 3030 74 02 69 47 st SAVXR2ZE ge XRL} -XR2 SAVE BASE 
| 3033 84 O1 8D 48 st SAVXR1(.XR2) oXR1 REGISTERS 
| 
| 
le 
| 
} 
, 6 
| 
'@ 
i © 
'@ 
= | | : | 
PROG 10 Fat-1; ©oate — 21AUG7S—«_OSNOVTS - prog 10 -—sCéFAT~2 
PAGE 1. €C NO. 827785 827827 : PAGE iA 
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16M MAINTENANCE DIAGNOSTIC PROGRAM IBM MAINTENANCE DIAGNOSTIC PROGRAM 


an a 


FAT? 3340 OISK IPL LOADER PROGRAM-——MOD U2 | FATE 3340 DISK IPL LOADER PROGFAM--HOD 12 


ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT €“ERR Loc CBJECT CODE ADDR STMT SOURCE STATEMENT 

















So & 7 3003 85 O1 6F 118 t MICal,XR2),XR1 XR1 <--> NEW POSITION 
51 © MAIN *LGADER* PROGRAM - nena manana & 3006 6C 02 02 84 119 MVC 203eXR1L) eWORK( 2 XR2) HOVE UNUSED PART OF MICRO WORD 
52 2 i 120 
3036 81 CS 92 53 LOADO2 L10 HLTIOP(,XR22,X'CS* HALT 10P ~, 300A E2 O1 Ad 121 LA START (9 XR2) oXRL XRL -=-> START IOP STRING 
3039 81 C5 CA 54 LIO SERMOD(,XR2),X*CS* SET SERVICE MODE €3 3000 €0 87 4E 122 B SVPXEQ(,XR2) EXECUTE STRING 
55 123 
303C 85 O1 6F 56 LOADOZ L MICSCeXR2)eXR1 XRL --> CURRENT HICRO WORD : 30EO BL CT 69 124 LIO TEST2(,XR20eX*CT® SET LAR TO X*02¢* 
303F 9C O02 87 02 57 MVC EWORDL3,XR2)420—XRL) MOVE NEXT WORD TO EWORD €: -30€3 80 €7 8F 125 SNS  SENSE(,XR2) X*C7* GET ATTACHMENT SENSE 
. 3043 85 01 8D 58 t SAVXR1G, XR2) e XR RESTORE XRi ; 30E6 B88 02 BF 126 TBN SENSE(»XR2)eX*02* CHECK FOR IOP NOT STARTED 
59 30E9 EO 10 12 127 BT ERROR ( » XR2) GO If NOT 
3046 AC 60 93 85 60 MVC =—«- STC C1 XR2) p EWORD—2 (,XR2) 128 
304A AC 00 95 86 61 MVC STCRI1,-XR2) -EWORD~-10eXR2} MOVE WORD TO STORE CMDS 30EC BD 02 90 129 STEPTP CLE FLAG eXR2)e2 CHECK FUNCTIONAL CODE LOADED 
304E aC 00 97 87 62 MVC =—- STV 01 eXR2} eg EWORD Lo XR2) a 30EF F2 81 SC 130 JE LOAD10 GO IF YES 
63 Be Ry 131 
3052 B81 CS 9A 64 LIQ CSARD*1LGeXR25eX*CS® LOAD CSAR ¥ALUE 30F2 BD 00 90 132 CLE FLAG(sXR2) 20 CHECK FOR INITIAL ENTRY FLAG 
3055 BL CS 9C 65 £10 CSARB+1teXR2)2X*CS* IN OPREG 30F5 F2 01 06 133 JNE  LOAD07 GO IF NOT 
3958 B1 C5 9E 66 LIQ YTOD(,XR2),X*CS* Y FIELD -> A REG -> O REG £ 30F8 BC 2A 99 134 MVE CSARD(,XR2)eX*2A°* RESET CSAR-D TO 170 MICRO INST®S 
- 3058 B1 CS AO 67 LIQ STCSARG,XRZ},X*C5* R FIELD & D REG -> CSAR 30FB BC O01 90 135 MVI = FLAGE pe XR2) ol RESET FLAG 
305E BB 60 $3 68 SBF STC oXR2}—X*60* RESET INVERT & UNUSED BITS 30FE £2 O1 EB 136 LOADOT LA CARREQ( oXR2) oXR1 XRL —-> CAR REQUEST STRING 
3061 B1 C5 94 69 LOADOG LIO STC#1(eXR20eX°C5® LOAD C FIELD IN OPREG C 3102 EO 87 32 137 B PCRXEQ( »XR2) WAIT FOR PCR/SET SVP & CAR TO X-REG 
3064 B1 CS 96 70 LIO STCRE1(,XR2)eX*C5* LOAD CR FEELO EN OPREG 138 
3067 81 C5 98 71 LIO STY#109XR2) 9X*C5* LOAD y FILED IN OPREG ch 3104 £2.01 ED 139 LA HARREQ(eXR2} eXR1 XR1 —=-> HAR REQUEST STRING 
306A B81 C5 A2 72 LIQ STLEFT(,XR2),xX°C5S* STORE OPREG LEFT & 3107 EO 87 32 140 8 PCRXEQ( »XR2) wAIT FOR PCR/SET SVP & HAR TO X-REG 
306D 81 C5 Ae 73 LIG STRIGH(,XR2)eX°C5* STORE OPREG LEFT 141 
3070 BL C5 A6 74 LI1O0 RDTS(,XR2D-X*CS° FETCH CS TO OPREG a 310A Bl C4 75 242 LIO DODOR( eXR2)eX*C4* LOAD ODOR 
3073 B81 C7? 98 75 L10 ST¥#1¢eXR299X*CT7! SET LAC TO SENSE OPREG Y FIELD 7 310D BO Cé &8F 143 SNS SENSE(,XR2) oX*C4® FETCH ODOR 
3076 BO C7 8B 16 SNS RWORD(,XR2)¢X*CT! SENSE Y FIELD 3110 AO 01 75 8F 144 CLC ODDR(I2,XR2) »SENSE(eXR2) CHECK THAT DOOR WAS LOADED 
3079 B1 C7 96 77 LIO STCR#1(,XR2).X*CT* SET LAC TO SENSE OPREG CR FIELO 3114°€0 O1 12 145 BNE ERROR(,XR2) GO IF NOT 
307C BO CT 8A 78 SNS  RWORD—1(0,XR2)eX*C7T* SENSE CR FIELD Ce a: 146 
307F 81 CT 94 79 L1Q0 = STC4#1 le XR2)0eX*CT* SET LAC TO SENSE OPREG C FIELD 3117 E2 O1 EF 147 LA RECREQ( oXR2) eXR1 XR1L <--> REC REQUEST STRING 
3082 80 C7 89 80 SNS  RWORD-2(,XR2},X°C7*® SENSE C FIELD C 3L1LA £0 87 32 148 8 PCRXEQ( 9 XR2) WAIT FOR PCR/SET SVP & REC TO X-REG 
81 s 149 
3085 68 EO 85 82 SBF EWORD-—2¢—XR2),X*EO* RESET 3110 AE 00 EF 69 150 ALC RECREQ(1,XR2)e120_eXR2) BUMP RECORD NUMBER 
3088 BB EO 89 83 S&F RWORD—20.XR2),X*EO® UNUSED 61TS 3122 6D 19 EF 151 CLE RECREQL ¢ XR29 025 CHECK FOR END OF EVEN TRACK 
Sere eae ore 84 €& 3124 £2 01 03 152 JNE  LOADODS GO IF NOT 
3088 AD OZ 87 88 85 CLO EWORD(3_XR2)_,RWORD(,XR2) CHECK RESULTS 3127 BA O21 ED 153 SBN HARREQ(»XR2)-X*O1* SET HAR TO OOD TRACK 
.308F F2 81 OF 86 JE LOAaDosS GO 1F RESULTS MATCH 154 
87 € 312A AC O1 84 65 155 LOADOS MVC WORK(2,XR2),10%,XR2) RESET TIMER 
3092 B9 AO 93 88 TBF STCCeXRZ),X*A0® CHECK FOR OATA MODE OR INVERT ON 312E AE 01 84 69 156 LOADOS ALC WORK(2eXR2)e126eXR2) BUMP TIMER 
3095 EO 90 iz 89 BF ERROR ( 9 XR2) GO IF EITHER ON 3332 EO 61 12 157 Bz ERROR (, XR2) - 60 IF TEMER TIMES OUT 
90 € 3135 B1 C7 69 158 LIO PCRREQE»XR2)»X*CT* FETCH PCR 
3098 BA 20 93 91 SBN STCE,xXR2),X*20° SET INVERT BIT 3128 80 C7 BF 159 SNS  SENSE(,XR2)eX*C7* REQUEST 
3098 DO 87 28 92 8 LOADO4( oXR1) GO RETRY STORE TO CS 3138 88 O1 8F 160 TBN SENSE(,XR2).x*O1* CHECK FOR PCR REQUEST 
93 -€  313€ Do 10 FB 161 BT  LOAD0ST»xR1S GO If NOT 
94 ¢ 3141 B81 C5 67 162 LIQ PCRRST(,XR2) oX*C5S* RESET PCR REQUEST 
95 t-—---~— CONSTANTS IN XRi CSECT ---emn-nm- a a c 3144 900 87 00 163 8 LOADO2 ( »XR1I CONT INUE 
96 & i qe 164 
309€ 0000 309F 97 SAVXR2 OC XL2*°000° i 3147 AD OL 81 65 165 ERROR CLE RETURN(,XR2)e10(,XR2) CHECK FOR HARD IPL 
98 ol 314B EO &1 26 166 BE ERRHLT( eXR2) GO TO ERROR HALT IF YES 
30AG AE 00 99 67 99 LOADGS ALC CSARD(1,XR2)e11L(,XR2) BUMP CSAR-D i © 167 
30A4 BD 80 99 100 CLI CSARDOeXR20eX* 808 CHECK FOR END OF BLOCK 314E AD 01 61 65 168 LOADLO CLC RETURN(»XR2)-100,XR2) CHECK FOR HARD IPL 
30A7 F2 82 13 101 JL LOADO6 GO IF NOT ts 3152 F2 81 D9 169 JE LOAD1i1 GO IF YES 
102 1 €. 3155 85 01 81 170 L RETURN( XR2) oXR1 XR1 --> SOFT IPL RETURN POINT 
30AA BC 00 99 103 MVI «= CSARD 0.5 XR2} o X* 00° SET CSAR-D TO X*00* 3158 DO 87 00 171 8B OC eXR1) RETURN TO SOFT IPL 
LOAD AE 00 98 67 104 ALC CSARB(1eXR2)5110eXRZI BUMP CSAR-D as) 172 
3081 BO 20 98 105 CLI CSARBEeXR295X*20° CHECK FOR ENO OF CS 1 €> 3158 €2 01 03 173 ERRHLT LA STOP (sXR2) eXR1 SET UP TO RESET ATTACHMENT 
30B4 F2 82 06 106 Jt LOADC6 GO If NOT 315E EO 87 4E 174 B SVPXEQ( eXR2) BUSY IF ERROR HALT OCCURS 
107 ; 175 
3087 BC 02 90 108 MVI FLAGO,XR2) 22 SET FUNCTIONAL CODE LOADED FLAG i 3161 FO 03 10 176 HPL X*10%,x*03* HALT *1-" ON HARD IPL ERROR 
308A BC 00 98 109 MVE CSARB(,XR2)¢X*008 SET CSAR-B TO X*00* | 3164 £0 87 2C 177 8 #—3(9XR2) LOCP ON *1-" HALT 
110 { : 
3080 AE 01 6F 68° 111 LOADO6 ALC AMICAl2eXR2)e13CeXR2) UPDATE MICRO WORD POINTER ' & 
30C1 AD O1 6F 71 112 CLC MECA(2¢XR2)-EMICA(,XR2) CHECK FOR END OF MICRO WORDS | 
30C5 00 04 06 113 _ 6NH  COADO3(,XR1) . GO If NOT S 
114 : 
30C68 85 O1 6F L1S L MICA(eXR2)eXR1 _ XRL ——> UNUSED PART OF MICRO WORO | 
30CB 9C 02 84 02 116 MVC WORK(3,9XR22e20eXRL} SAVE UNUSED PART OF MICRO WORD 
30CF AE 01 6F 60 117 ALC MIC38(2eXR2)51M512(,XR2) MOVE POINTER BACK 512 BYTES | @ 
DATE  21AUG7S5 = OSNOV75 PROG ID FAT-1' €pate = 21AUG75. ss: OSNOV75 PROG ID FAT=1 
EC NO. 827785 627627 PAGE 2 EC NO. 827785 827827 PAGE 2a 
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18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247637 IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4247637 
PAGE Bn es PAGE 3A 
q 
FA71 3340 DISK IPL LOADER PROGRAM--MOD 12 _* BATL 3340 DISK IPL LOADER PROGRAH--MGD 12 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT i © ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
179 * @ 243 @ 
180 @----=- PCR REQUEST EXECUTOR 9 --—--——- nnn, re ae START I0P STRING --------- mew ewww een nnn nnn n nn enn enna ene n onan 
181 * | 245 % 
3167 84 08 4D 182 PCRXEQ ST PCRRTN¢309XR27,ARR SAVE RETURN ADDRESS es 31DE 246 START EQU ® 
316A Bl CT 69 183 PCROL LIQ PCRREOQ(,XR2)eX'C7* FETCH PCR ~~ € >  31De 1208 310F 247 OC xL2°1208° Cex*12¢ 
316D BO CT 8F 184 SNS  SENSE{eXR2) 9X*CT® REQUEST 31E0 SFOA 31E1 248 oc XL2°BFOA* CR=x' BF? SADI INDEXIT,X*BF* 
3170 88 Ol 8F i8S TBN  SENSE()XR2D eX" O1* CHECK FOR PCR REQUEST ¢ 31E2 BFOB 31E3 249 oC XL2*BFOS* voxeaFe eed 
3173 €0 10 35 186 BT PCROL (9 XR2) GO IF NOT i € 31E% 8802 31E5 250 DC XL2¢9802° RESET SERV MODE 
3176 72 CS Od 18? LIG 1 pXR1L),X*CS* RESET PCR & DATA TO X-REG | 31E6 000F 31E7 251 De XL2°GOGF® EXECUTE INSTRUCTION 
- 3179 81 CS 68 188 LIQ SVPREQL»XR2NeX*CS* SET SVP REQUEST | - B1E8 A802 3LE9 252 DC XL2*as02* SET SERVICE MODE 
317C 85 OL 6D 18¢ L SAVXRL(¢XRZ) 9 XR1 RESTORE XR2 | € 31EA SBOE 318 253 oC XL2*S6CE* INDEX=X* BFE 
317F CO 87 0GOC 190 PCRRIN 8 4-8 RETURN BiEC 1208 31ED 254 DC xL2°1208° C=x"i2e 
191 ® Le BlEE 940A Z1EF 255 oC XL2°940A° CREX*SK° SABI MNIAREB,X*00* 
192 @----=-- SVP EXECUTOR 9—-------=-------- corweesenlonccee' ( 21F0 0008 31F1 256 BC XL2*0008° Y=x'0G° 
193 @ 31f2 8802 31f3 257 oc XL2°8802° RESET SERVECE MODE 
3183 B4 08 63 194 S¥VPXEQ ST  SVPRTN@30,XRZ)2ARR = SAVE RETURN ADORESS Pie 31F4 OOOF 31F5 258 DC XL2* OQ00F® EXECUTE INSTRUCTION 
195 '€  31F6 aBo2 31F7 259 DC XL2*A802° SET SERVICE MODE 
3166 71 C5 01 196 S¥VPOL LIO 1eXR1)9X°C5* EXECUTE DIAG LIO-2 31F8 B40A 31F9 260 oC KL2"B40A° CR=X*B4! SADI NIARED,X*00° 
3189 78 80 O1 197 TUN 1 e XR19 9 X90" CHECK FOR END OF TABLE 31FA 8802 31FB 261 oc XL2"8802° RESET SERVICE MODE 
3186C D2 O1 02 tae LA easy oe POINTER C- Z1FC COOF 31FD 262 oc XL2*OO0F® EXECUTE INSTRUCTION 
318F £0 90 51 99 BF VPOL Ly XR2 ONT INUE ; 31FE A802 31FF 263 SERMOD OC XL2*AB02° SET SERVICE MODE 
200 |. 3200 CCOE 3201 264 oc XL2°OCOES RESET EXT ADR CHECK/READ 2 ENSTRUCTION 
3192 65 01 8D 20: : L SAVXR10-¢XR29eXR1 RESTORE XRi . ( 3202 0002 3203 265 oc xL2*0002* RESET K REG 
3195 CO 87 9000 202 SVPRTN 8B *-3 RETURN 3204 0001 3205 266 DC xL2*C001" RESET X REG 
203 * ee C 3206 O08E 3207 267 oc XL2*OO8E® START IOP/END OF STRING 
204 o-- NSTA owen nena n= -- == ween ene nneceewennenennneewnn; ( 268 * 
205 * | 369 t----=- STOP IOP AND DE-ACTIVATE ATTACHMENT BUSY ON ERROR CONDITION —— 
3199 0000 319A 206 10 oc 1L2*0¢ 270 * 
3198 0001 319C z07 Il oc 1L2°3° Cc: 3208 271 STOP EcQU *# 
319D 0002. 319E 208 2 oc 1L2°2° 3208 A802 3209 272 oc xL2*a802° SERVICE MODE AND HALT IOP 
319F 0003 31A0 209 13 oc 1L2°3° | . 3204 1808 3208 273 oc xL2*1808° C=x*18° 
31A1 FE0O 31a2 210 14512 OC 1L2°-512¢ ; € — 320€ a30a 3200 274 oc XL2*A30AS CR=xX*A3e LEI TO DST KEG 
31A3 0288 31A4 211 MICa OC ALZ2¢PRIMIC-LOADPT) 320E 8008 320F 275 oc xL2"8008° v=X*60° . 
3145 04Al 3LA6 212 EMICa OC AL2(M1C+509-LOADPT) i 3210 e802 3211 276 DC XL2°8802° RESET SERVICE KODE 
SAS I Ne ye a Sere ea 31A7 019F 31a8 213 DOCR oc AL2(ODCF-LOADPT) | C 3212 OC&8F 3213 277 oc XL2*CO8F* EXECUTE LBI INST TS RESET ATT BUSY 
31A9 O2A4 31AA 214 DOOR OC  AL2(MIC-LOADPT) 278 © AND HALT THE IOP/END OF STRING 
31A8 215 O0CF EQU * | 
31AB 00C00000G0300001 3184 216 DC _—- XL10 °00000000003000010009° | e 
31B3 0000 216 
31B5 0000 3166 217 RETURN OC xL2*0000° | 
3187 3189 218 WORK ODS  XL3 | ae 
318A 000000 31bC 219 EWORD DC xXL3*000000° 
318D 00000000 31C0 220 RWORD OC XL4*00000000° | 
31C1 0000 31C2 221 SAVXR1 DC xL2*0000° | C: 
31C3 0000 31C4 222 SENSE OC  XL2*0000° 
319E 223 TEST2 EQU 12 | 
31C5 00 31C5 224 FLAG OC  xXtL21°00° | C 
31C6 8802 3107 225 HLTIOP DC xXL2*°8802" 
31C8 00 -31¢8 226 STC OC XL1°00° | 
31C9 08 31C9 227 oc XL1°08° | G 
31CA 00 31CA 226 STCR DC  Xk1L*00° 
31CB OA 31CB 229 DC XL OA® | 
31CC 00 31CC 230 STY OC —- XL OCS |G 
31C0 08 3iCO0 (231 DC — «XL * 06" 
3°CE 00 31CE 232 CSARD OC XL1*°00° 
31CF OB 31CF 233 pC: XL" 068 | © 
3100 00 3100 234 CSARB OC  xXt1L*00° 
3101 OA 3101 235 pc 3—s XL. *0A* 
3102 020F 3103 236 YTGD OC xL2*020F* | & 
3104 080D 3105 237 STCSAR DC XL2*0800° 
3106 AEOE 3107 238 STLEFT OC Xt2*AEOE* 
3108 CEOE 3109 239 STRIGH OC  =XL2°CEQE* | & 
310A OEOE 3108 240 ROCS OC XL2*OE0E* | 
240C 8001 3100 241 RD12MB DC = XL2* 8001" ie 
| 
| 
DATE 21AUG75  OSNOV7S PROG ID FaT-1 "pate 21AUGTS  OSNOV75 PROG ID FaT-1 
EC NO. 827785 827827 PAGE 3. EC NOe 827785 PAGE 3a 
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PAGE r PAGE 4A 
x 
FAT71 3340 DISK IPL LOADER PROGRAM——HOD 12 \ FAT1 3340 DISK IPL LOADER PROGRAM-—-MOD 12 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT Pe ERR LOC OBJECT CODE ADDR STMY SOURCE STATEMENT 
: | 
260 * en 293 #---~— arene owe wee en er een accent 
281 t----—— SET PCR REQUEST 9 ---enenrr nr ee at OT Oe NE EE OS 6) 294 * s 
282 & 295 ¢ WARNINGS THE 3340 DISK IPL FORMATTER (PIO=FC2) DEPENDS e 
‘319E 283 PCRREQ EQU 12 FETCH PCR REQUEST \ 296 ON CARREQ AND HARREQ BEING AT THIS SPECIFIC s 
284 * ,§ 297 * LOCATION. * 
319C 287 PCRRST EQU tl RESET PCR REQUEST CG 3220 300 ORG LOADER*X*6220° 
; 288 # 301 * 
2930 ¢ : i 3 303 ¢ 
31LAO 291 SVPREQ EQU 3 SET SVP REQUEST : 3220 304 CARREQ EQU s 
G 3220 0001 3221 305 oc xtL2'0001° RESET PCR/SET X-REG FOR CYLINDER 0 
. £3 306 * : 
Loe. 308 * 
ie 3222 309 HARREQ EQU * 
3222 0401 3223 310 oc XL2°0401° RESET PCR/SET X-REG FOR HEAD 2 
311 * 
c 312 t-—---~ REC REQUEST STRING ew 
313 ¢ 
. 3224 314 RECREG EQU s 
: Cc 3226 0101 3225 315 oc XL2°O0101° RESET PCR/SET X-REG FOR RECORD 
\ 
| 
| © 
eons So | & | 
| 
Co 
| 
| © 
| 
1G 
| : 
| 
| @ 
| 
| 
|e 
DATE _Z21AUG7TS  O5NOV75 oe ‘pROG 10 FAT-1 € pate 21AUGT5 OSNOVTS ; : PROG ID FAT—1 = 
EC NOw 827765 827827 PAGE. 4. EC NO. 827785 827827 PAGE 4A 
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3340 DISK IPL LOADER PROGRAM-—MOD 12 


© ERR LOC OBJECT CODE 


317 2 | 
318 t-—----— HARD IPL ee eee re nen nn en rman | G 
319 * 
322E 320 ORG CAD02+255+249 | —_ 3294 
ooo 321 oROP XR1 DROP LOADER BASE REGISTER , S oe 
322 
322€ 323 USING LOADI1+XxR1 ESTABLISH HARD IPL BASE REGISTER | 
324 /€& 3280 
322€ £2 01 £9 325 LOADLL LA — LOAD.» XZ) 9XRI LOAD NEW BASE REGISTER | 
3231 aC O1 75 65 326 HVC DODR{2—XR2)470(eXRZ) SET OCOR TO LOCATION 0 2 
3235 81 C4 75 327 LIG ODOR »XR2} yo X*C4* LOAD DDDR 6 
3238 B1 C6 73 326 LIQ ODCR1,XRZ) oX* CEP LOAD DDCR 
3238 80 C4 8F 329 SNS  SENSE(XR2) 2X*C4! SENSE DOOR 
323E BO C6 8D 330 SNS  SEWSE-2€eXR2)9X*C6" SENSE OOCR 1 © 
3241 AD 03 75 8F 331 che DDDR(4yXRZ) @SENSE(>XR2) CHECK THAT REGISTERS WERE LOADED 
3245 £0 01 26 332 BNE  ERRHLT( »XR2! GO TO ERROR HALT IF NOT C 
333 i A? 
3248 7C Ci 50 334 HVE DRIVEL#269XR19,X"C1*® SETUP . 
3248 7C O7 51 335 MVI-ORIVEL#209XR1P,X*07* RO DIAG SRS SIO G 
336 2 
324E 00 87 49 337 B  —sCORVXEQL »XR1) EXECUTE SIO 
| 338 
3251 39 07 0002 339 TBF -X#0002" »X*07* TEST FOR 12 MB DATA MODULE iG 
3255 F2 90 06 340 JF: LOADIZ GO IF NOT 12 MB 
341 = 
3258 Bl C5 AB 342 LIQ RD1ZMBCeXR2DeX*CS* «SET OPTION BYTE FOR 12 HE © 
3258 B1 C5 68 343 LIQ SVPREO(oXR29oX'CS* AND SET SVP REQUEST FL 
344 : | 
325€ B1 C4 75 345 LOADI2 LIQ ODDR(,XR2)eX*24" RESTORE DOOR 6S 
346 
3261 7C CO 5C 347 MVE ORIVEL*1(0,XR1)9X*CO* SETUP : 
3264 7C 01 51 348 HVE ORIVEL#209XR1)9X"01® = RECAL SIC oa 
349 , 
3267 00 87 49 350 B —- ORVXEOQL » XR1) EXECUTE SIO Oo 
351 | 
326A 7C CL 50 352 RVI ORIVELO10)XR22exX*C1" SETUP 
326D 7C 00 52 353 HVE ORIVEL#2UXR12exX"00" = ROKD SIO e 
| 354 | > 
3270 00 87 49 355. eB  —sDRVXEQC » XR1D EXECUTE SIO 
456 | 
3273 CO 87 0000 357 LOADX B = -x*0000° CONTINUE IPL AT LocaTION xtooooe = & 
358 : 
3277 74 08 66 359 DRVXEQ ST  DRVRTNS3(eXR1P,ARR SAVE. RETURN ADDRESS 
327A E1 CO 26 360 STO ERRHLT¢sXR2)eX°CO" | ERROR HALT IF UNIT CHECK/NOT READY © 
361 
327D F3 00 00 362 DRIVEL SIO #-*,9-* EXECUTE SIO oO 
| 363 'S 
3280 AC 01 84 65 364 HVC WORK(29XR2),10(,XR2) RESET TIMER 
3284 AE 01 84 67 365 ALC WORK(2sXR2) 9 11(eXR2) BUMP TIMER se 
3288 EO 81 26 366 BZ ERRHLT ( oXR2) ERROR HALT IF TIMER RUNS OUT iG 
328B D1 C2 56 367 T10 #-74XR1) oX*C2! GO IF ATTACHMENT BUSY STILL ON eee 
328£ E1 CO 26 368 THO ERRHLT(eXR2),X*CO* ERROR HALT IF UNIT CHECK/NOT READY 
369 
3291 CO 87 0000 370 ORVRING  *-* RETURN 
371 
© 
© 
| 
.& 
t 
a: 
© 
1 
\ ; 
DATE 21AUG7T5 ——-OSNOVTS PROG ID raT-1' Eoate —-21 UGS 
EC NO. 827785 827627 PAGE S| EC NO. 827785 


‘ 
{ 
; 
' 
! 


! 
‘ 
\ 
4 
{ 
‘ 


S 


6 


OSNOVT 
827827 


ADOR STAT 


3294 
32AF 
3260 
34AF 
ocoo 


5 


373 
374 
375 
376 
377 
378 
379 
380 
381 


PART NO. 4247637 
PAGE SA 
SOURCE STATEMENT 
* : 
Seemne- MINE MICRO LOADER ——m—m mmm 
SI ‘ 
ORG LOADER+660 
PRIMIC EQU * 
GS  28xtl 
MIC equ +. 
DS  512XL2 
END BEGIN 
PROG ID FAT-2 
PAGE 58 





1BM MAINTENANCE DIAGNOSTIC PROGRAM : PART NO. &24T63T 15M MAINTENANCE OIAGNOST IC PROGRAM PART NO. 4247637 
6 p 


PAGE C. PAGE 6A 
ATL 3340 DISK IPL LOADER PROGRAM—MOD 120 gar 3340 DISK IPL LOADER PROGRAM—-MOD 12 
CROSS-REFERERCE | CROSS-REFERENCE 

SYMBOL T LEK VALUE DEFN © REFERENCES c Syasot T LEN VALUE DEFN REFERENCES 
ARR COOL 0008 0009 0040 0182 019% 0359 SVPXEO A 003 3183 0194 0122 0174 
BEGIN A GOL 0006 C003 0381 _$yPol A 003 3166 0196 0199 
CARREQ A OOL 3220 0304 0136 € Test2 4002 3196 0223 0128 
CSARB A COL 3100 0234 0065 104% 0105 02098 eer «4 003 3189 0218  O116# 0119 O155% 01568 03688 0365 
CeARD A OOL 3ICE 0232 0064 099% C100 0103* 01349 grt «€ «081 -OOOL 0007  —0020* 0027 0029 CO3Ke 0033 0038 0042 0043 004% 0045 0047 0048 

| DDCF A OGL 31AB 02235 0233 eC pose® 0057 0058% 0092 C113 O115* 0116 118% 0119 Ol2i® 0136% 0139¢ 

: DDCR A 002 31A8 6213 9045* 0326 oreT# O161 0163 O170* 0171 0173* 0187 0189% 0196 0197 0198 oL98* 
SDDR A 002 SIAR C214  —G044* OL42 0144 03268 0327 0331 0345 o2018 0321 0323 0325 0334 0335 0337 0347 0348 0350 0352 0353 
ORIVEL A 003 327D 0362 03344 0335% 0347% 0348 03529 0353¢ c: 0355 0359 0367 
ORVRTN A 004 3291 0370 0359% xR2  € OOL 0002 G08 0023 0025" 0031 0033 0035 0036 0038% 0040 0042 0043 004% 0065 
DRVKEG & 003 3277 0359 0337 0350 0358 ee D047 0048 0053 0054 0056 0057 0058 C060 0060 0061 0061 0062 
EMICa A 002 31A6 O22  0043% 0112 C3 p06? 0064 0065 0066 0067 C068 0069 0070 OOTI 0072 0073 0074 
ERRHLT A 003 315B 173 0166 0332 0360 0366 0368 oO7s 0076 0077 0078 0079 OBO 4082 0083 0085 0085 0088 0089 
ERROR A 00% 3147 0165  G089 O127 0145 0157 . 0091 0099 0099 0100 0103 0104 02104 0105 0108 0109 O11 O22 
EWORD A003 31BC O219 057% 0060 C061 0062 0082¢ 608s e o1iz 0212 O15 0116 O17 O117 0118 O11 C121 0122 0124 0125 
FLAG A OOL B3ICS 0226 0108 0129 0132 01358 Ores 0127 0129 0132 0134 0135 0136 0137 0139 0140 0142 0143 
HARREQ & 001 3222 0309 0139 0153¢ O14 0144 0145 0147 0148 0150 0156 0151 0153 0155 GCiSS 0156 
HLTIOP A 002 31C7 0225 0053 © 0156 0157 0158 0159 C160 0162 0165 0165 0166 0168 0168 0170 
TAR € QOL 0010 0010 021 ot73 O17 O177 0182 0183 0184 0185 0186 0188 0189 6194 0199 
IM512. A 002 31A2 0210 6117 = 0201 0325 0326 0326 0327 0328 0329 0330 0331 0331 0332 0342 
10 A 002 319A 0206 0155 0165 0168 0326 0364 aS 0343 0345 0360 0364 0364 0365 0365 0366 0368 | 
7 , 002 319C. €207 0099 O10 0287 0365 yrop A 002 3103 0236 0066 
12 A 002 319 0208 0150 0156 0223 0285 
13 A 002 31A0 0209 112 0291 C TOTAL: STATEMENTS FLAGGED IN THIS ASSEMBLY = c 
LOADER A 004 3000 0019 0300 0376 | 
LOADPT A 004 300C 0025 0023 O211 0212 0213 02146 
LOADX A 004 3273 0357 ~~ 
toADO2 A 003 3036 0053 0029 0031 0036 0038 0163 0320 
Loapo3 A 003 303C 0056 0113 
LOAD04 A 003 3061 0069 0092 G 
LOADOS A 004 30A0 0099 0086 
___ _ foan06 A 006 30BD O12 = 0101 0106 7 
LOADOT A 003 30FE 0136 0133 6 Sa ee 
LOADO8 A 004 312A 0155 0152 
LOADOS A 004 312E 0156 O16) 
LOADIO A004 314E 0168 0130 G 
LOADII A 003 322E 0325 0169 0323 0325 
A 


LOAD1I2 003 325E 0345 0346 G 


MIC A 001 3280 0379 0212 0214 
MI1C@ A002 31A4 O211 0042 0056 0111 0112 0115 0117* 0118 

PCRREQ A 002 319E 0283 0158 0183 
PCRRST A 002 319C 0287 0162 e 

PCRRTN A 004 317F 0190 0182¢ 

PCRXEQ A 003 3167 0182 0137 0140 0148 

PCROL A 003 316A 0183 0186 ; © 

PRIMIC A 001 3294 O377 O211 

RDCS A 002 3108 0240 0074 l¢ 

RD12MB A 002 3200 0241 0342 G 

RECREQ A 001 3224 0314 0147 0150 0151 | 

RETURN A 002 3186 0217 0040*% 0165 0168 0170 | 

RWGRD A GO& 31C0 6220 0C76# 9078* 0080% 0083* 0085 | G 

SAVXRL A 002 31C2 O221 0048¢ 0058 0189 0201 | 

SAVXR2 A 002 309F 0097 0033* 0042 0043 0044 0045 0047% | 

SENSE A 002 312C4 0222 0125* 0126 0143% 0144 0159% 0160 0184* 0185 0329* 0330% 0331 @ 

SERMCD A 002 31FF 0263 0054 | 

START A O0OL 310E 0246 0121 | 

STC A 001 31C08 0226 0060* 0068* 0069 0079 0088 0091* © 

STCR A O0OL 31CA 0228 0061* 0070 0077 | 

STCSAR A 002 3105 0237 0067 | 

STEPTP A 003 30EC 0129 @ 

STLEFT A 002 3107 0238 0072 | 

stop A 00h 3208 O27% 0173 { 

STRIGH A 002 3109 0239 0073 @ 

STY A 001 31CC 0230 0062 OO7TL 0075 

SVPREQ A 002 31A0 0291 0188 0343 

SVPRTN A 004 3195 0202 0194* | S$ 

. | . | 18 = 

DATE 21AUGTS OSNOV7S proc 10 FAT-1, € pate 21AUG75 OSNOVTS proc 10 FAT-1 

-  €C NO. 827785 827827 PAGE 6 EC NO. 827785 827827 PAGE 6A 
L : . ‘ 9 
: 7 ;o 
‘ / : { 
; | e 


ee ee ! 


NT 


: | ; . " 






18M MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 4247637 
7 


PAGE 
FAT1L 3340 DISK IPL LOADER PROGRAM-——MOD 12 
OBJECT CARD LISTING 


THE CHARACTER INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 


TT 


CL 1 THROUGH 16 


rat 20H CHAO 
1 4TA529MA$908/08 
T+TBOT<3 oF *#508<5 
1eTC, 2KBSaYHF? A 
T+TOW? EHEAYE*?7EB 
YeTE/>-G_» FORES 


T+TE® 10-/224506 


oe ee e 
TELF6 H "68 Yr 


~~ T4764 


TGTHLC?-8_ OH - 


TaLHV OO 60A 


TeTLY8-G9, E5RSG 


CL 17 THROUGH 32 CL 33 THROUGH 48 CL 49 THROUGH 64 


417636 EC 827827 


aD ACEH LEA G 
Bek eet aioe 
HzesMz<31>=BE>=B 
£2 BS.-E2E24A87G 
ca-DF2BDR? FEE-G 
A/EX--JH116W018" 
116W018=8 Q°-DCN 


e eeooenee e 


DYEF> DE c 


eeeee » e eeo,.0 8 


$HB H & 


1D H<C- BOD TD- 


D)SGFeeCOTSCFTES 


3340 DISK IPL LO 
SKZ4 WXK 27=4BHF 
* ves11RD11R211R: 
1p SHGSPHAC »H-USB 
ta ES O=* YEBe-E 
, BH*#28-G_BH*2Z*J 
8 Q"601$11036/08 
116F110>5 07/0” 
ca cecenusnsebeee 
*g0 A -aHCESe3-8 
ar STAY «SH TO. 


CyQ"- KRAONABASG 


ADeR —--- MOD 12 
3 O'ZX-ELEREADOW 
LIEBEQI+LIRKLIRE 
gD.Y-U'BGHO 9-8 


2$$MA8608 YLS EX 


S<CKIeEEST= ADDH 


& QEVBHDW sGFLR-=H 


_ /TesMasH AS-D 


4CY AD-S*BedeS H 


£/4U9A0 Bal FZ*O 


CL 65 THROUGH 80 


eeeeaeee 


849984aa 

3° ptz) 12. F(s*0 
LIRSLIEHLIEKIIEE 
RR#G W~HBDSO WES 
-/4t116W018=8 ¥* 
Ag=BGCDS #OWTFS® 
AGSMA-18G *HASHB 


BS IAJ_EF(OH* 


C:-BSOBKBISH > 
coccccevccesoees 


YTAN,TFIS~<AE E 


CL 81 THROUGH 96 


eeeooesed 


KZ*M ~£2FA710001 
119- #1MFA7i0002 
* W6* 3_4FAT10003 
-DAH E0@FA710004 
2 &< 2E*FAT10005 
GL? sZHEAT10006 

°°)” aecra710007 
H -  GHESFATLO009 


JeH® KH8EATLOOL2Z 





















FA71L0000 


2 AQFAT710008 


@IHFAT10010 


ac-FA710011 





THBHMKP3AMGO MIB GK#EG AGBFS/0BS 3 Bz QUVe-FDR=8 AT_GBND>G 1286 RTDFAT10013 
ge ase7e=pcepas =e7HeFH OFC fs asc: OR A SO OO 12330630750 112762 3FA710014 
~ 2 
3 3 
DATE 21AUGT5. =——s OSNOV75 PROG 1D FAT-1 
EC NO. 827785 827827 PAGE 7 





! 
1 
i 
: 
{ 
i 
\ 
i 
; 
} 











TEM MAINTERANCE DOZAGNOSTIC PROGRAN 


FCc2i 


€RP LOC OBVECT cone 


ooo0o 


OA00 


OA0O 
oa 02 
OA03 
OA04S 
OA06 
Oa08s 
OAOA 
Oa0d 
OA19 
OAIA 
OA1B 
OA10 
OALF 


OA21 


OaATE 
EC NO. 


2380 IPL FORMAT FROGRAM 


FC21 
00 

oo 
0000 
OA3A 
FFFF 
c1s000 


oo 


29AUG75 
827804 


_ADOR STMT 


OAO? 
OA02 
OAC3 
v ads 
OAC? 
OA09 
oaoc 
0A18 
OA19 
OAIA 
OAIC 
OALE 
OA20 


OA39 


220EC75 
827636 


--wCbeL 12 


SOURCE STATERENT 


* 

DECK 
Sto 
START 
TREO 
ORG 


FC2 


$899 29 03 BF OK 


oc 
oc 
oc 
oc 
oc 
oc 
SPUT tc 
os 
com oc 
Os 
LORID O§€ 
AMOPID DS 
FAOIO OS 
2 
svt FC OSs 


4 
o 
0 


x* aoo® 


SECTION PREFACE 


XL2*Fc2i* 
xXLi*o° 
xi1°o* 
xL2?0° 
AL2 CRTNI ) 
XL2°FFFF © 
XL3*C15000° 
xXtL12 
xXL1°OO* 
Xu 

AL2 

AL2 

ace 


xc2s 


PARTY NO. 
PAGE 2 


LAST CHG212 02 75 


248215 


SRKAKKAKHeMKRAKSE RAKE KCKKKSE RH CKKRKKRKAKEEKAKK 


FRCGRAM 10 
SECTION FLAGS 


CURRENT ROUTINE NUMBER 


RE SERVED 


ADORESS OF FIRST ROUTINE PREFIX 


RESERVED 
SPUT 


SECTION PREFACE SAVE AREA 


PROG I0 


1 


| 


Fce-1 
PAGE 1- 


I 


oN 


” 


ot 


con 


- - 
F 


™ 
A 


C 
Cc 


Potted 
- 


© 


TOM MAINTENANCE DIAGNOSTIC PROGRAM 


Fc21 


3340 IPL FORMAT PROGRAM 


ERR LOC CEJECT COCE 


OAZA 
0A38 
CA 2C 


OA3E 
OA42 
0AS7 
OA4A 
OASE 
0AS2 
OASE 
OASA 
0A SE 
OASF 
OA60 
OAE2 
0A66 
OA67 
oace 
OAGA 
OA6E 
OAGF 
0A70 
oa72 
OA76 
OA77 
Oa7s 
OA7A 
OA7E 
OATF 
Oaso 
0as2 
onee 
OAs? 
oases 
OABA 
OABE 
OA &F 
0aso 
OAS2 
Cage 
0a97 
0ag9s 
OASA 
OASE 
oar 
0 AAO 
OAA2 
OAAG 
OAA7 
OAAs 
OAAA 
OAAE 


DATE 
Ec nO. 


AaOcR STMT 


01 OA3A 

00 0A38 

FFFFE OAZ0 

35 01 1A95 

4D 01 00 1AS3 

F2 81 10 

3c @F 1288 

3C BF 128A 

3C 91 16AE 

3c BF 168C 

CO 87 O21A 

o1 OaAsE 

$2 OASF 

210€ OA61 

co 8&7 O21A 

oi OAG6E 

$1 OAG7 

215F OA6S 

cO 87 O21A 

o1 OAGE 

29 OAGrF 

21288 OAT1 

co 87 O21A 

01 OATGE 

28 Oav??7 

2180 OA79 

CO 87 O21A 

06 CATE 

63 OATF 

2213 OAs? 

CO 87 O21A 

Ci OAB6 

$0 OA87 

2263 oa8s9 

CO 87 O21A 

oO1 OAeE 

s5 OaeF 

2268 OAS1 

co 87 O214 

01% CA96 

sé OAS? 

230E 0A9S9 

co 87 O21A 

o1 OASE 

4E OASF 

235¢€ OAAI 

CO 87 O21A 

06 OAAG 

$68 OAAT 

2387 OAAS 

co 87 0222 

CieE1 OAAF 
. 29AUG7S 22cec7s 

@27804 627636 


Se MODEL 12 


27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
36 
37 RINI 
38 

39 

40 

41 

42 * 

43 % 
46 

as 

46 

47 

48 

49 

50 

51 GO 
S52 

§2 

54 

55 

556 

Ss? 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

60 

61 

82 

a3 

84 

85 

86 

87 

8s 

89 

co 

91 

92 

93 * 


eehevs eet eo 


oc 
oc 
o¢ 


GIVE INFCRMATTIONAL CISPLAY 


* 
Ll 
eric 
JE 
"VE 
MVI 
MVI 
MVE 


oc 
oc 
cc 


oc 
oc 
oc 


tc 
oc 
oc 


oc 
oc 
oc 


oc 
oc 
oCc 


oc 
oc 
oc 


oc 
cc 
oc 


oc 
oc 
oc 


oc 
oc 
oc 


oc 
oc 
oc 


oc 


SOURCE STATEMENT 


ROUTINE NOs Ole 


PaRT 
PAGE 


a, = 
. 
wk 


4“ 


NOQeo 4248216 


1A 


UPDATE CYLINDER 0 WITH 3340 MICRO-CODE. 
THIS MICRO INCLUDES FAQ > FAG. 


AND FAT. 


THE UPDATES RESIDE IN THE NORMAL PROGRAM 
OF THE CE DATA MODULE. 
WILt UPDATE CYLINDER 0 OF ANY DATA WODULE 
WITH ANY OR ALL OF THESE PARTS OF THE 

3340 MICRO-CODE. 


AREA 


XLifole 
MLi‘oe 
XL2 *FFEF® 


* 

X20 3-XR1 

02 eXR1) oX8000 

Go 

MOC1+2.X* BF 
M001+4 »X* BFF 
BUFF1@-1-xK*91¢ 
BUFF2a—-1 oX*8FFt 
PRINT 

XL2*O1°8 

ALI CDI SP1 aA-DISP1) 
AL Z2(DISP1IA) 

PRINT 

XL1°O18 
4L.1¢(01SP16-DISP11) 
AL 2(D1I P18) 

PRINT 

XLI*oO1*® 
ALICDISP1C-O1 $P12) 
AL2CCISP1IC) 

PRIAT 

XL1*O1° 

AL? (CISP10-D0ISP13) 
AL2C01 SP10) 

PRINT 

XL1°06¢ 
ALICDISPIE-DISP14) 
AL2 TOISPIE) 

PRINT 

XL1°O18* 

AL1 (COI SP2A-DI SP21 d 
AL2(OYSP 2A) 

PRINT 

xXxL1*°o1° 

AL 1 (COISP2B-01SP22) 
AL2 CDT SF28) 

PRINT 

xL1*o1e 
4LiC(COISP2Cc-0!1 $h23) 
AL2(0ISP2C) 

PRIAT 

XL1°O1°¢ 

AL1 (DISP20-DISP24) 
AL 2CD1ISP20) 

PRINT 

XL1°O6* 

AL 1(DI SP2E-D01 SP2E) 
AL2 (DISP2ZE) 

HALT 

XL2°CiE1° 


ROUTINE NUMBER 
ROUTINE FLAGS 
LAST ROUTINE 


é 


GET ADDRESS OF CORE SIZE 


IS THIS A 32K MACHINE 


VYESe 


a oe 

we Ss 

e we 
PRINT RYN 
FLAG 
LENGTH 
@ GF MESSAGE 
PRINT RTN 
FLAG 
LENGTH 
@® OF MESSAGE 
PRINT RIN 
FLAG 
LENGTH 
@ OF MESSAGE 
PRINT RTN 
FLAG 
LENCTH 
® OF MESSAGE 
PRINT RIN 
FLAG 
LENGTH 
@ OF MESSAGE 
PRINT RIN 
FLAG 
CENGTH 
@ OF MESSAGE 
PRINT RIN 
FLAG 
CENGTi, 
@ OF MESSAGE 
PRINT RTN 
FLAG 
LENGTH 
@ OF MESSAGE 
PRINT RIN 
FLAG 
CENGTH 
@ OF MESSAGE 
PRINT RTN 
FLAG 
LENG TH 
@ OF MESSAGE 


WAIT FOR ORIVE DATA TO BE ENTER 


DON'T MCOIFY FAO LOCATION 
MODIFY~--FAO NEW LOCATION 


PROG 1D 
PAGE 


THIS PRCGRAM 








16M 


MAINTENANCE OLFACNOSTIC PROGRAM 


FC21 3340 IPL FCRMAT PROGRAM 
ERR LOC OBJECT CODE ADCR STMT 
94 
95 
OABO 30 00 17D2 96 
OAB4 OC 00 1468 17D3 97 
98 
: 99 
100 
CABA C2 01 16A2 101 
OABE 4D 00 0C 1468 102 
OAC3 F2 @1 1C 103 
OACE D2 O1 01 104 
OACS 7D FF 00 10S 
OACC CO 01 OABE 106 
OADO CO 87 O2Z1A 107 
OADS 06 OADS 108 
OADS 08 OADS 109 
OADS 1465 OAD? 110 
CADE CO B7 0O*22 i111 
OADC C133 oacdD 112 
OADE CO &7 OAEO 113 
OAE2 114 
115 
116 
117 
OAE2 CO 87 O24 118 
OAE6 01 OAEG6 119 
OAE7 SO OAE? 120 
OAEB 2407 OAES 121 
OAEA CO 87 O21A 122 
OAEE 01 OAEE 123 
Nase 7 ye OAEF £1 OAEF 124 
OAFO 2458 OAF! 125 
OAF2 CO 87 O21A 126 
OAFE 01 OAF6 127 
OAFT? 4F OAF? 128 
OAFS 24A7 OAFS 129 
OAFA CO 87 O2IA 130 
OAFE 01 OAFE 131 
OAFF S4 OAFF 132 
0800 246FB 0B01 123 
OB02 CO 87 O2Z1A 134 
0806 01 0806 135 
OBO7 56 ORO? 136 
OBOS8 25£1 op09 137 
CeOA CO B87 021A 138 
CBOE 06 OBOE 139 
OBOF 29 OB0F 140 
0810 257A OB11 141 
06812 3C 40 16A0 142 
OB16 OC 04 169F 16AG 143 
OB1IC C2 02 16598 144 
OB20 34 02 1703 145 
C324 OC 01 OB58 1703 146 
OB2a OC 01 0888 1703 147 
0820 C2 02 169C 148 
0824 34 02 17D3 149 
OB828 OC 01 OBAZ 17023 150 
OB3E 38 FF 1449 181 
OB42e CC #87 0222 152 
OB46 CIE2 oe47 153 
154 
iss 
156 
0848 30 00 17D3 1ST 
OB4C OD 01 1703 1448 168 
O852 F2 B81 66 159 
160 
161 
’ 
DATE 29AUGTS 22vECc7S 
EC NG. 2827808 | @27836 


~-MODEL 12 


SOURCE STATEMENT 


2 
® 
wtRO# 


+ 


CKOR#S 


wTrIts 


* 


REAO ORIVE # 


SNS 
MVC 


SELECTED 


WCRK oX* 00° 
ORI VE #(1) 6 WORK 


INTO 


PART NOo 
PAGE 


*ORIVE#® 


SENSE DATA SWITCHES FOR DATA 
MOVE IN SELECTED ORIVE 


NOW CHECK FOR A VALID ORIVE CO1OR 02) SELECTED 


tA 
cic 
JE 
LA 
CcLi 
ENE 
8 
oc 
oc 
oc 
e 
oc 
6 
Eou 


WRITE 


oc 
oc 
oc 


oc 
oc 


oc 
oc 
oc 


oc 
oc 
oc 


oc 
oc 
oc 


oc 
oc 
oc 
wVI 
MVC 
LA 
ST 
mvc 
mvc 
La 
st 
MvCc 
ser 
e 
oc 


CRIVES sXRi 
O€1eXR1) ORI VE 
cK 

10. XR1) oe XR1 
Oe XR1VOX FF ° 
CKCR# 

PRINT 

xXL1*06°* 
rier 
AL2(ERROR) 
HALT 
xLe*ci3ac¢ 
wTRO#s 

* 


‘DISPLAY 


1S QNE ENTERED IN THE TABLE? 


KEEP CHECKING 


*ER® IF NOY VALIO ENTRY 
FLAG 

LENGTH 

® OF MESSAGE 

CISPLAY HALT 

ER 


GO BACK AND WAIT FOR VALID ENTRY 


DISPLAY ASKING FOR THE 10S TO BE ENTERED 


PRINT 

MLIOL® 
AL1(D1SP3A-DI SP31) 
AL2(DISP3A) 

PRINT 

XLi*O1® 

ALI (DISP38-DISP 22) 
AL2(01SP3B) 

PRINT 

XL1°O1° 
AL1(D1SP3C-DI SF33) 
AL2(DISP3c) 

PRIAT 

XL1*01° 

ALL (DISP3D-DI SP34) 
AL2(DISP30) 

PRINT 

XLI°0O1° 

ALI COISP3E-DISP25) 
AL2 (DI SP3E) 

PRINT 

XL1*06* 

AL1¢(DI SP3F-DI SP36) 
AL 2(DISP3F) 

SVUPDT »x*40# 

SVUPD T-10€5) »SVUPDT 
SVUPDT=-5 6 XR2 

WORK eXR2 

CK 10S 143( 2) swORK 
XXX143 (2) sWORK 
SVUPD T- 46 XR2 

WCRK oXR2 
WTI0S143(2) »WORK 
SWITCHeFF 

HALT 

XL2°C1E2° 


REAO IOS INTC *SvuPOT? 


SNS 
cic 
JE 


WCRK.X*00* 
WORKC2) eFFF 
OCP ACK 


PRINT 
FLAG 
LENGTH 
@ OF MESSAGE 
PRINT 
FLAG 
LENGTH 
@ OF MESSAGE 
PRINT 
FLAG 
LENGTH 
@ OF MESSAGE 
PRINT 
FLAG 
LENGTH 
® CF MESSAGE 
PRINT 
FLAG 
LENGTH 
® OF MESSAGE 
PRINT 
FLAG 
LENGTH 
@® GF MESSAGE 
INITILIZE PROGRAM ID AREA 
ee ee a e 
RESTORE THE & FOR RESTART 
SAVE THE 0 
OF PROGRAM IN THE INSTRUCTIONS 
THAT HAVE BEEN PREVIOUS MODIFIED. 
SAME AS ABOVE 
SAVE THE @ 
oe oe ee 
RESET FIRST TIME SwITCH 
HALT UNTIL DATA 1S ENTERED 


SENSE DATA SWITCHES FOR PGM IDS 
ARE THEY ALL CONE ENTERING PGMS 
YES.GO PROCESS 


NOW CHECK FOR VALID I0S ENTERED 


PROG 10 
PAGE 


4248219 


2 


FC21 


ERR Loc 


ony 


Fc2-1 


2 | 


i 


C 


© 0 


osss 
oBs9 
oBsD 
0662 
OB65 
0668 
0866 


OB6F 
0873 
0B74 
OB7Ss 
0877 
0878 
0870 
OB el 
oBes 
os8ss 
oBec 
oe! 
0895 
0BS8 
OBSF 
oBAS 
OBAB 
oBB1 
oBBs 
0887 


oess 
oBci 

opcs 
oscé 


OBCA 
ospo 
oecé 
ospoc 
OBEO 


OBES 
OBEA 


OBEE 
oBF2 
oer? 
OBFA 
OBFF 
oco2 
ocos 
OC OA 
ocoB 
ocod 
oc13 


0c16 
ociB 
oc2o 
oc2s 
Oc2a 
oc30 


DATE 
“EC NOs 


_YBM MAINTENANCE DIAGNOSTIC PROGRAM 


3340 IPL FCRWAT FROGFAM 


OBJECT CODE 


c2 
c2 
40 
Fe 
b2 
70 
co 


co 
06 
o8 


02 
0 
01 
81 
01 
FF 
01 


87 


14€5 


co 


87 


€133 


co 
38 
F2 
ce 


co 
OE 
3A 
oc 


OE 
co 


87 
FF 
90 
o2 
01 

81 
00 
FF 
01 

00 
00 
87 


cies 


co 


6088 


oc 
oc 
oc 


oc 


38 
co 


ce 
4D 
F2 
4D 
F2 
c2 
co 
20 


87 


oo 
87 


87 


o1 
01 
or 
40 
77 


80 
90 


01 
o1 
61 
O1 
61 
02 
87 


DFAT 


oc 
F2 


2c 
2c 
2c 
2c 
oc 
oc 


SF 
87 


06 
06 
02 
00 
o2 
02 


16S8 
16aS 


ADOR STMT 


Ot 1703 


ic 
02 
00 
oeso 


O21A 


0222 


oBee 
1449 
13 

1696 
1703 
0842 
o6ss 
1449 
169C¢ 
OBA2 
oBss 
0222 


08642 


oscs 
185e€ 


OBCA 


iSTA 
1S0A 
163A 
2691 
2690 


0233 
oD65 


1698 


0673 
oB74 
0876 


oB7c 


C1 

144A 
1703 
144A 
144A 


OoBBSs 


1468 

oecs 
1F9S 
1FSS 


1F9S 


2691 


O1 16A6 


$3 


O1 1E€AE 


58 
0232 
022A 


168D 
54 


1642 
1640 
1688 
166s 
1638 
1646 


29AUG 75 
827804 


OCOA 
oc oc 
oscr 


14 
iF 
o7 
os 
1a8sc 
1ABF 


22DEC 75 
827836 


162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
i172 
173 
174 
175 
176 
177 
178 
179 
180 
1681 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
i192 
193 
194 
195 
196 
197 
198 
i399 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
221 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 


---MOCEL 12 


SOURCE STATEMERT 


2 
CKIOS1 


cKres 


* 
* 
* 
CISFER 


CKCCMA 


XXX 1 


XXX2 
wTIcsi 


Ov * + 


GP ACK 


OFFIC 


+ & # 


CKAGN 


HOF A? 


LA 
LA 
cic 
JE 
LA 
cut 
BNE 


SVUPDT=5 eXR2 
1OS¢XR1i 
1 (2 eXR1 de WORK 


CKCOMA 


20 eXR1)XR1 
OC eXRI) XX FFE 


cKIOS 


PART NO. 
PAGE 


XR2 POINTS TO IOS 
XR1 POINTS 
IS IT A VALID ENTRY 

If 17 1S* GO CHECK FOR MORE 


ENTERED BY CE 


KEEP CHECKING FOR VALIO ENTRIES 


OISPLAY ERROR IF NOT VALIO ENTRY 


e 
oc 
cc 
pc 
8 
cc 
8 
TBN 
JF 
La 
cLc 
BE 
ALC 
SBN 
MVC 
ALC 
ALC 
6 
oc 
8 


SE TUP 


MVC 
8 
oc 
8 


MvC 
mvc 
MvC 
VI 
MvC 


HANDLE HEADER CARES HERE 


TEN 
BF 


LA 
cic 
JE 
euc 
JE 
La 
8 
oc 
oc 
MvC 
J 


MVC 
wvc 
MVC 
uve 
MVC 
mvc 


PRIKT 

XL1*06" 

Turerre 

AL2 CERROR) 

HALT 

xL2°C133° 

wTtos. 

SWITCH FF 

XXX 2 

SVUPDT=-Se XR2 

WORK (2001 Ce XR2Z) 
wtIDs 
XXX143¢13ePLUS2 
SWE TCH oFF 

SVUPD T-4( 2) e WORK 
WTICS143C1 VePLUS2 
CKIDS143(1) PLUS2 
HALT 

XLO°C1IEZ* - 

wTtIos 


PRINT 

FLAG 

LENGTH 

® OF MESSAGE 

PRINT HALT 

ER 
GO WAIT FOR ANOTHER ENTRY 
IF THIS IS THE FIRST ENTRY THEN 
SKIP THIS CHECKING FOR DUP ENTRY 
LOAD THE ® OF THE FIRST ENTRY 
COMPARE 1ST ENTRY TO THIS ENTRY 


4248215 


2a 


TO VALID POSSIBILITIES 


IF EQUAL THEN RETURN FOR NEW ENTRY 


ADS POINTER FOR NEXT ENTRY 8 
TURN ON SWITCH FOR IST ENTRY 
MOVE IN PGM TDS 
MODIFY THE INST. 
MODIFY THE INST. 
ISSUE HALT TO ACKNOWLEOGE DATA 


THE COMMANDS FOR THE DRIVE SELECTED 


DRIDC! D-ORIVES 
SELDSK 

XL1°00 ¢ 

ao 


HORE AO412(2)¢ ZERO 
HORF AE+12(29 »ZERO 
HORFA?+12( 23 »ZERO 
C ISPS 4279 oX*40¢ 


MOVE IN ORIVE WANTED 


FOR NEXT ENTRY POS. 
FOR NEXT ENTRY POS. 


THIS SUBROUTINE SETS THE COMMANDS 


CLEAR HEADER SUFFERS 


CLEAR DISPLAY 4 OUTPUT FIELD 


DISP4+278( 120) -DISP4427S 


UTAE+1-X"°80° 
SKM SG 


SVUPOTHS eXR1I 
102 6XR1) FAO 
HCF AO 
1¢€2eXR1) oF AG 
HOF AG 

UTAE.e XR2 
Load 

XLi*20° 
XL2°DFAT®e 


RUNNING FROM OISK? 
IEF NOTe SKIP FOLLOWING OSPLAYS 
AND UPDATING OF R47 


FS IY FAO? 
1s IT FA6? 


Iv IS FAT 
NO--GET HEADER FROM PROGRAM AREA 


HDRFA7+95( 96) »INREC*9S 


CKNXT 


HORFA7+200 7) 6 2006 XR2B 
HORF A7431 (7) 031 CoXR28 
HDRFA74#90€ 3) ¢ 7( oXR2} 
HORFA7491 (13690 XR2]) 


HCRFA74+13(03) e PN 
HORFA7424€3) 2EC 


SAVE PN 

SAVE EC 

SAVE 1D 

SAVE LEVEL 

PUT PN IN FIELO 
PUT EC IN FIELD 


PROG I10 
PAGE 


FC2a-1. 
2a 


»>©eeeeeeeeeeeeede eeececeecccos eeoeeorver 


1@W MAINTENANCE DIAGNOSTIC PROGRAM 


FCe) 
err Loc 
Oc36 


oc 39 
Oc3D 
OC3E 
OC3F 
ocai 
oc 43 
OCc4a7 
oc4ag 


ocacd 
oc $1 
ocs2 
ocs4 
OCSA 


ocse 
Oc ei 
9 Cc62 
oc6éa 
OC6A 
océc 
oCc70 
9c73 
oc76 
oc79 


oc7e 
ocal 
oces 
ocs9 
ocea 
ocsB 
ocseo 
ocs1 
ocos 


oco99 
OCOF 
OcaA3 
OCAa 
Ocas 
OCA? 
OCAB 
ocar 


Ooces 
ocB7 
oceB 
OCBF 
occ3 


occ? 
occa 
occpD 
Ocodl 
ocoa 
ocD9 
oceco 
Oce2 


OaATE 
‘EC NO. 


3340 IPL FCRYAT SROGRAM 
OBJECT CODE ACCR STMT 
Fe 87 31 230 

231 
co B87 O21A 232 
C6 0c30 «6233 
37 OCc3E 234 

1902 Ooc4aco 235 
c1o0i Oocse 236 
co 8&7 8222 237 
cio. oc4a4s 238 
co 87 0C&3 239 

2406 

co B87 O22A 243 
20 ocsi 242 
DFAC ccs3 243 
Oc SF 18¢CC G8DF 24a 
Fe e7 ad 24s 
246 

cO 87 O22A 247 
20 Ofel 248 
CFAG OCE3 249 
oc SF 1620 OSsDF 250 
D2 O1 O02 251 
70 FF 00 252 
fF2 61 OA 253 
70 690 OO 286 
F2 81 0¢ 255 
co 87 OBF2 256 
2s7 

258 

259 

260 

Ooc7D 261 

262 

263 

264 

3¢ 2F 1454 265 
3C 06 1488 266 
co 8&7 168F7 267 
oo ocsas 268 
00 OCBA 269 
144F ecsc 270 
CO 87 1A96 271 
co 87 1CS9 272 
co 87 OCS9 273 
274 

OC Of 10CA 168F 275 
CO 87 168F7 276 
o1 Ocas 277 
oO OCAS 278 

144F OCAG 279 
CO 87 1LAEG 280 
co 87 1¢59 281 
co 87 ocea2 282 

283 
3C 03 144¢ 284 
c2 01 2618 285s 
34 01 1691 286 
C2 01 156E 287 
C2 02 146€ 288 
, 289 
7 00 OC 290 
F2 61 a0 291 
9¢ 03 03 S58 292 
8C 00 04a 293 
2C 06 169A 1€ 294 
sc 09 OF 14 295 
eC 0S 14 1F95 296 
9c 09 16 1F 297 
29AUG 75 '22DEC 78 
827804 027836 


--WCCEL 12 


SOURCE STATEMENT 


J 


ACTFAD & 
oc 
ve 
oc 
oc 
8 
oc 
8 


HDF ACO 68 
o¢ 
pc 
MVC 
J 


HOF AE 6 
bc 
oc 
MVC 

CKNXT CLA 
CLE 
JE 
cur 


ALL 
NCw 


ote @ 


CNTUE EU 
* now 


aVI 
“av 


oc 
oc 
oc 


mvc 


oc 
oc 
oc 


MvI 
La 
st 
La 
LA 


cKoo cur 
JE 
ve 
MVI 
“vc 
MVC 
uve 
“vc 


fs 
y 


ale 


“| 
| 
| 


PART NO.» 424821¢ ,-- TEM MAINTENANCE DIAGNOSTIC PROGRAM 


PART NOs 4248219 
PAGE 3 w, PAGE : 3A 
y Fea. 3340 IPL FORMAT PROGRAM --WODEL 12 
4 : : 
i ERR LOC OeVECT cope ADOR STMT SOURCE STATEMENT 
j * 
CKNXT GO CHECK FOR NEXT ONE Usk OCE6 BC 00 4F 298 «NVI 7SC oe XRZ9 a X* O08 ZERO REST CF FIELD 
! OCES AC OF GE 4F 299 _ MVC 78( 88s XR2 0s 791 e XR2) 
PRINT INDICATE FA? NOT ON PACK | g° 300 * 
XLI*CEt pM 301 * NCW UPDATE MESSACE TO SE DISPLAYED GN ICS THAT WERE UPOATED 
21esse 302 * 
AL2 (MS GFA?) fo OCED 34 0: :693 303 ST SAVIsxXRI 
ML2°C 101° a OCFI1 35 O01 1691 304 L SDI SPA eXR1 THIS WILL PCINT TO CURRECT Loc 
HALT 305 «* IN THE DISPLAY FIELO 
XL2°C104¢ OCF5S 6C 02 02 02 306 MYC 263 oXR1Lo2feXR2) SAVE 1D 
e-6 OCFO9 4€ 06 OC 169A 307 MVC 12€ 7. ¥R21) eOLDEC PUT IN OLO EC 
OCFE €C 06 15 1€ 308 RVC 2107s XR1) 06 3004 XR2} PUT IN NEW EC 
iLcAD OD02 D2 o1 28 309 LA S00 XRD} eo XR? . UPDATE FOR NEXT ENTRY 
XL1°20¢ 8 ODOS 34 01 1691 310 ST SDI SP4,KRI 
XL2° DF AOS OD09 3S O1 1692 311 t SAVY OKRA 
HORF A04+95( 96) » INREC+95 SAVE FAO HEADER CARD ” 212 
CRNXT : ODCD D2 01 60 313 SKMVC LA 96( RRL ARI 
OD10 E2 02 50 314 LA BOC oXR2) oXRZ 
Loan ODi3 OF 0O 1446C¢ 18ED 315 SLC COUNTC EL) sONE DONE? 
XLi*20¢ oD19 CO 01 OCC7 316 ERZ cKoo 
XL2°DF ase ODID 3c 00 1560 217 Mv BLFR4a 7425500 CLEAR OUT REST OF FIELD 
HORFAG4S5( 96). INREC+95 SAVE FAG HEADER CARD - 0021 OC O€ 156c 1560 318 MVC BUFR4 742546 18) BUFROT+255 
2(eXR2) oXRI i hae 319 & 
Oe XRI Do X*FFS END OF LIST? . 220 NCW DISPLAY MESSAGE OF IDS TC BE UPDATED 
CNTVE ot 321 * 
OCe XRD ect * AKY MORE? , ge OD27 CO 87 021A 322 B PRINT CISPLAY MESSAGE 
CNTUE 0028 O01 0028 323 Dc XLI*o1¢ : FLAG 
CKAGN ae op2c s0 on2c 324 pc ALI (CCISP4A-DISP4) LENGTH 
. OD2D 25CA OD2E 325 pc AL2Z2COISPaR) 
NEW ECS AND PNS ARE OBTAINED OD2F CO 87 O21A 326 6 PRINT DISPLAY MESSAGE 
GC SETUP FOR THE DISPLAY 0023 02 0D23 327 ac XL1°O2¢ FLAG 
A 0034 228 0D24 228 oc Al 1(DISP4B-D1 SP41} LENGTH 
* 0025 25F2 0036 329 oc AL2(CISP4B) 
Pe OD37 CO 87 021A 320 B PRINT DISPLAY MESS AGE 
CYL Oe TRACK QO. RECORD 47 MUST BE UPDATED No 0038 01 0038 33: Dc XL1°018 FLAG 
: oD2c 28 003¢ 332 oc ALI CCISPAC-DISP42) LENGTH 
RA? SETUP TO REAC R4O7 a 0029 261A O03E 333 oc AL2COISP4C) 
Ned es OD3F CO 87 O2ta 334 8 PRINT DISPLAY MESSAGE 
STRTIO ISSUE THE SEEK : O0D43 01 Op4a3 335 oc XLI¢o18 FLAG 
xL1°O008 fe ds OD44 28 OD44 336 oc AL1(D1SP4p-D1 sp 43) LENGTH 
XL1*°008 as GD4S 2€42 O0D46 337 oc AL2 (DISPaD) 
AL 2UDDCF) O0D47 CO 87 021A 328 B PRINT DISPLAY MESSAGE 
SKBUSY CHECK SEEK suUSY c. CD48 01 0D4e 339 oc XLi*oLe FLAG 
DEVERR ANY ERRORS oe Nhe oD4c 28 op4ac 340 pc AL! COISPSAE-OISPe4 >} LENGTH 
44 \ ODSD 266A OCSE 343 pc AL2(CO1SP4E} é 
(eo OD4F CO 87 O21A 342 e PRINT DISPLAY MESSAGE 
OFOR (2) -ABFRA7 SETUP DATA REGISTER ' © ODS3 06 0DS3 343 oc XL2°O6¢ FLAG 
STRTIO ISSUE READ KEY-DATA : ODES 28 ODf4 344 pc AL1 (D1SP4F-DISPeAsS) LENGTH 
XLI*O1e rc: ODSS 2692 0056 345 oc AL2CD1ISP4F) 
XLI*° 008 i Mee! OD57 CO 87 0222 346 8 HALT GIVE TIME TO VERIFY EC*S # 
AL2(OOCF) ODSB Cc2E4 ODSC 2847 Dc XL2°*C2E4* 
ATTESY GO CHECK ATTACHMENT BUSY ©DSD CO 87 O21A 348 B PRINT DISPLAY UPDATE IN PROCESS 
DEVERR CHECK FOR ANY ERRORS ee ODElL 06 OD61 349 oc XLI "068 
848 ! OD62 28 OD62 350 oc IL2*408 
| pr - ODBI_ 1940 0064 351 oc AL2 (UPDATE) 
COUNT» 3 1 282 
DISP4 4161 eXxXRI THIS POINTS TO DISPLAY 4 } OD6E C2 01 1696 353 SKMSG LA SVUPDT-5.xR1 THIS POINTS TO THE CURRENT 10 
SDI SP4 eXR1 pol ast OD69 34 01 144E 354 St SAVPTReXRI BEING OPERATED ON 
HORFAO.XR1 THIS POINTS TO HOR BUFFERS \ C 355 
BUF RET eXRE THIS POINTS TO R47 BUFFER OD6D 38 80 0233 356 TEN UTAB+1.x "808 RUNNING FROM 01SK? 
boat 0071 F2 10 30 357 JT CKF AO IS SO. CONTINUE ON 
22CeXRI PeX* 008 WAS THIS PROGRA! UPDATED? oo. 0074 4D 01 01 1646 358 cic 102eXR1 Pe FAO IF NOT. PRINT MESSAGE INDICATING 
SKM VC ; 0079 F2 81 28 35S JE CKF AO THAT IF 3340 MICRO NOT LOADED. 
314 oXR290910C oe XRID YES--FIRSY SAVE ID AND LEVEL OD7C CO B87 G21A 360 8 PRINT FAO MUST BE UPDATED FIRST BECAUSE 
&(oXR2) oX*008 PUT IN X*400* DEL IMETER ‘ i O0280 4} OD8 361 oc XL1°a1e IT WILt FIRST LOAD CONTROL STORE 
OLDEC( 730 30( eXR2) SAVE OLD EC : 0081 28 orei 3¢ oc 1L2 *a0° 
14(10 6XR2 3020(.XR1} SAVE PN | gts 0062 1A0E£ ope3s 363 oc AL2(MGNOTE) 
2CC 6e XR2} e ZERO ZERO PART CF BUFFER G 0084 C1F4 oDes 364 DC XL2°C1iF as 
3OC 10eRR290310eXR1) SAVE EC : 0086 CO 87 O21A 365 8. PRINT 
! | 
PROG 1D Fc 2-1! DATE 29AUGTS 220EC75 
PAGE . 3 


PROG ID FC2=1 
or NO. 627804 £27836 PAGE BA 





C3 
TG MAINTENANCE OIFAGNOSTIC PROGRAM PART NOo 4248215 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO« 4248216 
PAGE @i ik. PAGE aa 
Fc2i 32340 IPL FCRMAT FROGRAM -~-PODEL 12 £ Fce2i 2280 IPL FCRMAT FROGRAM --WODEL 12 
ERR LOC OBVECT coDE ADOR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
ODEA 01 ODSA 366 oc XL1i*o1® OF 22 198E OF34 434 oc AL2 (MSGFA6 ) 
oDe8B 5B ores 367 oc IL1¢o1¢ OEF35 C1F2 OF26 425 pc ML2°C1iF2¢ 
ODBC 1AES OCBD 368 pc AL2(NG1) 0F37 CO 87 0222 436 8 HALT 
OODBE CO 87 021A 369 B PRINT OF28 C1F2 OEF2C 437 pc XL2°C1F2¢ 
0092 06 0092 370 oc XL1°068 438 
0DS2 20 0093 271 oc IL1°32¢ ’” 030 CO 87 0224 439 LFAG eB LCAC HANDLE FAG HERE 
0D94 189 0095 272 pc AL 2(MG2} ‘ 0£41 20 CE41 440 pc XL1°20¢ (MINT MICRO) 
0D96 CO 87 0222 373 8 HALT OE42 DF As OE43 441 oc XL2°DFA6* 
ODSA C1F4 COSB 374 oc XL2°*C1F 4s 0£44 OC 07 143C OeDF 442 MVC =s- TUCSEQ(8). INRECS95 SAVE HEADER I0 & SEQ 
375 0E4A 38 80 0233 443 TBN UTAB41eX*80° RUNNING FROM OISK 
376 * OE4E F2 10 06 444 JT FORMO 1 IF SOs SKIP NEXT INSTRUCTION 
377 * IF PROGRAM CONTINUES, SVF REQ LATCH MUST BE SET OES1 OC SF 1620 Oa8DF 445 MVC =«-HDRFA64+95(96) s INREC+9S SAVE HEADER CARD 
378 * OES7 06 03 143¢ 1440 446 FCRMO! AZ ICSEQ(4),DEC? ADD 1 TO SEQ 
cpesc 21 CS 1BFS 379 LIC XREGex*cse THIS ALLOWS 12 MBYTE TC BE USED OESD CO 87 022A 647 e Lcac LOAD NEXT RECORD 
ODAO 31 CS 18F6 380 LIQ SVPREQ.x*cs* 0F61 10 OFE1 448 pc XL1°10" 
281 OE 62 OD O67 OBCF 143¢ 449 cic INREC+79(8)sICOSEQ CHECK FOR NON-COMPRESSED CARD 
ODA4 4D 01 01 1646 382 CKFAO CLC  1(25xXR1)eF AO IS xT FAO? 0£68 CO 01 1392 450 BNE CWPRES COMPRESS CARE IF NOT COMPRESSED 
ODAS CO 81 OF9E 3e3 BE DOF AO OE6C 3D C5 0881 451 cur INREC41.C°E® CHECK FOR "END® CARD 
ODAD CO 87 16F7 384 8 STRTIG NO~-SETUP FOR FA6 OR FA? OE70 CO 81 OFEC 452 BE WEAG67 GO WRITE DATA BACK 
0081 00 opel 385 oc XL1 "008 RECALIBRATE OE74& C2 02 O8BA 453 LA INREC 410 XR2 XR2 POINTS TC INPUT DATA BYTES 
OOB2 01 ODB2 386 oc XL1*0O4¢ OE78 C2 01 3294 454 LA BUFFA6.XR1 XR1 POINTS TO SUFFER 
ODB3 144F O0G4 387 pc AL2€B0CF) % OE7C CO 87 13FE 455 3 CCMFUT COMPUTE FINAL VALUE OF POINTER 
ODES Co 87 1A96 388 8 SKBUSY CHECK SEEK B8USY OE8O OF 01 0886 1446 456 FORMO2 SLC  INREC+6(2)-13 DECREMENT BYTE COUNT 
0089 CO 87 1C59 389 e DEVERR CHECK FOR ERRORS “S OF86 CO 82 OES? 457 EL FCRMO1 GO IF COUNT IS NEGATIVE 
ODBD CO 87 oODC1 390 8 *+e CEBA 6C 02 O02 02 458 MVC = 2AEBeKR1) 02 oe XR) MOVE 3 BYTES 
391 OF SE D2 01 03 459 LA 3CoXRIT)SXRI INCREMENT 
ODC1 2¢ 19 1456 392 MVI =-Re2E SETUP TO READ RECORDS 25-29 oh OES! E2 02 03 460 LA 3 eXR2) oXR2 COUNTERS 
ODCS 32¢ 04 1458 363 MVE No4 a 0ES& CO 87 OF80 461 8 ‘FORMO2 
ODCe9 OC O1 1DCA 3FeD 394 MVC = OFOR(. 2). ABUF 462 
OCOCF CO 87 18F7 395 e STRTIO READ r OF98 463 DOFAO EQU * HANOLE FAO HERE 
TERE ale tee gee ae o0D3 01 oocs 296 oc xXL1°O* KE Y=DATA i CESS 38 80 0233 464 TEN UTAE41 ox*8o* RUNNING FROM DISK 
0004 00 ODDe 397 oc XL1°008 OESC F2 10 18 465 JT LFAO 
ODDE 144F oDpbeé 3268 pc AL2(DOCF) ks 466 
OD07 CO 87 1AE6 399 8 ATTBSY CHECK ATTACHMENT BUSY ms OESF CO 87 021A 467 8 PRINT INDICATE FAO WILL NOW BE LOADED 
cDDB CO 87 1C59 400 £ CEVERR ANY ERRORS : OEA3 41 OEA3 468 DC xXLifare 
OCCF CO 87 ODE3 401 B £40 i OER4 32 OFAG 469 cc sau * Soe 
402 OEAS 190 OEAG 470 pc AL2(MSGFAO) 
ODE2 38 01 144€ 403 t SAVPTRSXR} OEA7 C1F1 OEAB 471 oC XL2°C1F1¢ 
ODE? 4D 01 01 168 404 CLC = 10 2e XR1)0 FAG IS IT FA6? mn 2 OEFAS CO 87 021A a72 8 PRINT 
ODEC CO 81 0F26 405 BE CCF AG i OEAD 06 OEAD 473 pc xL1°OEt 
406 : OEAE 26 OEAE 476 oc ILi¢3ee 
OOFO 38 80 0233 407 TEN UTAB41¢.x*80° RUNNING FROM DISK a OEAF 1966 OEBO 475 DC AL2(MSGC1 7) 
ODF4 F2 10 10 408 JT LFAT jee OFB1 CO 87 0222 476 a HALT 
ODF7 CO B87 0214 409 8 PRINT INDICATE FA7 WILL NOW SE LOADED O£BS C1F1 OEB6 477 oc XE2*CIFL® 
ODFB 46 OOFB 410 oc xL1°46¢ 1g 47s 
ODFC 27 OOFC 411 pc 1L1°398 Pe OE87 OC 18 OA3S9 0A18 479 LFAO MVC SVPFCC25).COM-1 SAVE SECTION PREFACE 
ODFD 1967 OCFE 412 oc AL 2(MGFA7) OEBO CO 87 022A 480 8 LOAD 
ODFF CIF3 OF00 413 cc XL2°C1F3¢ tp OEC1 04 OFC) 481 oc XL1°04¢ 
O£01 CO 87 0222 414 8 HALT pee OEC2 0C17 OEC3 4682 oc XL2*DC17¢ 
OE0S C1F3 OFO6 415 oc XL2°C1iF2¢ OEC4 39 80 0233 483 TBF UTAB+1.xX*808 RUNNING FROM CARD 
£16 as OEC8 F2 10 04 486 JT "47 
OEGT CO 87 O22A 417 LFA? B LOAD NO--SO LOAD FA? pt OECB 2A 10 OAS 485 SBN CCM»X*108 SET FLAG WHEN RUNNING FROM DISK 
O£ 0B 2u CE0B 418 oc XLI°20¢ 686 * FLAG BYPASSES LOADING CONTROL STCRE 
O£FOC OF A7 CEOD 419 oc XL2°DF ATE fogs OECF CO 87 6C02 487 8 x*6C02° 
OECE 38 80 0233 420 TEN UTAB41ex* 808 RUNNING FROM OYSK i Nd O£FD3 38 80 0233 488 TAN UTAB41 ex" E08 RUNNING FROM DISK? 
O£12 F2 10 06 421 JT *49 IF SO, SKIP NEXT INSTRUCTION O£ED7 F2 10 OF 489 JT GWRITE 
O£1S OC SF 1680 OBsDF 422 MVC —-HDRFA74¢95(96) sINREC+95 SAVE HEADER CARD INFO a OECA OC SF 15CD 755F 490 MVC = HDRFA0+95(96) »X*75SF* PICK UP HEADER THAT C17 LEFT 
GE1B CO 87 022K 423 8 LOAD LOAD REST OF FA? b AL 491 * IN MEMORY AT X*755Fe 
OE1F 04 O£IF 424 pc XL1 Oat OFEO 71 C5 16F4 492 LIC XREG»x*c5° SET SVP REQ LATCH 
OE20 DFAT O£21 425 oc XL 2°DF ATE 1 geet OFE4 31 CS 16F6 493 LIO SVPREQ.x'cse SO THAT 12 MBYTE MAY GE USED 
OE22 CO 87 OEEC 426 8 WFAG67 GO WRITE FA6 AMD FA? pe OEFES8 CO 8&7 1164 494 GWRITE 8 WRF AO GO WRITE DATA BACK 
427 495 * 
OE26 428 DOFA6 EQU + a 496 * WRITE FA6 AND FA7 BACK ON TRACK 0 HERE 
O€26 28 80 0233 429 TEN UTAES? x*808 RUNNING FROM DISK 1 we 497 * 
OE2A F2 10 10 430 JT LFAG6 OFEC 498 wWFAE? EQU ¢* 
O£2D CO 87 O21A 431 8 PRINT INDICATE FA6 WILL NOW BE LCADED i gh OEEC 35 O01 144E 499 L SAVPTReXRI - 
OF2Z1 46 O£F21 432 oc XL1°a6e : ¢ OEFO 4D 01 01 16AA 500 CLC 1€2 eXR1) oF AT 1S IT FAT 
OE32 27 O£22 433 pc ILitsge io OEFS CO 01 117¢ 501 BNE WAG NO- 
4 ; : 
' | © ; : 3 " 
DATE 29A0UG 75 22DEC75 PROG ID FC2-1: DATE 29AUG?S . 22DEC75 PROG ID FC2-1 ee 
EC NO. 627804 e278 26 . PAGE 4a: 
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PART NO» 4248219 IGM MAINTENANCE DIAGNOSTIC PROGRAM ott NO. naneey 
PAGE 5 
FC21 3240 IPL FCRHAT PROGRAM --WODEL 12 FCZ1 3340 IPL FCRMAT PRCGRAM --WCCEL 12 
R TEMENT 
ERP LOC OBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADDR STMT SOURCE STATE 
‘ oFC1 F2 87 16 570 J _ $koi2 
$02 * 
¢ WORK( 2) e TWELVE 
5 * RMIN F 12 OR 7O MBYTE PACK OFC4 OF 01 1703 17D5 671 OIvi2 SL 
eos * ony eis OFCA OF 01 144C 18EC 572 ALC CCUNT (2) eONE 
Sse cic wWCRK(2) e TWELVE 
€ mv DFORE2} -ADIAG jhe COFCO OD 01 1702 17D 573 
OF ee eee ten Ase 8 . STRTIO ° DO DIAG READ OFD6 CO 02 OFCS 574 BNL. Divie 
OEE Sosa rar? soe ea ae ae 7 OFDA OC 01 17CB 146C 575 SKD12 MVC CLWI2), COUNT INTEGER PART IS 2340 LOGICAL CL 
: oF C2 02 be aa genoa’ OFEO 0C 03 17CD 1703 576 MVC HLWC2) WORK REMAINDER 1S 3340 LOGICAL HEAD 
OFO& O07 & L 
577 * 
OFOS 1007 OFO6 509 pc AL 2(RDFCF) ot nea oneal waeo-VOGTCA: 
OF O7 CO 8&7 LAEG 510 8 ATTESY CHECK ATTACHMENT 8USY lg he . NOW CALCULATE 334¢ SICAL 
67068 CO BF OFOF 5il B e404 as 
i 580 * FIRSTe CIVICE CLw BY 2 
512 | . 
MVC CCUNTC€2) »ZERO 
Mv ARSAVsx*00* SETUP AS IF 70 MBYTE OFE6 OC 01 144C IFSE 58? 
is a Oa aoee = Gt RAP at mes OFEC Oc 01 1703 17C8 582 MYC WORK(2).CLW pteueat cauute: 
If LESS THAN oe 
OF 17 29 03 1027 515 TeF DIAG+2sX#038 12 MBYTE? wee . 2 aoe IBEF See ny ee u 
OF1@ F2 90 O08 516 JF SKC YLO < 
OFIE 3C 02 16C3 517 avi CARSAVeX*O1* SETUP FOR 12 MBYTE OFFB F2 87 i 585 J sKoo2 
OF22 3C 00 16¢2 518 MVI HARSAV oX*COF OFFE OF O1 1703 16EF S86 OLTVvG2 stCc WCRKC2]) o THO 
. 1004 OF 01 144C 16ED 587 ALC COUNT (2).2ONE 
519 * 
520 * MUST NOW DETERMINE IF CYLG TRACK 2 HAS AN ALTERNATE 10CA OD 01 1703 18E€F 588 cLec BCRK(2 TWO 
621 * 1010 CO 02 OFFE s89 © BNL OLVO2 
3 KCY MVC DFOR(232 AL TADR COME HERE TO HANOLE FAT 590 
Dee eee Boao : bok 1014 OC O01 17CF 144C $91 €£kD02 HVC Cewl2) »COUNT 3340 PHYSICAL Crt IS INTEGER 
oF2c CO 8&7 18F7 523 a STRTIO SEEK TO CYL 056 TRACK 2 ie ) ae Bee ev Leys CALCULATION 
OF30 00 CF20 £246 pc xL1*00° l 
593 * 
OF 71 90 oF31 525 oc XL1°O0® | es 
, : a N NOW MULTIPLIED BY 22 
oFZz2 10Cce OF 23 526 oc AL2 (UDF CF) : | fo 594 : REMAINDER OF ABOVE CALCULATION IS NO 
OF34 CO 87 1A96 527 8 SKBUSY CHECK SEEK BUSY i oot He wetawe eee ie petin as 
oF2ea CO 87 1C5S 528 B DEVERR ANY ERRORS? ¢ u 
z F 529 8 #48 pe 101E OC 01 1701 1F9S S97 MVC HPWC2)-ZERO 
Sie ee Nie 530 | 1024 OF 0: 17D1i1 1703 598 WULT12 ALC HPW(2) WORK 
OF40 CO 87 18F7 531 B STRTIC : NOW READ HA~RO | c 102A OF 00 144C 1@ED 599 SLC COUNTC1) ONE 
OF44 01 OF4e 532 oc xL1e01° he 1020 CO 61 1024 600 ENZ MULT12 
" ” pares ~ 3 e 2 : 601 * 
eee 16ae os . a os eeaeees eer 602 * ADD HiLw TO ABOVE TO GET 2340 PHYSICAL HEAD VALUE 
OF48 CO 87 1AE6 535 8 ATTBSY 8 603 * 
ae co 87 1C§9 526 8 DEVERR 1034 O€ O01 17D1 17¢D 604 ALC HPwC2) eHLW ‘ ise 
OF50 CO 87 OFS4 537 8 246 103A CO 87 10A7 ae P 8 OBYTE GO WRITE FA7 BACK ON sK 
OF 54 39 02 1DD7 538 Ter RCFCF.x*02" DEFECTIVE? 
2 TOEF N 607 * 
a eee * cf cs 7 ~, 606 * FCLLOWING IS USED TO CALCULATE PHYSICAL HEAD AND CYL 
S41 * CPLCULATE 3340 PHYSICAL ADDRESS HERE | c eee * FOR 12 MBYTE CE DATA MOCULES 
5a2 * 610 « 
oF SC CO 87 OF7E 543 8 NXTONE | a. 611 
OF60 OC 01 16Ce& 1FSE S44 mvc OUTREC+4(2) o ZERC * | © 102 612 CAL12 EQu * 
OF66 OC 01 16C6 1F9S 545 MVC = OUTREC+2( 2) ZERO * 103E OC 01 17D3 1F95 613 MVC WORK(23.ZERO 
OF6C C2 01 17E3 546 OCLCCP LA MSG3+47 »XRI * OMI, AFTER TESTING | . 1044 OC 01 17C7 16C6 614 MVC CL3(2) OUTREC42 GET SYS/3 LOGICAL CYL 
OF70 C2 02 1858 Sa? LA MSG W47 oXRE. * | Xe 104A OC 01 17C€9 16C8 615 MVC HL3C2) COUFREC+A GET SYS/3 LOGICAL HEAD 
OF 74 3C OA 17D6 S48 mMvI PCOUNT » 10 * : 1050 3C OA 144C 616 Mv I COUNT» 10 
549 * I a5 1054 OF 01 17D3 17C7 617 WLLTIO ALC WORK(2) eCL3 MULTIPLY BY 10 
€SO * FIRST CALCULATE 3340 LOGICAL FRCM SYS/3 LOGICAL | x 10SA OF 00 144C 18E0 618 SLC COUNT (1) -ONE 
551 * ; 10€0 CO 01 1054 619 ERZ MUL TIO 
OF76 29 O02 1D27 £52 NXTCNE TBF ODIAGt2 -X*03* 12 MBYTE? os, 620 * 
OF7C CO 10 1C3E 553 BT CAL 12 IF SOs GO DC THOSE CALCULATIONS | ; 621 * CIVIDE SYS/3 LOGICAL HEAD VALUE BY 2 
OFeO OC 01 17D3 1FS5 554 MVC WCRK(2 2. ZERO 622 * 
OFB6 OC O1 17C7 16C6 555 MVC «CL 302) eOUTREC+2 GET SYS/3 LOGICAL CYL | f 1064 OC 01 144C 1FS5 623 MYC COUNT( 2} eZERO 
oFac Oc 01 17C9 16CB8 S56 wvc HL3(2) eOUTREC +4 GET SYS/3 LOGICAL HEAD | . 106A OD 01 17C9 1BEF 624 cic HL 3¢2).TWO 
OF92 3C 28 144C ss? VI CCUNT 040 1070 ©2 02 03 625 SKL DOVO2 
OF96 OE 01 1702 17C7 S58 MULTSO ALC WORK(C2)eCL3 MULTIPLY CL3 BY 40 | / 1073 F2 87 16 626 J SKDVO2 
OF SC OF 00 144C IBED 559 sic CCUNT (1 )eONE | Me 1076 OF 01 17C9 1B8EF 627 OVO2 SLC HL3(29.TUO 
OFA2 CO 01 OF96 S60 BNZ MUL T20 | 107C OF O01 144C 1IBED 628 ALC a 
561 i 1082 OD 01 17C9 1BEF 629 cUCc HL * 
OFA6 OE 01 1703 17C9 S62 ALC wWCRK(2).t3 NOW ADD 2¢#.2) TO CL3 | Ne 1088 CO 02 107€ 630 BNL OVO2 
OFAC OF O01 17D3 17C9 563 ALC WORKC 2) HLS | 108C OF 01 1703 144¢ 631 SKDVO2 ALC WORK( 2) 6 COUNT aDdD QUOTIENT TO CL3#10 
. S64 * | C 21092 OC 01 17CF 1703 . 632 mvc CPw (2) WORK SAVE 3340 PHYSICAL CYLINDER 
S65 * DIVIDE ASCVE BF 12 - 633 * 
566 * | 634 *% IF REMAINCER OF ABOVE CIVISION IS Oc HPw = 0% 
OFB2 OC 01 244C 1FOS 567 wvCc CCUNT (2). ZERO . C: 635 * IF REMAINDER 1S Ie HPW = 2 : ~ 
OFBS OD 01 17D3 17D 568 cic WORK (2) oe TWELVE 1F LESS THAN 12+ DON*T DIVIDE | sat 636 * a 
‘OFBE F2 02 03 569 ‘JNU OOIV12 | 1098 3C 00 17D! 627 MVI HPw ed 
: | G 3 
OaTE 29AUG7S 22DEC 7S PROG ID Fc2-1| DATE 29AUG7S 220EC 75 PROG I0 FC2-5 
EC NO. 627604 827836 PAGE 5 eo NO. 827804 827836 PAGE SA 
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PART NO. 4248219 .. IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4246219 
PAGE 6 : PAGE GA 
FC21 3240 IPL FORMAT PROGRAN -“-WODEL 12 FC21 3340 IPL FCRMAT PROGRAM -~MODEL 12 
ERR LOC OBSECT CODE ACER STMT SOURCE STATEMENT ERR LOC OBYECT COcE ADCR STMT SOURCE STATEMEAT 
109C 3D 00 17¢9 638 CLI HEL 30 X*008 REMAINDER 07 1130 OF 00 1706 18€C 706 SLC PCOUNT(1) eONE 
10A0 F2 8&1 04 639 J€ RAT 1143 Co 01 OF78 707 BAZ NXTONE 
10A3 3C 02 1701 640 MVI HP w 2 1147 CO 87 O21A 708 8 PRINT 
641 % 1148 01 1148 709 oc xL1*o18 
642 * HOw CYLINDER VALUE MUST BE CCNVERTED TO ONE ®8YTE FORMAT 114C 78 114C «710 ~~ oc Itl*120° 
2 6463 & FORMAT IS AS FOLLGWS?: 114D 1850 TI4E 711 oc AL 2C0MSG3P) 
644 #* 114F CO 87 O2ZIA 712 B PRINT 
645 * CARSAV---CONTAINS CYLINDERS 00-FF 1153 02 1163 713 oc XL1ito2e 
646 * HARSAV--31TS 0 2 2 3 4 s 6 7 1184 78 1164 «714 oc IL1°320° 
647 * 0 i 0 [<-HEAD VALUES->| 11E5 1ece8 1186 715 pe AL2 (MSGUP) 
645 * 1157 CO 87 OF6C 716 B ooLocoP 
649 4% EXITS 0 AND 2 ARE ALWAYS 0 717 
650 * BIT 1 IS 1 ONLY WHEN CYL IS GREATER THAN X*FFE i 717 
651 717 
GED = os 115B 718 NOTCEF E£oQU * SETUF FA? BUFFER 
LOA7 OC OO 16C3 17CF 652 OBYTE mvc CARSAVOL) CPW . 1158 OC FF 28FF 290FF 719 wyc BUFFER4255 (256) » QSUFFA74255 
TOAD 38 460 16C¢2 654 SBF HARSAV 6X #408 1161 OC FF 29FF 21FF 720 MVC BUFFER4511(0256€} eQUFFA7¢S11 
1081 OD Of 17CF 17De 655 cic CEW(2) »CKER IS CYL GREATER THAN X*OOFF®¢ 1167 OC $3 2A93 3293 721 mvc X *289 2°(148). ENOFA? 
1087 F2 84 03 656 JH HERE : 1160 OC 00 2A20 16C2 722 MVC CARREG (1) » CARSAV PUT IN CORRECT PHYSICAL 23340 CYL 
10BA F2 e&7 04 657 J *t7 1173 OC 00 2a22 16¢2 T23 MVC HARREQ( 1) eHARSAV PuT IN CORRECT PHYSICAL 3340 HEAD 
10BD 3A 46 16c2 658 HERE SBN HAR SAV. K*4Q? IF SOe SET BIT 2 ON e 1179 Fo e7 12 724 J DOWRT 
659 { 725 
210C1 08 03 162 1701 660 MNS HARSAY.HEW . 117C 726 wFEAE Fou % SETUP FA6 BUFFER 
10C?7 38 10 16¢C2 661 S6F HARSAV,X*108 117C OC FF 2893 2362 727 MVC BUFER6 +255 (256 ) » BUFFA64+255 
tOC@ 3D OF 1701 662 CLY HFwexK°or? IS 3340 HD GREATER THAN "OF® ? 6 1182 OC FF 2C93 3492 728 MVC BLFER 646110256) eBUFFAG64511 
10CF Fe 84 O03 €€3 JH HERE 1188 OC FF 2093 3593 729 MVC CUFER6+4767 (256), BUFFA6+76? 
1002 F2 87 04 664 JS ao7 oa 730 
10D5 34 10 16C2 665 HERE] SEN HARSAVsX*108 IF SO5e SET BIT 3 ON A. 118E 3c 19 1454 731 DOWRT MvVI Re2@e SETUP TO WRITE RECORDS 25-29 
666 1192 3¢ 04 14658 732 RVI N04 
; 667 * ; 1196 OC 01 1DCA 1F8D 733 MVC --_DOFER?0 2? eABUF SETUP DATA REGISTER 
Britt, fe Reet, 668 * FOLLOWING IS FOR DEBUG ONLY--WILL PRINT OUT ALL VALUES “eee 11S5C CO 87 1B8F7 134 8 STRTIO ISSUE THE SEEK sea 
669 * CALCULATED 8Y ABOVE SUBROUTINE 1240 00 12140) «6735 oc XL1°008 
670 * Q 11Al1 00 lar 736 oc xL1*O008 
1009 CO 87 1156 €71 8 NC TDEF Med 11A2 144F 11A3 737 oc AL2 (COC) 
10DD 34 02 10ED 672 st UNP 1. XR2 11A4 CO B7 1A96 738 8 SKBUSY 
10E1 34 0: 10F6 673 st UNP2 sXR1 - 11A8 CO 87 1C€59 739 B DEVERR ANY ERRORS? 
10ES CO 87 O21E 674 B UNP ACK. a 11AC CO @7 1180 740 8 +4 
10E9 01 10E9 675 oc XLifo1e 741 ; 
10EA 16¢3 10EB 676 oc AL2 (CARSAV) oe 1180 CO af 1BF7 742 e STRTIO ISSUE WRITE KEV DATA 
10EC 6000 10ED 677 UNP1 oc AL2( +4) ce 1184 02 11846 743 oc XL1°02¢ 
10EE CO 87 O21F£ 678 e UNP ACK 1185 00 1185S 74a4 DC x2 °00¢ 
10F2 O62 1O0F]2 679 oc xXL1°O2¢ oy 1186 144F 1187 745 oc AL2 (CCCF) 
10F3 166 10F4& 680 ec AL 2(GUTREC+2) te Mee 1186 CO 87 1AE6 746 8 ATTBSY CHECK ATTACHMENT BUSY 
10FS 0000 10F6 681 UKF2 oc AL2 (e-) 118¢ CO BT 1¢59 747 e DEVERR ANY ERRORS? 
10F7 7C 60 91 6e2 MMVI ITC ORD eC tt ge, 11C0 co 87 11¢4 748 8 +6 
10FA BC 60 01 683 MVE LCeXRAVe Ces & 749 
684 11C4 3C 21 1454 750 mvt R33 SETUP FOR WRITING RECORDS 
10FD 02 01 05 685 LA 5 Co XR1)—oXRI ae 11C8 3C 04 1458 751 MvI Ned 33-37 (SAME AS RECORDS 25-29) 
1100 E€2 02 o5 €86 LA 5 (Oo XRZIeXR2 ALS 11CC CO 87 18F7 752 8 STRTIO 
1103 36 o2 1112 687 st UNP 2 eXR2 1190 02 11D0 753 oc XLI*O2¢ WRITE 
1107 34 01 111C¢C 688 ST UNP4.XRI Pye 1101 00 1101 754 oc XL1i*o00°8 KEV-DATA 
1108 CO 87 O21F 689 B UNP ACK Nee 11D2 144F 1103 755 oc AL2(DOCF) 
110F 01 110F 690 oc XLItore ’ 1104 CO e7 1AE6 756 8 ATTESY CHECK ATTACHMENT BUSY 
1110 162 112% 691 oc AL2 (HARS AV) gr, 1108 CO 87 1¢59 757 5 DEVERR ANY ERRORS? 
1112 0000 1113 662 UKP2 oc AL2 (ee) P&L 11>¢C CO e7 11E0 758 8 $46 
1114 CO 87 O2I1E 693 8 UNP ACK - 789 
11128 02 1118 694 DC xL1*°o2* a 11E0 CO 87 1244 760 B DONE CHECK FOR FINISHED 
1119 16c8 111A 695 oc AL 2 (OUTREC+4) i e 761 * 
1138 ooco 11:3¢ 696 UNES pe AL 2 (%—%) \ 762 *& WRETE FAQ ON TRACK 2 €OR ITS ALTERNATE) HERE 
€97 — 763 % 
112D 3D 13 16¢¢e 6sa cul OUTRECE#4E.19 | 3 11E4 76&@ WRFAQ ECL * 
1122 F2 81 09 699 JE ICYE 11E4 CO 87 18F7 765 8 STRTIO SEEK CYLO«e TRACK 2 
1124 O€ 00 16Ce 1B8ED 700 ALC OUTRECE4 (1) ONE eo 11E6 00 11E8 766 oc xL2°00" 
112A F2 87 OA 701 J CKPRT | hae 11E9 00 11E9 767 pe XE2°O8° 
112D 3C 00 16Ce 702 ICYL MVI OUTREC4+4.0 11EA 1D¢CD 11€8 768 oc AL2 (WDFCF) 
1131 O€ 00 16C6 iBED 703 ALC QUTREC+2€1) sONE NT gs 11EC CO B7 1A96 769 8 SKBUSY CHECK SEEK BUSY. 
1337 D2 01 05 764 CKPRT LA SCsXRLPXRI Ra! 11FO0 CO 87 1¢59 770 8 DEVERR ANY ERRORS? 
1134 E2 02 OS 705 LA S CoXR2} oXR2 | 11F4 Co 87 11F8 771 6 O44 
| | i © : | | : 
DATE 29 AUG75_ 22CeEc7Ts PROG ID fC2=1; DATE 29AUG 75 22DeEcTS - PROG 1D FC2-1 - 
EC NOe #827804 | €2 7836 PAGE 6°. EC NO. 827806 i e27836 - - PAGE 6A 
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eoT 
acs 
809 
e19 
811 
82 
623 
8i4 
615 
816 
617 
638 
819 
820 
e213 
822 
623 
624 
825 
826 
627 
828 
829 
630 
831 
832 
833 
834 
835 
836 
837 
838 
832 


* 
¥ 
’ 


¢ 


~-¥COEL 22 


SOURCE STATEMENT 


ECOALT 


SETURT 


ucol 


OCNE 


OCHhE2 


eve 
& 
ec 
oc 
oc 
8 
8 
e 


Ten 
ST 
eve 
J 


8 
oc 
sc 
6c 
6 
8 
8 


yc 


oc 
o¢ 
ec 


avi 
aus 
uvC 
eve 


al 
t 


oc 
oc 


MVE 
avid 
“vc 
mvc 


THIS OETERMINES WHETHER TO 


e€ou 
c 
la 
cufl 
JE 
cu! 
JNE 
TeN 
JT 


OFORT2) o ALTAGAR 
STRTIG 

BRLI°Oi? 

4i3 5% ° 
AL2¢20FCF) 
ATTESY 

SEVERR 

BE 


ROE CE eo X° OE" 

OCacT 
GUTRECSS6€ SB - HOOEF 
SEC aERT 


S¥ez is 

REI CO? 
RLI2G% 
&2.2€OUTREC} 
SkBUSY 
GEVERR 

89% 


CFOR( 2). AL TAR 
STRTIG 

RLECOR? 
ALIT*O8 * 

AL2 CROF CF) 
aTTSsv 

SEVERR 

B48 


RRO * 

NNeX® 208 

HH( 5? OUTRECSS 
OF DR(2 2 eBUFFIB 
STRIIO 

RLi*02¢ 
XLE°GOe 

AL 2(ERTCFY 
ATTESY 

DEVERG 

S44 


RA X*2F* 
NN X9ORE 
OF DORE 2) -.BUFF2a 


SUF FAO- 10 2) e8UFFA OK? 


STRTI0 
xL12°O2* 
XL1°00 
AL2 CURTCF}) 
atTTesy 
OfVERR 
soe 

DONE 


* 

SAVPTRe XR1 
2CeXR1 WeXRI 
OC oI eo XPFFSE 
DONE? 

OC oXR13 oX*40° 
NXTIO 
UTAE+1eX* 80° 
WRAT 


‘AND 


PART NO> 
PAGE 
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CHECK FOR THIS TRACK DEFECTIVE 
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CHECK SEEK SUSY 
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SETUP FOR WRITE AY R1 
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CODR <-> I7CTH MICRO INSTRUC TION 
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© 


Qo © 


ISH" MATATERANCE DIAGNOSTIC FROGRAM 


Fc2i 


’26E 
8:2¢c2 
1éc6 
72ca 
12¢cB8 
i2cc 
12ce 
$202 
1206 


320A 
1ZE6 
12E8 
t2E5 
12E¢6 
32E6 
L2EC 
12F0 


1266 
i2Fe 
i2FC 


13900 
2363 
1306 
$304 
1360 
$3i5 
3326 
TSA 
3326 


1323 
1324 
i327 
13205 
1331 
1335 
1338 
133F 
1343 
1349 
1340 
234E 
134F 
1351 
1355 
1359 


1350 
1361 

23E€2 
1363 
13€5 
1369 
1360 
1371 
1375 
13786 
437¢ 


OaTE 
€c nO. 


3340 IPL FCRVAT FROGRAM 


3¢ 
3¢ 
ce 
oo 
60 


2F 
o6 
37 


144F 


<e 
co 
ce 


Ge 
co 
ei 
69 


eT 
87 
37 


3% 
a? 


128F 


coe 
cs 
<0 


3c 
c2 
cz 


75 
F2 
se 
ac 
ac 
ec 
se 
ec 
ac 


o2 
Ez 
oF 
co 


oc 


3¢ 
oc 
co 
00 
90 


387 
er 
&? 


OF 
62 
e2 


60 
83 
es 
60 
cs 
os 
os 
60 
2F 


601 
02 
00 
01 
co 
o£ 


oo 
o2 
87 


164F 


co 
co 
co 


co 
62 
co 


ad 
87 
87 


Se? 


144F 


co 
co 
co 
26 
F2 
co 
690 


87 
eT 
87 
20 
10 
67 


ERR LOC OBJECT CODE 


1454 
31458 
1aF7 


2A96 
1¢CS9 
L2Bh 


10CA 
16°7 


i AES 
1¢eS¢ 
12F4 


1464a¢ 
1SS5€ 
t46E 


oc 
36 
6s 
os 
ce 
1a 
t€ 
aF 
sé 


i¢é 
1é 
iF 


oF 


60 

sc 

94aC¢ 
1300 
1565 
136C 
1454 
1486 
167A 
16F7 


1a96 
1c S59 
1350 


18F7 


1 AES 
1¢59 
1371 
0233 
os 

O22A 


29AUG 75 
827804 


168F 


95 


18ED 


15665 


168F 


22cec?y 
227036 


ADOR STHT 


22CA 
12C6 
12¢€0 


12€4 
t2ES 
22E7 


1346 
134€ 
1250 


1361 
2362 
236% 


137¢ 


640 
841 
842 
643 
844 
845 
846 
84a? 
848 
849 
6s5¢C 
6s 
€$2 
8S3 
BS& 
855 
656 
es? 
8S& 
859 
666 
661i 
€s2 
$65 
864 
265 
366 
267 
@6s 
86S 
e790 
87% 
872 
e73 
874 
&7S 
876 
877 
876 
879 
ese 
881 
862 
883 
esa 
sss 
aa6 
887 
668 
389 
890 
691 
6g2 
893 
894 
895 
6S6 
&97 
ess 
699 
900 
901 
902 
903 
$04 
905 «6 
9906 ¢ 
907 


efe 


CRREK 


SKHYCS 


eke? 


~-MODEL 12 


SOURCE STATEMENT 


NCw CYL Go TRACK Ge FECCRD 
CHANDLED DIFFERENTLY WHEN 


VI RAT SETUP TO READ R47 

MMVI Ned 

8 STRTIO ISSUE THE SEEK 

oc XLI ° OO" 

oc XLi*ooe 

oc #&L2 (OOCr§ 

& sKsausy CHECK SEEK BUSY 

8s BDEVERR ANY ERRORS 

€ $48 

ave CEOR (23 eABFRSET SETUP DATA REGISTER 

& STF2TI0 ISSUE READ KEY-CATA 

ce XLEPGS? 

cc XLI OG # 

o¢ Ati2(oocr? 

8 AYTESY GC CHECK ATTACHMENT BUSY 
€ DEVERK CHECK FOR ANY ERRORS 

6 S06 

eve COUNT oS RUNNING FROM CARDS-UPDATE RST 
La HORE Abe KRY THIS POINTS TO HOR BUFFERS 
t& PEF RAT « KS THIS POINTS TS R47 BUFFER 
“t.8 L2EeKRLFGK*SSE CAL THIS PROGRAK UPDATES? 
JE SKMYCE 

ve 344 ,KRZ? oSI€ - XRIDP WES=--FIRST SAVE {$0 AND CEVEL 
RVI &EeKRZI 2 R° OG? PUT Ih %°O0* CELINE TER 
“vc 14€106XR2]I sZ2OE oXRL$ SAVE PM 

REC 200 6e KR25-ZERS ZERO FART GF SUFFER 

#¥C BOCUGeMRZA 3 oZLCoKRL}Y SAVE EC 

KYE FSE oXR2Z) Oo XEOO* ZERC REST OF FIELO 

e¥C FBCSEeXRS9 0 TSC XR2ZE 

LA 960 eXRE96XR2 

ca 80€eXR2 3 -KR2 

af COUNTC 1? eONE OONE? 

BNZ CKXX 

MMVI BUF R474255 0G CLEAR OUY REST OF FIELD 
mvc BUFRAT7S2354€ 15) eBUF RATA 255 

KYE RAT? WHEN DONEe WRITE R42? BACK 
a¥t M20 

avCc OFDCR (2), ABFRS7 

8 SsTRTIG SEEK TO CV¥LO D0 

oc xL1°008 

oc XL12*60° 

oc AL2 CODCF) 

8 SxBUSY CHECK SEEK BUSY 

8 DEVERR ANY ERRORS 

8 2¢a 

8 SsTRTic ISSUE WRITE KEVY-ODATA 

oc XL1°O2° 

oc xti°o0° 

oc aL 2(O0CF) 

8 ATTBSY CHECK ATTACHHENT BUSY 

e OEVERR ANY ERRORS 

8 246 

Ten UTAEO2eX*80° RUNNING FROM OTSK? 

JT osPupT IF S$Co GIVE NEXT OISPL AY 
8 cad OTHERWISE TERMINATE 

oc XL2°OO" 


WOW CISPLAY MESSAGE SAYING 


PART NOe 
PAGE 


47 MUST BE UPCATED 
RUNNING FROM CARCS) 


UPOATE COMPLETE 


PROG 10 
PAGE 


4248219 
Ta 


FC2-1 
TA 


18M MAINTENANCE DIAGNOSTIC PROGRAM 


FCc21 


ERR LOC 


1370 
1381 
13862 
1383 
1385 
. 1389 


138A 
138E 


1392 
1396 
129A 
139E 
1T3At 
13A4 
13A7 
13AA 
1380 
13B4 
1388 
136¢ 


13c¢c0 
13C4 
13ce 
13c¢ 
13D0 
1304 
1308 
130¢ 
13€0 
13E4 
-13BE7 
13EA 
13F0 
13F4 
13FA 


13FE 
1402 
140€E 
1a0c 
1412 
1415 
1419 
141D 
1423 
1427 
1426 
1462F 
1433 


1435 
1439 
143D 
1441 
1443 
1445 
1447 


1449 
T44A 


OATE 
EC NOe 


3340 IPL FCRMAT FROGRAM 


4248219 


wy 


IBM MAINTENANCE DIAGNOSTIC FROGRAM 


OBJECT CODE ADOR STMT 
CO B7 O21A 908 
06 13@1 $09 
16 1362 910 
1918 1384 911 
cO 87 022A 912 
00 1389 912 
$14 
34 01 144€E sis 
CO 87 ODA4S 916 
S17 
918 
919 
34 O08 13F0 $26 
c2 01 0881 921 
3c 54 144¢ 922 
7D BO 00 923 
Fe O1 O03 o24 
7C 2a 00 925 
D2 O01 O1 926 
OF O00 148¢C 1444 927 
co 01 139€ 928 
C2 01 0883 929 
c2 02 16C7 930 
3C 15 144C¢ 931 
932 
SE 00 O01 O1 933 
SE 00 01 O12 934 
SE 01 01 O01 935 
SE O1 O01 O1 936 
SE 02 01 O12 937 
SE 02 O01 01 938 
SE 03 01 O01 939 
SE 03 01 O1 940 
9c 02 00 00 941 
D2 01 04 942 
E2 02 03 943 
OF 00 144C 1444 944 
co 01 13C0 945 
OC 3F O8BF 1703 946 
co 8&7 0000 947 
$48 
949 
9S0 
34 08 1432 981 
3B 80 Oo889 952 
OC 01 144¢C 1442 $53 
OF 0O 0888 1444 954 
Fe @&2 08 955 
3E O1 14364 9S6 
co 87 140C 957 
oc 00 144¢ CcBBeS 958 
36 01 144¢ 959 
36 O1 144¢ 960 
36 01 144¢ $61 
co 87 0000 962 
02 e0 1434 S63 
964 
9658 
FOF OF OFC 1438 966 
FOFOF OFO 243¢ 86967 
FOFOFOF? 1440 968 
ooce 1442 969 
ooo! 1444 970 
oocs 1846 O71 
OFFF 1448 S72 
GOFF 973 
oo 1449 «6974 
02 244A) 975 
29 AUG7S 22d0Ec7Ts 
827804 S27a3€ 


PART NO. 
PAGE 8 
--MODEL 12 FC21 
SOURCE STATEMEAT ERR LOC 
OSPUPT B PRINT DISPLAY MESSAGE 
pc XL1°06" FLAG 1448 
oc ILifaee LENG TH 144D 
pc AL2 (TERM) @ OF MESSAGE 
a LOAD TERMINATE IF NO MORE 1446F 
pC XL1°00O* 1450 
1482 
NXTIO ST SAVPTR oXRI 14654 
B CKFAO CONT INUE 1455 
* 1456 
* 96 TO 8O COLUMN COMPRESSING 1458 
* 1489 
CMPRES ST CMPRTN43 PARR SAVE RETURN ADDRESS 145B 
LA INREC4#12XRi XRi POINTS TO FIRST UNCOMPRESSED 1463 
MVI  CCUNT.»84 SET @YTE COUNT To 84 1466 
CMPOO CLI Oe XR1}eX*DO8 CHECK FOR x*DOFe 1668 
JNE CwWwPOL 146A 
MVI OC eXRI} oXEZAE IF SO. CHANGE TO x*2aA8 : 146C 
CMPO1 LA 1€eXR195XRI INCREMENT POINTER hy 
SLC  CCURTCI) 611 CECREMENT COUNTER 146E 
BNZ  CMHPOO CONTINUE TILL DONE es 
LA INREC43,XR1 XR1 <=> FIRST 6 BYTE GROUP & 156E 
LA OUTREC4+3 oXR2 XR2 --> FIRST 3 BYTE GROUP ‘ 
MVI COUNT. 21 SET GROUP COUNT TO 21 C 1SCE 
| 
CMPO2 ALC 1€2 oXR 1) oll eXR1) COMPRESS & INTO 2 | 162€ 
ALC =-: 141 oXRI00 1 Oe KRID i an 168£ 
ALC 1(2eXR1) 61 Ceo XRID | € 1690 
ALC POVXRL ole XRF : 1692 
ALC 1 C3 oXR1 De Ce XRI) 1694 
ALC 1C3BeKXRiIP el C oXR1I) h. Thesd 1698 
ALC 17@oXR1P 6106 XRD ! 1EA1 
ALC —-§ (4 oXRLD o 1 COXRID hee 
MVC 0( 3eXR29600sXR1} MOVE 3 BYTES TO 3 BYTE GROUP eee 16a2 
LA 4(oXR1IeXRI BUMP 16A3 
LA 3€oXR2) oe XRD POINTERS 1644 
SLC  COUNT(1).11 BUMP COUNT phe 
BNZ CwRo2 CONTINUE TILL DONE | 16AS 
MVC INREC+63(64)e¢OUTREC4+63 MOVE COMPRESS RECORD TO INREC 16A7 
CWERTN 2 eo RETURN : 16A9 
* i 16AB 
* COMPUTE VALUE OF THE POINTER HERE be 16AC 
* ao 16AE 
COMPUT ST = CCMRTN43 »ARR | 1680 
SBF INREC+96X 9808 | e 1682 
MVC = CCUNT e FO ae 1683 
COMPO0 SLC —— INREC #801) 011 | 1685 
Jt CCMFOL | . 1687 
A 1284,XR1 se 1688 
B CCMP00 1686 
CCMFOL MVC  CCUNT (1 5» INREC49 . 16BB 
A COUNT ¢ XRI 4 168C 
A CCUNT o XR} | 1680 
A COUNT «XR1 | iat 16C0 
COMRTN B toe Ne 16¢2 
1384 3»=6 oc IL2*3e48 | 16C3 
* CONSTANTS AND EQUATES | fg 
* A 16C4 
oc CL4*0000°6 IOeLEVEL ¢& | 17¢4 
1OSEG@ oC CL4*00008 SEQ STORAGE | . 17C6 
DEC! pc CLa*0001€ DECIMAL 1 pos 17¢8 
10 oc Tezeoe i 17CA 
11 oc TL2e4e | r 17CC 
13 oc ie2e3e Meet 17CE 
FEF DC XL2°OF FE? 1700 
FF EGU =_xxeFFE Ps 1702 
SWITCH DC XLT 00° fae 17D4 
PLUSs2 oC XLi*o2? 1706 


PROG 10 
PAGE 





3340 [Pt FCRWAT FROGRAM 


OBJECT CODE ADOR 
0880 
0000 144C 
0000 144E 
144e 
00 144F 
0o00 1462 
9000 14§3 
00 1454 
00 1455 
0100 1457 
00 1458 
2800 145A 
CSDED9N6N9404040 1465 
40404C 
O1E0O 1467 
0028 1469 
0o00o 1468 
000s 14€D 
146E 
1S5€D 
156E 
15CD 
1SCE 
1620 
162€ 
1680 
14°E 168F 
0000 1691 
0000 1693 
40 404040404040 16SA 
000000000000 16A0 
FF L6AL 
16A2 
01 16A2 
D2 16A3 
FF 16AS 
16A5 
OF AO 16A6 
OF AG 1688 
OFA? LEAA 
FF 16A8 
000s 16A0 
30FE 16AF 
3BFE 16281 
00 1682 
0000 1684 
0002 1686 
01 1687 
oo 1668 
0100 16BA 
20 1688 
00 16BC 
000000 168F 
0002 16C1 
oo 16C2 
00 16C3 
16C4 
17¢3 
16C4 17¢5S 
0000 17C7 
0000 17¢9 
0000 17¢B 
0000 27CD 
0000 L7CF 
0000 1701 
ooce 1?7D3 
oo00c 17058 
co 17D6 
29 auG7TS 22DEC7S 
827804 827836 


STMT 


976 
977 
975 
979 
980 
981 
962 
983 
984 
985 
986 
9&7 
98a 
988 
98S 
990 
99) 
ss2 
993 
$94 
995 
996 
997 
998 
$99 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
i012 
1013 
1014 
1015 
1016 
1017 
1018 
101¢ 
1020 
1021 
1922 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1020 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 


PART NOo. 4248215 





PAGE ea 
--MODEL 12 
SCURCE STATEMENT 
INREC EQU x*o0880°¢ 
COUNT ode KL2*008 
SAVPTR OC XL2°00° 
coce Eou * CONTROL FIELD 
pc XL1*°00° FLAG 
oc XL2*°008 CYLINDER 
oc XL2°008 HEAD 
R oc XL1°00°% RECORD NUMBER 
oc XL1*008 KEY LENGTH 
oc IL]2°2s6° DATA LENGTH 
N oc XL1 008 NUMBER OF RECORDS 
OCCcF cc AL2 (8UFFER) 
ERROR DC CL11*ERROR @ 
Forao oc IL2*ago0° 
FCRTY oc IL2*aoe 
CRIVE# OC XL2°O008# 
ELEVEN Oc tr2etire 
BUFR47 EAaU * 
os CL.256 
HDRFAO EQU * 
DS CL96 
HORFA6 EQU * 
ps cLo6 
HORFA? EQu * 
os CLOE 
ABFR47 OC AL2 (BUF RA? } 
SsD1IeP4 DC XL2°008 
SAVI oc XL2*00¢ 
QLOEC oC 7XLi*4oe 
SVUPOT OC 6x 1°008 
oc XLI° FFE 
ORIVES EQL * 
oc XLI*D1¢ 
oc¢ XL1 *D2¢ 
oc XL1°FFe 
ros Eou * 
FAO oc XL2°*FA0F 
FAG oc XL2*°FaA6Ss 
FAT OC XL2"°FAT® 
oc XL1°*FFe 
FIVE oc weese 
BUFF1a DC AL2 (BUFF A04S1 0} 
BUFF2a DC AL 2(BUFFAO- 2) 
WETCF OC XL1 "008 WRITE CONTROL FIELD 
Oc xL2°00°* 
HH oc XL2°0002¢ 
RR oc XLIfo1® 
pe XL1i"00¢ 
oc IL2*256¢ 
NN DC xXLit2pe 
wRT2 oc XL2*008 
DC XL3*008 
NOCEF O0C XL2°0002° 
HARSAV OC XLi*OO®¢ 
CARSAV NC XL2*008 
QUTREC Eau * 
os 256Xt1 
ALTADR DC AL2C(QUTREC) 
CLs oc XL2*00€ 
HL2 oc XL2°008 
ciw oc xL2°008 
HLw oc XL2 "O08 
cP oc XL2 5002 
HRW oc XL2Z2*OO © 
WORK pc xL2*¢008 
TWELVE OC IL2tiae 
PCCUAT DC 


XL *Oo08 








en eee eet tte te ae ten 


TBM MAINTENANCE DIAGNOSTIC PROGRAM 


FC21 


ERR LOC 


1707 
1709 
170D 
L7ES 
“T7Ec 
L7FS 
17FO 
1805 
18D 
1815 
16810 
1825 
1820 
1835 
1820 
1845 
184D 
18E1 
1855 
1820 
1865 
1860 
1e7§ 
18705 
1685 
18e@d 
1895 
1890 
1BAE 
18aDdD 
1885 
1e8ed 
18c5 
18cs¢ 
1ecc 
1804 
160C¢ 
1800 
18ES 
16EC 
18FS 
18FO 
1903 
1908 
1913 
1919 
1921 
1929 
1931 
1939 
1941 
1949 
19€1 
1959 
1961 
1968 
1970 
1978 
1980 
1988 
198F 
1997 
19SF 
L9AT 
19AF 
1987 
198F 
19ci 


CATE 
EC NQe 


3340 IPL FCRWAT PROGRAM 


OBJECT CODE 


OOFF 

E2E€1F 240 
£040404040404040 
40404040404C64040 
40 404060404C040406 
40404046040604046 
404040640404 04040 
4060404020404040 
4080404040404040 
60404040404C4040 
4040408040 404046 
6040404 060464040 
AO S04CSO4C04C4 C46 
40404048060804046 
4040404040404 046 
4040404040 204040 
£0408 040 
E6CSD540 
404040804604854040 
£040608040404040 
AD4040L 060 4C4 080 
2040404040 4040460 
4040864 040468040 
80404604040 404040 
404 04 04 040404049 
6680694040406 040 
6040404040 404040 
40804 04040406040 
BO8040K4046C4CHO4E 
£0 460408040404040 
4040804040468 046 
6060804040404040 
80404040 

C1C363 
COCLE7&0DSDEE340 
pepsS4007C1C30260 
€0 
C1C&CASOCIE280E3 
DEQOF 3CACS4007C1 
CBC 240C1DEC440E3 
¢8C5054009 C5036 
C1C440C6C 2F2 
404040E2CSCIE3CS9 
D6D54 OE 3CSC9DACS 
05C1£ 2C5C 440 
£060C4C1 E3C14008 
D6C4E 4N3CS40C SE2 
40 DSDEEBSOC2CECS 
D5C74 CEAD7TC4ACIES 
€5C 4406040404040 
D7 03C1C3CS40C4CS 
C3D240CECIF740C9 
DEA0DIDECIC4&CSEDS 
6009 CSEZCSESS0ES 
C8CS40C8C1D03E3 
£7 C3C1C 3CS40C4CS 
C20240C6C1F640C9 
D540D 2DECIC4CEDS 
6OC9CS5E 2CSE240E3 
cecse0cacic3e3 
D7D2C1C2CS40C 2F 1 
F740C606 0303C6E6 
CECSO0C 2E B4CCEC! 
FO40C9D540D30ECI 
C4C5096 009CSE2ZCS 
€240€ 2C BC £40C €Cl 
D3E3 
D7D9DEC7DSC1D440 


29 AUGTS 
827804 


ADDR 


17cts 
17BC 
1860 


1e@&4 
16cs 


18cB 
18D0Cc 


1902 


1918 


1940 


1967 


19eE 


19¢c0 


19E6 


22DECT7E 
827836 


STMT 


1043 
1044 
1045 
1045 
1045 
1045 
1065 
1045 
1045 
1045 
1065 
1045 
1045 
1045 
1045 
1045 
1045 
1046 
1047 
1047 
1047 
1047 
1047 
1047 
1047 
1947 
1047 
1027 
1047 
1047 
1047 
1047 
1047 
1008 
1049 
1049 
1049 
1050 
1050 
1050 
2050 
1050 
1061 
1081 
1051 
1052 
1052 
1052 
1052 
1052 
1053 
1053 
1083 
1053 
1053 
1054 
1054 
1054 
1054 
1054 
1055 
1055 
1055 
1055 
1055 
1055 
1055 
1056 


PART NOce 


PAGE 9 


--MODEL 12 


SOURCE STATEMENT 


CKER oc 
ws¢c3 ale 
msG2P OC 
BSCE oC 
MSGRP DC 
aCT oc 

oc 
MSGFAT DC 
TERM oc 
UPDATE OC 
MGFA7T OC 


MSGFAE OC 


MSGFAO OC 


usGci17 OC 


XL2°OOFF* 
cr4a's/3 ° 
L16XL1*40& 


cise win ° 
12GXL1E° 46? 


CL3tacr® 
CLI 7*FA7T NOT ON PacKk--* 


CLBe*ADD IT TC THE PACK AND THEN RELOAD FC2* 


cL2e* SECTION TERMINATED ° 


cLaoe 


DATA MOOULE IS NOW BET... UPDATED e 


CL3S*PLACE DECK FA? IN LOADER-RESET THE HALT® 


CL3SG*PLACE DECK FA6 IN LOADER-RESET THE HALT® 


CLSO* PLACE C17 FOLLOWED BY FAO IN LGADER-RESET THE HALT® 


CL28*PROGRAM C17 WILL DG THE LOADING OF FAO® 


proc 10 
PAGE 


9 


4248219 


Fc2-1 


i 


o 
‘ 
\ 


18M MAINTENANCE DIAGNOSTIC PROGRAM 


Fc2ai 


ERR LOC 


Ae 


lain 


G 
Cc 


0 0 ¢ 


19C9 
19D1 
1909 
19E1 
19&7 
19EF 
19F7 
19OFF 
1A07 
1A0F 
TAI? 
ALE 
1A27 
LA2F 
1A37 
1A3F 
1A41 
1A4&9 
1ASi 
iAS9 
1A€1 
1 A6S 
TAGA 
1A72 
LAVA 
LABS 
1ABA 
1A8C0 
1A90 
LAG2 
LASS 


CATE 


EC NOs 827804" 


3340 IPL FORMAT PROGRAM 


OBJECT CODE 


CBFIF740E6CS9D303 
A0C4DESA0E3SCECESO 
OD 3DECICAC9OSC7HO 
C6 C64 0CE6CIFO 
DSD6E 3C57A4 CEBDS 
E460C1D9OCS400SE4 
DSCSCSDSC74OCED9 
D6D440C 1D 3E 24003 
c6ci c4acS09404040 
COC 64 OF SF BF SFO40 
D4CSC 2D9DEE CT IDE 
C4C54 005 D6E34003 
D6C1C 4C 5C 46B4 0CE 
CLFOSOD4ESE2E340 
CECESOESDTIC4SCIES 
csc4 
4DE6CBC9IC3CS40 CS 
CIE 4E 2c SEZSLCO SDE 
CSESOSCED34CE2E3 
DEDECSACEZ OES OC2 
C540D 2D 6C1CAC ECS 
50 
C2CcSCEDEDSCS40C6B 
C1F64o0DEDSs4ocEec? 
F740C3C10S40C2C5 
BOE4D7C 4C 1 E2ZC EC4 
C70L40 

csc340 

9000 

s006 

o203 


29AUG7S 


ADDR 


LAGE 


1A36 


1A40 


1TA6&9d 


1A89 


1aec 
1 ASF 
1AS1 
1ag93 
1495 
2Ag4a 
3000 
3294 
3cud 
2A20 
2h22 
3293 
0222 


22DEC7S 
e27836 


STMT 


1056 
1086 

106 
1056 
1057 

10E7 
1057 
1087 
1087 
1058 
3058 
1058 
1058 
1088 
16S9 
1059 
31060 

1066 
1060 
1060 
1060 
1960 
1061 

168i 

iG61 
1061 

10€2 
1063 
10¢4 
1065 
10666 
1067 
1068 
2069 
1076 
1071 

1072 
1073 
1074 


PART NGe 
PAGE 


--WODEL 12 


SOURCE STATEMENT 


¥GNOTE 


RGi 


PN 

EC 
xSO0G 
xsoco 
X263 
BUFERG 
BUFE AT 
BUF FAS 
BUTFAG 
CARFEG 
HARREG 
ENCFA7 
UTAB 


oc 


oc 


oc 


oc 


oc 
oc 
sc 
oc 
oc 
EQU 
EOU 
Eau 
Eou 
EGU 
EQU 
EQU 
Eau 


CLOO*NOTES YOU ARE RUNNING FROM ALT LOADER : 


CL46*1TF 3360 mICRO-COCE NOT LOADED. FAG aust ¢ 


CLIO*E VPDATETS 


CLAL*CBHICH TAUSES CONTROL STCRE TO BE LOADED). 


CLAUZSSEFORE FAG OR Ea? CAN BE UPDATED® 


CEBIPN ? 
CLB"EC * 
KL2*S000* 
XL. 2*8000° 
XLZ2°O2037 
X*2an9a® 
x*#3000* 
K° 32946 
x*3Cc00° 
x*2A20* 
xe2az2¢ 
x*3293° 
x°O232° 


PROG 10 
PAGE 


0248219 


GA 


FCc2-1 


SA 











IBM MAINTENANCE DIAGNCSTIC PRCGRAM 


FC21 


ERR LOC 


LAGE 

2 LA9SA 
te LAGE 
TAA2 

1AAG 

1AAC 

1ABO 


YABS 
1A88 
LABS 
LABA 
1A8C 


LAGE 
1ace 
LACS 


1AC8 
LADO 
1AD8 
1AEO 
LAE] 


LAEG 
LAEA 
LAEE 
AF 2 
1AF6 
TAFC 
18600 
1604 
160e 
1809 
TBOA 
1B0Cc 


180E 
1812 
1614 


1616 
18 20 
1628 


1B30 
1634 
1835 
1836 
18637 
1828 
IB3A 
1B82¢ 
1841 
1842 
1843 


1845 
1847 
18486 
1B 40 
iBEs 


DATE 
EC NGe 


{ 


3340 IPt FCRWAT FROGRAM 


OBJECT CODE ADDR 

34 08 1AES 

c2 01 O7DO 

co 87 1C31 

CO 8&7 1AE2 

OD 8F 1802 1802 

36 61 10¢4 

CO 01 1A9A 

CO 87 O21A 

cé 1488 

1A 1 ABS 

LAE 1ABB 

C105 1 AED 

co 67 0222 

C105 1AC3 

CO @7 1ABE 

C2E4E 2EB8S0ESDECE 1AE! 

0030 ED5C740C 1C6 

E3C5D940C140E2C5 

cEp2 

co 87 0000 

34 08 1833 

c2 01 0190 

co 87 1C45 

co e7 1830 

OD BF 18D2 1802 

2€ 01 10C4 

CO 01 1AEA 

co 87 02148 

cé 1808 

i8 1809 

1B2F 1808 

C106 1800 

co 87 0222 

C106 1813 

CO 87 1B0E 

CLESEICICACeDACS 182F 

DEE 34 CCZESEZEBSO 

E 206DE40D2DEDEC7 

co @7 0000 

00 1824 

00 1825 

00 1B236 

00 1£27 

1852 1839 

1845 1838 

céc3c3csce 1840 

00 1641 

00 1£42 

e008 1B44 
1845 

0000 1846 

c3c2c ace 1B4A 

1866 1B4C 

CéC2C3CBCECEC3C3 1 BSA 

cecercrorore 

29AUG 75 2eDECTS 

827804 


827826 


STMT 


1076 
1077 
1078 
1079 
1080 
1081 
1062 
1083 
1084 
1085 
1086 
1067 
1088 
1089 
1090 
1091 
1092 
1¢¢3 
1094 
1095 
1096 
1097 
1097 
1097 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1210 
dit 
2112 
2113 
1114 
1125 
1116 
1117 
1118 
1116 
1219 
1119 
1120 
2223 
1122 
11223 
1124 
1128 
1126 
1127 
1128 
1129 
1130 
2131 
1132 
1133 
1134 
1125 
1136 
1136 
1137 


PART NOc 
PAGE 
--MODEL 12 
SCURCE STATEWERT 
* 
* THIS SUBROUTINE CHECKS SEEK 8USY CONDITION 
* 
SKEUSY ST EESY435 ARR SAVE FOR RETURNING 
LA 2000eXRi SET FOR 1 SECe DELAY 
8 SEKBSY YO TEST FOR SEEK BUSY 
e EESY RETURN TO MAIN PROGRAM 
CLC WORK#2£5(144) pWORK4255& DELAY 
A NEGI1_XR1 DECREMENT COUNTER 
BNZ SKBUSY+4 LOOP IF NOT CONE 
8 PRIAT TO PRINT ERRGR 9255 
oc XL1°CE* FLAGS 
pC 1L1 "26° LENGTH 
oc AL2CERE255} MESSAGE ADORESS 
pc XL2°C105* MESSAGE ID 
8 HALT TO OCP ERROR HALT 
oc KL2°C 105° HALT 1D 
a *-6 LCOP ON HALT 
ERE255 OC CL26* BUSY TOO LONG AFTER A SEEK® 
Eesy 8 *—* RETURN 
& 
* THIS SUEROUTINE TESTS ATTACHMENT BUSY 
* 
ATTESY ST EATT 436 ARR SAVE FOR RETURNING 
LA 4COeXR1 SET FOR 200 MSe DELAY 
8 ATHBSY TO TEST FOR ATTACHMENT BUSY 
e EATT RETURN FOR NOT BUSY 
CLC —- WORK #2 £80144} »WORK4255 DELAY : 
A NEG1eXR1 DECREMENT COUNTER 
BNZ ATTESY+6 Loce IF NOT CONE 
6 PRINT TO PRINT ERROR 9275 
oc xLi*cée FLAGS 
pc tLi*246 LENGTH 
oc AL2(ER6275) MESSAGE ADDRESS 
oc xL2°C106* MESSAGE ID 
e HALT TO DCP ERROR HALT 
pc XL2°C1 06° HALT ID 
B *-6 LOCP ON HALT 
EREZ7TE DC CL24* ATTACHMENT BUSY TOC LONG® 
EATT 8 *—* RETURN TO MAIN PROGRAM 
cKcTR CC XL1*O# 
ERRCTR DC xL1°0® 
RECLEW DC KLL9OF 
RDPASS DC XL16O® 
REACA OC AL2€A27~8) READ ADDRESS 
WRITEA BC AL2(A08) WRITE ADDRESS 
pe CLS *FCCHH® 
oc XL1*O® 
oc XL1¢O® 
pc 1L2¢08* DATA LENGTH FOR RO 
aoe —ou * RO DATA TO GE WRITTEN 
oc xL2¢o* 
ais oc cia? CCHH! 
T@LENA OC AL2C#) 
A2? pc CL14*FCCHRFCCHHOOOS* 


pros 10 
Pace 








10 


' €Ca~t 


10 


6248215 


ae 


© 





I@M MAINTENANCE DIAGNOSTIC PROGRAM 


FC21 


ERR LOC OBJECT 


1658 


iB SF 
1863 
1869 
1B6D 
167% 
16875 
1B79 
1670 
1881 
1BB4 


1887 
cae 1B8A 
‘ 188D 
1691 
1895 
1B¢S9 
1690 
IBA 
1BAS 


iBA& 
168a8 
1BAE 
1662 
1B86 
166A 
1BBE 
1ec2 
1Bcé6 


‘ 18c9 
18¢cD 
1801 
1805 
1BD9 
- 18DD 
A. 1BE1 
1 BE? 
1B8E8 
18EE 
1BFO 
16F2 
1BF3 
18F 5 


on 


© © 


& 


DATE 
. EC NOs 


ie 


= 


3340 IPL FCR¥AT FRCGRAN 


34 


358 
OE 
3c 
3c 
3c 
3¢ 
3c 
3c 
7D 
Fe 


7D 
Fe 
3¢ 
3¢ 
3¢ 
3c 
3c 
3c 
Fo 


75 
F2 
3¢€ 
ac 
3c 
3¢ 
3c 
3c 
F2 


3¢ 
3c 
3c 
3¢ 
3c 
3c 
oe 
co 


00000‘! 


oe 


O1 
o1 
co 
c6 
co 
c4 
c2 
ci 
Dt 
a1 


D2 
O1 
cs 
ce 
c& 
cc 
CA 
cg 
e7 


03 
o1 
bo 
06 
DO 
0a 
ba 
01 
e7 


os 
DE 
Ds 
oc 
DA 
os 
oO. 
87 


ooo02 
0003 


oo 


soot 
0003 


CODE 


iBEA 


1BEA 
i BEA 
18F2 
1€24 
1c71 
1c28e 
1cS2 
1c3E 
60 

SA 


00 
18 
16Fe2 
1024 
1c71 
ic26 
icsé 
1c3E£ 
3¢ 


oo 
18 
16F2 
1c24 
1c71 
1c28 
icS2 
1Cc3E 
18 


iBF2 
1¢24 
1ic7i 
1c26 
i1cS2 
1C3E 
1BEA 
0000 


29 AUGTS 


€27804 


ADOR STMT 


1BED 


1Dc6 


18EO 
1BEF 
1@F 
1e8F 2 
18F4 
1eF6 


22DECcTSs 


827836 


1138 
1139 
1140 

1141 

1142 
1143 

1144 
1145 
1146 
1147 
1148 
1149 
1250 
12512 

1152 
i153 
1154 
1155 
1156 
1157 
1168 
1159 
1160 
1161 
1162 
1163 
2164 
1165 
1166 
1167 
1166 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
21179 
1140 
1181 
1182 
1163 
1184 
4185 
11386 
1187 
1188 
1189 
1190 
119% 

1192 
1193 


--WCCEL 12 


SOURCE STATEMENT 


c3 


c4 


SETRUN 
OSKEXT 
CNE 
Tao 
TRREE 
eccerrT 
XREG 
SVFREG 


st 


ALC 
MVI 
MVE 
MVE 
VI 
vi 
MVI 
cur 
JE 


eur 
JNE 
wvVi 
MvI 
MMVI 
MMVI 
MVE 
wVvE 


CLI 
JNE 
MVI 
MVE 
MMVI 
MvI 
VI 
MvVI 


MVI 
MVI 
MVvI 
WVT 
MVI 
MVE 
ALC 


oc 
oc 
oc 
oc 
oc 
oc 


PART NO 
PAGE 


4248215 
10A 


DISK SELECTION SUBROUTINE 


CALLING SEQUENCE 


SELDSK 
XLI*O1® 
Kok 

t—% 


OSKEXT+3 eARF 


CSKEXT4#3_ XI 
DSKEXT+ 3¢2) eONE 
MODBITex*co?® 
LCTRL 41 oX*C6® 
TIOERR41.x*CcO° 
LOATA41L eX *CHFE 
TIOESYV4+1 ox* C2° 
TIOSEK415xX°C1* 
O0¢€eXR1 eX" O1 ® 
SE TRUN 


O€ sXRI) oxX*D2¢ 
€2 
MODEIT.x* cB? 
LCTRL41 oX* CEP 
TIDERR+i1eX*CB® 
LEATA4I ox*# CCF 
TIOBSV+1 oX*CA® 
TIOSE (41 eX #CO® 
SETRUN 


Os XR1 Pe X*O3* 
c4 
MODBITsX*DOf 
LCTRL41 oX* 06° 
TIOERR4+12xX°DO* 
LOATA41eX*O4® 
TIOESY+1 2x* 02° 
TIOSEK4+1.X*D1 
SETRUN 


MODEBITsx*D8* 
LCTRL41 eX S DES 
TIOERR41 eX*DE* 
LCATA41eX*°OC* 
TI CBSY+4+1 ¢X*DA® 
TIOSEK41-eX"D9* 
DSK EX T43 (23 eFOUR 
t— * 

XL3*O1* 
xL2°02° 
XL2¢*O3* 

XLI*O*f 
xL2°8001* 
XL2*0005* 


CALL 

DISK TO BE SELECTED (02002403 OR 04} 
RETURN IF DISK IS NOT AVAILABLE 
RETURN IF SELECTED DISK IS AVAILABLE 


SAVE RETURN ADDRESS 


PUT PARMETER ADDRESS IN XR1 
STEP EXIT ADCRESS 
INITKALIZE ALL 170 

COMMANDS FOR ORIVE i 


TEST FOR SELECT ORIVE 2 

IF NOT DRIVE 2 GG CHEZK FOR ORIVE 3 
INITIALIZE ALL 170 

COMMANDS FCR DRIVE 2 


TEST FOR SELECT ORIVE 5 
1F NOT 3 IT HAS TO SE 4 
I“ETIALIZE ALL 170 
COMMANDOS FOR DRIVE 3 


INITEALIZE ALL 176 
COMMANDS FOR DRIVE 4 


STEP EXIT ADDRESS 
EXIT 


PROG ID 
PAGE 


Fc2<1 
10A 





| 8 S i © e. 
: ‘ 
; i 


LBM MAINTENANCE OITAGNOSTIC PROGRAM 


Fc21 3340 IPL FCRMAT FROGRAM 
ERR LOC CBVJECT CCDE ACCR STMT 
1196 
1196 
1197 
1198 
1199 
1200 
1202 
1202 
1203 
18F7 24 08 1080 1204 
1BFB OC OO 1C2C 1BF2 1205 
101 3& O01 1060 1206 
1c0S 18 03 1C2Cc 00 1207 
1cO4& 1C 00 1C2D 01 1208 
icoF ic 01 10CC 03 1209 
1C14 3B O08 1C2C 1210 
ic18e 39 08 1BF2 1211 
1cic F2 10 04 1212 
1C1F 3A C8 1C2C 1213 
1¢23 21 cé iD0cc 1214 
1c27 31 Ca 1DCA 1215 
1C2B F3 CO 00 1216 
1C2E DO 87 04 1217 
1218 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1226 
1C21 34 68 1044 1227 
1C35 36 08 1tO9CcE 1228 
1C29 324 08 10490 1229 
13D C1 C1 0000 1230 
1041 CO 87 ©0000 1231 
1232 
1233 
1234 
1234 
1235 
1236 
1237 
1238 
1229 
1240 
1241 
1242 
1c4S5 34 08 1C58 1243 
1C49 36 08 10C6 1244 
1C4D 34 08 1€54 1245 
1¢c51 Ci c2 0000 1246 
1c&S CO 87 0000 1247 
1248 
1249 
1250 
1281 
1252 
1253 
1254 
1258 
1286 
1C59 34 08 1C6B 1287 
1C£D 26 08 10C6 1258 
1€61 34 08 1C6F 1259 
DATE 29AUG 75 22DEC75 
EC NO 827804 827826 


--MOOEL 12 


SCURCE STATEMENT 


x 


eee # & # 


STRTIC 


LCTRE 
LOATA 
sire 


SEKBSY 


TIO SEK 
TIOEXT 


* 


at 


ATHBSY 


TIOBSY 
ATHEXT 


* 


* 


DEVERR 


oc 
oc 
oc 


st 
MvC 


MAN 
wYvC 
M¥C 
SBF 
Ter 
ST 

SEN 
L1o0 
Lia 
sto 


st 


st 
T10 


ST 


st 
T1i0 


aoe 


st 


st 


START 1/0 SUBROUTINE 


LINKAGE 
STRTIO 
XLi*0? 
xL1*o° 
AL2C#) 


SASEXT+3 y ARR 


$1041€1)eMODSIT 


SNSEXT43¢ ARI 
SYO+1¢O€ sXR1) 


SIOF2SCL Is 10 eXRId 


DFCROE2Z2e3CeXR1} 
STO+% 2X*O8® 
MODE IV<X*O8* 
“+7 

SIO+1 »X* cst 
CFCRextcét 
DFORsxK*cat 
Oex*co® 

&0.XR1) 


PART NOe 4246219 
PAGE 12 


CALL 

CONTROL CODE +142 © BYTE BITS &-7 
FUNCTION CODEe R SYTE 

CONTROL FIELD ADDRESS 

GOOD RETURN 


STORE PARAMETER POINTER. 
SETUP FOR CORRECT ORIVE 
PUT PARAMETER POINTER IN 
TRANSFER 
TRANSFER 
TRANSFER 


XRie 
1v2 Q@ BYTE TG SIO 

R BYTE TO SiO 

CONTROL FIELD AOCDRESS 
TURN OFF FILE 2 GR 4 SELECT SIT 
TEST FOR RUN ON FILE 1 OR 3 
JUMP IF YES 

IF NOe SEY ON FELE 2 OR 4 BIY 
LOAD CONTROL FIELD ADDRESS - 
LOAD DATA FIELD ADDRESS 

START 1/70 

NORMAL EXIT 


SUBROUTINE TO TEST FOR SEEK BUSY 


CALLING SEQUENCE 


SEKBSY ‘ 
NOTBSY 


TICEXT+3 eARR 
FOUR. ARR 
TIOSEK43. ARR 
e—% oX*CLE 
ket 


CALL 
RETURN FOR NOT BUSY 
RETURN FOR BUSY 


SET RETURN ACDRESS FOR NOT BUSY 
SET RETURN ADDPESS FOR BUSY 


TEST FOR SEEK 8USY 
RETURN FOR NOT BUSY 


22 MACHINE CYCLES FOR EACH PASS ON EUSY = 33044 MICROSEC 6 


SUBROUTINE TO TEST FOR ATTACHMENT 8USY 


CALLING SEUUENCE 


ATHBSY 
NOT eSY 


ATHEXT4+3,ARR 
FOUR, ARR 
TIOBSY+3 o ARR 
wom eX9C2! 
cow 


SUBROUTINE TO TEST FOR DEVICE ERRCR OF NOT READY \ 


CALLING SEQUENCE 


OE VERR 
ERROR 
ccoc 


TERRGR+3,ARR 
FCURSARR 
DEVEXT+3 eARR 


ROUTINE CALL | 
RETURN FOR NOT BUSY | 
RETURN FOR BUSY 


SAVE RETURN ACORESS FOR NOT SUSY 
SET FETURN ACCRESS FOR BUSY 


TEST FOR ATTACHMENT BUSY i 
RETURN FOR NOT BUSY ‘ 


{ 
ROUTINE CALL 
RETURN FOR ERROR OR NOT REAOY 
RETURN FOR READY | 
SAVE RETURN ADDRESS | 
STCRE READY ACCRESS 


PROG ID 
PAGE 41 


g 


~ YEM MAINTENANCE DIAGNCSTIC FROGRAM 


wri Fc21 
ERR Loc 
1cés 


1¢C68 
icéc 


the 


1c7¢0 
1c74@ 


a 
i 


1¢78 
1C7C 
1670 
18 
1¢84 
1¢88 
1¢8S 
1CBA 
1c8C 
1cee 
M 1¢€92 
1¢93 
~ 1¢85 
{. 1099 
1¢98 


— 1COF 


1CA3 
1CA6 
ICRA 
1CaB 
1cao 


s ws, 


a, 
“Ny 


1c80 
1¢cB4 
icses 
1CB87 
1cBB 
“. - i cso 


C 1c¢1 
1CC? 
C 1c¢cB 
cee 
1¢CD 
rc 1ccF 


c 


Me 1¢c03 


: 1cOo7 
‘. 1coB 
1CDF 
1CE3 


1cE7 
1CEA 
1cED 
1cf1 
1CFS 
icFS9 
1CFA 
{crc 
I1CFE 
1001 


te 


Qo0°% 


DATE 
EC NO. 


OO 


3340 IPL FORMAT FROGFAM 


OBJECT CODE 


Fe 
co 
co 


ci 
co 


co 
os 
36 
Fe 
co 
c2 
oD 


&7 
87 
e7 


co 
87 


e7 


2 
a 


90 
e7 


1048 
cios8 


co 
8s 


e7 


oo00 


co 


87 


cics 


co 


39 
Fo 
co 
8s 


87 


FO 
10 
&7 


ooco 


F2 


co 
85 


87 


87 


cooo 


co 


87 


CiOA 


co 


oc 
co 
o1 
o7 


87 


0% 
87 


1007 


co 
co 


34 
34 
c2 
c2 


dea 
€2 
34 
34 
co 
o2 


87 
87 


o1 
02 
01 
02 


01 
02 
01 
02 
87 


ooo00 
oo0o 


BD 
co 


FF 
oi 


os 
0000 
oo00 


1¢73 
1céc 


1093 
ioce 


18 
O21A 


1E39 


0222 
1¢c95 
10C7 
OA 

1E39 


21 


1E39 


o222 


1C87 


1DCA 
16F7 


1AEE 
1CcO7 


wwic 
1020 
1D24 
iDEes 


02 
os 
1crB 
icFO 


O21 


o1 
1CE7 


29AUG 75 
€27808 


103E€ 


ADDR STMT 


1¢78 


ic7c 


1c es 
1c&9 
1€césB 
iced 


ics2 
1694 


1CSA 


icAA 
1Cac 


1CB4 
1CB86 


1cec 


1cce 
icce 
1Ccce 


icr9 
1cFB 
1cFO 


22DEC7S 


£27826 


1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1276 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
2318 
1319 
1320 
1321 
1222 
1323 
1324 
1325 
1326 
1327 


--WCCEL 12 


SOURCE STATEMENT 


TERROR 
DEVEXT 


ee # % 


TICERR 


* 
te 
* 


REDIAG 


NADAP 


NUNC K 


RDIAG 


REFET 


FRC#1 
TO 


J 
8 
e 


TIOERR 
t— 
Fok 


PART NO 
PAGE 


GO CHECK FOR AN ERROR 
RETURN WITH @4N ERROR INDICATION 
RETURN FOR READY 


THIS Witt CHECK FOR AN ERROR AND IF THERE IS GNEe 
SAVE THE 26 BYTES CF DIAGNOSTIC SENSE INFORMATION 


TI10 
8 


RODIAG oX*COF 
DEVEXT 


NOT READY/ERROR? 
NO-MAKE GOOO RETURN 


CN ERROR INDICATIONS RETURN HERE 


EQU 
8 
oc 
TEN 
JF 
e 
oka 
oc 
pc 
pc 
8 
oc 
oc 
8 
oc 
& 


TSF 
JT 
8 
oc 
ce 
J 


8 
oc 
oc 
8 
ec 
8 


avec 


cc 
oc 
DC 


St 
ST 
LA 
LA 


LA 
LA 
st 
st 


oc 
oc 
oc 
cul 
BNE 


* 

SENSE 
XLItOos* 
STATUS 2 X*O1 * 
NADAP 

PRINT 
HLiec2t 
Witizsée 

AL2 (MSGADP 3 
xL2*ci1o08* 
PRTSNS 

KEL Ese 
XL2*Cor 
HALT 
KL2°C108* 
2-6 


STA TUS—1 eX*FO® 
NUNCK 

PRITSNS 

xL21°8s* 
xL2*o0*s 

ROI AG 


PRISNS 
XL1*6Es* 
XLZ2°00° 
HALT 
XL2°"*CiOA® 
%=-6 


DFOR(2) sADIAG 
STRTIO 
XxL1*O1° 
xL1°O7* 
AL2(RDFCF) 
ATTBSY 

*+a 


SAVXRI43 XR 
SAVER 2436 XR2 
OLAG-1-XR1 
¥SGSENS—35 » XR2 


2¢eXR19eXR1I 
S€eXR2) oXR2 
FROM 1. XR 

TO XR] 

UNP ACK 
xLi9o2* 
AL2 (« =) 

AL 2! #-2) 

1 CeXR2 DV eX* FFE 
REPET . 


SAVE STATUS 
ADAPTER CHECK? 
PRINT 


ACAPTER 
CHECK 


PRINT STATUS 


AKVY UNIT CHECK? 


INDICATE STATUS ERRORS 


GO INDICATE READ DIAG INFO 


JUST PRINT STATUS 
FOR ANY OTHER ERROR 


SETUP FOR DATA FIELD 
ISSUE 

READ 

DIAG SENSE 

(NOT REALLY USED) 


SAVE xR} 
SAVE XR2 
MR1 POINTS TO THE DIAG SNS INFO 
MR2 POINTS TO THE UNPACKED DATA 


UNPACK 2 GYTES AT A TIME 


FINISHED? 


PROG ID 
- PAGE 


4248215 
Tia 











IBM MAINTENANCE DIAGNOSTIC FROGFAM 


Fcat 3340 IPL FCRWAT FROGRAM 
ERR LOC OBJECT CODE ADOR STMT 
1D05S CO &7 O2I1A 1328 
1D0S 46 1D09 1329 
1DOA 46 1COA 1330 
1D08 1091 1D0C 1333 
1D00 C109 IDOE 1232 
r IDOF CO &7 0222 1333 
1D12 C10S 1014 1324 
1015 CO 87 1D0F 1338 
1336 
1D19 C2 01 0000 1327 
+010 cz 02 0000 L336 
1D21 CO 87 1C6B8 21339 
1340 
1D25 134% 
10925 0000000000000000 103C 1342 
102D 000CC00000000000 1342 
1035 GococcococoooNCnD 1342 
103 1D25 1D032E £343 
3344 
1D2F CLCACID7ESCEDS4O 1046 1345 
1D47 C2BCBCSC3D2 2134S 
IP4C CHCSCICT4OEZC5OS 1076 134E 
1084 ESCS60ETETETETS&O $346 
TDSC EVETE7TE7T40ETETE?T $346 
1D€4 E740E 7E 7E 7TETSOE? ¥3a6 
HEC EVETETSOETETETET £346 
1D 74 4OETETETET LE46 
1D79 SOE7ETE7ETACETET 1DS1 1347 
1081 EVE740E7TE7TETZ7TSO ESAT 
1DeG E TE7E 7E74CE PETE? £3a7 
23 = 1091 E7 1347 
1092 FF 1092 21368 
} 
DATE 29AUG75 22d0EC 7S 
€C NO. 827804 827826 


i 


eeceneeeevneeeneeeeeee | 





TOM MAINTE NANCE DIAGNOSTIC PROGRAM 


PART NOe 4248215 
PAGE 12) 
MODEL 12 
SOURCE STATEMENT 
' 
c 
8 PRINT PRINT INFO WHEN DONE ba 
oc KL1°46* . 
oc 1L1°70* ; 
oc AL2 (MSGSNI} ) 
oc XL2'C109° 
e HALT 
oc xL2*C109° 
a a-é 
SAVXRI LA R—* oe XR] RESTORE XRI 
SAVKR2 LA HH EXR] RESTORE xRZ 
8 TERROR GIVE ERROR RETURN 
DIAG EGU * DESTINATION FIELO FOR 24 BYTES OF 
oc 24xL1i*oo? DIAGNOSTIC SENSE INFORMATION 
ACITAG OC AL2(DI AG) 
MSGADP DC CviL13* ADAPTER CRECK® 
wsGShs OC CL4E* CLAG SENSE=XXXX XKKM MKKK RKXK XKXK KMRMK KXXKE 
wSsGeni OC CLESEE MKXK XRXXK XKXXKX XKRX KRXXE 
oc XLi°FFe END OF PRINT LINE 


PROG ID 
PAGE 





ween ae mene eae ee ee Merman att a 
Sy © i, 


FC21 3240 IPL FCRVAT FROGRAM 

ERR LOC OBJECT CODE ADCR STMT 

1250 

1351 

1252 

1353 

1254 

1355 

1356 

1093 34 08 1DAA 1387 

1D97 36 08 18ED 1358 

1p9B8 34 0&8 1080 1359 

1D9F OC 00 1087 18F2 1360 

1DAS 08 03 1087 C000 1261 

20A8 38 O08 1BF2 1362 

1DAF F2 90 04 1363 

1DB2 BA 0@ 1087 1364 

1D86 30 Co 1DCc8 1365 

TDBA CO e7 OOCO 1366 

1367 

108E 010001G02F 190c2 1363 

10C3 FFFF 100% 1369 

10cS 0004 10C6 1270 

10C7 0000 10C8 1371 

1Dc¢s 2800 1DCA 1372 

10CB 0000 1ecce 1373 

1DCD 00 1DCD 1374 

1DCE 0000 10CF 1375 

19D0 0002 1D01 1376 

1pD2 00 10D2 1277 

21DD3 00 1D03 1278 

1004 0006 1D05 1379 

1DD6 00 1DD6 1380 

1381 

1382 

1D07 1383 

1DD7 00000000000C0000 1DEO 1384 

1DDF 0000 1384 
DATE 29AUG75 22DEC7S 
EC NOs 827804 827836 


=~-MCCEL 12 


SOURCE STATEMENT 


* 

a 

* 8 

* oc 

SENSE ST 
A 
st 
MvC 

SASPCV MRN 
TEN 
JF 
SBN 

SNS SNS 

SNSEXT 8 

RKEON oc 

KEGI oc 

FOUR oc 

STATUS DOC 

DFOR oc 

OFCR oc 

wOFCF oc 
oc 
oc 
pc 
oc 
oc 
oc 

* 

* 

RCFCF EOU 
oc 


SENSE SUBROUTINE 
L INK AGE 


SEN SE 
xL2°O° 


SNSMOV4+5 eARR 
GONE »ARR 
SNSEXT#3 4 ARR 
SNS¢101)eMODBIT 
SNS 41 9 &—* 
MOOBI T oe X* 08° 
447 

SNS41i oX°O8* 
STATUS eX*CO* 
nme 


XL5*010001002F * 
KL2°FFFFE 
xL2*06° 
xL2¢o° 
AL2 (Q@UFFER) 
AL2(C%—*) 
xL_ir*of 
xL2°0* 
XL2*0002° 
xXLI¢O* 
XLitOoO® 
XL2*o°® 
xLito* 

NOTE. 


* 
XL1IO%O* 


PART NO- 428821¢ 
PAGE 12a 
CALL 
172 N BYTE. BITS 4-7 


STORE PARAMETER POINTER 

SET RETURN ADORESS 

STORE RETURN ADDRESS 

SETUP FOR SENSE COMMAND TO ORIVE X 
TRANSFER 1/72 @ BYTE YO SENSE OP. 
DRIVE 2 OR 47 


SET FOR 2 OR 4 
SENSE OP 
EXIT 


R1eK=0 D=256 oha47 
SENSE AREA 


CATA AREA AODCRESS 
CONTROL FIELD ADDRESS 


FLAG — 

CYLINOER 0000 - coce 
HE AD 0000 - 0013 
RECORD NUMBER 00 - FF 
KEY LENGTH 00 - FF 
DATA LENGTH 0000 - OOFF 


NUMBER OF RECORDS. OO-FF 
KEY LENGTH + CATA LENGTH MUST NOT 
BE GREATER THAN OOFF 


READ HOME ADDRESS AREA 


PROG 1D 
PAGE 


FC2=-1 


2A 








-~"vyrrreeeeeeeeeeeeeeseeeeeeeeneecc 


{ 
lr. 
 & 
| i, ; i 
TEM MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4246215 18M MAINTENANCE DIAGNOSTIC PROGRAM : PART NOe 4246219 
PAGE 123; PAGE U3Aa 
; e } 
FC21 3340 IPL FORMAT FROGRAN --N"CCEL 12 FC21 3340 IPL FCRMAT FROGRAM --MOCEL 12 
| 
ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT ERR LOC OeVECT CODE ADOR STMT SOURCE STATEMENT 
1386 * THIS SUBROUTINE WILL CONVERT ONE 8YTE OF oe 1611 * SENSE CECODE SUBROUTINE 
a 1387 * HEX DATA TO ONE BYTE OF HEXADECEMAL DATA 1412 
1388 tor 1413 * LINKAGE 
1DE1 3€ 08 18ED 1389 CVD A ONE »ARR ADD 1 TO GET 1ST PARAMETER . 1414 
IDES 34 08 1£02 1390 ST FROM+5.ARR INSERT THE FROM AODRESS 1415 * B PRTISNS CALL 
& ICES 36 O08 1BEF 1391 A TWOe ARR ACD 2 TO GET THE 2NO PARAMETER OS as 1616 * oc XL1¢°oO# 2 BYTES TO SENSE € TEST 
1DED 34 08 1£08a 1392 ST TYBOT*+S sARR INSERT THE TO ADOR- 3 1417 pc ML2eqe EXPECTED SENSE BITS 
1DF1 34 08 1£0E 1393 St OTORZ+5 ARR ‘ade 
1DFE 36 08 1BED 1394 A ORE cARR ADO 1 TO GET RETURN ADORESS 1E29 34 08 1F43 1419 PRYSNS ST SENEXT#3eARR SAVE RETURN ADORESS 
10F9 34 08 1£31 1395 ST TIXE+2.ARR 1E30 35 03 1F43 1420 L SENEXT+3eXR1 SET XR2 AS A PARWETER POINTER 
1OFD OC 01 1£14 0000 1396 FRCW MvC FROEYT4S(2),%-% 1E41 1C 00 1E56 CO 1421 wvC SASFRM(1 360 CeXR1?) MOVE BYTE NOe TO USE 
1EO3 OC O1 1E27 COOD 1397 TYBCT mvc TOBVT+ 3(2) ot =* 1E46 1C O12 1FAa9 02 1422 MYC E XPSNS(2) o2( XR1) MOVE EXPECTED SENSE BIT MASK. 
1E09 OC 01 1£18 0000 1398 OTCRZ Mmvc ZROTO4+202),%-% 1423 
1EOF OC 00 1E32 0000 1399 FRCEYT MVC HXBYT(1 35 #~s PUY BYTE IN WORK AREA 1E48 C2 02 1656 1424 LA SASFRMEXRE LOAD xP2 AS POINTER TO SENSE 1-ARM. 
YE1S 04 20 0000 IE&33 31400 ZROTG ZAZ *x~—%* (3) SUNT TS¢ 1} ZERO THE TO AREA 1E4F BB 80 00 1425 SBF Oe XR2IeX*HO?® TURN OFF HEADING BIT IF. ON 
1E1B OF OG 1E32 18ED 1401 CECGAN SLC HXBYT (1). ONE DECREMENT THE HEX BYTE 1E52 CO e@7 1063 1426 e SENSE TO SENSE SUBROUTINE 
1E21 fF2 e2 OA 1402 Jt TIXE EXIT IF BELOW 1 1F56 00 1ES6 1427 SNSPRM DC XL1I¢oe - 
1E2& 06 10 0000 1638 1403 TCBYT AZ w~% (2) 9 DECONE C1) INCREMENT THE DECEMAL COUNT 1E57 78 80 00 3428 TRN O(eXR1)6X*BO? TEST FOR HEADING PRINT 
1E2A CO 87 1£18 1404 e CECGAN 1ESA F2 GO 08 1429 JF FIRST JUMP SF NO 
1E2ZE CO 87 0000 1405 TIxe€ 8 =" EXIT 1ES5O0 CO 87 O21A 1430 6 PRINT TO PRINT HEADING 
1406 1E61 02 1E61 1431 oc XLi*oO2* FLAG 
1E32 00 1E272 1407 HXBYT OC KL1i *08# ‘ 1E62 36 IEEZ 1432 oc IL1*Sae LENGTH 
1€33 FO 1E33 1408 UNITS OC ciio¢ 1E63 1FCO 1E64 1433 DC AL 2 (SNSHED) MESSAGE ADDRESS 
1E34 FOF OF OF OF 1E38 1409 CECCKE OC CL5*00001 * . 14834 

1€65 C2 01 1FCE 1435 FIRST LA SNSWDO.XR1 POINT XR1 TO 1ST MESSAGE 
1E69 BD 95 00 1436 cur Os XR2)0.X*058 TEST FOR CORRECT DECQDE 

ee 1E6C F2 81 03 1427 JE SETORV _ JUMP IF VES 

A 1E6F FO 00 00 1438 HEL 0.0 

= 1E72 1439 SETORV EQU * 
. 2 1€72 38 66 10c8 1440 SBF. STATUS «xX* 868 RESET UNUSED EITS(0 2506} 
see tec a 1E76 OC 01 1ECB 1F45 31441 SETSNS MVC TSTRCV+3(2) eRCVOAD SET ADDRESS FOR RECEIVED. 
1E7C OC O1 1ED6 1F47 1442 MYC TSTEXP+3(2)sEXPSAD SET ADORESS FOR EXPECTED. 

- 1E82 C2 02 1F4A 1443 SETMSK La TSTMSK» XR 2 SET XR2 AS TEST POINTER. 

* 1E86 2C 00 1EC9 00 1446 mvc TSTRCV41(19200XR2) SET MASK FOR RECEIVED TEST 
1E8B 2C 00 1£09 00 1445 MVC TSTEXP41(1) e0€eXR2) SET MASK FOR EXPECTED TEST 
1E90 3C 40 1F87 1446 MVE RCVMSG.C® ¢ BLANK 
1E94 0C 34 IF8E 1F87 1447 MYC RCVMSG-1(53)e+RCVMSG PRINT AREA 
1E9A 3C 00 1F8E 1448 MVI REMEXP.0 RESET 
1ESE 3C 00 1F EF 1449 MVI REMRCV.0 REMEMBER BITS 
1EA2 7D 00 00 1450 cul OC eXR19 00 TEST FOR ZERO ENTRY 
1EAS £2 61 63 1451 JE STEP+3 JUMP IF YES 

, 1EAB 1C 00 iEDO 00 1452 mvc RCVMVC41 (1950 ( oXR1? SET MESSAGE LENGTH 

ue 1EAD 1C 00 1LEEO 00 1453 MVC EXOMVC+101)200eXR1) SET MESSAGE LENGTH 
1E682 1C 00 1EFE3 00 1454 wvc EXPMVC4+4(19s0CeXR1) SET MESSAGE OFFSET 
1E87 OF 00 1EE3 18ED 1455 ALC EXPMVC4+4(01) ONE INCREASE OFFSET ey 1 

, 1E@D OC 00 1ED3 1€E3 1456 MVC RCVMVC4+4(1)eEXPMVC4+4 SET MESSAGE CFFSET 
1EC3 1C 00 1F0A 00 1457 MYC STEP42 (19 e0C oXR1) SET INCREMENT VALUE 
1EC8 38 00 0000 14£8 TSTRCV TEN t-* 94-2 TEST A RECEIVED SENSE e®IT 

he 1ECC F2 So 09 1459 JF TSTEXP JUMP YF OFF 

1ECF 1C 18 1F87 OO 1460 RCVHVC MVC RCVMSG (25) 00€ oXR1) FUT MESSAGE IN RCVDe AREA 

L 1€04 3¢ FF 1F8F 1461 MvVI REMRCVs X*FFs SET REMEMBER REC VDe 

ee 1ED8 328 co 0000 1462 TSTEXF TeK a TEST AN EXPECTED SENSE 8IT 
1EOC F2 90 09 1463 JF *4+12 JUMP YF OFF 

, 1EOF 1C 18 1F6E 00 1464 EXPwVC MVC EXPMSG( 2532000» XR1) PUT MESSAGE IN EXPECTED AREA. 

ee 1€E4 3C FF IF 8E 1465 MVI REMEXP »X* FFE SEY REMEMBER EXPECTED. 
2EESB OD 00 1FSE 1FBF 1466 - CLO REMEXPC1)sREMRCV COMPARE RCV*D & EXPECTED 

fe IEEE F2 81 06 1467 JE #49 JUMP IF EQUAL 

t. 1EF1 OC 01 1F54@ 1F89 1468 MVC ERMAG~1(2) » TWOASK NOT EQUAL SO INSERT #8 
1EF7 OD 01 1FBF 1F95 . 1469 cic REMRCV(2).ZERO TEST FOR NEITHER ON 

’ 1EFD F2 #1 08 1470 JE STEP JUAP IF SO 

: (3 1471 
: 1FCO CO 87 O214 1472 e PRINT TO PRINT ONE LINE 
1 C 1FO4 o1 1FO4 1473 oc XL1°O18 FLAGS 
; 1FOS 36 1FOS 1474 _ o¢ IL1°S4@s LENGTH 
} 1FO6 1F 87 1FO?7 1475 oc AL2 (RCVMSG) MESSAGE ADDRESS 
beget 1FOS D2 01 19 1476 STEP LA 2€C oXR19OXRI STEP MESSAGE PCINTER 
€: 1F0B D2 01 02 1477 LA 2CeXR1)9oXR1 INCREASE POINTER BY 2 
1FOE 3D 01 1EC9 ~~ 1478 _ Cnr TSTRCV41 202 TEST FOR COMPLETION OF A GYTE 
Be eke aeee oeece Pik. a mae 10 ecee DATE 29AUG75 = 22DEC 7S PROG ID FCR=4 
_ cx NOs 827804. £27626 ' PAGE 13a 
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[BW MAINTENANCE DIAGNCSTIC FROGRAM PART NOo 4248215 TBM MAINTENANCE DEAGNOSTIC FROGRAM 





; PART NO» 4248216 
PAGE 14. ! PAGE 186A 
FC21 3340 IPL FORNAT FROGRAM =-MODEL 12 FC21 3340 IPL FCRMAT FROGRAM --MOCEL 12 
ERR LOC NBJECT CODE ADDR STMT SOURCE STATEMENT ERR LOC OBJECT CODE ADOR STMT SOURCE STATEMENT 
“yFlZ Fe el O7 1479 JE *4+30 JUMP IF FINI SHED wiTH ONE BYTE » 2046 DOCOESCS4AOF2 1524 
1F15 €2 02 O1 1480 LA 1 CeXR2) oXR2 NOT FINESHEDe STEP MASK POINTER 204c 15 204ac 152 oc rLie*2ie 
1f18 CO 87 1£86 1481 B SETMSK+4 TEST THE NEXT BIT : 204C E2CSCSD2Z40C3DED4 20E2 1526 Dc CL22*SEEK COMPLETE* ORIVE 3e 
1Fic OD O01 1ECB 1*485 1482 CLC TSTREV43C2 Ye RCVDAC TEST FOR BOTH BYTES TESTED DOES D7D3ICSESCSEESOCS 1526 
1f22 F2 01 10 1483 JNE LASTSP jump TO EXIT ROUTINE TF YES. 20EC COCSESCESOF2 1526 
- 1f25 S9€ O1 1€Ce8 18EC 1484 ALC TSTRCV43( 2) oONF INCREMENT RECEIVED ADDRESS 2063 15 2063 1527 oc wit2ie 
1F26 OF O01 1€08 1BED 1485 ALC TSTEXP+ 312) PONE INCREMENT EXPECTED ADDRESS 20646 €2CSC SD 240C3D6D4 2079 1528 oc CL22° SEEK COMPLETE > DRIVE 4° 
1E31 CO e@7 1£62 1486 5 SETMSK TEST NEXT BYTE ' 20EC D7C3CSESCSEBSO0C4 1628 
1487 2074 DOCSESCSS OFS 1528 
1F2S CO £7 O21A 1488 LASTSP B PRIKT TO SPACE ONLY - 1829 
1F39 16 1f39 1489 oc xL1°16* 207A 0000 2078 1520 pc xL2*°00° 
IF 2A OE O1 1F 43 1BF1 . 1490 ALC SENEXT 4302 De THREE STEP EXIT ADDRESS Mtg 207C 09 207C 1931 pc IL1°09* 
1F46 CO 87 0000 1491 SENEXT B a—* | EXIT 207D E2C3C 1DSS0CSDEES 2086 1532 oc CLIO* SCAN EQUALS 
1492 2085 C103 1532 
1F44 10C7 1F 45 1493 RCVDAD OC AL2 (STATUS~1? 2087 1§ 2087 1533 ec mie2i° 
1F46 1F 48 1f47 1494 EXPSAD DC AL2CEXPSNS-1) 2088 DTDODECTOICID440 2090 1534 oc CL22*PROGRAM LCAD-REMOVABLE * 
1F48 COCO 1Fag 1495 ExFSKS OC xL2°0° 2090 D3DECIC460CSC5D4 1534 
IF 4A 1496 TSTWSK ECU * tod 2098 DEESECIC2D3C£& 1634 
1F4A 80402010 1F4D 1497 pc xL4°80402010°* Bas 209E€ 05 20SE 1535 oc IL1°OS* 
1F4E 08040201 1FS3 1498 oc XL4*06080201 ° 209F DEDT40CS05C4 2004 1536 oc cLo6*oP ENDS 
1F52 00000000 1ES5 1499 ERMAG DC XL4a°o? 20AS 04 20AS 1537 oc TL2° 08° 
1F SE 60404040404 04040 YFE6E 100 ExewsGc DC ci2s* - : 20AK6 DSC06400607 20AA 1538 oc cLOs*NO oP® 
LESE 40406040404C4040 1500 20AB ©0000 20ac 1839 oc xXL2*00°* 
1FEE 4020404040404940 1500 © os 20AD0 0000 20aE 1540 oc xL2°00° 
1F6E 40 1500 A 20AF OC 2O0AF 1541 oc ILie12° 
1FEF 4040404040404040 IF ET 1501 RCVMSG DOC CLee? e 2OBO CIC&C1D7ESCEDS4AO 20BC 1542 oc CLIB' ADAPTER CHECK® 
1F 77 £040404040404040 2501 a 20e8 c3cecsc3s02 1542 
LETE 404C4040404C4040 1501 fae 1543 * 2 
1FfB7 40 2501 | 1544 # 
1Fee SCSC iFe9 1502 Twcask OC oe a 1545 * DISPLAY BUFFERS ° 
ee IFBA 0000 1E8B 1503 SEKFLG DC XL2 *00* | G 1546 * ———— eo 
1Fec 2800 FED 1504 ABUF pc AL2( BUFFER) { 1847 & 
1F8E 00 1FBE 1505 FEWEXP OC XL1*0O* a 20ec 1546 DISP1 EaQU w-t 
1FSF OO 1Fee 1506 REMRCV DC xL1°0° ik 2080 E2C BC 9E240D7D9D6 2046 1549 pc CL40° THIS PROGRAM ITS USED TO UPDATE CYL 0 wit® 
1F90 0000 tFS1 1507 oc xL2*00* *REQUIRED TO MAKE ZERO 6 BYTES : 20cs CTLECID4A40CSE240 1549 . 
1F92 0000 iFSG3 1508 oc xL2*00* a* a 20CD ESE2CEC4A0E3DESO 1549 
1FO4 0000 1ESS 1509 ZERO pc xL2°o* wes 20DS E4D7C4C1ESCE40C3 1549 
16°S6€ FFFF 1F9? 1510 WINCNE OC 1w2e-1° 2O0DD EBD3S40FOS0E6CIES 1549 
1F98 C5C9D94080404040 IF EF 1611 oc CL40° ERR EXPECTED SENSE RECET® ae 20ES CB40F 3F3F4F04004 210E 1550 DISFIA OC CL42*H 3340 MICRO-CODEC ID FAO), 3240 MINE MECRO® 
1FAO 40CSE7TO7TCSC3ESCS aS11 to 2OED COC3D9LE60C30EC4 1850 
1FAB C440E 2C SDEE2CS40 1611 i 20F5 CS4DC9C440CEC1 FO 1550 
1FEO 8040404040404040 a511 a 20FD SD6B40F 3F 3F 4F 040 1550 
IFBE 40404 CDSCSC3ICSCS 2511 to. 2105 Dacensc94o0D4scgcs 1850 
FCO ESCSC440E2CSDEE2 IFCD 1512 SNSHED OC CLI4* VED SENSE s | 2100 D9D6 1550 
1FC8 C54040408040 1812 Loe 210€ 1551 DISP1l EQU *-1 . 
iFCE 12 IFCE 1513 SNSWOO OC 111*16° tk, 210F 40D3D6C1 C4C50940 2136 1552 oc CL40* LOADERCID FAG) > AND THE 3340 IPL LOADER® j 
1FCE EADSCOEZSOC3CECS IFEI isis oc CLIG*UNIT CHECKe DRIVE 1° | 2117 C9C440C6C IFESDEB 1552 
1FD7 C3D26840C4C9C9ES 21514 | 211F &0C10SC440E3C8CS 1882 
1FDF CE&40F 1 1514 2127 40F 3F 3F4F040C907 1552 
1FE2 12 IFE2 1615 oc rL1°18* 212F D3460D2D6EC1 C4C509 1€52 
1FE3 EACSCSESZOCICRCS LEFS 1516 oc CLIG*UNIT CHECK. CRIVE 2° he 2137 4DC9C440CECIFTSD 215F 1553 D1SP1e DC CL41°C1D FAT)«¢ THESE PROCRAMS RESIDE ON THE CE® 
1FEB CZC2EB40C4CSCSES 1£16 I 212F 4840E3C 8CSE2C540 1553 
1FF3 C540F2 1516 i 2147 CTDSDECTDIC 104E2 1S8€3 
IFFE 12 1FF6 1517 cc 1i1¢°18°* Bos 214F a0D9CSE2C9C4S&CS40 1553 
1EE7 EACSCOEZSOCZCBCE 2009 1518 oc CLIG* UNIT CHECK, ORIVE 3° A, 21£7 DEDS40E 3CACESOCS 153 
LEFF C32DZEB840C4C9C9ES 1518 . { 215F CS 4853 
2007 CS40F 3 4516 io 215F 1554 DISF12 EGU 1 
200A 12 200A 1519 oe tr1"1e° ee 2160 S0CA&C1E3C140D4D6 21€8 1555 DISsPiIc DC CL41® DATA MOCULE IN TWO LOCATIONS. THESE ARE:° 
2008 Eapsc SESS O0C3SCaCS 2016 1520 oc CLIO*UNIT CHECKs CRIVE 4° : 2168 C4E&D3CS40C9D540 1555 
2013 C2ZO26840C4DSCSES 1820. bh 2170 ESEEDESOD3DEC SCI 1555 
2018 CS40F4 1520 te 2178 E3CODEDSE 24B40E3 iss5 
201 1§ 201 1521 oc wir2i¢ : 2180 C8CSE2CS40C109C5 1555 
POLE E2CSCSD240C30ED4 20546 2€22 oc CL22* SEEK COMPLETE. DRIVE 1° jo 2188 7A 1555 
2027 DTD3CSEZCSEB40CS 1522 » SS 2188 1556 ODISP13 EQU *-1 
202F CECSESCS4OF 2 1622 : 2189 404040F160C3E8D3 2180 1557 DISPIC DOC CL40* I1-CYLINDER 0 WHICH IS USED FOR TPL ® 
2035 15 2025 1623 pc IL1e2i¢ are 2191 CIDSCSCS5DSS0F040 1557 = 
2026 F2C5C £D24 0C 20604 2008 1524 oc cL22* SEEK COMPLETE. DRIVE 2° 7 ee 2199 E6C8C9CS CBS OCSE2 1557 
203E D7C3ICSE3SCEEBS OCS 1s24 2IA1 S0E 4E2C5C440CED6 1557 
' , ae 2 
DATE 29AUG75 Secects PROG 10 CATE 29AUG75 2ecec7s . PROG ID Fc2-1 a. ae. 
EC NQ. e@27804 e27e3€ PAGE EC NDe 827804 a27836 : oo ; ; PAGE L4Aa 
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TBW MAINTENANCE DIAGNOSTIC PROGRAM PART NOs 4248219 18M MAINTENANCE DIAGNOSTIC PROGRAM PART NO. 4248215 
PAGE 15° PAGE 15A 
FC21 3340 IPL FORMAT PROGRAM --MODEL 12 FC) 3340 IPL FCRMAT FROGRAM --WCOEL 12 
ERR LOC OBJECT COCE ADCR STMT SCURCE STATEMERT ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 
2149 ©0940C90702404040 1557 : 2365 C&EB40C 3E E034 OF 0 1577 
2180 1558 DISF14 EQU *-1 2360 40C6DS40E2C8CE40 1577 
2iB1l 404040F2600S0ED9 2108 1559 oc cL4o¢ 2Z-NCRMAL PROGRAM AREA (USED SY THIS P? 2378 C3CS40C4CIE3CI40 1577 
21B9 D4&C1034 007 09D6C7 1559 237D C&CEC4ESD IC ESOEE 1577 
21C1 DSC1D440C1D0SCEC1 159 23e5 ¢9 1577 
. 2109 S04DE4SE2CEC440C2 1559 2366 D3D3460C 2C54CE407 2387 1578 DISFZE OC CLSO°LL BE UPLATEC. ENTER THE DRIVE AND RESET THE HAL T.* 
21D1 Ee@SCE 2C8CSE240C7 1889 238E CA CIE3CSC44B40C5 1578 
2109 DOCECTD9CIDAAOE? 2207 1560 oc CLO7*°ROGRAM TC UPDATE CYLINDER O UNLESS RUNNING FROM ® 2396 DSE3CSD940E3CBCS 1578 
PLEL DO40E4D7C4 CI E3CS 1560 . 23GE 40CaDSCSESCE4NC) 1578 
PIES 40C 2E SD3BCSDEC4CS5 1560 23A6 CSC&&O0D9CSE2CSER 1578 
21F1l DOS40F040E4DED3C5 1560 23AE S40E3C8&C540C8CiDS is78 
ZLFO E2E24 0D9E40505C9 1560 2386 E348 1578 
2201 DSC740CEDSDEDS 1560 2368 1579 EOISP2 EGU * 
2208 S40C1IDZEB4OD3TEC1 2213 18€1 OISPIE OC CLi2® ALT LOADER.* 1580 
2210 C4cSDS4B 1561 ig 1580 
2214 1862 EDISP1 EQU * 7 1580 
1563 2387 1581 DISP31 EQU oj 
1563 2388 CSO0SE3C5SDS9460E2C8 230F 1582 oc CLAO0TENTER THE IDS(FAOs FAS» FA?) OF THE PROCS 
1563 23C0 CS40C9OC4E24CCE6C1 1582 
2213 15864 OISP21 EQU %—j] 23C8 FOEBSOCECIFEEB4SO 1582 
2214 C3CSA0C4C1E3CI40 2238 1565 Dc CL40"CE DATA MOOULE MUST RESICE ON BDle THE DA* , 2300 C6CIF75S0S0LECE40 16e2 
221C D4CEC4Ea4DsCS40D4S 1565 2308 E2CECS40070SD6C7 1582 
2224 ESEZES4OCSCSELCS 1S65 23E0 CSCID4E240E30640 2407 1583 DISF3A OC CL40°RAMS TO EE UPDATED THROUGH THE CPU DATA ? 
222C C&CS4&0DEDS40C4F1 1565 23BEB C2CS&0ESD7C4C1E3 1583 
2234 &B40E3CBCS540C4C1 1865 23F0 CEC440E 3C8DSD6E4 1583 
223C ESCI4ODSDECKE4D3 2263 1566 DISP2A DC CL40*TA MODULE TO SE UPDATED MAY RESTDE ON 01° 23FB C7CB40E3C8CS40C3 1583 
2244 CS540E 206400 2C £40 1566 2400 07©440C4C1E3C140 1583 
2240 EACTCACIESCECS4O 1566 2 2407 1&84 DISP32 EQU %-! 
2254 OSCIE &40N9SCSE2CO 1566 2408 EZEB6CSESC3CB8CEE2 2acF 1885 oc CL4A0* SWITCHES. CNE CR MCRE PROGRAMS MAY BE ENF \ 
225C C&CS40D6DE40C4F1 1566 . 2410 4840D6DSCS40D6D9 15385 
2263 1567 DISF22 EQU *-1 2418 &40C40EDSCE40D70S 1585 a 
22€4 DEDSAOC4F24B40C3 226A 1568 DC CL39°OR DZ. CYL O IS UPDATED BY FAQs FAGe OR* 2420 O6C7TD9C1I OS E24004 1585 
226C EBD340FO40CSE240 1568 2428 C1E840C 2CS40C5D5 1585 
2274 E4D7C4C1 E3CSC440 1568 2430 ESZCSD9CSC&4G0E3C8 2488 1586 DISP3B DC CLOL* TERED THROUGH THE DATA SWITCHES. WHEN THE® 
227C C2EB840C6C1FOEB SO 1568 2438 DSD6E4C7CB40E3 CB 1586 
2284 C6C1FE6RB4S0CED9 1568 2460 C540C4C 1E2C 140E2 1586 
228B 40CECIF7TS0EECBCS 2288 1569 CISF2E OC CL46* FA7 WHICH RESIDES IN THE NORMAL PROGRAM AREAS 2448 E6CSE3C3CBCSE2Z4E 1£86 
2293 C3BCcesocecse2csca 1569 24£0 40€&6Ca8CSD0S4CE3C8 1586 
2298 C5E2Z40COCS540E3CB 1569 24sa cs 1586 
22A3 C54005060904C103 1S€S9 2458 1587 DISF22 EQU *-1 
22AB 40070906C7 09C104 1569 : 2459 CEDSE3D9E 8400609 247E 1588 oc CL38* ENTRY OR ENTRIES HAVE BEEN COMPLETED E* 
2283 40€10SC5C140 1869 2461 40C505E309C9CSE2 1588 
2268 1570 DISP23 EQu e—1 2469 S0CB8CIESCS40C2C5 1588 
2289 4D060940C3C109C4 22E5 1571 oc CL45*(OR CARDS OR OISKETTE)» NOT CYL O FROM CE DA* 2471 CS05&£0C30E04D07D3 1588 
22C1 E240DED940C ACSE2 1871 2479 CSE3C5C440CS 1888 
22C9 C2ECSESE3CSSCEE4O 1871 ; 247F DSESCSD940FOCEC6 24A7 1589 DISF3IC OC CL41"°NTER OFFF IN THE DATA SWITCHES TO SIGNIFY® 
2201 DSDG6E 240C3E 80340 1571 2487 C640C9DS40E2C8CS 1589 
2209 FO40C60906048480C3 1s72 43 248F 20C4C1E3C140E2E6 1589 
22E1 €540C4C140 1572 5 2467 CSE3C3C BC SE240E3 1589 
22E6 ESCIOODAD6ECHEADS 230EF 1572 DISP2C DC CL41*TA MODULE > ENTER 01 OR D2 IN THE CPU DATA® 249F CE40E2C9CIDECSCE 1589 
22EE CS5S4B40C5DSE3C5D9 1572 te 24a7 £8 1589 
22FG &0C4FiS0D60S40C4 1672 24A7 1590 DISP24 ECU *-1 
22FE F240CSD540E3CeCS 1572 24A8 C3D6D40703C5E3CO 24CF 1591 oc CL40*COMPLETIONe NOTE THAT IF FAO 1S SELECTED? 
230€ £0C307E440C 4C 1E2 1572 2480 D60S4B40D05D6E3C5 1591 
230E C1 1572 2488 S0ESCBCIE3Z40C9OCE 1391 
230EF 1573 DISF24 ECU *-1 24CO0 40C6C1F040C9E240 1591 ‘ 
230F E2E6CSE3SC3CECSES 2234 1574 oc CL36*SWITCHES FCR THE ORIVE WITH THE DATA Me 24C8 E2C £0 2CSC 32E 2C C4 1591 
2317 S0C6D6D940E3C8CS 1574 2400 6B40D70906C709C1 24FB 1592 DISP30 DC CL44*, PROGRAM C17 IS USED IN THE UPDATE PROCESS.® 
231F 40C40SCSE SC ESCEE 1574 24D8 D440C3F1F740CSE2 1592 
2327 COE3CBSO0E3BCE8CS40 1574 24EO 40E4E2CSC440CS05 1592 
232F C4C1€3C140D4 1574 2458 20F3CACS40E4C7C4 1592 
2335 C6C4ESD4CE40E3D6 238C 1575 DISP2D OC CL40'COULE TO BE UPDATED. NOTE THAT IF O1 IS * 24FO CIE3SCS4OD7D9D06C3 1592 
2320 40C2CS40E407C4C1 1575 pes 24F8 C5E2E24B 1592 
2345 E2C5C 4484 00S5D6E 3 1575 7 ee 24F8 1593 DISe3S EQU e-} 
2340 CS40E3C8C1E280C9 1575 24FC ES6CBCSDS4009E4D5 2528 1594 DC CL45*WHEN PUNNING FROM ALT LOADER. CONTRCL STORE w* 
2385 C640C4&F140C9E240 1575 : 2504 CSCODSC7aA0CEDNSDE 1594 ‘oad 
228C 1£76 DIsP25 EOU e-] ies 250C D#40CI03E34003C6 18948 
235D E2C7CSC3C9CECOCS 2385 1577 oc CL4O1*°SPECIFIEDs CYL O GN THE CE DATA MODULE wI* 2514 C1C8CS0S6B40C20E 1594 
es 
‘ ‘ + . aa 
DATE 29AUG 75 22DEC75 PROG 10 FC2-1 DATE 29 aUG7S 22ceECcTs PROG ID FC2-1 
EC NOe 827804 827836 PAGE 1s , EC NOs 827804 82783€ . PAGE 1SA 
sik) 








IBM MAINTENANCE DIAGNCSTIC FROGRAM 


PART NOe 4248219 IEW MAINTENANCE DIAGNOSTIC PROGRAM PART NOs 4248219 
PAGE 16 | PAGE 16A 
i 
FC21 3340 IPL FORMAT FROGRAM --MODEL 12 FC21 3340 IPL FORMAT PROGRAM --WODEL 12 
ERR LOC OBJECT CODE ADOR STMT SCURCE STATEMENT ERR LOC OBVECT CODE ADDR STMT SOURCE STATEMENT 
251C DSE3D9D6D340E2E3 1596 i 1615 * OCPE 
2524 D6DSC E40EE 1594 : 1616 
2529 COD3D340C2C540D3 2581 1595 tISP3E DC CL41*ILL BE LOADED IN ADDITION TO THE UPDATING® Cat, 1616 
25231 DECIC4CEC4ancsDs 1595 eh 3617 ee eee ee ane 
2538S A40CIC4C4CSE2ZCSDE 15S5 1618 * STANDARD UA * 
- 2541 CS40E3D640E3C8CS 1595 , ( 31619 RHKEKKKEKKRKEKESESVHKSES KKH KSVHS SKS RSS 
2545 40€4D7C4C1E3C9DE 1595 1s oe 1620 HALT ty ee te 
2551 C7 1595 ' 0216 1621 LINK U 
2551 1596 DISF36 EQU *-1 a O21A 1622 PRINT EQU xXt2TA® 
2SE2 DEC6ACCECIFC4B40 2E7A 1597 DISP3F DC Ci41°OF FAO. ENTER THE IDS AND RESET THE HALT.® | XK 0212 1623 TEST EQU x*212¢ 
255a CSOSE3C50940E3C8 1597 O21E 1624 UNFACK EQu x °*21E° 
2EE2 CS40CSC4E240C1D5 1597 Le 0020 1625 PIAR EQU x*20¢ PROGRAM INSTRUCTION ADDRESS REGI 
256A C44009C5E2C5E340 1597 vee 0004 1626 PSK EQU) xX*048 
2572 E3CB8CS540C8C1D2E3 1597 0001 1627 xRt Eau 01 
257A 48 1597 a 0002 1628 xR2 EQL 02 
2£78 1698 EDISP3 FQU + i Suc 0008 1629 ARR FOU x*0B88 
1599 i 00CO 1630 IAR1 equ x*cor 
1599 i 0084 1631 IARS EQU x*Bae 
257A 1600 DISP4 EQU *-1 we 0020 1632 P1IrAR EQU x*20* 
257B E3CB8CS40C6D6D3D3 25A2 1601 oc CL40*THE FOLLOWING PROGRAMS WILL BE UPDATED. * { 0200 1633 SYSTEM EQU 512 
2583 DEEECSD5SC746C07D9 1601 Ee 0226 1634 PACK EQU X*226* 
2P5BB COCTLCOCIDSEZ40E6 1601 a? ; 022A 1635 LGAC EQU x*22A 
2562 CSD3D340C2CS40E4 1601 0080 1636 BITO EQU x*B0* 
259E C7C4C1E3C5C44B40 1601 eC 0040 1637 BIT1 EoU x*ao# 
2S5A3 ESCSDOCOCEEB40E3 25CA 1602 CISP4A DC CL40*VERIFY THAT THE EC LEVELS ARE CORRECT. * AA! 0020 1638 BIT2 EQU x*208 
25A8 CeC iE 240E3C8CS40 1602 i 0010 1639 BITS ‘Eau x*108 
2583 CSC340C3C5EECEDS 1602 ¢ C008 1640 BITS EOL x08" 
2588 E240C109C540C3D6 1602 te? 0006 1641 BITS EQU xX*tO4® 
25C2 COCSCECZE 24B 4046 1602 0002 1642 BIT6 EQU xX*028 
2S5CA 1603 DISF41 EQU ¥*-1 . or, 0001 1643 BIT? ESU x*O1# 
oe 25CB DSCSE2CSE340E3C8 25F2 1604 DISF4B DC CL40*RESET THE HALT SO UPDATES MAY BE DONE. * ee 0208 1644 SBYTEO EQU Xx*o208° suid 4 — 
2503 C540C8C1DIEZ40E2 1604 O20A 1645 SBYTE2 EGL xX*'O20A8 - SENSE SWITCH 8YT 
2508 D640F407C4C1 E3C5 1604 Lg O208 1646 SBYTES EQU x*0208° SENSE SWITCH BYTE 3 
25E72 E240D4C1EB40C2CE 1604 € 0020 1647 SSwo2 EQU  xXx*20¢ MANUAL INTERVENTION 
25FE 40C4D6D5C54E4040 1604 0008 1648 sswos ECU x*Oe BYPASS NOCN-ERROR PRINTING COCP) 
25F2 1605 DISF42 ECU ¥*-1 fc. 0001 1649 SSwo? EQU xX*O18 LOAD AND GO (OCP? 
25F3 S40CSCA404604 ODED? 261A 1606 DISP4C DC CLaot 1D OLE EC NEW EC * A 0080 1650 sswi0 EGU x*B0" 
25FB C440C5C3408040D05 1606 0040 1651 SSwWi1 EQU x*aQF 
2602 CSE640C5C 3404040 1606 4 0020 1652 Ssswi2 EQU x?20° 
260B 40460404040404040 1606 0010 16583 Sswi3 EQU X*10* 
2613 4040404040404040 1606 0008 1654 sswi4 EQU x*0e8* 
261A 1607 DISP43 EQU ¥*-1 Spe 0004 1655 sswiS EGU K*O4* 
2618 4040404040404040 2642 1608 DISP4D DC cL4or ® ' €: 0002 16£6 SSw16 EQU  x*O2* 
2622 404040646040404040 1608 : 0001 1657 SSwi7? EQU x*O1® 
262B 4040408040404040 1608 | C o00e0 1668 sswie EQu x*s80* : 
2633 4040404060404040 1608 | it 0040 1659 Ssswi9 EQU xXx*408 
2638 4040404040404040 1608 : 0020 1660 SSwiA EQU Xx*20° 
2€42 1609 DISP44 EQU *-1 | CQ C001 1661 SSse2F EQU x*oO1* 
2643 4040404040404080 266A 1610 DISF4E DC CL40° a 1 we 1662 
264B 4040404040404040 1610 0879 1663 CRTFLG ECU x*0879# FLAG BYTE TO INDICATE MICROCODE 
2653 40404040404046040 1610 { CG . 0000 1664 Li FOU. 00 
2EEB 4040404040404040 1610 jad 0028 1665 L2 fou. 40 
2663 4040404040404040 1610 os CO£O0 1666 L3 EQU 80 
266A 1611 DISF4S EQuU *-1 | CG 0078 1667 L4 e0u 120 
266B 4040404040404040 2€S2 1622 CISP4F DC ciao * 1 AA OOAO 1668 LS ecu 160 
2673 4040404040404040 1612 ; 00CB 1669 LE Ecu 200 
2678 60404040404C64040 1612 es OOFO 1670 L? equ 240 
2683 4084046060404040406 1612 ; 0118 1671 LB EOL 280 
2688 408040404 0404040 1612 0140 1672 LS EQuU 320 
2693 1613 EDISP4 ECU * i C 0168 1673 110 FQU 360 
| Ne 0190 1674 Lil EQu 400 
0188 1675 L12 EQU 440 
1 em, 1676 -_ 
| & 1677 *** END OF EXPANSICN ## 
ie 
iG 
‘ | re fs Berets yeas Joo ee 
OATE 29 AUGTS 22DEC7S , PROG ID . FC2-1; DATE 29AUGTS 22Dec7s _ i Mie PROG ID FC2-1 
€C NOe 627804 8278636 a _ . _ PAGE 16: eF NO. 827804 827836 os PAGE I6A 
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ITEM MAINTENANCE DIAGNOSTIC PROGRAM 


FCc21 3340 IPL FORMAT PROGRAM 


ERR LOC OBJECT CODE ADOR STMT 
1679 

1680 

1681 

1682 

1683 

2800 1684 
2800 1685 

2800 2CFF 1686 
2D00 1687 

0000 1688 


DATE 29 AUGTS 220EC7s 
EC NOw 827804 827836 


--WQDEL 12 


SOURCE STATEMENT 


* 

* 

* 

* 

* 
GRG 

BUFFER EQU 
os 

EBUF EQU 
END 





WRITE EGUFFER 


x*2800* 
* 
§cL256 
* 


Fc2 


EHEEARRAKEAEABKAEBRREE 


PART NOe 
PAGE 


PROG I0 
PAGE 


4248219 


17 


FC2-1 


17 


cease es ee 


“oe 
. 


om. 


1B¥ MAINTENANCE DIAGNOSTIC PROGRAM 


FCc21 


svYMBOL 


ABFR4&7 
ABUF 
act 
ADIAG 
ALTADR 
AMOPTD 
ARR 


ATHESY 
A THE XT 
ATTSSY 


Ace 
A19 
Ao? 
BITO 
Birt 
Bite 
BITS. 
BITs 
BITS 
BITé6 
e1T7 
BUFERE 
BUFFAO 
BUFFAG 
BUFFA7 
BUFFER 
BUFF 1a 
GUFF2O 
BUFR47 
CAL12 
C ARREG 
CARSAV 
CKAGN 
CKCOMA 
CKDR# 
CKER 
CKFAO 
CKIDS 
Ccxrosi 
CKNXT 
CKPRT 
CKXX 
cxo0o 
cLw 
<cL3 
CMPRES 
CV¥PRIN 
CMPOO 
cMeol 
céPO02 
CN TUE 
ccm 
CCMPUT 
CcomMP O00 
caoMmPol 
COMRTN 
COUNT 


cPw 
CRYFLG 
cvD 

cz 


>Prrprrarryrrnr pb pAnNANANNAAN ANAvryd PRP > PY yp Arvrvrrprp «4 


Pp rrrPrprrrprePr ye PprrrrrPrpr bp 


»pPnAyp 


3340 IPL FCRMAT PROGRAM 


LEN VALUE 
O02 168F 
eco2 iF8C 
0oo3 18Ce 
002 103£ 
002 17¢5 
oo2 OAIE 
001 ooo0e 
004 1C€4S 
004 1C55 
O04 i1AE6 
oo1 1845 
004 164A 
014 #1854 
oo: 90080 
001 0040 
oo1 90020 
coi 0010 
001 0008 
oci 9004 
oo1 0002 
001 0001 
00, 2A94 
001 3c00 
001 3294 
001 3000 
oO: 2800 
ecc2 16A4F 
oo2 16861 
001 146€E 
001 103€ 
001 2a20 
oo: 16C3 
005 OBF2 
004 OFf81 
00S OABE 
002 1708 
00S ODA4 
eos Oo8SsD 
eos oBs5 
003 OC6A 
002 1137 
003 1300 
oc3 occ? 
oo2 17CB 
oo2 17C7 
004 1362 
008 i13FA 
003 139E 
003 13A7 
004 13Cc0 
001 oc7o 
001 OAI1Y9 
004 13FE 
Coe 140C 
006 1410 
004 142F 
002 144C 
oo2 17CF 
oo1 oO8s7s 
004 10€1 
oo3 :8a8s 
29AUG75 
827804 


DEFN 


1001 
1504 
1048 
1343 
1033 
0022 
1€2S 


1243 
1247 
1202 


1132 
21134 
1136 
1636 
1627 
1638 
1E€2¢S 
1€40 
1641 

1642 
1643 
10€7 
1070 
1069 
10€8 
1€85 
1017 
1018 
0993 
0612 
1071 
1030 
02133 
0180 
0102 
1043 
0382 
o1és 
0163 
0251 

0704 
0866 
0290 
1036 
1034 
os20 
0947 
0923 
Oc2é 
0933 
0261 

0019 
09s1 
ose4 
o9sa 
09é€2 
os77 


1038 
1663 
1228S 
1170 


22DEC 75 
827636 


--MODEL 12 


REFERENCES 

e275 0853 

0294 0733 

0505 1305 

of22 0772 

09620 OSf1 

1257 1258+ 
13SS 1419 

1104 

1243% 

0280 0329S 

1108 1210 

1127 

1126 

o727% O728% 
0819 Oo8iss 
0454 0727 

0719 0720 

0719% 0720% 
049% 0807 

oosos oe1e& 

o28s 0317* 
oss? 

o722e¢ 

0513 05174 
o256 

0166 

0106 

OEéS5 

0357 0359 

0169 

0146* 0189% 
0222 0230 

o701 

0879 

0316 

Of7E* OF£82 

o555*%* oss8 

04s0 

0920* 

0928 

os24 

0945 

0253 O25 

0479) 60485% 
0455 

0S57 

osss 

oss1* 

O2846* 13154 
0616* 06184 
osses osss 

OS91* O€328 
1161 


PART NOe 42468219 


PAGE 


1204 1227 1228* 1229 1243 124428 1245 


1257 1258* 1359 1389% 12906 13¢1# 1392 13923 13948 


CRCSS-REFERENCE | 
0684 

c7ss 

i1¢79 1102 1147 
1259 

0510 0535 0746 
o729% 

1617 1023€ 

o728 0729 

oss7 1272 1£04 
021€@ 0218% O8€4 


0653% 0676 0722 


0916 


0245 


06142 0617 


0756 0778 O800 0812 0824 osse 37897 


08s8o* 0881 O0881% 1001 


0SS57* 085S* O&67% O572% O57S 0581% 0587+% 0591 05962 0599 
O€22% 0€28% 0631 


0960 
O62 


0961 
Oeste 


0862* CBTEX 09224 0927% C931* 09644 09538 


PROG 1D 
PaGE 


LTA 


“FC2=-1 
17a 





y 





IBM MAINTENANCE DIAGNOSTIC PROGRAN 


PART NOe 42498215 1@M MAINTENANCE DIAGNOSTIC PROGRAM PART NOe 4248219 
PAGE 18 PAGE 18a 
FC21 3340 IPL FCRWAT FROGFAM --wCCEt 12 | fecal 3240 IPL FORMAT PROGRAM --MODEL 12 
CROSS-REFERENCE CROSS-REFERENCE | 
SYMBOL T LEN VALUE DEFN REFERENCES SYMBOL T LEN VALUE OEFN REFERENCES 
C4 £004 18C9 1180 1171 DOPACK 4 006 OBBE 0196 0159 
poOCF A 001 144F 0979 0270 0279 0387 0398 0737 O745 0755 0848 o8S7 O888 0896 DOWRT A 004 118E 0731 0724 
DDOF A 002 145A 0SE7 ORID A001 oscs 0198 0196* 
: CECGAN A 006 1£€1€ 1401 1404 DRIVE# A 002 1468 0991 0097* 0102 0196 
DECONE A 005 1638 1409 1403 DRIVES A OO1 16A2 1007 0101 
peECI A 004 1440 OoSé8 O44e€ DSKEXT A 004 1B8E7 11€7 1147% 1149 11508 118€% 
DEVERPR A 904 1C€59 1257 0272 0281 0389 04C0 0528 O053€ O759 0747 O787 O770 0779 0792 DEPUPT A 004 137D 0908 0901 
0201 0813 0825 0850 0859 0890 06896 ovo2 A 006 107€ 0€27 0625 0620 
DEVEXT £004 1C6C 1262 129% 12€S EaATT A 004 1830 1121 11028 110€ 
OFCR a 002 10CC 1373 1209*% 1214 EBSY A 004 1AE2 1098 1079% 1082 
DFOR A 002 DCA 1372 0275* 0264% 0505* 0522* 0733* 0773* O795* 0807* 0818* 0853* 0884* 1215 EPUF A001 2000 1687 
1305* EC A 003 1A8F 1063 0229 
DIAG A ool 1D2& 1341 0515 0852 1315 1342 EDISP1 A 001 2214 °° 15862 
DISPER A 004 OBEF 0173 EDISP2 A 001 2388 1579 
DISP1 A 0O1 20eC 1548 0053 EDISP2? A 001 2578 1568 
DISP1A A 042 210€ 1550 0053 0084 EDISP4 A 001 2693 1€13 
DISP18 A041 215F 15€3 oof7 cose ELEVEN A 002 1460 0992 
DISP1C A O41 21868 1555 0061 0062 ENDFA?7 C 001 3293 1073 0721 
DISP1D A 0406 2180 1&7 Q0ES O0C6E ERMAG A 004 1F5S 1499 146e*% 
DISPIE A O12 2213 1561 0069 0070 ERRCTR A001 1835 1123 
DISP11 A 001 210& 1551 0057 ERROR A OLL 1468 0988 0110 0176 
DISP12 A 0O' 21EF 1864 0061 FR6255 A 026 ILAE1 1097 10S0 
DISP12 A 001 21868 1556 0065 EREZ7TE A O24 182F 1119 1112 
DISP14 A 001 2180 1556 0069 EXPMSG A 025 I1F6E 1£00 1464% 
DISPZA A040 2263 1566 0072 0074 EXPMVC A 00S 1EDF 1464 1453% 14548 14858 145€ 
DISP2B A 046 2288 1569 0077 o078 EXPSAD A 002 1F47 1494 1442 
DISP2C A 041 230E 1572 0081 O08 EXPSNS A002 1F49) 1495 1422% 1464 
piIsP2D A040 235C 1875 008s 0066 : FAO A 002 16A6 1012 0213 0358 0382 
ee ~=— ee DI SPBE A OF0 2387 1578 0089 o0cso  FAOID A 002 OAZO 0022 ee 
PISP2i A 001 2213 18646 0073 FAG A002 16A8 1013 0215 0404 
CISP22 4 001 2263 15867 0077 FA? A 002 16AA_ 1014 0500 
DIgP22 A 001 2288 1570 0081 . FC2 a 0Ci 0000 ocos 1688 
D1ise24 A001 230€ 1€72 o0es FF C 001 OOFF 90973 4151 0180 o18€ 
DISP25 A 001 2235C 1576 0089 FFF A 002 1488 0972 0158 
DISPZA A 040 2407 18E2 012¢ 0121 . FIRST A004 1£65 1435 1429 
DISP3E £041 2458 1886 0124 012 FIVE A 002 16AD 1016 
DISP3C A O41 24A7 1885 0128 0129 - FORMOL A 006 OFS7T 0446 0444 0457 
DISP3D A 044 24FB 1&62 0132 0132 -  ¢oRMO2 A O0C6 OFBO 456 0461 
OYSPBE A 041 2551 1595 0136 0127 FORTY A 002 1469 0990 
DISP3F A 041 257A 1597 0140 0141 . . FOR8O A 002 1467 0989 
O1SP31 A O01 2387 1581 0120 %, FOUR A002 10¢C6 1370 1186 1228 1244 12E€ 
O1SP32 A 001 2407 1584 0124 FROBYT A 006 1E£0F 1399 1396*% 
DISP33 A 001 245€ 158687 0128 _» FROM A 006 10FD 1356 1390 
DISP24 A001 24a7 18690 0132 ‘ { seroma 4002 1CFEB 1324 1320 : 
DISP3E A 001 24FB 1593 0136 ce A 00& OASA OOS1 0046 
DISP36 A OO1 25651 1596 0140 . GWRITE A 004 OFEE 0464 048s 
DISP4 A 001 257A 1600 0204% 0205 0205% 0288 0224 ; AO HALT ¢ 001 0222 1620 0091 0111 0152 ©0177 0190 0237 03546 0373 0414 943€ 0476 1093 
DISP4A A 040 25CA_ 1602 0324 0325 : 1115 1228€ 1300 1333 
DISP4e A040 25F2 1604 0328 0229 4 HARREG C 001 2A22 1072 0723% 
DISP4c A 040 261A 1606 0332 0332 "3 waRSav A OO1 16C2 1029 0514% Of18% 0654% 0658* 0660% 0661* OGEE* 0691 0723 
DISP4D A 060 2642 1€CE 0336 0227 : HDFAO A 004 OC4&D 0241 0214 
DISP4E £ 040 266A 1610 0240 0341 («HDF A6 «6A 004 OCSD 0247 0216 
DISP4F A 040 2692 1612 03244 0345 1) HOFA7T A 004 OCO2 0217 
DISP41 A001 25CA 1602 0228 é ; HDRFAG A 001 256E O9Ss 0201% 0244% 0287 C4S0*% 0863 
DISP42 A 001 25F2 1605 0332 i  - HDRFAG A 001 15CE 0997 0202* 0260% 04452 
DISP43 A 001i 261A 1607 0336 / 4. HDRFA7 A OO1 162E 0999 0203* 0221% 0224% 0225* 0226% 0227* 0228 0229% 0422 
OISP44 A 001 2642 1609 0340 : HERE A 004 1080 0o€58 0656 
DISP4S A 001 266A 1611 0344 ' .. HEREL A 004 1005 0665 0663 
DIvVO2 A 006 OFFE OS8E o5e4 058s > ALS) HH A 002 1686 1021 oe80E* 
DIVI2 A 006 OFCa& OS71 0569 0874 : HUW A 002 17CD 1037 O0576* 0604 
DOALT A 004 1222 O787 0783 ' . HU3 A 002 17¢€9 1035 O556* 0562 0563 0618* 0624 0627% O29 e638 
COFAO A 001 OCE9B 0463 0282 i ti Hew A 002 17D1 = 1039 0597% 0598* 0604% OE37# 0640% 0660 0662 
OOFAG6 A 001 OF26 0428 0405 HxBYT A 001 1632 1407 1399% 1401% 
poLOOP A 008 OFEC OS546 | o716€ : : , ge, TAR ¢ 001 oO0Cco 1630 ee 
DCNE A001 1244 0871 0760 0827 | ee CARS C001 0084 1671 
DONEL £004 1287 0836 0835 ‘ IcY¥L A 004 1120 0702 0699 
! | 2) : J : 
CATE 29AUG7S 22DEC 7S PROG ID FC2-1 CATE 29AUG7S 22DEC7S a PROG ID FC2-1 
EC NO. 827604 . 827836 - PAGE 18° ...—C NO. 827804 B27836 Pace 186A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM PART NO- 
‘ PAGE 
FC21 3240 IPL FORMAT PROGRAM --MODEL 12 
CROSS-REF ERENCE 
SYMBOL T LEN VALUE DEFN REFERENCES 
Ics a 001 1645 1011 0164 
IDSEQ A OOS 143C OSE7 0442 04466% 0449 
INREC C001 0880 0976 0221 0244 0250 09422 0442 0448 0449 0451 0453 08456% 0921 0929 
0946% 0952% 0954% 0958 
10 2 002 1442 O9ES Css2 
¥1 A 002 1444 0970 0927 0944 0954 
13 A 002 148€ OS71 0456 
1384 £002 1434 0963 ossé 
LASTSP A 094 1F35 1488 1483 
LCTRL A 004 1¢€23 1214 1152" 11623% 1172% 21181% 
LDATA A 006 1C€27 1215 1154* 1165% 11758 11828 
LORID A 002 OAIC 0021 
LEAO A 006 OEB7 0479 O4és 
LFA6 & 004 OF3D 0439 0430 
LFA? A G04 OE 07 O417 oace 
LINK € 001 0216 1621 
LOAD C001 O22A 1635 0218 0241 O247 O417 0423 0435 C447 0480 0902 0912 
ul € 00} 0000 16€4 
L190 C001 0:68 1673 
Lil € 001 0190 1676 
L12 ¢ 001 0168 1€75 
L2 Cc 0¢l 0028 1665 
L2 € 001 OO£O 16€€ 
L4 c 001 OO78 1667 
Ls C 001 OGAO 1668 
L6 ¢ 001 oocs 1669 
L? Cc 001 OOFO 18670 
Ls € 001 O11 1671 ‘ 
LS ¢€ O01 0140 1672 
MGFA7 A 039 1967 1053 0412 
MGNOTE 4 040 LA0E 1057 03€3 
MG1 A 041 1469 1060 0368 
“G2 A O22 1085 10€1 0372 
WINONE A 002 1F97 1510 
MODBIT A 001 IBF2 1193 1151% 11628 11724 1180% 1208 1211 1260 1262 
MOD} A 006 1286 0819 0047% 0048 
MSGacP 2 013 1088 1345 1283 
MSGC17 A 038 1SE6 1056 0475 
MSGFAO £050 19€0 1085 0470 
MSGFA6 A 039 198€ 1054 0434 
MSGFA7 A 038 1902 10£0 0235 
MSGSNS A045 1078 1246 1316 
¥SGSN1 A 025 1091 1347 1331 
MSGW A 00S 1854 1046 O£4? 
MSGWwP A OOL 18¢C8 1047 0715 
MSG3 A 004 170C 1044 0846 
"'MSG3P A001 18850 1048 O711 
MULT10 4 006 1054 0617 0619 
MULT12 A 006 1024 os8Se 0600 
MULTS0 A 006 OFS6 OFf58 0560 
N A 001 1058 c986 0266* 0393 0732% O751% 0844% 08832 
NADAP A 004 1C9F 1290 1277 
NEG1 A 002 1DC4& 1369 1084 1107 
NN A O01 1686 1025 oecs* 08174 
NODEF A 002 16C1 1028 0784 
NOTOEF A 001 11£8 0718 0539 0671 
NOTFND A 004 0C39 0232 
NUNCK #@ 004 1CBO 1297 1291 
NXTID A 004 138A 0515 0837 
AXTONE A 004 OF7T8 0552 0543 O707 
OBYTE A 006 10A7 0653 0605 
OK & 002 OAE2 01314 0103 
OKCTR A 001 1834 1122 
OLDEC A 001 169A 1004 0294¢ 0307 
ONE 4003 18€D 1188 O31 OC£S5S CcS7T2 O£47 O5SS 0618 0628 0700 0703 0706 o878 1150 
1358 1389 1394 1401 1455 1484 1485 
DATE 29A8UG 75 22DEC75 PROG ID 
EC NO. 2827604 827836 
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IGM MAINTENANCE OTAGNOSTIC PROGRAM 


FC21 3340 IPL FORMAT PROGRAM --WODEL 12 
CROSS-REFERENCE | 
SYMBOL TtLEN VALUE DEFN REFERENCES 
OTCRZ Aa 006 1€09 1398 1393% 
DUTREC A O01 16C4 1031 0584% 06545* 0555 0556 0614 0615 06680 06695 
0784% 07SC 0806 0930 0946 1033 
PACK C 00: 0226 1634 
PCOUNT A 001 1706 1042 0S48*% CT06* 
PIAR C001 0020 1625 
PLUS2 A 001 144A 0975 0185 0188 0189 
PN A003 1A8C 1062 0228 
PRINT €C 001 O21A 1622 0051 0055 0059 0062 0067 0071 OO7F OO7S 
0122 0126 0130 0134 0138 O173 0232 0322 
0242 02348 0260 O2€& 0265 0409 0431 0467 
1087 1109 1278 1328 1430 «1472 «11688 
PRYSNS A004 1639 1419 1283 1262 1267 
PSR C 001 0004 1626 
P1TAR C€ 001 0020 1€22 
R A001 1454 09283 0265* 0262% 0721% 0750% C843% 08824 
RCVDAD A 002 1F45 1463 1441 1482 
PCVMSG A 025 1F87 1501 1446% 1647 1447% 146€0% 1475 
RcvMvc 4.005 1ECF 1460 1452% 1456 
RDDIAG A 001 1€78 1273 1268 
ROFCF AOO1l 1007 1383 0509 OC£24 Of28 O777 +0782 O799 1309 
ROIAG A 006 1CC1 1305 1295 
ROPASS A 001 1837 112€ 
READA A£CO2 1839 1126 
-RECLSW A 003 i836 1126 
REMEXP A O01 I1F8E 1£€0& 1448% 14658 1466 
REMRCV £ 001 1F8F 1506 14469% 1461% 1466 1465 
REPET A O03 I1CE7 1318 1327 
RKDN A00S 10C2 1368 
RR A 001 1687 1022 0804% 08164 
RIN1i A 001 OAZA 0037 0015 
SAVPTR £002 144E 0978 0254* 0403 049 0832 09158 
SAVXR1 A 004 1019 1337 1333 
SAVXR2 A 004 1010 1238 1314s 
SAV1 A 002 1693 1003 0303% 0223 
SBYTEC C 0C1 0208 1644 
» SBYTE2 C 001 O20A 1645 
.. SBYTE3 C 001 O20B 1646 
SDISP4 A 002 1691 1002 O286% 0204 0310 
SEKeESY A004 1C31 1227 1081 
SEKFLG A 002 1F8B 1503 
sets A004 185F 1149 
SELDSK A 004 1858 1147 0197 
SENEXT A 004 1F40 1491 1419% 1420 14602 
SENSE A004 1093 1387 1274 1426 
SETDRV A 001 1£72 1439 1437 
. SETMSK A 004 1682 1443 1481 1486 
SETRUN A 006 1861 1186 1158 1166 117e 
- SETSNS A 006 1676 1441 
SETWRT A004 12850 0804 0785 
$10 A 003 1¢€28 1216 1205* 1207% 1208% 312108 1213 
SKBUSY A 004 1A96 1079 0271 0288 0O£27 O738 0769 O793 0849 o889 
SKCYLO A 006 OF26 0522 0516 
SKDVO2 A 006 108C 0621 0626 
SKDO02 4006 1014 0591 0565 
SKD12 A 006 OFDA 0575 0570 
SKMSG A 004 OD65 0353 0210 
SKMVC A003 OD00 0313 0291 
SKMVC1 A 002 1321 0876 0867 
SNS A004 10866 13635 12608 12€1% 13649 
. SNSEXT A 004 108A 1366 1204% 1206€ 1359% 
SNSHED A 014 1FCD 1812 1433 
SASMOV A 006 1D0A5 1361 13572 
. SNSPRM A 001 1656 1427 14218 1424 
“SNSWOO A 001 1FCE 21813 1435 
SPUT a 003 Oaoc 0017 
DATE 29AUG75 22DEC 75 
EC NO. 827804 827836 
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IBM MAINTENANCE OLAGNOSTIC PROGRAM PART NGe 4246215 IBM MAINTENANCE DY AGNOSTIC FROGRAM 


, PART NOs 4248219 
PAGE 20. i. PAGE 20a 
FC21 3340 IPL FCRMAT EROGRAN --NCCEL 12 ~~. FC21 3340 IPL FCRMAT PROGRAM --MODEt 12 
CROSS-REFERENCE CRCOSS-REFERENCE 
tale 
SYMBOL T LEN VALUE DEFN REFERENCES , | " SYMBOL T LEN VALUE CEFN REFERENCES 
sswo2 € 001 0020 1647 7 RI CooL ooo: 1627 0044*% 0045 0101* 0102 0104 0104* 0105 0164* 0165 0167 0167% 0168 
SSwos Cc 001 0008 1648 a 0212* 0213 0215 0251 O281* 0252 0254 O0285* 0266 C2872 0290 0292 
sswo7 C 001 oOO001 16€4¢ 0295 0297 0302 0204* 020€ 0307 0308 0309 0309% 0310 O311* 0312 
- SSWiA C001 0020 1660 bee O212*® 0253% 0354 0258 0382 0403* 0404 0454* 0458 0259 0459* 04998 
ssw1i0 ¢ 001 00680 1650 fat 0500 0S4€# O£72 O0€82 OC€8&S O068E* DEBS 0704 0704% 0832* 0833 0833*% 
SSW11 € 001 GOcO 16€£1 : 0834 0836 O863% 0866 0868 0870 0872 O876 O87E* 091& 0921% 0923 
SSwl2 ¢ 001 0020 1652 rg 0925 0$2€ OS2E* 0S2S* 0923 0932 0934 0934 0935 0935 0936 0936 
SSwi3 ¢ O01 0010 16§3 | ie 0937 0937 0938 0938 0939 0939 0940 0940 0941 0942 0942% 0956% 
sswi4 €¢ 091 0008 1654 095S* 0960* OS61* 1080* 1084* 1103* 1107% 11498 1157 1160 1170 1206% 
sswiS ¢ 001 0004 1655 | or 1207 1208 1206 1217 1312 1315" 131€ 1318* 1320 1337% 1420% 14213 
SSW16 C OCl1 0002 1686 | Co 1422 1428 1435*% 1450 1452 1453 1454 1457 1460 1464 147€ 1476% 
SSwi7 ¢ 601 ©0001 1657 | 1477 1477% 
sswie € 0C1 0080 1658 XR2 € 001 0002 1628 01446% 0145 0148% 0149 O1€3* 0182*% 0183 0217* 2224 0225 0226 O227 
sswi9 C001 0040 1€&¢ y 0288% 0292 0293 0294 0295 0296 0297 0298 0299 0299 O306 0308 
Ssw2F ¢C 001 ©0001 1662 : 0214 0214*% 0452% C4SE 0460 0460% OF47* 0672 0683 0686 0686* 0687 
STATUS A 002 10C@ 1371 1276 1260 1365* 1440% 1493 i Z 0705 0705% 0864% 0868 0869 0870 0871 O&72 0873 0874 0874 O&877 
STEP A003 1F08 1476 1451 1487% 1470 : i aah OB77% 0S20* 0641 0942 0942# 1314 1316% 1319 1319% 1321 1326 1336 
STRTIO A 004 I18F7 1204 0267 0276 0384 0395 0506 0523 O£31 0734 Oa742 0752 0765 O774 1424% 142 143€ 1442% 1444 1445 1480 1480 
0787 0796 o8s0se 0820 0845 0854 osss 0893 1306 ; xxxL A 006 oOB88 0182 0147* OLess 
SVPFC A025 OA3BS 0025 04798 | - XXxX2 A004 0898 0186 0181 
SVPREQ A 002 18F6 1193 0380 90493 ‘ x203 a co2 1a9sS 1066 0044 
SVUPDT 4 001 16A0 1005 0142% 0142 0142" 0144 01468 0163 0182 0187% 0212 0353 “yy gyoo «6A 002 «1A93) «1068 0045 
SwITCH A 001 1449 0974 0151* 0180 01864 |. x9@900 A 002 1A91 1064 
SYSTEM C 001 0290 16€23 ; - ZERO A002 1F9S 1809 0201 0202 0203 0296 0544 0545 0554 6567 0S81 0S97 O612 0623 
TBLENA A002 184C 1135 t+ O&871 1465 
TERM A 022 1918 1051 oglt :  gROTO A 006 I€15 1400 12986 
TERROR A 004. 1C6EB 12€1 12578 1335 : 
TEST C 001 0212 1623 , TOTAL STATEMENTS FLAGGED IN THIS ASSEWBLY = 0 j 
sents oe THREE A 002 18F! 1190 14560 | qo ee 
TIOBSY A004 1C51 1246 PISS* LIEGE LITES 11E4*% 1245¢ | 
TICERR A 004 1C70 1268 PISB* 1164% 11748 1162¢ 1260 ge 
TICEXT A 004 1€41 1221 12278 i Raat 
TICSEK €£ 004 1C3D 1230 1156% 11678 11778 118&* 122S*% | 
TIXE A 006 1€2E 1405 1395« 1402 : 
re £002 1CFD 1325 12216 { = 
TOBYT A 006 1€24& 1403 1397% 
TSTEXE A 004 I16D8 1462 1442% 1445% 1455 1485* = 
TSTMSK A001 1FSA 1696 1443 | €3 
TSTRCV A O04 1ECB 1458 1641 1444¢ 1478 1482 1484% | 
TWELVE A 002 1705 1041 os6e o€71 Of72 Spa. 
TWO aA 002 I8EF 1189 0S83 Of£86 O58e 0624 0627 0629 13291. | Cs 
TwWOASK A 002 1F89 1802 1468 | 
TYEOT A 006 1€03 1297 1352 
UNITS A O01 1633 1408 1400 | @ 
UNPACK C O01 O21E 1€24 0674 O6878 GEBS O€92 1322 | 
UNP1 A 002 10EO 0677 06724 | a 
UNP 2 A 002 10FE 0681 067 3% 
unP3) A 002 1113 0€92 c6sTs | 
UNPS A 002 111C 0696 o6ess | 
UPDATE A 040 1940 10€2 0351 € 
UTAB C001 0232 1074 0209 0217 O25€ 0407: 0420 0429 0443 0464 0885 0488 0838 0900 | 
WOFCF & 001 1DCD 1374 0526 0768 Le 
WEA6 A O01 117C 0726 O£01 © 
WEAG7 A 001 OFEC 0498 0426 04582 . | 
WORK A 002 1703 1040 CCSE* 0097 0145* 0146 0147 0149% 0150 0157* 0158 0165 0183 0187 | 
OSS4e 0SSe* 0S62¢ 0£63* 0568 0571% O73 0576 0se2* 0583 0586* 0588 & 
0598 O0613% 0617% 0631% 0622 1082 1083 110€ 1206 | 
WRFAO A 001 1364 O764 04694 | 
WRITEA 6 002 1838 1127 GS 
WRICF A 001 1682 1039 oOB8ti 0823 | . 
wRT2 A 001 168C 1026 | 
WRO7T €£004 1332 0882 68a3¢e © 
WTIDS A 004 C842 O62 OL7e 0184 0192 | 
WTIOS1 A 006 O89F 6187 o1see o1ece | @ 7 
wTRD# A 004 OABO 0056 o113 i € 
KREG A 002 18F4 1192 O37S 0492 : 
‘ . 4 
. | H f° ; 3 
7 » : . ‘ 
DATE 29 auGTS 220EC7S fee be oo PROG 10 Fc2-1 DATE 29AUG 75 22DEC 7s PROG 10 rtet 
EC NO. E27808  e27836 © ates ee , | PAGE 20. EC NO. 827804 e27836. : BASe oe 
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THE CHARACTER 
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INDICATES A BLANK COLUMN AND THE CHARACTERS D E H INDICATE NUMERIC SHIFT. 
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rc 


= ° 


T+/ESC— C2A?_SY* 

a 

ie 
T4S/ERCK]ECPM2AX" CHD 
T4+/GMG87 


e 


T+/H 1/1 .wOH44 088 
c s es 


T+/IHCO/tEB /7Pa/ 


41277 


i. Se ene 
T4/HEO*ECCV & JE 
C e s 
T4+/e C DAME?R™ OHS 
A e e 
(T4/e0NCO EET /17 
a. 


Nut ° 


1+ /<60-HNSX4 C]H 
e 


+702 ECONSLOZ EEE 
© 

DATE 29AUG75 

EC NO- 627804 


3340 IPL FCRVAT FRCGRAM 


CL 17 THROUGH 32 


eo 
J+K | @MH-*BAOCDZ 
s . 


A</X O-G /OHEASO 


SPIGEF“E119 7EOHs 


PIMHEBCOAEX<@ AS 
e e 

S /7POA JOMEGCT- 
LEX-@RAICC-oP415 


4 SIKFHA( J-LEP 


AECOSAMESAE *CSHE 


P4i=NC DP11ISFC O 


2C -DWLA?_CEDP257 


COYEC@Y*C+U CO-- 


3s 7#F “asc FeO G 


et} c2 8 ExQs#)H 


K<U2Z0L<Z<< BY-EX< 


WLOBGFZS /11ROH* 


GCIC /1FUOHSS*0 


1C E02 ASAGY ®>0H* 


71B40>000E.an2 0 


° e 
S*°OH Eve 41-2NW0H* 
eco e 


7 MLOBGFZS /11 


AFSOC S>2@ KK*#8E8 


& ascc £)27EfoHs 


22DEC 75 
227836 


--MOCEL 12 


OBJECT CARD LISTING 


CL 33 THROUGH 48 
° - 
€ -SHO-Dev<eBco*s 


ROXBG S-AHECQBTU 


JSCMAEDS( ED0D% 


BC 0) 2/7E OH*¥S *0 


< JSHGONM<K JSFCOP 


GCO MLA2_0 Dl Vv-8 


-"Cc OPZ15<Cc O 


Bc"e< JarlfEDCaCay 


P2JSH| Yt BAEP< 
e e 
7270 HEI-AFE*<ML O 
CEXFPOL ACE zt "Cia 


K EPS -M4 /OLC C 


AASHBAES E*QS#* 


< BYSEX.2/1H<*2> 


JX<CEGFPRE afore 


bd - 
€*7 /1COOHS90%8 


2°0 EXL /100CH* 


AGSYO -8BGF™sB AE 
- e - 

*C4BGODC /INUCEC 

ROM#K6-0AGSYCTSE 


WT MMCOIOSBSE-7 A 


° _ 
$*0o 86ED® 41000Hs 


CL 49 THROUGH 64 
° 2 e 
{ SSFEOS --9OPS H 


HF<BG SYD7A#9- H 


e °° 


ADPO< J7HGL® 71? 


* -— 
G*7 /I CCOH**C+B 
° 


E JnTO-FCO30HE "QO 


AE ° €P2¢ GRE *<P 260 


P2Ia~LC DOMLA=NC D 


e 


<C OP&SEAC-DFS Jn 


P10m EDOS#s ADEE 


AEGSP430 E®C* An 


JZEVECSY*C+/ COXB 


JG<CBG /8AEXH <B 
e a* 

AC7T /OHE P-OM<B 

L<9<< "221 (1<<"26 


EOXEGGEX 716C18D 


GD--< J7THEOP /17 


s0*BGDTA< J7HER” 


2OH*ESXEGGEX s11 


ML_HA X7® | HAAXS 


CF™ ta AJTOHSEORB 


]-B°4 *HAQ+HEM 8 


eo oe @® 


*O*BGDE? 4177 - 


PAGE 


CL 6€& THROUGH 80 


6 _HA =HB SBGCY 


o.. 
38/ Of/7 HFSESS H 


7 E*F)SDEGF>S £00 


GC4c 4177 £03526 


9 18XCA &{-OAES< 
AEDOVE GAE *<PS—H 


PEiweCEDP41728-H 


LCO MLA?_O DEI 6 


< SI<KGOME Jal Fa” 


° e 


YévOO] HP4EO EX< 


GONZ4 /C_( DE°XB 


G SOBEX=- C4LEXT 


G /VES ATHOHS]s 3 


tcR<@aFuum| eNO 0 


MNCODEET 4/177 <- 


eo eo 


7 £0) S8BGF>S /11 


F177 &O) SOBGFOS 


° 


BIBS0_3OAE.x< J7 


(was3s Tl20ce 


GGEX 41.4] <ML<H 


€Ocs#* ado ® AN 


MBBGFSOS /LLROHS 


PROG 10 
PAGE 


2ta 


CL 81 THROUGH 96 


B- H 1-0FC210021 


B- H sL-FC210022 


eoe 


1! 2nerc210022 
= * 

GF>Q 0zZ¢2C210024 
e — 

aVE0 *ESFC210025 


B MH AvYOFC21002€E 


Cave *«°<FC210027 


AE*C =ROFC210028 


2 -< 3 IDF CZ21002¢6 


ameter amhipennetteratttt stmtrnnen iret tena 
° 


P23x% .1OFC210030 


G £8 014FC210031 


2-£U J2*FC210032 


“HI @ 7KMEC210023 


AG#Y LH-FC210024 


ee 


MLZ ESOFC210035 


ROH* 11 UFC210036 


710 EHUFC210037 


HEso 2820FC210038 


@e16 sOnNFC210029 


AEOS + 3D0FC210040 


© & 7e OF C210041 


L¥L=- 42MFC210042 


4 


FC2-1 
2iA 





© 
® 
® 
® 
@ 
© 
e 
e@ 
e 
® 
® 
@ 
e 
@ 
e 


‘DATE 


Te™ 


FC21 


cL 2 THROUGH 16 


T+/4+%—- H3E/ EOH* 


+7 |XLAJOO DLXXH 


T4+/ES -< | AJ<KEDL 


T4735) (-OMLCCAEDO 


TCIJLE_V SECA ED 


eeeoe0esn 


TC SSCEFB EDA 
@eeeeoaneoge 
T+ /aTFERE 
o e 
T4/~G9EDA GOA EDA 
e « 


T4¢//&E0A EDA EDA 


T#/S?ECA ECA EDA 


T+/TDECA EDA EDA 


T4 /UVSAGCSUCAS# J 


| T+ /V-E<XSE CPOSUC 


T4¢/WS2<N 2<GL8°- 
°° 
T4/xX04* $w14s 0>/ 
T4#/VSIMCL5%GD20P 
T4/Z<a" [4adcM2s | 


1+4/DGBUCCS_PT6)$ 


T4/.B1*LPSMCE0RB 


T+/. *A*BGF -#B 946 


T+/XOG#L JeDOH# 
¥4+s/_3M/_E1 KI] Cac 


29AUG 75 


EC NO. 827804 


MAINTENANCE DIAGNOSTIC PROGRAM 


3340 IPL FORMAT FRCGRAM 


CL 17 THROUGH 32 
-_- e - 
BH-C /OHE Av ORF<B 


AeH{e /SCl[AMMLES 


J{ CC&H?1 *COHs 


6 JS<Or* 


ae ey 


BO 


EDA E& 


eeeeeeee 


e@eeeoeeoenveecae ee 


€< oc 


EDA EDA EDA EDA 


€CA 6CA EDA EDA 


@ © es e 


EDA €DA EDA SDA 


EDA EDA EDA EDA 
e 
SATE SNCF) foosy 


@1*Xh1 6Cusat asap 


LO*LEE<LEO'I 121%6 


I1NGOE<xXNE( foose 
GEC SFE<SAE(PCBEN 
RSwCCSX£LES ( Po0a4sc 


LE+eTS_XEE+| O8<. 


&H ~<4BA oV0-D 


ve+ | CSUCLS_PGE<G 


BFXCCF2°%AAKEG Se 


H CCOBTHFA? 


22DEC 75 
e27er€ 


F afc 


~-WCCEL 12 


OBJECT CARD LISTING 


Ct 33 THRCUGH 48 
@ & e jn 
G SY (© DMLXZBGCEE 


€E3 CAP-CA NE 


CEKECH#- SIC D 


cal[coa|(coafc: 


@eeeeoseoecaeenesonede 


Sarvaly =uciaw om 


“BWG3SECA EDA EDA 


ECA EDA EDA EDA 


€OCw2IN EDA EDA 


ECA EDA EDA EDA 


GDA E<GCEBSA*AC 


1%126DA exPceax 


DECTA COA S*] ANG. 
€E<xNEC [OO*LE €0Cc 
EECCRI$ -EGSCT2<CN 
e 
SE+TCOCCAGEN 63L 
CSXCC1 430 E<4AaCC 
E€( JOOs LE 1E 76146 


G4<BGGCG /1+SCC® 
e 
FESPRECE BXPERXE 


AAXBGFO#AB=] AOET 


FOa| H2<scoeTHEelC 


Ct 49 THROUGH 64 


4BA| *O-DH-L1MED1 


A&A GES -CAP-—HA NB 


MLAJECO HSAJDADYH 


& cca - 


@eees 
@2eseeeenoeagcr season o 


eeTe7= HA ODO 


EDA EDA EDA EDA 


e e e » 


EDA EDA EDA EDA 


EDA GEDA EDA EDA 


e 2 * e 


GOA EDA EDA EDA 


NS>( S_N SBGCOWA 


OSMCT1I }XM2 PARES 


1<PC4UCFO3) 29N 


RIZFeEBACTACECN 266 


2<GL Ef aRSKRO}S 
NS #XN14CF6)SME<G 


MS+ e TEC CEE+LP1<G 


GEN IXGEECSRECS 


GOs/TKO-CD1< AFZ 6 


SG 4 BAX30-CAU<B 


MIIPTE< UES BIS 


O=CEHF=YE J?7DC-D 


Ct 65 THROUGH 80 


°4 C2 EL@H-CK ED 


° eo e@ 


C €E ODAX H (H 


H(-DM(<BGE 0< AJ 
e@veevecesneee eos 
& HC 


e& wy: 


eeeve 
° ° e « 
EDA EDA EDA EDA 


EDA EDA EDA SDA 


EDA EDA EDA CDA 
ea se e . 

EDA EDA EDA EDA 
-O*LCE<XTE+} O54] 


DEDA 1<GT CMCMSXL 
> ‘i 
&*SA1<PRQ( XE OXP 

Le'*nLo*e [EE< i tac 


OMWG7Et+ET4°C ICR 


LE&4CLEXGD1I)V EDC 


T1i*J5(GXETIOa/S 0aG 


A®4CCODK OXN OC 


/OHE1/YE8 #DEOHs 


GGDP 71x0CQaagasTt 


O&C JOS*— 76 


$3/7_|< Sa T3FGBE 


PROG ID 
PAGE 


PART NO« 
PAGE 


22 


Ci 81 THROUGH 9E 


e 
{| Ae mEeoFC210042 


en 
AAtH 3EXFC210044 


<BHU 41%*FC210085 


E6)U 38<FC21004E 


eeese 
=80FC210047 


4 
K3aFC210068 
| 


% 


LYHFC210049 


£0 
e ee 
&D KZ4FC210050 


e ee 


€D 3 38UFC2100§1' 


e ee ‘ 
6B T7AaFC210052 
ee 


HIM *:0FC2100€2 


e 
US4aMm sE-FC2100€E4 


TE+< M3YFC2100S5 


e 
F5_< -~C#FC210056 
= e e 


@@- SH FC2100E7 


i 
‘ 


ee { 
I1uU  MIMFC2100E8 
: | 
uexM MES CEI CORS 
° | 


OOs< 1LEFC210060: 


4 
e 


| 

BHXD LHOFC210061: 
‘ | 
K(-D 1:0°C210062 


ee e | 


| 
AX =HYFC210062! 


@OAO ESUFC210064 


FC 2-2 


WY 
/ nN 


4248215 — 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


FC21 3340 IPL 


CL 1 THROUGH 16 


T+/>>*L 306B-8071 


Te#/27Z4A72Z{ (QK1C3 


eocese e ee 


T4+7/0U ee< 


T+/15G HOLL ATHED 
T4+/2E1 TERGFY2/0T 
T+/3NOH#*VLX0G 4 


e 


T+/4ES32EAG IOS 74 


oy 
a 


T+75e Se AB*BGGE® 


ty 
Mee 


“ 


T+/6F1<KA14CS1)P 


T4es/ TAGE&CX9= =KXE+5 
rn 
co? eo eof 


TESTO" EF BH 


e 


Tes87C OSE co 


T+/920LEHGE<S st 


Te/3_S/7THC OS21* 


Q 
hae e e e 
T¥+/#Y Afi- AO G>K< 
my 
. 


T+#/OT A=4+GB"2-60 
Py 


ry 


T+/°SD GAGXXS#EB 


T#/=REDA EDA EDA 


$4 


ey 


T+/°MEMA EDA ECP 


a 
had 


T+S |2<ecaw_ 1¢x 


T4SAHOSTEO* 1s E<L 


“ 
Ne 


a 


T+SBED/P S1 aPKE< | 


DATE 
.EC NOs 


29AaUGT7TS 
827804 


© 


S 





FCRMAT FRCGRAW 
CL 17 THROUGH 32 


e 
KI<D*|x7y [HAGX?7 


EGGDOS5 AOV | (C HEMTS3 


- D 3EHGS4&< AD 


© e 


4K40€ -*JCOHG*Q 


e ee eo e 


70 OH* <G GGT 


20 +6 4189/6 ayv* 


~O-D)ICFEGNPK Eo 
e ee oe 

@& O-F <8GGF- 

S 10CX9=4XE4+2xXS=) 


XG=N"( —)DTOHF=4 


CG SN- * 39° SH 


EC 03€1*GC-H-KSO 


C= 3817_C 3418 


< s*wGsul Jy=|G9P 


AG_XS#*BGGYe /0H 


e e e e 
EDA ECA EDA EDA 
XS@PCBEPDES e€53 6 
e 
I94N SJ US*XxTE<] 
R2sPEE l EN exXPE 4uUC 


OS(-L13 [EES CDEsx 


22DEC 75 
827836 


& 


@eeeesn 


--WOCEL 12 


GBJECT CARD LISTING 


Ci. 33 THECUGH 48 


K [HAF33HF “HES 70 


JGC#2/1-€6A721(8 


RFCHE JECF <Be 


4BAl 0*D 


<BG 


F11IXOH*PUCKHE J7 


SOH*S+OM <EG Se 


S -M4 J3a( HOeOeE 


e@eeeeeoeue eee oeaeeee 


SENXS4C NCHAKEtA 


QBAEC 9_172E < 


c¢ 


$<- ~B aB3co 


EGVEs- Cc sie GS 


GEL e 


366 @6A= 


~6- @ 


TG @2 


2-61 JOKE LOas*H 


EE -8aGacsasec 


ECA ECA EDA EDA 
oe se e 
EECA ECA EDA EDA 
His !KE4CDEexV IMC 


CE_LPAaPTIG_ 1¢X 


VIMC3Es -E1DY Off 


Cu 29 THROUGH E€4 


U| <-#*L3<68-82/1 


*IC3QGGLS7ACY{ICY 
e e 

* AO_ JOAG*0C+0- 
4BA 10(--) LTEMGEL 


HOZ SOH* CFXH( GM? 


ABXBGG.4< S7HGLE 


G 788 27" * 


e 


XG=) GarX9ACXO=~ 


)_0 + <sE7HEACY 


tF=44 BAGR(--$ 836 


3<7 27@_a@VHHAs as 


[HeB<BG svBC 7" 


GCCE=//2G] =~ TTO 


IGA=-/0 e*1= 5+ 


AF HA T&AGRX 2-E-5 


ee e e e 


d1I°H € 6B 6B 6 


EDA EDA EDASP 


ee, 
e ° 
EsPCisxXvies axP 


2D>LN23€ O@TEO*! 


T9EN @SFESIEPKE< | 


NS* | EGAN, E<LR23P 


PaRT 
PAGE 


Ci 65 THROUGH 80 
= e 
KP<Us] 7HG4P TL fH 


*eMT3RGCE+ JI2DGeS 


*.CUHF".2D0 &236A0 


A0- Ot* CEHGFS 


AS<BGGTWE C /0KH 


e ° 


4127 &*) SOBGFOS 


AG¢s s0HE SLO) USD 


PI*GDO)-T1IPV OCaT 


KE4EAXG=} Goe~wXGaC 
eee 

HGSFOOATHOFS 0 

HG--6BAS+ (--S ALE 


- @ee0@ 


8O0Hs SFaBG alc 


o e 
€0-D33.4E |HA * 


Gere C2a-O< Af 


tHeBsoocss {fe 


S$ -G /1°SFCEDS 21° 


B €& A EDA EDA 


# {* 
e e 
NOKN EDA £A.USEX 


e6<LR23 PES 1<KO(P 


OS (~L.3 3 | EESCDE #x 


eee 


NO 4248216 


22a 


Ct. 81 THROUGH 96 


es 
AF30 ELXFC2100ES 


70 §=SEWFC21006€E 


“%<*Q 88 FC210067 


6BAS “EEFC2°9068 


SOG- 3BEFCZ1IOOES 


e e 
710 #Q-FC210070 


TOH* ESVFC210071 


EQ*H LexFC210072 


e 


X92 G6FAFC2]10073 


€ *ceFce10074 


HGTD )QEFC22 0075 


oa| eserc210e7E 


cx PCCFC210077 


& ao 6L-FC21007e 


~T-4 QYMFC21007S 


Ea-D *A0FC210080 


60 PLOFC210081 


*19U NeosFC210082 


e 


TE<< 31-FC2100a3 


184) 6yKBFC210084 


vim ST FC21900e5 


ests XSOSGNECP GS<D SYHFC21008E 
PROG ID _ FC2=1 
' PAGE 


22a 


eee Ee 


J 


ee 


eeteeeacerenreereTe?*. 


TBM MAINTENANCE DIAGNCSTIC FROGRAM 


FC2i 3340 IPL 


CL 1 THROUGH 16 


T45C S1PP6)SGE*G 
T+SCHE CARSKWRODS 
T+SDEDESVELISSIA 
T4+SE1L*#XDE<SASSS 
T+SEXSUCLSES | ABOX 
° . 
T45GX44A EDA EL! 
T+SHSIMCCS CP TSFt 
T4SI}S4+LS84CRIE o 
T4+SHOE (SNE<LIS_Y 
Te#SeLZ2eLEBUCISMC 
T4S<4+E<fVOGCcoe<s 
TeS(LersraajHist 
1T4S+D5) STIMCT2<G 
T+S4"™2)(LE<ES+L 
ves] sD UMCTiIs¢1C1xG 


T+SESCZTEE<IP GDC 


1465089 TRS>LG20C 


FCRMAT PROGRAM 
CL 17 THROUGH 32 


MECC} CO #J ~EXPMSDP 


2st S+eE1OCTSLC 
Eexpevc Hak |RSUC 
eSt+ FHIS CEE (ARSA 
CSZLeoEt] HLT ES<G 
H~fLYERSK<GLEC ARSE 
EENCOS4+LNAaPSBUC 
cd e 
I1l<n 5_N rjesel 
es 
LT] Te6<] V44COEKX 


TE<CN S)ERECGLEC AS 
e * e 
RE&_J OON 1<E EGE 

e 
1_SRE+ [HI MCO6 FX 
TECKFEKLIE<XSE+ 
F£1<GT 1%) «&<PN EOP 
CESCFOAR E<SA PES 
DOs |AG+ew23 1C2<P 


T2CN 1<GTOMCSORX 


=---MODEL 12 


OBJECT CARD LISTING 


CL 33 THROUGH 48 
Af 
AO_|EASSPE<PNI L 


UEELA EAN O=TLETA 


LSKXGCLIVI2%) LRG 
ROILSECXESXXD IMC 


° 
R1IPZ EDC 10<] ¥4ax 


ROS C)XEOMALS+. 
RS CENZ}PGE<SRS_J 


FiMCDO sf ASCLO TAL 


SEAL PI<CGTiI*S OF/ 


REXARC)S OP XEOMA 
C 
5( S09 JEK4CESS | 


vircw2s fret Hime 
e 

Pile] LixxXE1e_ O=T 

RE+|HIMCDE*XVIMC 


EXR EXTEE(AFEKA 


exaces*#nh S_V SCS 


JOETEBU_ OXTEEMC 


CL 49 THROUGH 64 


@aceceee 


n5ucoso <OFL 


QxxT2DC3O*LOeeL 
es 
6PO_ OPCE+}HIMC 


e 9 


CEMCT2<N O8N 1<G 
N1I<PREJA SXTIOO/ 
ELDCB IDC T2<XSE(- 
a 

Od{TEC [OOFLEGM? 
LiIMCTSUCB IMCU SAL 


ING OF 4CF OAR EUS 
* & 
(5_V OBGRI+I S_V 
EENCOR MC CEMCD8UC 
Coz] AECLOI4LL IMC 

e * 

Leja S_N esTec<|} 
e e 
Ages ECFSI3C BOT 
RO) LSE+ [OE< EEL 


R1 MCFG ) $G6 *GMBUC 


TE<PES3 | Rs DCOEMC 


PART NOo 4248219 
PAGE 23 
2 
6.2 
CL 65 THROUGH BO CL 481 THROUGH 96 | 
f- 
x 


aS=JE6MCC2<PC4> | 
1O'xOa<{O1<NC24J 


3a"LOE< XP 44CL EXG 


TOMCMSKSLUSAN 25N 


231 9+eE1OCF5_V 


R5EX_ROP I BER Bim 


Cimcoo:; {| AE CLO 14L 
AB@PDECLASDCR1¢ o 


RE<SA* AC W2<KC20C 


1 <xS@X%PTBONDESC 


ISMCT2EN OF RUECL 
TSUCBIMCUSELA GOP 
e 
EE<Lasee £8090 | 
ECKTAS= (eo 1LIPTIIVV 


P1<GT1*J) BETRSOL 


MO37 OXN 1IPTIIX 


ES: [R2*P SE<TAS#N 


H23H S30FC210087 


1%0 OHOFCZiCOEE 


so 


D1)U r#-FC210089 


8=Q =HOFC21 0090 


ty 


2)»" «7 FC210091 


oos< *BUEC210092 
ee : 


Lim 11%xFC210093 


C: 
€: 
Li<M *8aFC210094 
© 
RITH "24FC210095 
i 
: '@ 
NED< BT <FC21009E 
Ke G 
ased e£erc2100¢7 
i : 
a & 
OK4 ornrcaicose 
e as 
Ee+a RSOFC21 0099 
e o ty 
8a- mee eRe | 
ee ; © 
G2c mee RRN TOT 
ee @ C 
€10 4 recat o104 
Cc 


e e 
OxM -HFC21010 


Lem MAINTENANCE DIAGNOSTIC PROGRAM 


FC21 


CL 1 THROUGH 16 


T4SPKIMCUS GL ABOP 


T+SOCIMCHOD| TEt+e 


T+SRHEDA SDA EDA 


T+SECEDA EDA EDA 


e e 


TCSEKEDE ECA EDA 


— A*E7 #==DC"PHS 


3340 IPL FORMAT PROGRAM 


CL 17 THROUGH 32 


DKACVIIKII>S S87 


CE4LPICGTIZ1 S<G 


es e s oe 


EDA SDA EDA EDA 


e ° e e 


ECA ECA EDA ECA 


ECA SCA 


ooo zoo e 


=e 7Mer | t Cc 


--WODEL 12 


OBJECT CARD LISTING 


CL 33 THROUGH 48 CL 49 THROUGH 64 


AESCTZ<EN 1%¢ 40P 


YE<eEE<LOS#Ne EDA 


6CA ECA ECA EDA 


a ° e e 


ECA ECA EDA EDA 


aseeasoeeoevevatee 


v1) {SE<GRIMCCS_X 


2%) SOCO4BI 1% 6 


EDA &04 EDA EDA 


0A GCA EDA EDA 


eeeevancaseoeooe? 


so Q 


PART NO. 
PAGE 


CL 65 THROUGH 80 


e 
Rie |[TKAA GFPSI; C 


ECTCNIZR 1*¢€ EDA 


o e e 


EDA EDA EDA EDA 


EDA EDA EDA EDA 


aeoenesoe CEUEOE® 


aaoee 


OSsCsoeso7si 


4246219 
23a 


CL 81 THROUGH 96 


e e 
Be- JCaAFC210109 


° eo 


6D 4«#-¥FC210110 


6D *BsFc210311 


e e@¢ 


ep *38FC210212 


@eeoasd 


GQT-FC216113 


219751-SFC21i0114 





e e e e e e e © 
T4+SKelIN OF SMS® | EesPre<ensapre{C FIR Z2)N SeTEe<in AGE erstealHis! BR BXXGE*XF2<| O5(* p-orcarot oq 
: . x : 1 © 
T4SLWAOPT2 ) SNKSC NE>f Est {HOC 24R 1%GO0E<¥ SE+ oF 4OP C&DPDESCPE)SG6*G Me<fitacreucusxP O06<U orcrc210108 
| wo 
eo e e ee Ay 
T4SM/SEMCTZEN OC 5 CO; {EEC aR EX [Ee>! eSXTESWCROCPN2Z)F GE<SRS_J or{Tet{ OGO*LE6O_ O*SNE°X 044 ST<FC21010 
e °° _o e s e © 
e 
TeSNSED>IOESN SXX L42CB1IMCLEXGOIFS 2)K O*LO23 [ISN B*R BSTEECLFI<G TEI PGEXR 1xGOKAC EES< secrcaror04 
: : : ‘ | © 
T4¢SO0P1)V BOTEE<X OCeUCASP#S 6*FS15 BETEE<TAS=( 887 EE< 204 * | OSX XNI4C PE) SGES*GMEUCHW2) | LE<H svarcerored 
cn tek ietado ao eea SKS eae Te Last PAGE ihe oe tec cee aseayeeS rr srhFTese tts TS 
' 
Lt : | 3 
= a oe eee PROG ID FC2-1 CATE 29 AUG7S 22DEC 7E PROG 10 FCc2-t 
. 627836 PAGE 230 - EC NO. 227804 827836 7 PAGE 23a 
: wo 
i 





) 





